Modulo 11

[Allrounder]

Hallo, bevor ich das Rad neu erfinde, frage ich hier einmal in die Runde, ob jemand schon einmal eine Prüfziffernberechnung (vorzugsweise Modulo 11) geschrieben hat, die er mir zur Verfügung stellen würde. Danke im Voraus und viele Grüße, Allrounder.

[Allrounder]

Habe etwas gefunden, ich muss es nur noch in RPG umschreiben:



Sub modulo11()
Dim Test$, i As Byte, Quer%, Prüf As Byte
Test = "64010093"
For i = 1 To Len(Test)
Quer = Quer + Mid(Test, i, 1) * (i + 1)
Next
Prüf = Quer Mod 11
If Prüf = 10 Then
MsgBox "Fehlerhafter Code"
Prüf = ""
Test = "ungültig"
End If

MsgBox "Prüfziffer: " & Prüf & vbLf & vbLf & _
"Code: " & Test & " " & Prüf
End Sub