#!/usr/bin/perl
#
# Illegal Instruction Labs VERY COOL Port Scanner
# www.ii-labs.tk / kamikaza.ffk.hr
#
#    by DownBload / ljuranic@foi.hr

use IO::Socket;

if ($#ARGV != 2) 
{
 print "-------------------------------------------------\n";
 print "Illegal Instruction Labs VERY COOL Port Scanner ;)\n";
 print "     coded by DownBload <ljuranic\@foi.hr>\n";
 print "-------------------------------------------------\n";
 print " Usage: perl vcps.pl lowport highport hostname   \n";
 exit (0);
}

$lowport = $ARGV[0];
$highport = $ARGV[1];
$hostname = $ARGV[2];

print "Open ports on $hostname...\n";
for ($x = $lowport ; $x <= $highport ; $x++)
{
 $sock = IO::Socket::INET->new("$hostname:$x");
 if ($sock > 0) {
  $name = getservbyport ($x,"tcp");
  $name = "NO INFO" if ($name eq "");
  print "o $x - $name\n";
 }
 close ($sock);
}