IP: Unterschied zwischen den Versionen

Aus Doku-Wiki
Zur Navigation springenZur Suche springen
(Die Seite wurde neu angelegt: =Infos rund um die IP= ==Dezimal IPadressen umrechnen== ===Ping=== Der einfachste Helfer ist ping. Ping kann unter Linux und Windows die Dezimalzahl in eine IP umrechne...)
 
Zeile 7: Zeile 7:
  
 
===PerlScript===
 
===PerlScript===
Diese Perlscript wandelt ebenfall Dezimalzahle in IP-Adressen um.
+
  #!/bin/bash
  #!/usr/bin/perl
 
 
 
print "\n------------------------------------------------\n";
 
print "Umrechnung Dezimal zu IP\n";
 
print "------------------------------------------------\n\n";
 
print "Geben Sie einen Wert ein :\t";
 
$a = <STDIN>;
 
$b = sprintf "%x",$a;
 
 
   
 
   
  $tempa = substr($b,0,2);
+
  case "$1" in
$tempb = substr($b,2,2);
 
$tempc = substr($b,4,2);
 
$tempd = substr($b,6,2);
 
 
   
 
   
  $ca = hex($tempa);
+
  -o)
$cb = hex($tempb);
+
        perl -MSocket -le"print unpack q/N/, inet_aton q/$2/"
  $cc = hex($tempc);
+
  ;;
$cd = hex($tempd);
 
 
   
 
   
  @stellen=($ca,$cb,$cc,$cd);
+
  -d)
 +
        perl -MSocket -le"print inet_ntoa pack q/N/, $2"
 +
;;
 
   
 
   
  my $ipAdress = join(".",@stellen);
+
  *)
print "\n------------------------------------------------\n";
+
        clear
print "Ausgabe :\t",$ipAdress;
+
        echo " "
  print "\n------------------------------------------------\n";  
+
        echo "Syntax: ip-convert [-i | -d] [IP | DEZ]"
 +
        echo " "
 +
        echo "          -d  2130706433  Eingabe als Dezimalzahl"
 +
        echo "          -o  127.0.0.1  Eingabe als Oktet"
 +
        echo " "
 +
        echo "Beispiel: ip-convert -o 127.0.0.1"
 +
        echo "          ip-convert -d 2130706433"
 +
        echo " "
 +
;;
 +
esac
 +
 
  
  
  
 
[[Kategorie:Netzwerk]]
 
[[Kategorie:Netzwerk]]

Version vom 5. März 2009, 13:59 Uhr

Infos rund um die IP

Dezimal IPadressen umrechnen

Ping

Der einfachste Helfer ist ping. Ping kann unter Linux und Windows die Dezimalzahl in eine IP umrechnen

ping 3250935297
PING 3250935297 (193.197.86.1) 56(84) bytes of data.

PerlScript

#!/bin/bash

case "$1" in

-o)
       perl -MSocket -le"print unpack q/N/, inet_aton q/$2/"
;;

-d)
       perl -MSocket -le"print inet_ntoa pack q/N/, $2"
;;

*)
       clear
       echo " "
       echo "Syntax: ip-convert [-i | -d] [IP | DEZ]"
       echo " "
       echo "          -d  2130706433  Eingabe als Dezimalzahl"
       echo "          -o  127.0.0.1   Eingabe als Oktet"
       echo " "
       echo "Beispiel:  ip-convert -o 127.0.0.1"
       echo "           ip-convert -d 2130706433"
       echo " "
;;
esac