Hey guys/gals,
| I just wrote this lil' script this morning...
| Maybe, i thought, some AO members could use it...
| Not documented too well, sorry :-(
| hope you enjoy...
-take it easy :-)Code:use IO::Socket;
my ($line, $port, $sock, @servers);
print "\n\tWideRange PortScanner\n";
print "\n\tThis Script was written in TampaBay\n";
print "\tunix.server\@netzero.com\n";
print "\nPlease enter Main IP Range\n";
print "\t???.???.???.___\n";
print "> ";
$iprange = <STDIN>;
chomp $iprange;
print "\nEnter Starting point\n\t___.___.___.???\n> ";
$ipstart = <STDIN>;
chomp $ipstart;
print "\nEnter Ending point\n\t___.___.___.???\n> ";
$ipend = <STDIN>;
chomp $ipend;
print "\nEnter Port to poke.\n> ";
$port = <STDIN>;
chomp $port;
print "Action\tIP\t\tPort\tResult\n";
print "------\t--\t\t----\t------\n";
for ($i = $ipstart; $i <= $ipend ; $i++) {
print "poking\t" . $iprange . $i . " ";
$server = $iprange . $i;
$sock = IO::Socket::INET->new(PeerAddr => $server,
PeerPort => $port,
Proto => 'tcp');
if ($sock) {
print "\t$port\tpassed\n";
# Add Code To Log IP
# Add Code To Test Services
} else {
print "\t$port\tfailed\n";
}
}
print "\n\tDONE!\n";
