Hi Schlaumis,
habe gerade alle Beiträge mal angeschaut. Warum so kompliziert. Mal ganz einfach zum Vorschlag:
Delphi-Quellcode:
function IPSumme(IPAdresse: String): Cardinal;
var
i: Integer;
begin
Result := 0;
for i := 1 to Length(IPAdresse) do
Result := Result + Byte(IPAdresse[i]);
Result := Result - (3 * Byte('.')); //Alle Punkte abziehen
end;
Die Methode ist verdammt schnell. Sie kann nun auf beliebige Summen, nicht nur Summen der Bytewerte, modifiziert werden.
Vielleicht gefällt auch ja die Lösung
Kay