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.

TelPerl

  • 0 Respuestas
  • 1028 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. No tienes permisos para ver links. Registrate o Entra con tu cuenta ("clear");
  5. No tienes permisos para ver links. Registrate o Entra con tu cuenta ("cls");
  6. No tienes permisos para ver links. Registrate o Entra con tu cuenta ("color f0");
  7. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n";
  8. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\t\tc0dex by m0x.lk\t||  Fucker Team  ||";
  9. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n\n";
  10. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\t\tTelPerl | Conector Telnet en Perl\n\n";
  11. No tienes permisos para ver links. Registrate o Entra con tu cuenta 1;
  12.  
  13. use Net::Telnet ();
  14. $host=$ARGV[0];
  15. $user=$ARGV[1];
  16. $pass=$ARGV[2] || No tienes permisos para ver links. Registrate o Entra con tu cuenta "[+]Usage: TelPerl.pl Host User Pass\n[+]Example: TelPerl.pl 127.0.0.1 admin 123123\n";
  17.         $t = new Net::Telnet (Host => $host);
  18.         No tienes permisos para ver links. Registrate o Entra con tu cuenta { $t->login($user, $pass); };
  19.    if ($@) {
  20.    
  21. No tienes permisos para ver links. Registrate o Entra con tu cuenta "\n[+]Logeado";
  22. No tienes permisos para ver links. Registrate o Entra con tu cuenta 1;
  23.  
  24.    }
  25.    else {
  26.       No tienes permisos para ver links. Registrate o Entra con tu cuenta "Login FAILDER!";
  27.    }
  28.    
  29. comand:;
  30. No tienes permisos para ver links. Registrate o Entra con tu cuenta "Comando Linea: ";
  31. $comand=<STDIN>;
  32. $t->cmd("$comand");
  33. No tienes permisos para ver links. Registrate o Entra con tu cuenta comand;
« Última modificación: Marzo 14, 2015, 09:45:47 am por Expermicid »

 

¿Te gustó el post? COMPARTILO!