./c0de/perl/telnet.txt

0.
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 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;

Back