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

TelPerl

  • 0 Respuestas
  • 1143 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:37 pm »
Código: Perl
  1. #!/usr/bin/perl
  2. #c0dex by m0x.lk || Fucker Team ||
  3. #TelPerl || Conector Telnet en Perl
  4. system ("clear");
  5. system ("cls");
  6. system ("color f0");
  7. print "\n\n";
  8. print "\t\tc0dex by m0x.lk\t||  Fucker Team  ||";
  9. print "\n\n";
  10. print "\t\tTelPerl | Conector Telnet en Perl\n\n";
  11.  
  12. use Net::Telnet ();
  13. $host=$ARGV[0];
  14. $user=$ARGV[1];
  15. $pass=$ARGV[2] || die "[+]Usage: TelPerl.pl Host User Pass\n[+]Example: TelPerl.pl 127.0.0.1 admin 123123\n";
  16.         $t = new Net::Telnet (Host => $host);
  17.         eval { $t->login($user, $pass); };
  18.    if ($@) {
  19.    
  20. print "\n[+]Logeado";
  21.  
  22.    }
  23.    else {
  24.       print "Login FAILDER!";
  25.    }
  26.    
  27. comand:;
  28. print "Comando Linea: ";
  29. $comand=<STDIN>;
  30. $t->cmd("$comand");
  31. goto comand;
« Última modificación: Marzo 14, 2015, 09:45:47 am por Expermicid »

 

¿Te gustó el post? COMPARTILO!