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?!