ANTICHAT — форум по информационной безопасности, OSINT и технологиям

#!/usr/bin/perl -w

# PortMap by nerezus
# The Artistic License
# ICQ 547097
#
# A tool for scan ip range

use strict;
use Socket;

if (@ARGV<2) {print "Usage: portmap.pl from_host(ip) to_host(ip) [portfile.txt(ports via [space])]\n";exit(0);}
my $fremote=shift||'127.0.0.1';
my $tremote=shift||'127.0.0.1';
my $portfile=shift;
my $ports;
if ($portfile) {open (PF, $portfile); $ports=<PF>; close(PF);}
   else {$ports="21 80";}
my @ports=split(/ /, $ports);
my @flist=split(/\./, $fremote);
my @tlist=split(/\./, $tremote);
my $fip=$flist[0]*256*256*256+$flist[1]*256*256+$flist[2]*256+$flist[3];
my $tip=$tlist[0]*256*256*256+$tlist[1]*256*256+$tlist[2]*256+$tlist[3];

for (my $i=$fip; $i<=$tip; $i++) {
	my $tmp=$i;
	my $d1=int($tmp / (256*256*256)); $tmp=$tmp-$d1*(256*256*256);
	my $d2=int($tmp / (256*256)); $tmp=$tmp-$d2*(256*256);
	my $d3=int($tmp / 256); $tmp=$tmp-$d3*256;
	my $d4=$tmp;
	my $ip="$d1.$d2.$d3.$d4";
	my $host=gethostbyname($ip);
	foreach my $port (@ports){
			my $dest=sockaddr_in($port, $host);
			socket (S, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
			if (connect(S, $dest)) {
				print "[".scalar(localtime)."] $ip:$port OK\n";}
#			   else {print "[".scalar(localtime)."] $ip:$port ERR\n";}
			close S;
	}
}