Luhn算法无效

Question

我在为学校写的程序中遇到了一个问题。我需要验证信用卡号码使用Luhn算法，但我有一些困难，使该算法的逻辑正确工作。我相信我知道问题出在哪里，但我无法解决。

我相信问题在于：

For i = 0 To cardInput.Text.Length - 2 Step -2
    Dim x = (i * 2)
    If x > 9 Then
        x = x - 9
    End If
    oddTotal += x
Next

'Sum of undoubled digits
For i = 0 To cardLength - 1 Step -2
    evenTotal += i
Next

total = oddTotal + evenTotal

checkSum = total

infoOutput.Items.Add("CheckDigit: " & checkDigit)
infoOutput.Items.Add("CheckSum :" & checkSum)

'Verify that the card is valid by the Mod 10 (Lund algoritm)
If checkSum = checkDigit Or checkSum = 0 Then
    valid = True
Else
    valid = False
End If

如果需要的话，我项目的其余部分可以看到这里

我的代码似乎没有从最后一个数字开始，并将每一个其他数字恢复到开始时翻了一番。这里的步骤2操作符不正确吗？我做错了什么？

Answer 1

这里有几个问题。特别是：

如果希望循环向后计数，则必须从较高的索引开始，在较低的索引处结束。所以：

For i = cardInput.Text.Length - 2 To 0 Step -2

然后，与其直接使用i，不如使用i-ith数字：

Dim x = Val(cardInput.Text(i))

同样的情况也适用于你的均数之和。

如果要检查最后一个数字是否为零，请使用Mod运算符：

valid = (checkSum Mod 10 = 0)