Zitat von
Golze:
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
Schnell schon möglich, aber macht ganz was anderes !