Modulo-10 Prüfsumme eines Strings berechnen

[Delphi.Narium]

Ich schrieb analog zu https://www.activebarcode.de/codes/c.../modulo10.html

Zitat von Prüfziffernberechnung: Modulo 10:

EAN-Nummer: 4 007630 00011
Prüfziffer: zu dieser Zeit unbekannt
Ziffern: 4 0 0 7 6 3 0 0 0 0 1 1
Multiplikation 1 3 1 3 1 3 1 3 1 3 1 3
Ergebnisse 4 0 0 21 6 9 0 0 0 0 1 3 Total = 44
Prüfsumme ausrechnen: Prüfsumme = Die Ergänzung zum nächsten Vielfachen von 10 (hier 50), also 6.
Prüfsumme: 6

Und daraus dann die Zeile Multiplikation 1 3 1 3 1 3 1 3 1 3 1 3 ergibt die Gewichtung. Will man die nicht, dann lässt man's halt und kommt auf Deine Variante.

Welche man wählt ist eigentlich egal, solange man sich dann an die gewählte Version hält und nicht (bei der Kommunikation mit anderen Systemen) quasi so 'ne Art "Mischkalkulation" bekommt.

[Codehunter]

Zitat von Delphi.Narium:

solange man sich dann an die gewählte Version hält und nicht (bei der Kommunikation mit anderen Systemen)

Genau das ist der Punkt. Die Formel ist alles was ich habe. Leider kein Testprogramm zum Gegenchecken. Wenns mal eins gab dann zu DOS-Zeiten und längst verschollen.

Auf der von dir verlinkten Seite war ich auch bevor ich hier gefragt habe. Die Prüfsummenberechnung bekomme ich ja hin, mit der Formel war ich mir hingegen gar nicht sicher.

[Delphi.Narium]

Also fragen wir mal so:

Wofür brauchst Du das?

Dann kann man eventuell bei der Suche / Implementierung der erforderlichen Variante helfen.

Die verlinkte Seite beschreibt halt den Algorithmus für eine bestimmte Implementierung für einen konkreten Sachverhalt.

Weitere Info:
https://de.wikipedia.org/wiki/Luhn-Algorithmus
https://barmatrixcode.de/pz-modulo10
http://www.pruefziffernberechnung.de...ensindex.shtml
und vieles mehr:
Module 10

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