Portscanner

[$_staX]

Ein sehr simpler Portscanner von mir

#!/usr/bin/perl
####################################
#                                  #
#            Portscanner           #
#               Usage:             #
# portscan.pl target startip endip #
#                                  #
####################################
use IO::Socket::INET;
use strict;

exit if(@ARGV!=3);
my $target = shift;
my $startp = shift;
my $endp = shift;

while($startp<=$endp)
{
  my $sock = new IO::Socket::INET(PeerAddr => $target, PeerPort => $startp, Proto => 'tcp');
    if ($sock)
    {
      print "Port ".$startp."\t= Open \n";
    }
    else
    {
      print "Port ".$startp."\t= Closed\n";
    }
  $startp++;
  close("$sock");
}
print "Done!!\n";
exit;