<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#!/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 &lt;ip&gt;\n\n";
    exit 0;
}

printf "\n";

($server = $ARGV[0]);

for ($poort=$start;
     $poort&lt;=$eind;
     $poort++) {

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

if ($verbinding) {

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


</pre></body></html>