#!/usr/bin/perl

use Socket;

$ARGC = @ARGV;

if ($ARGC < 2 ) {

print "Port Scanner \n";
print "CODED BY Satana \n";
print "Use : $0 <host> <protocol> \n";
exit;

}

$protoc = $ARGV[1];
print "\nStarting Scan.. \n";
print "Target : $ARGV[0] \n";

for ($port_in = 0; $port_in <= 6000; $port_in++) {
$iaddr = inet_aton($ARGV[0]) || die "Error to connect on Host.($!)";
$paddr = sockaddr_in($port_in, $iaddr);

$proto = getprotobyname($protoc);
socket(SOCK, AF_INET, SOCK_STREAM, $proto);

if (connect(SOCK, $paddr)) {
$servico = getservbyport($port_in, 'tcp');
print "$port_in - $servico - open \n";
close(SOCK);
}
}
print "Scan completed... \n\n";
exit;