TelPerl

  • 0 Respuestas
  • 1459 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

TelPerl

  • 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 "<ul class="bbc_list"><li type="square">Usage: TelPerl.pl Host User Pass\n</li><li type="square">Example: TelPerl.pl 127.0.0.1 admin 123123\n";[/li][/list]
  16.         $t = new Net::Telnet (Host => $host);
  17.         eval { $t->login($user, $pass); };
  18.    if ([email protected]) {
  19.    
  20. print "\n</li><li type="square">Logeado";[/li][/list]
  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 »