IP-Summe berechnen

[knödel]

Wunderbar, das wird mir sicherlich noch häufig sehr nützlich sein!

MfG

[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

[Sharky]

Zitat von Golze:

...Die Methode ist verdammt schnell. ...

Und liefert dafür auch falsche Ergebniss

[Gruber_Hans_12345]

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 !

[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;

[Golze]

... Ist auch nicht schlecht. Ich bin jedoch davon ausgegangen, dass nach der Summierung aller Zahlen der IP-Adresse so was wie eine Prüfsumme entstehen soll. Wozu die Summe gebildet werden soll, steht nicht drin. Deshalb also einfach Addieren. War ja nur so eine Idee.

Ich find ja Software so toll, da sie genauso mißverständlich sein kann wie jede andere Information auch, wenn sie nicht präzise beschrieben worden ist; das alte Prinzip: Packt man Quark rein, bekommt man Quark raus.

Grüße Kay