Teste de conectividade de rede - alternativas ao ping

#

# Versão 1.00 10-07-30

# Este roteiro foi testado em

# Aberto VOS 17.0.2ah rodando Perl v5.8.0 construído para i686-vos

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

# ActiveState Perl v5.10.0 construído para MSWin32-x86-multi-thread

# Red Hat Linux 4AS-5.5 rodando

# Perl v5.8.5 construído para x86_64-linux-fios-multi

#

# [email protected]

#

use IO::Socket;

use Getopt::Long;

usar Sys::Hostname;

usar rigorosamente;

meu ($resultado);

meu ($localPort, $message, $peerAddr);

meus ($newSock, $data);

$result = GetOptions ('port=s' => $localPort,

message=s' => $message);

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

{

imprimir "nnUsage:n";

imprimir "tperl tcplisten.pl -port PORT-NUMBER [-message MESSAGE]nn";

saída;

}

se (!defined ($message))

{

imprimir "Nenhuma mensagem especificada - criação de mensagem";

$message = "Conexão aceita por tcplisten correndo 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.0',

Ouça => 1,

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

enquanto (1)

{

minha meia-nova = $sock->accept ();

imprimir "Connected accepted from " . $newSock->peerhost .

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

imprimir $newSock $message . "“n”;

$newSock -> shutdown(2);

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

$newSock->close();

}

#

# tcplisten.pl termina aqui

#

# Versão 1.00 10-07-30

# Este roteiro foi testado em

# Aberto VOS 17.0.2ah rodando Perl v5.8.0 construído para i686-vos

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

# ActiveState Perl v5.10.0 construído para MSWin32-x86-multi-thread

# Red Hat Linux 4AS-5.5 rodando

# Perl v5.8.5 construído para x86_64-linux-fios-multi

#

# [email protected]

#

use IO::Socket;

use IO::Selecionar;

use Getopt::Long;

usar rigorosamente;

meu ($resultado);

meu ($destIP, $destPort, $timeout, $resultado, $message, $flags);

meu ($ready, $socket);

meu ($x, $c, $icmpAlready);

$resultado = GetOptions ('ip=s' => $destIP,

port=s' => $destPort,

timeout=s' => $timeout);

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

{

imprimir "nnUsage:n";

imprimir "tperl tuc.pl -ip DESTINO-IP-ADESTINO" .

"-port DESTINO-PORT-PORT-NUMBERnn";

saída;

}

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

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

" parece exageradamente longo.n"; }

$message = "enviado por tuc.pl at " . local time ();

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

Proto => 'udp',

PeerPort => $destPort,

PeerAddr => $destIP

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

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

Proto => 'icmp');

$sock->send($message) ou die "Enviar erro: $!n";

$message = "";

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

$read_set->add($sock);

$read_set->add($isock);

($ready) = IO::Select->select($read_set, undef, undef, $timeout);

$icmpAlready = 0;

$c = 0;

foreach $socket (@$ready)

{

$c = $c + 1;

se ($socket == $sock)

{

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

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

se ($icmpAlready == 0)

{

se (comprimento ($message) > 0)

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

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

}

}

outra mensagem # icmp recebida

{

$icmpAlready = 1;

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

se (comprimento ($message) > 98)

{ imprimir "Unexpectedly long (" . comprimento ($message) .

"Mensagem ICMP de " . $socket->peerhost .

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

elsif (length ($message) < 52)

{ imprimir "Unexpecedly short (" . comprimento ($message) .

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

outra # mensagem de processo icmp

{

meu tipo $ = ord (substrato ($message, 20, 1));

meu código $code = ord (substrato ($message, 21, 1));

meu porto de $ = ord (substrato ($message, 50, 1)) * 256 +

ord (sub-mensagem ($message, 51, 1));

se ($port != $destPort)

{ imprimir "Mensagem inesperada do ICMP recebida de" .

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

"“n”; }

senão # a mensagem icmp é boa

{

se ($type == 3)

{

if ($code == 0) { imprimir "ICMP Destination network" .

"mensagem inalcançável recebida de" .

$socket->peerhost . "“n”; }

elsif ($code == 1) { imprimir "ICMP Destination host" .

"mensagem inalcançável recebida de" .

$socket->peerhost . "“n”; }

elsif ($code == 3) { print "ICMP Destination port" .

"mensagem inalcançável recebida de" .

$socket->peerhost . "“n”; }

elsif ($code == 6) { print "ICMP Destination network" .

"mensagem desconhecida recebida de" .

$socket->peerhost . "“n”; }

elsif ($code == 7) { print "ICMP Destination host unknown " .

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

elsif ($code == 8) { print "ICMP Source host isolado" .

"mensagem recebida de" .

$socket->peerhost . "“n”; }

elsif ($code == 9) { print "ICMP Network administratively " .

"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 "ICMP Network unreachable for " .

"Mensagem TOS recebida de" .

$socket->peerhost . "“n”; }

elsif ($code == 12) { print "ICMP Host unreachable for " .

"Mensagem TOS recebida de" .

$socket->peerhost . "“n”; }

elsif ($code == 13) { imprimir "ICMP Comunicação" .

"mensagem administrativamente proibida recebida de" .

$socket->peerhost . "“n”; }

senão { imprimir "Unexpected ICMP message received type = " .

Tipo $ . "código = " . $código . " de " .

$socket->peerhost . "“n”; }

} # se ($type == 3)

elsif (($type == 11) & ($code == 0))

{ print "ICMP Time exceeded , TTL expired in transit " .

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

senão { imprimir "Unexpected ICMP message received type = " .

Tipo $ . "código = " . $código . " de " .

$socket->peerhost . "“n”; }

} # else # a mensagem icmp é boa

} # else # processar mensagem icmp

} # outra mensagem #icmp recebida

} # foreach $socket (@$ready)

if ($c == 0) { print "No response was received from " .

$sock->peerhost . "“n”; }

#

# tuc.pl termina aqui

#

# Versão 1.00 10-07-30

# Este roteiro foi testado em

# Aberto VOS 17.0.2ah rodando Perl v5.8.0 construído para i686-vos

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

# ActiveState Perl v5.10.0 construído para MSWin32-x86-multi-thread

# Red Hat Linux 4AS-5.5 rodando

# Perl v5.8.5 construído para x86_64-linux-fios-multi

#

# [email protected]

#

use IO::Socket;

use IO::Selecionar;

use Getopt::Long;

usar rigorosamente;

meu ($resultado);

meu ($localPort, $debug, $resultado, $message, $flags);

meu ($ready, $socket);

meu ($x, $c);

$result = GetOptions ('port=s' => $localPort,

debug' => $debug);

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

{

imprimir "nnUsage:n";

imprimir "tperl udpecho.pl -port LOCAL-PORT-NUMBER [-debug]nn";

saída;

}

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

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

Proto => 'udp',

LocalPort => $localPort

) ou morrer "Não pôde criar soquete $!n";

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

$read_set->add($sock);

$message = "";

enquanto (1)

{

($ready) = IO::Select->select($read_set, undef, undef, 300);

foreach $socket (@$ready)

{

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

if (definido ($debug)) { print "Message from " . $socket->peerhost .

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

$socket->send("echoed by udpecho.pl: " . $message) ou die "Send error: $!

+n”;

}

}

#

# udpecho.pl termina aqui