将 VB 代码翻译成 Python

Question

我有以下 VB 函数，从德语 Excel 宏转换而来：

Function GetChecksumme(identNr As Integer) As BitArray 
    Dim Z1 As Integer ' {Hilfsz„hler 1}
    Dim Checksumme As New BitArray(27)
    Dim DoCoZahl As Long
    Dim Result As New BitArray(6)

    DoCoZahl = identNr
    'Zeit fuer diesen Schritt starten:}
    'Checksumme berechnen:}
    'False = logisch 0, True = logisch 1}
    '1. Schritt: Das Array 'CheckSumme' mit 26 Nullen auffuellen:}
    For Z1 = 1 To 26
        Checksumme(Z1) = False
    Next Z1
    '2. Schritt: DotCode-Zahl in duale Darstellung umrechnen und}
    'links von den rechten 6 Nullen einschreiben:}
    Z1 = 21
    Do While DoCoZahl > 0
        Z1 = Z1 - 1
        If (DoCoZahl Mod 2) = 0 Then
            Checksumme(Z1) = False
        End If
        If (DoCoZahl Mod 2) = 1 Then
            Checksumme(Z1) = True
        End If
        DoCoZahl = DoCoZahl \ 2
    Loop
    '3. Schritt: Solange XOR-Operation durchfhren, bis}
    'die Check-Summe ermittelt ist:}
    Do
        'Den ersten '1er' von links suchen:}
        Z1 = 0
        Do
            Z1 = Z1 + 1
        Loop Until ((Checksumme(Z1) = True) Or (Z1 > 20))
        'Ab dieser Stelle mit Maske 1 0 0 0 1 1 1 logisch XOR-verknpfen:}
        'Bit mit 1 XOR-verknpfen -> Ergebnis ist das negierte Bit.}
        'Bit mit 0 XOR-verknpfen -> Ergebnis ist das Bit.}
        If Z1 <= 20 Then
            Checksumme(Z1) = Not Checksumme(Z1)
            Checksumme(Z1 + 4) = Not Checksumme(Z1 + 4)
            Checksumme(Z1 + 5) = Not Checksumme(Z1 + 5)
            Checksumme(Z1 + 6) = Not Checksumme(Z1 + 6)
        End If
    Loop Until Z1 >= 20
    'Zeit fr diesen Schritt stoppen:}


    Result(0) = Checksumme(26)
    Result(1) = Checksumme(25)
    Result(2) = Checksumme(24)
    Result(3) = Checksumme(23)
    Result(4) = Checksumme(22)
    Result(5) = Checksumme(21)

    Return result

End Function

有人要求我将其转换为内部项目。我首先尝试将其转换为 python（我的首选语言），以便更好地理解计算：

def getChecksum(identNr, checksumNr=None):
    if not 0 <= checksumNr <= 5:
        raise ValueError()

    checksum = [False] * 27
    z1 = 20
    doCoZahl = identNr

    while doCoZahl > 0:
        checksum[z1] = doCoZahl & 1 == 1
        z1 -= 1
        doCoZahl >>= 2

    while z1 > 20:
        z1 = 0
        while (not checksum[z1]) or z1 <= 20:
            z1 += 1

        if z1 <= 20:
             Checksumme[z1] = not Checksumme[Z1]
             Checksumme[z1 + 4] = not Checksumme[Z1 + 4]
             Checksumme[z1 + 5] = not Checksumme[Z1 + 5]
             Checksumme[z1 + 6] = not Checksumme[Z1 + 6]

    return tuple(checksum[-1:-7:-1])

问题是 python returns (False, False, False, False, False, False)，不管我给它什么输入。例如，在 VB 中：

GetChecksumme | Value (VB)
--------------+-----------
1             | TTTFFF
2             | FTTTFF

可能某处有一个简单的错误，但我看不到。

Answer 1

您永远不会进入最后的 while 循环。

z1 从 20 开始，它（可能）在 while doCoZahl > 0: 循环中减少，所以当你点击 while z1 > 20: z1 时 <= 20。

抱歉，我不知道 VB。我可以阅读 VB 代码，但还不足以提供忠实的翻译。

将 VB 代码翻译成 Python

Translating VB code into Python

python

vb.net

translate