PC逆向 注册码校验分析

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click        Dim 设备码 As String = "889544539513"        Dim 前4 As String = 设备码.Substring(0, 4)        Dim 码1 As String = 校验(设备码, 前4)        MsgBox(码1)    End Sub    Function 校验(ByVal 设备码 As String, ByVal 前四位 As String)        For b = 1 To 99999            Dim inputText1 As String = b.ToString("D5")            Dim inputText As String = $"{inputText1}0000000000"            If inputText.Length >= 12 Then                Dim firstFiveDigits As String = inputText.Substring(0, 5)                Dim decimalValue As Integer = Integer.Parse(firstFiveDigits)                Dim hexValue As String = decimalValue.ToString("X")                Dim 字符的值 As String = hexValue                Dim 字符的值_hex As Integer = Convert.ToInt32(字符的值, 16)                Dim deviceCode As String = 设备码                Dim totalSum As Integer = 0                For i As Integer = 0 To deviceCode.Length - 1                    Dim currentChar As Char = deviceCode(i)                    Dim hexValue1 As Integer = Convert.ToInt32(currentChar.ToString(), 16)                    Dim multipliedValue As Integer = hexValue1 * (i + 1)                    totalSum += multipliedValue                Next                Dim additionalValue As Integer = Convert.ToInt32("859", 16)                totalSum += additionalValue                totalSum <<= 4                Dim xorValue As Integer = Convert.ToInt32("859", 16)                Dim xorResult As Integer = totalSum Xor xorValue                ' 进行加法操作                Dim addValue As Integer = Convert.ToInt32("79FC", 16)                Dim finalResult As Integer = xorResult + addValue                ' 获取低16位（按位与操作）                Dim low16Bits As Integer = finalResult And &HFFFF                ' 进行异或操作：低16位与 0x3039                Dim xorWith3039 As Integer = low16Bits Xor 字符的值_hex                ' 第一步：3DFC + 859 = 4655                Dim additionResult As Integer = xorWith3039 + &H859                ' 第二步：4655 / 3 = 1771                Dim divisionResult As Integer = additionResult  3                ' 第三步：1771 - 859 = F18                Dim subtractionResult As Integer = divisionResult - &H859                ' 第四步：将 F18 转换为十进制                Dim hexToDecResult As Integer = Convert.ToInt32(subtractionResult.ToString("X"), 16)                If hexToDecResult.ToString() = 前四位 Then                    Return inputText1                End If            Else                MessageBox.Show("请输入至少12位字符。")            End If        Next    End Function