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...?
Danke UC