[PERL] Basic Port Scanner.

[SaGiKz]

Here is a quick port scanner i created.. VERY basic.

#!/usr/bin/perl
#Code Developed by Sagikz 
use IO::Socket;
print "Target: ";
chomp (my $server = <STDIN>);
$op = 0;
while(1)
{
$ports = new IO::Socket::INET (
PeerAddr => $server,
PeerPort => $op,
Proto => "tcp");
if($ports)
{
print "$op is open...\n";
}
$op++;
}

 

[cp]

So... This just starts from port 1... and goes up and up?

I guess it is basic. I don't really like perl. When it gets complicated, it's way too hard to read.