IP-Summe berechnen

[Gruber_Hans_12345]

eventuell schnell und könnte auch funktionieren ...

Delphi-Quellcode:

function IPSumme(IPAdresse: String): Cardinal; 
var i : integer; 
     p : integer;
begin 
  Result := 0; 
  for i := Length(IPAdresse) downto 1 do begin
    if IPAdresse[i] = '.' then p := 1
    else begin
      Result := Result + (Ord(IPAdresse[i]) - Ord('0'))*p; 
      p := p * 10;
    end;
  end;
end;