TelPerl

Iniciado por ProcessKill, Febrero 24, 2010, 04:32:37 PM

Tema anterior - Siguiente tema

0 Miembros y 1 Visitante están viendo este tema.

Febrero 24, 2010, 04:32:37 PM Ultima modificación: Marzo 14, 2015, 09:45:47 AM por Expermicid
Código: perl
#!/usr/bin/perl
#c0dex by m0x.lk || Fucker Team ||
#TelPerl || Conector Telnet en Perl
system ("clear");
system ("cls");
system ("color f0");
print "\n\n";
print "\t\tc0dex by m0x.lk\t||  Fucker Team  ||";
print "\n\n";
print "\t\tTelPerl | Conector Telnet en Perl\n\n";
sleep 1;

use Net::Telnet ();
$host=$ARGV[0];
$user=$ARGV[1];
$pass=$ARGV[2] || die "[+]Usage: TelPerl.pl Host User Pass\n[+]Example: TelPerl.pl 127.0.0.1 admin 123123\n";
        $t = new Net::Telnet (Host => $host);
        eval { $t->login($user, $pass); };
   if ($@) {
   
print "\n[+]Logeado";
sleep 1;

   }
   else {
      print "Login FAILDER!";
   }
   
comand:;
print "Comando Linea: ";
$comand=<STDIN>;
$t->cmd("$comand");
goto comand;