lame subnet scan

				
=**************************************
= Name: lame subnet scan
= Description:Scans a whole xxx.xxx subnet for an open door. 
I did build it for my needs only, i could improve its quality but not necessary at all..it does what i want somehow!
= By: enezneb
=
= Inputs:subnet 
port
=
= Returns:log.file ( contains hosts that has the scanned port opened)
ip.list ( file which receives the lame subnet ip generator)
=
= Assumes:Problems: the code was supposed to print "*" for hosts with opendoor, and "." for not open at the moment the host is checked, but the code only does it when the scan process is done. somebody knows why ? email me !
clean $logfile and $targetfile for future use.. didnt set something to clean them up.
=
=This code is copyrighted and has= limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=666&lngWId=6=for details.=**************************************

#!/usr/bin/perl# i have created this for my needs so... =)
# thanks for google.com
# created by : enezneb
# ---scan a whole xxx.xxx subnet for an open port----
# dont know why the hell the prints statements doesnt print on real time.
# should print "*" for open and "." for not open(at the moment they are checked)
# but it only prints after doing the entire scan process.
# if u know why send email: benzene at globo dot com
#
# PS: after using the scan, clean ip.list and log.file
# its a lame code, i could manage to clean them up, or set them like an argument
# but i;m lazy kakakaka and i only use xxx.xxx subnets(my needs),
# change to your needs if u want
#
# change $logfile and $targetfile ( path to)
use Socket;
$proto = getprotobyname(shift || 'tcp');
print "Subnet to scan:(ex.: 200.1)";
$subnet=<STDIN>;
chop($subnet);
print "Port to scan:";
$port=<STDIN>;
chop($port);
$targetfile = '/pub/ip.list';
open(FILE,">>$targetfile") || die "Could not get file\n";
for($i=0;$i<=255;$i++){
 for($j=1;$j<=255;$j++){
 print FILE "$subnet.$i.$j\n";
 
}
}
close(FILE);
print "IP List generated for subnet: $subnet at $targetfile\n";
$logfile = '/pub/log.file';
open(LOGFILE, ">>$logfile") || die "Could not open log file\n";
open(IPLIST,"<$targetfile") || die "Could not open file for ip list reading\n";
 
 foreach $line (<IPLIST>){
 chomp($line);
 $iaddr = inet_aton($line);
 $paddr = sockaddr_in($port, $iaddr);
 socket(SOCKET, PF_INET, SOCK_STREAM, $proto) || die "Could not create socket\n";
 $sock = connect(SOCKET,$paddr) || next;
 if($sock)
 {
print "*";
print LOGFILE "$line\n";
 }else{
 print ".";
 }
}
close(LOGFILE);
close(IPLIST);