Ele é bem simples, você passa como parâmetro o host, opcionalmente as portas de início e fim e o nome do arquivo log que ele vai gerar.

A partir daí ele percorre as portas (caso você tenha especificado, vai percorrer somente aquela faixa) verificando quais estão abertas para uma conexão TCP/IP, depois imprime na tela e salva no arquivo uma linha dizendo a porta atual e o estado dela (open/closed).

• Download r4tz
• Enviar nova versão

Esconder código-fonte

#!/usr/bin/perl -w
use strict;
use IO::Socket::INET;

## Pra postar aqui tirei o POD do começo do arquivo, mas deixei no script pra download.

sub usage {
   printf "Usage: %s <hostaddr> [<init> <endp> <logfile>]\n", $0;
   printf "   <hostaddr> - Adress to check.\n";
   printf "   <init>     - Initial port(default is 1).\n";
   printf "   <endp>     - Final port(default is 65000).\n";
   printf "   <logfile>  - File to save log(default is log.ports).\n";
   exit;
}

my $host = $ARGV[0] || usage;
my $init = $ARGV[1] || 1;
my $endp = $ARGV[2] || 65000;
my $file = $ARGV[3] || 'log.ports';
my $tmp_sock = '';

($init, $endp) = ($init < $endp) ? ($init, $endp) : ($endp, $init);

open ARQ, ">", $file;

foreach (($init .. $endp)) {
   $tmp_sock = IO::Socket::INET->new(
      PeerAddr => $host,
      PeerPort => $_,
      Proto    => 'tcp',
      Type     => SOCK_STREAM
   );

   if ($tmp_sock) {
      printf "[%05d]  -  Open.\n", $_;
      printf ARQ "[%05d]  -  Open.\n", $_;
   }
   else {
      printf "[%05d]  -  Closed.\n", $_;
      printf ARQ "[%05d]  -  Closed.\n", $_;
   }
}

close ARQ;

Carregando automaticamente wireless via ndiswrapper II

Importação de IPs do Whatsapp como Objeto do Zentyal

Carregando automaticamente wireless via ndiswrapper

Instalação automatizada do Squid 2.5 STABLE14

Enviando notificações do Nagios para o MSN

Nenhum comentário foi encontrado.