Testando a conectividade da rede – alternativas ao ping

#

# Versão 1.00 30-07-2010

# Este script foi testado em

# Abrir o VOS 17.0.2ah executando o Perl v5.8.0 compilado para i686-vos

# Microsoft Windows XP Service Pack 3 em execução

# ActiveState Perl v5.10.0 compilado para MSWin32-x86-multi-thread

# Red Hat Linux 4AS-5.5 em execução

# Perl v5.8.5 compilado para x86_64-linux-thread-multi

#

[email protected]

#

use IO::Socket;

use Getopt::Long;

use Sys::Hostname;

use strict;

meu ($resultado);

minha ($portaLocal, $mensagem, $endereçoDoParceiro);

minha ($novaMeia, $dados);

$result = GetOptions (‘port=s’ => $localPort,

'message=s' => $message);

if (($resultado != 1) || !(definido($portaLocal)))

{

imprimir “nnUtilização:n”;

imprimir “tperl tcplisten.pl -port NÚMERO-DA-PORTA [-message MENSAGEM]nn”;

sair;

}

se (!definido ($mensagem))

{

imprimir “Nenhuma mensagem especificada – criando mensagem”;

$message = “Conexão aceita pelo tcplisten em execução em ” . hostname;

}

imprimir “perl tcplisten.pl -port $localPort -message ‘” . $message . “‘n”;

my $sock = IO::Socket::INET->new(

Proto => “tcp”,

LocalPort => $localPort,

LocalAddr => ‘0.0.0.0’,

Ouvir => 1,

) ou morrer “Não foi possível criar soquete para a porta $localPort: $!n”;

enquanto (1)

{

minha $novaMeia = $meia->aceitar();

imprimir “Conexão aceita de ” . $newSock->peerhost .

” em ” . localtime () . “n”;

imprimir $newSock $mensagem . “n”;

$newSock -> desligar(2);

$sock->read($data, 1024); # aguarda até obter uma indicação próxima */

$newSock->close();

}

#

# tcplisten.pl termina aqui

#

# Versão 1.00 30-07-2010

# Este script foi testado em

# Abrir o VOS 17.0.2ah executando o Perl v5.8.0 compilado para i686-vos

# Microsoft Windows XP Service Pack 3 em execução

# ActiveState Perl v5.10.0 compilado para MSWin32-x86-multi-thread

# Red Hat Linux 4AS-5.5 em execução

# Perl v5.8.5 compilado para x86_64-linux-thread-multi

#

[email protected]

#

use IO::Socket;

use IO::Select;

use Getopt::Long;

use strict;

meu ($resultado);

my ($destIP, $destPort, $timeout, $result, $message, $flags);

my ($pronto, $soquete);

my ($x, $c, $icmpJá);

$result = GetOptions (‘ip=s’ => $destIP,

'port=s' => $destPort,

'timeout=s' => $timeout);

if (($resultado != 1) || !(definido($destIP) && definido($destPort)))

{

imprimir “nnUtilização:n”;

imprimir “tperl tuc.pl -ip ENDEREÇO-IP-DE-DESTINO ” .

“-port DESTINO-NÚMERO-DA-PORTA”;

sair;

}

if (!defined($timeout)) { $timeout = 5; }

elsif ($timeout > 15) { imprimir “OK, mas ” . $timeout .

” parece excessivamente longo.n”; }

$message = “enviado por tuc.pl às ” . localtime();

my $sock = IO::Socket::INET->new(

Proto => ‘udp’,

Porta do par => $destPort,

PeerAddr => $destIP

) ou morrer “Não foi possível criar soquete para o destino $destIP: $!n”;

meu $isock = IO::Socket::INET->new(

Proto => 'icmp');

$sock->enviar($mensagem) ou morrer “Erro ao enviar: $!n”;

$mensagem = “”;

meu $read_set = novo IO::Select();

$read_set->adicionar($sock);

$read_set->add($isock);

($pronto) = IO::Select->selecionar($conjunto_de_leitura, indefinido, indefinido, $tempo_limite);

$icmpJá = 0;

$c = 0;

foreach $socket (@$pronto)

{

$c = $c + 1;

se ($socket == $sock)

{

$x = “Resposta recebida no soquete UDP de “;

$socket->recv($mensagem, 100, $flags);

se ($icmpAlready == 0)

{

se (comprimento ($mensagem) > 0)

{ print $x . $socket->peerhost . ” message: ” . $message . “n”; }

else { print $x . $socket->peerhost . “n”; }

}

}

caso contrário # mensagem icmp recebida

{

$icmpJá = 1;

$socket->recv($mensagem, 100, $flags);

se (comprimento ($mensagem) > 98)

{ imprimir “Inesperadamente longo (” . comprimento ($mensagem) .

“) Mensagem ICMP de ” . $socket->peerhost .

mensagem: “. $mensagem . “n”; }

elsif (length ($message) < 52)

{ imprimir “Inesperadamente curto (” . comprimento ($mensagem) .

“) Mensagem ICMP de ” . $socket->peerhost . “n”; }

caso contrário, processar mensagem icmp

{

meu $tipo = ord (substr ($mensagem, 20, 1));

meu $código = ord (substr ($mensagem, 21, 1));

my $port = ord (substr ($mensagem, 50, 1)) * 256 +

ord (substr($mensagem, 51, 1));

se ($porta != $portaDestino)

{ imprimir “Mensagem ICMP inesperada recebida de ” .

$socket->peerhost . "mensagem: " . substr($message, 20) .

“n”; }

caso contrário, a mensagem icmp está correta

{

se ($tipo == 3)

{

if ($code == 0) { print “Rede de destino ICMP ” .

“mensagem inacessível recebida de ” .

$socket->peerhost . “n”; }

elsif ($code == 1) { imprimir “Host de destino ICMP ” .

“mensagem inacessível recebida de ” .

$socket->peerhost . “n”; }

elsif ($code == 3) { imprimir “Porta de destino ICMP ” .

“mensagem inacessível recebida de ” .

$socket->peerhost . “n”; }

elsif ($code == 6) { imprimir “Rede de destino ICMP ” .

“mensagem desconhecida recebida de ” .

$socket->peerhost . “n”; }

elsif ($code == 7) { imprimir “ICMP Destino host desconhecido ” .

“mensagem recebida de ” . $socket->peerhost . “n”; }

elsif ($code == 8) { imprimir “Host de origem ICMP isolado ” .

“mensagem recebida de ” .

$socket->peerhost . “n”; }

elsif ($code == 9) { print “ICMP Rede administrativamente ” .

“mensagem proibida recebida de ” .

$socket->peerhost . “n”; }

elsif ($code == 10) { imprimir “ICMP Host administrativamente ” .

“mensagem proibida recebida de ” .

$socket->peerhost . “n”; }

elsif ($code == 11) { print “Rede ICMP inacessível para ” .

“Mensagem TOS recebida de ” .

$socket->peerhost . “n”; }

elsif ($code == 12) { print “Host ICMP inacessível para ” .

“Mensagem TOS recebida de ” .

$socket->peerhost . “n”; }

elsif ($code == 13) { print “Comunicação ICMP ” .

“mensagem administrativamente proibida recebida de ” .

$socket->peerhost . “n”; }

else { imprimir “Mensagem ICMP inesperada recebida tipo = ” .

$tipo . “, código = ” . $código . ” de ” .

$socket->peerhost . “n”; }

} # se ($tipo == 3)

elsif (($tipo == 11) & ($código == 0))

{ imprimir “Tempo ICMP excedido, TTL expirou em trânsito”.

“mensagem recebida de ” . $socket->peerhost . “n”; }

else { imprimir “Mensagem ICMP inesperada recebida tipo = ” .

$tipo . “, código = ” . $código . ” de ” .

$socket->peerhost . “n”; }

} # caso contrário # a mensagem icmp está correta

} # else # processar mensagem icmp

} # else #mensagem icmp recebida

} # para cada $socket (@$pronto)

if ($c == 0) { print “Nenhuma resposta foi recebida de ” .

$sock->peerhost . “n”; }

#

# tuc.pl termina aqui

#

# Versão 1.00 30-07-2010

# Este script foi testado em

# Abrir o VOS 17.0.2ah executando o Perl v5.8.0 compilado para i686-vos

# Microsoft Windows XP Service Pack 3 em execução

# ActiveState Perl v5.10.0 compilado para MSWin32-x86-multi-thread

# Red Hat Linux 4AS-5.5 em execução

# Perl v5.8.5 compilado para x86_64-linux-thread-multi

#

[email protected]

#

use IO::Socket;

use IO::Select;

use Getopt::Long;

use strict;

meu ($resultado);

my ($porta_local, $depuração, $resultado, $mensagem, $sinalizadores);

my ($pronto, $soquete);

meu ($x, $c);

$result = GetOptions (‘port=s’ => $localPort,

'debug' => $debug);

if (($resultado != 1) || !(definido($portaLocal)))

{

imprimir “nnUtilização:n”;

imprimir “tperl udpecho.pl -port NÚMERO-DA-PORTA-LOCAL [-debug]nn”;

sair;

}

if (defined($debug)) { print “local port number is ” . $localPort . “n”; }

my $sock = IO::Socket::INET->new(

Proto => ‘udp’,

PortaLocal => $portaLocal

) ou morrer “Não foi possível criar o soquete $!n”;

meu $read_set = novo IO::Select();

$read_set->adicionar($sock);

$mensagem = “”;

enquanto (1)

{

($pronto) = IO::Select->selecionar($conjunto_de_leitura, indefinido, indefinido, 300);

foreach $socket (@$pronto)

{

$socket->recv($mensagem, 100, $flags);

if (definido ($debug)) { imprimir “Mensagem de ” . $socket->peerhost .

mensagem: “. $mensagem . “n”; }

$socket->send("ecoado por udpecho.pl: " . $message) ou morra "Erro de envio: $!"

+n”;

}

}

#

# udpecho.pl termina aqui