Portscanner

Ein sehr simpler Portscanner von mir ;)

Code:

---

#!/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;

---

Oke nicht schlecht (ich kann sehr wenig perl)
Die geschwindikeit ist Ok (nicht so lahm wie meiner in c ^^)
Nur hmm sobald man mehr Ports scannen will wirds ein bischen unübersichtlich
Du köntest doch die Offenen Port am ende sauber in eine datei schreiben oder den Schirm clenen und die offenen ports angeben.
Sobald mann alle scannen wil (oder einfach ein Gröseren bereich) währe das sinfoll.
aber so ist er schon sehr nice ^^

ja werd mich später mal hinsetzten aber werd jetzt erstmal bisschen latein büffeln und dann schauen ob sich das soweit realisieren lässt wenn ich lust habe :)

-------------------------------------------------------------------------
Hab die Version noch nicht getestet aber sollte funktionieren ;)

Changelog:
Speichert alle offenen Ports in einer Logdatei ab

Code:

---

#!/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";
      open(file, ">>portscann.log");
      print file "Port ".$startp." ist geöffnet!\n";
      close(file);
    }
    else
    {
      print "Port ".$startp."\t= Closed\n";
    }
  $startp++;
  close("$sock");
}
print "Done!!\n";
exit;

---

Gibts hier kein highlighting für sprachen oder find ichs nur nicht?!