#!/usr/bin/perl
# Sys - Project

# IPscaner v1.0
# Coded by Solide Snake
# http://forum.antichat.ru/ 


use IO::Socket;

my $host = $ARGV[0];
my $inip = $ARGV[1];
my $fip = $ARGV[2];

print "\n\t", '-' x 24,"\n";
print "\t[    IPscanner v1.0    ]\n";
print "\t[coded by Solide Snake ]\n";
print "\t",'-' x 24,"\n\n";

die &usage unless $ARGV[2];

if ($inip>$fip) {
   die "Port error!\n";
}

@ips = split(/\./,$host);
if ($ips[0]>255 || $ips[1]>255 || $ips[2]>255 || $ips[3]>255){
   die "[!] IP > 255\n";
}

for ($port = $inip; $port <= $fip; $port++){

   $conn_in = inet_aton($host) || die "[-] error connect.";
   $sock_addr = sockaddr_in($port, $conn_in);
   socket(SOCK, AF_INET, SOCK_STREAM, 'tcp');

if (connect(SOCK, $sock_addr)) {
   $service = getservbyport($port, 'tcp');
   print "$host:$port / $service\n";
   close(SOCK);
 }
}

sub usage{
print "usage: perl $0 <host/ip> <port-begin> <port-end>\n";
print "example: perl $0 127.0.0.1 3 355\n";
exit;
}

__END__