#!/usr/bin/perl
# Scanner by Fatboy
# 13 Aug 08
use Net::IP;
use IO::Socket::INET;
if ($#ARGV != 3)
{
print "usage: ./pcheck startip endip port logname\n";
exit;
}
$startip = $ARGV[0];
$endip = $ARGV[1];
$port = $ARGV[2];
$log = $ARGV[3];
open(WORKING, ">>$log") || die "Cannot open the log file!\n";
$ip = new Net::IP ("$startip - $endip");
while($ip)
{
$conn = $ip->ip();
$sock = IO::Socket::INET->new(PeerAddr => $ip->ip(),
PeerPort => $port,
Timeout => 5,
Proto => 'tcp');
print "Checking $conn - ";
if($sock)
{
print "SUCCESS\n";
print WORKING "$conn\n";
}
close($sock);
++$ip;
}
close(WORKING);
)
