Testen der Netzwerkkonnektivität - Alternativen zu ping

#

Version 1.00 10-07-30

# Dieses Skript wurde getestet auf

Öffnen Sie VOS 17.0.2ah mit Perl v5.8.0, das für i686-vos gebaut wurde.

Microsoft Windows XP Service Pack 3 läuft

ActiveState Perl v5.10.0 gebaut für MSWin32-x86-multi-thread

# Red Hat Linux 4AS-5.5 läuft

Perl v5.8.5 gebaut für x86_64-linux-thread-multi

#

[email protected]

#

IO::Socket verwenden;

verwenden Sie Getopt::Long;

Sys::Hostname verwenden;

streng verwenden;

my ($Ergebnis);

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

my ($newSock, $data);

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

message=s' => $message);

if (($result != 1) || !(defined($localPort)))

{

print "nnUsage:n";

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

Ausgang;

}

if (!defined ($message))

{

print "Keine Nachricht angegeben - Nachricht erstellen";

$message = "Verbindung akzeptiert von tcplisten, das auf " . hostname;

}

print "perl tcplisten.pl -port $localPort -message '" . $message . “‘n”;

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

Proto => 'tcp',

LocalPort => $localPort,

LocalAddr => '0.0.0.0',

Hören => 1,

) oder die "Could not create socket for port $localPort: $!n";

während (1)

{

my $newSock = $sock->accept ();

print "Verbunden akzeptiert von " . $newSock->peerhost .

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

print $newSock $message . “n”;

$newSock -> shutdown(2);

$sock->read($data, 1024); # warten, um eine Abschlussanzeige zu erhalten */

$newSock->close();

}

#

# tcplisten.pl endet hier

#

Version 1.00 10-07-30

# Dieses Skript wurde getestet auf

Öffnen Sie VOS 17.0.2ah mit Perl v5.8.0, das für i686-vos gebaut wurde.

Microsoft Windows XP Service Pack 3 läuft

ActiveState Perl v5.10.0 gebaut für MSWin32-x86-multi-thread

# Red Hat Linux 4AS-5.5 läuft

Perl v5.8.5 gebaut für x86_64-linux-thread-multi

#

[email protected]

#

IO::Socket verwenden;

IO::Select verwenden;

verwenden Sie Getopt::Long;

streng verwenden;

my ($Ergebnis);

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

my ($ready, $socket);

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

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

port=s' => $destPort,

'timeout=s' => $timeout);

if (($Ergebnis != 1) || !(defined($destIP) && defined($destPort)))

{

print "nnUsage:n";

print "tperl tuc.pl -ip DESTINATION-IP-ADDRESS " .

"-Port DESTINATION-PORT-NUMBERnn";

Ausgang;

}

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

elsif ($timeout > 15) { print "OK, aber " . $timeout .

" erscheint unangemessen lang.n"; }

$message = "gesendet von tuc.pl um " . localtime ();

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

Proto => 'udp',

PeerPort => $destPort,

PeerAddr => $destIP

) oder die "Could not create socket for destination $destIP: $!n";

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

Proto => 'icmp');

$sock->send($message) oder die "Sendefehler: $!n";

$Nachricht = "";

my $read_set = new 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;

if ($socket == $sock)

{

$x = "Antwort auf UDP-Socket empfangen von ";

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

if ($icmpAlready == 0)

{

if (Länge ($Nachricht) > 0)

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

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

}

}

else # icmp-Nachricht erhalten

{

$icmpAlready = 1;

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

if (Länge ($Nachricht) > 98)

{ print "Unerwartet lang (" . length ($message) .

") ICMP-Nachricht von " . $socket->peerhost .

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

elsif (length ($message) < 52)

{ print "Unerhört kurz (" . length ($message) .

") ICMP-Nachricht von " . $socket->peerhost . “n”; }

else # icmp-Nachricht verarbeiten

{

my $type = ord (substr ($message, 20, 1));

my $code = ord (substr ($message, 21, 1));

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

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

if ($port != $destPort)

{ print "Unerwartete ICMP-Nachricht erhalten von " .

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

“n”; }

else # icmp-Nachricht ist gut

{

if ($type == 3)

{

if ($code == 0) { print "ICMP Zielnetzwerk " .

"Unerreichbare Nachricht erhalten von " .

$socket->peerhost . “n”; }

elsif ($code == 1) { print "ICMP Zielhost " .

"Unerreichbare Nachricht erhalten von " .

$socket->peerhost . “n”; }

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

"Unerreichbare Nachricht erhalten von " .

$socket->peerhost . “n”; }

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

"Unbekannte Nachricht erhalten von " .

$socket->peerhost . “n”; }

elsif ($code == 7) { print "ICMP Zielhost unbekannt " .

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

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

"Nachricht erhalten von " .

$socket->peerhost . “n”; }

elsif ($code == 9) { print "ICMP Netzwerk administrativ " .

"verbotene Nachricht erhalten von " .

$socket->peerhost . “n”; }

elsif ($code == 10) { print "ICMP Host administrativ " .

"verbotene Nachricht erhalten von " .

$socket->peerhost . “n”; }

elsif ($code == 11) { print "ICMP Network unreachable for " .

"TOS-Nachricht erhalten von " .

$socket->peerhost . “n”; }

elsif ($code == 12) { print "ICMP Host unerreichbar für " .

"TOS-Nachricht erhalten von " .

$socket->peerhost . “n”; }

elsif ($code == 13) { print "ICMP-Kommunikation " .

"administrativ verbotene Nachricht erhalten von " .

$socket->peerhost . “n”; }

else { print "Unerwartete ICMP-Nachricht empfangen Typ = " .

$type . ", code = " . $code . " von " .

$socket->peerhost . “n”; }

} # if ($type == 3)

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

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

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

else { print "Unerwartete ICMP-Nachricht empfangen Typ = " .

$type . ", code = " . $code . " von " .

$socket->peerhost . “n”; }

} # else # icmp-Nachricht ist gut

} # else # icmp-Nachricht verarbeiten

} # else #icmp Nachricht erhalten

} # foreach $socket (@$ready)

if ($c == 0) { print "Es wurde keine Antwort empfangen von " .

$sock->peerhost . “n”; }

#

# tuc.pl endet hier

#

Version 1.00 10-07-30

# Dieses Skript wurde getestet auf

Öffnen Sie VOS 17.0.2ah mit Perl v5.8.0, das für i686-vos gebaut wurde.

Microsoft Windows XP Service Pack 3 läuft

ActiveState Perl v5.10.0 gebaut für MSWin32-x86-multi-thread

# Red Hat Linux 4AS-5.5 läuft

Perl v5.8.5 gebaut für x86_64-linux-thread-multi

#

[email protected]

#

IO::Socket verwenden;

IO::Select verwenden;

verwenden Sie Getopt::Long;

streng verwenden;

my ($Ergebnis);

my ($localPort, $debug, $result, $message, $flags);

my ($ready, $socket);

my ($x, $c);

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

debug' => $debug);

if (($result != 1) || !(defined($localPort)))

{

print "nnUsage:n";

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

Ausgang;

}

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

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

Proto => 'udp',

LocalPort => $localPort

) oder sterben Sie "Could not create socket $!n";

my $read_set = new IO::Select();

$read_set->add($sock);

$Nachricht = "";

während (1)

{

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

foreach $socket (@$ready)

{

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

if (defined ($debug)) { print "Nachricht von " . $socket->peerhost .

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

$socket->send("echoed by udpecho.pl: " . $message) oder die "Sendefehler: $!

+n”;

}

}

#

# udpecho.pl endet hier