$_staX
22.02.2009, 14:28
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;
#!/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;