IP-Adresse konvertieren/"verschlüsseln"

[Uncle Cracker]

Ich habe hier im Forum folgende Funktion gefunden um die IP-Adresse zu "verschlüsseln":

Delphi-Quellcode:

function BytewiseToDwordIPAddr(Addr: String): Cardinal;
var
  i: Integer;
  a: array[0..3] of Byte;
begin
  for i := 0 to 3 do begin
    a[i] := StrToInt(Copy(Addr, 0, Pos('.', Addr) - 1));
    Delete(Addr, 0, Pos('.', Addr));
  end;
  Result := (a[0] shl 24) or (a[1] shl 16) or (a[2] shl 8) or a[3];
end;

Doch leider funktioniert diese Funktion nicht so richtig, denn es wird falsch konvertiert :(

Wenn ich die Funktion nämlich so auf rufe "Showmessage(InttoStr(BytewiseToDwordIPAddr('127.0 .0.1')));" dann kommt zwar folgendes raus "2139062143", jedoch entspricht das der IP-Adresse "127.127.127.127"...

Kennt vielleicht noch jemand einen andere Methode um eine IP-Adresse zu "verschlüsseln" bzw. zu konvertieren...?


:love: Danke UC

[BKempf]

Falls Buchstaben erlaubt sind, könntest du die IP-Adresse einfach in Hex schreiben.
127.0.0.1 -> 7F000001

[marabu]

Schaut euch mal die OH hierzu an:

Delphi-Quellcode:

uses
  WinSock,
  SysUtils;
var
  s, s1, s2: string;
  c1, c2: cardinal;
begin
  s := '127.0.0.1';
  c1 := Inet_Addr(PChar(s));
  c2 := htonl(c1);
  s1 := IntToHex(c1, 8);
  s2 := IntToHex(c2);
end;

[Uncle Cracker]

Jo danke, genau das hatte ich gesucht gehabt...