Conector Telnet en Perl

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33

#!/usr/bin/perl #c0dex by pr0xXx0r || RK-X Team || #TelPerl || Conector Telnet en Perl system ("clear"); system ("cls"); system ("color f0"); print "\n\n"; print "\t\tc0dex by pr0xXx0r\t|| RK-X 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 "<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] $t = new Net::Telnet (Host => $host); eval { $t->login($user, $pass); }; if ($@) { print "\n</li><li type="square">Logeado";[/li][/list] sleep 1; } else { print "Login FAILDER!"; } comand:; print "Comando Linea: "; $comand=<STDIN>; $t->cmd("$comand"); goto comand;