Modulo-10 Prüfsumme eines Strings berechnen

[dummzeuch]

Zitat von Codehunter:

Ich möchte gerne eine Prüfsummenberechnung implementieren. Habe ich aber noch nie gemacht. Alles was ich habe ist die im Anhang gezeigte Formel und davon das MOD 10. Soweit ich als Schwachmathematiker das beurteilen kann, gibt es da keine Gewichtung sondern lediglich die Quersumme der einzelnen ASCII-Codes MOD 10. Soweit richtig?

Zweite Frage: Wie verfahre ich mit Non-ASCII-Zeichen? Ordinalposition des Widechar oder die Bytes einzeln? Der zugrunde liegende Standard stammt noch aus der Vor-Unicode-Ära bzw. dem letzten Jahrtausend.

"Quersumme" gibt es eigentlich nur bei Zahlen. Gemeint ist die Summe der ASCII-Codes aller Zeichen im String. Und nein, eine Gewichtung nach Position gibt es da nicht. Deshalb ist diese Prüfsumme anfällig führ Zeichendreher:

Pruefsumme('abc') = Pruefsumme('bac')

Alles ist andere als ideal.

Was Non-ASCII angeht, so kann dir das keiner von uns sagen sondern nur derjenige, der dir die Vorgabe gemacht hat.

Ohne weitere Angaben würde ich bei Non-ASCII eine Exception werfen (und dabei auf denjenigen zielen, der die Vorgabe gemacht hat).

[Codehunter]

Zitat von dummzeuch:

"Quersumme" gibt es eigentlich nur bei Zahlen. Gemeint ist die Summe der ASCII-Codes aller Zeichen im String. Und nein, eine Gewichtung nach Position gibt es da nicht. Deshalb ist diese Prüfsumme anfällig führ Zeichendreher:

Pruefsumme('abc') = Pruefsumme('bac')

Alles ist andere als ideal.

Was Non-ASCII angeht, so kann dir das keiner von uns sagen sondern nur derjenige, der dir die Vorgabe gemacht hat.

Ohne weitere Angaben würde ich bei Non-ASCII eine Exception werfen (und dabei auf denjenigen zielen, der die Vorgabe gemacht hat).

Die Doku ist, wie gesagt, uralt (1995). Da gab es zwar schon Unicode bei Windows, aber diese Systeme liefen auf DOS. Daraus und der Logik wie die Daten verarbeitet werden, schließe ich auf diese ganz einfache Variante, die Unicodezeichen als mehrere ASCII-Zeichen verarbeiten würde.

Das mit den möglichen Kollisionen scheint damals wohl noch niemanden interessiert zu haben. Ich glaube da ging es auch weniger um Manipulationsfestigkeit als die Erkennung von Übertragungsfehlern. Ob Rückwärtskompatibilität gefragt ist oder nicht muss ich intern klären. Wenn nicht wäre dein Hinweis richtig und sinnvoll anzuwenden.

Zitat von Delphi.Narium:

Ohne konkrete Aufgabenstellung sehe ich kaum 'ne Möglichkeit, den von Dir konkret benötigten Algorithmus zu finden.

So komisch es auch klingen mag, ich habe nicht mehr als den Hinweis

Zitat:

Der Modulo-10-Check wird plaziert. Jedes Zeichen vor der Kontrollsumme wird in die Berechnung der Kontrollsumme mit einbezogen. Wenn die Kontrollsumme auf der Position n+1 plaziert ist, wird wie folgt berechnet:

gefolgt von der Formel. Ende.

Die Daten sind zeilenorientierte Klartextdaten. Je Zeile wäre eine Checksumme zu schreiben und zwischen Daten und Zeilenumbruch zu setzen.

[Delphi.Narium]

Hast Du schon eine "fertige" Datei (von Anno 1995 oder so), die man als Vorlage nutzen könnte, und durch umgekehrtes "studieren geht über probieren" auseinander nehmen könnte, um den Algorithmus daraus zu rekonstruieren?

Nach Deiner Beschreibung würd' ich aber nicht drauf achten, ob nun Unicode oder nicht, sondern zeichenweise vorgehen.

Dann müsste bei 'nem aus DOS-Zeiten übernommen String das gleiche Ergebnis rauskommen, wie bei einer neu eingegebene Zeichenfolge in Unicode.

Unter DOS war A = 65
unter Unicode ist es = 0065

Wenn man zeichenweise vorgeht, bleibt der Wert von A erhalten.
Teilt man nun die 0065 in 00 und 65 auf kommt ohne Gewichtung das Gleiche heraus, mit Gewichtung aber nicht mehr.

Für mich erscheint es sinnvoller zeichenweise vorzugehen, unabhängig davon, in wievielen Bits und Bytes ein Zeichen hardware-/softwareseitig nun abgelegt wird.

[TigerLilly]

Das ist eine Sache, wo man die Hand heben sollte + laut "Problem" rufen sollte. Die Formel (so wie damals) zu implementieren ist ja nicht schwer + ein paar Sonderfälle abzufangen, auch nicht. ABER: Da können jetzt andere Daten als damals kommen. Und so etwas betrifft in der Regel nicht nur eine Stelle, sondern viele und ist ein Indiz für ein richtig gutes Problem.

[Andreas L.]

Wenn der Algorithmus keine Rolle spielt kannst du z. B. das DelphiEncryptionCompedium (kostenlos) verwenden.

So einfach gehts:

Delphi-Quellcode:

uses
  DECHash, DECFmt;

...

procedure TForm11.Button1Click(Sender: TObject);
var
  SourceStr: String;
  DestStr: String;
begin
  SourceStr := 'Hallo Welt!';
  DestStr := THash_MD5.CalcBinary(SourceStr, TFormat_HEXL);
  ShowMessage(DestStr); // = 55243ecf175013cfe9890023f9fd9037
end;

Im Beispiel wird MD5 als Algorithmus verwendet. Das DEC unterstützt aber noch viele weitere.

Delphi-Quellcode:

  THash_MD2           
  THash_MD4            
  THash_MD5           
  THash_RipeMD128      
  THash_RipeMD160      
  THash_RipeMD256   
  THash_RipeMD320     
  THash_SHA          
  THash_SHA1          
  THash_SHA256        
  THash_SHA384    
  THash_SHA512     
  THash_Haval128    
  THash_Haval160     
  THash_Haval192   
  THash_Haval224       
  THash_Haval256  
  THash_Tiger     
  THash_Panama  
  THash_Whirlpool  
  THash_Whirlpool1  
  THash_Square   
  THash_Snefru128   
  THash_Snefru256 
  THash_Sapphire

[Codehunter]

Zitat von TigerLilly:

Das ist eine Sache, wo man die Hand heben sollte + laut "Problem" rufen sollte. Die Formel (so wie damals) zu implementieren ist ja nicht schwer + ein paar Sonderfälle abzufangen, auch nicht. ABER: Da können jetzt andere Daten als damals kommen. Und so etwas betrifft in der Regel nicht nur eine Stelle, sondern viele und ist ein Indiz für ein richtig gutes Problem.

Yeah, so ein Gefühl beschleicht mich langsam auch. Das Kernproblem ist, dass die Empfängermaschine (man wills gar nicht glauben) immer noch mit DOS läuft. Woraus folgt dass Unicode erstmal nach ANSI/Win1251 konvertiert werden muss. Reibungsverluste inklusive. Danach erst Modulo 10 Prüfsumme drauf legen. Mit Unicode mag Modulo 10 zwar rechnerisch auch funktionieren, muss aber aufgrund der Dateistruktur (hartcodierte Byte-Anzahlen) zwangsläufig in der Empfängermaschine krachen. Denn die bekäme weder die Prüfsumme auseinander dividiert noch die Daten richtig ausgelesen. Mit UTF-8 dito.

Davon abgesehen scheint meine Interpretation der Formel richtig zu sein. Insofern wäre die ursprüngliche Frage inzwischen beantwortet.