Artikel im Internet unter http://www.hidemail.de/blog/ip-domain-perl.shtml.
Mittwoch, 27.6.2007, 10:30:44 Uhr

IP-Adresse anhand des Domainnamens herausfinden

So, nach etwas längerer Pause mal wieder was neues, war etwas eingespannt die letzten Tage...

Ich stand vor kurzem vor dem Problem, daß ich anhand eines Domainnamens die IP-Adresse herausfinden wollte, also zum Beispiel:
http://www.test.de -> xxx.xxx.xxx.xxx

Man sollte vielleicht vorher noch sagen, daß zur Zeit noch der vorherrschende Standart eine 4-Byte-Adressierung ist, also 4 Zahlen zwischen 0 und 255, getrennt durch einen Punkt, zum Beispiel 192.168.0.1 .
Allerdings wird im Moment umgestellt auf eine Notation im 6-Byte-Format. Wenn man sich also schon die Arbeit macht, eine Subroutine zu schreiben, die die IP herausfindet, sollte das berücksichtigt werden.

Vielleicht noch etwas zum Hintergrund des Umstieges auf 6 Byte
Das in den Anfängen des Internet eingeführte 4 Byte-System kann unter 4.294.967.296 unterschiedlichen Adressen unterscheiden (2^32 oder 2 hoch 32, weil 32 Bit). Da aber immer mehr Server weltweit und auch private oder geschäftliche Netzwerke dazu kommen und zusätzlich ganze Bereiche reserviert für andere Anwendungen sind, gehen langsam die freien Adressen aus.
Deswegen 6 Byte, die dann 2 hoch 48 = 281.474.976.710.656 oder 281,474... Billionen Adressen bereithalten. Das sollte noch ne Weile reichen, man spricht ja immer davon, daß dann jede Steckdose ne eigene IP hat... was auch so seinen Sinn haben kann, wenn man zum Beispiel bequem von der Couch aus schon mal in der Küche nen Kaffee machen kann... grins...

So, genug des Hintergrundes, zum Skript, ich hab das gleich in eine Funktion gepackt

use strict;
my $host = 'http://www.test.de';
my $ip=&FindIP($host);
print "Die IP von $host ist $ip\n";
print "Da gab es wohl einen Fehler..." if $ip == 0;

sub FindIP{
my $host = shift;

$host=~ s/^.*?\/\///;

($host)=split('/',$host);

my ($name, $aliases, $addrtype, $len, @addr) = gethostbyname($host);

if ($len < 4){
#print "No IP found";
return 0;
}

my @unpacked_addr=unpack("C$len", $addr[0]);
my $ip=join('.',@unpacked_addr[0..$len-1]);

# print "Ergebnisse der IP-Suche für $name : $ip";
return $ip;
}

Was passiert hier?
Nun, nach der Übergabe der zu unersuchenden Domain wird ein evtuelles http:// oder auch ftp://, kurz gesagt, alles was am Anfang vor zwei /-Zeichen steht, entfernt.
Danach wird die Hauptdomain extrahiert (split), Unterordner oder Dateinamen also abgeschnitten.
Per gethostbyname, einer Funktion von Perl, die für eine Umwandlung von Domainnamen zu IP zuständi ist, wird nun die IP ermittelt. Gleichzeitig erhält man noch andere Informationen, zum Beispiel auch die Länge der IP-Adresse in Byte.
Ist die Länge kleiner 4, dann trat ein Fehler auf, da ja mindestens 4 Byte vorhanden sein müssen.

Per unpack wird jetzt die IP in das Dezimalformat umgewandelt und per join in einen für uns vertraut aussehenden Ausdruck aufbereitet.

Relativ einfach, aber muß ja trotzdem erstmal erarbeitet werden...

Diese Routine ist kompatibel zum 4-Byte-Format, 6 Byte und auch für spätere Erweiterungen fit, da die Umwandlung ja immer längenspezifisch ist.

Artikel im Internet unter http://www.hidemail.de/blog/ip-domain-perl.shtml.