Curso de programación en Perl

[Erik#]

29.Escaner de puertos

Código (perl) [Seleccionar] Expandir

#!/usr/bin/perl
use IO::Socket;
print "IP o HOST: ";
$iphost=<STDIN>;
for($puertos=21;$puertos<=270;$puertos++)
   {
$sock = IO::Socket::INET->new(PeerAddr, "$iphost", PeerPort, "$puertos",   Proto, 'tcp');
if ($sock) {     
    print "$puertos Abierto\n";
     } else {   
     print "$puertos Cerrado\n";
     }
   }

[Erik#]

30.Escaner de puertos de X a Y

Código (perl) [Seleccionar] Expandir

#!/usr/bin/perl
use IO::Socket;
print "IP o HOST: ";
$iphost=<STDIN>;
print "Puerto de inicio: ";
$puertoi = <STDIN>;
print "Puerto final: ";
$puertof = <STDIN>;
for($puerto = $puertoi;$puerto<$puertof;$puerto++)
   {
$sock = IO::Socket::INET->new(PeerAddr, "$iphost", PeerPort, "$puerto",   Proto, 'tcp');
if ($sock) {     
    print "El puerto $puerto esta abierto\n";
     } else {   
     print "El puerto $puerto esta cerrado\n";
     }
   }