Port Scanner con Perl
13 May 2008
No Comments
Leyendo el sitio http://www.gnucitizen.org/blog/agile-hacking-a-homegrown-telnet-based-portscanner me encontre con un script realizado en perl el cual tiene objetivo mediante el uso del modulo "IO::Socket::INET" realizar un scan de ports tcp de una direccion ip.
El resultado del mismo es muy elemental pero nos pueden sacar de muchos apuros.
PERL:
-
use strict;
-
use IO::Socket;
-
my ($target,$remote,$results,$port,@ports);
-
for ($port = 0; $port<65536; $port++)
-
{
-
$remote = IO::Socket::INET->new(
-
Proto   => "tcp",
-
PeerAddr => $target,
-
PeerPort => $port,
-
);
-
}
Uso: perl script.pl ip
Tags: