#!/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); }
kazbiel