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