#!/usr/bin/perl

use IO::Socket;

$start = 0;
$eind = 65536;

sub legen {
    if ($^O == 'MSwin32') { system("cls"); }
    if ($^O eq 'linux') { system("clear"); }
}

legen();

printf "\n-- CynuX Portscanner v1.1 --\n--     By Eric de Maar    --\n";


if (! defined $ARGV[0]) {
    printf "\nUsage: perl cynux-portscanner.pl <ip>\n\n";
    exit 0;
}

printf "\n";

($server = $ARGV[0]);

for ($poort=$start;
     $poort<=$eind;
     $poort++) {

$verbinding = IO::Socket::INET->new(PeerAddr => $server,
			        PeerPort => $poort,
				Proto => 'tcp');

if ($verbinding) {

printf "Port $poort is open\n";
}
}
printf "\n";