Re: IP-Summe berechnen
Wunderbar, das wird mir sicherlich noch häufig sehr nützlich sein! :)
MfG |
Re: IP-Summe berechnen
Hi Schlaumis,
habe gerade alle Beiträge mal angeschaut. Warum so kompliziert. Mal ganz einfach zum Vorschlag:
Delphi-Quellcode:
Die Methode ist verdammt schnell. Sie kann nun auf beliebige Summen, nicht nur Summen der Bytewerte, modifiziert werden.
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; Vielleicht gefällt auch ja die Lösung Kay |
Re: IP-Summe berechnen
Zitat:
|
Re: IP-Summe berechnen
Zitat:
|
Re: IP-Summe berechnen
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; |
Re: IP-Summe berechnen
... 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 |
Alle Zeitangaben in WEZ +1. Es ist jetzt 08:10 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz