Exploit Crew Labs

#!/usr/bin/perl
# 25-03-09
# PortScan Simple
# Coded by Bocvk
# Exploit-Crew => Bocvk , Polk
# Contact : info.bocvk [at] gmail.com
# HomePage : www.exploit-crew.blospot.com

use IO::Socket;
die " [!] Syntax : perl $0 [server] [port_begin] [port_end]n" unless($ARGV[2]);
$server=$ARGV[0];
$port_i=$ARGV[1];
$port_f=$ARGV[2];
print " [+] Scanning ...n";
for($port=$port_i;$port<=$port_f;$port++){
 $socket= IO::Socket::INET->new(PeerAddr => "$server",
                                PeerPort => "$port",
                                Proto => 'tcp');

 if($socket){
     $service = getservbyport($port, 'tcp');
     print " OPEN  | $port | $servicen";
     }else{
     print " CLOSE | $portn";
     }
close($socket);
}