有字符串,经加密后,存储在注册表中,
在命令窗口执行以下代码,
Dim reg As String = Registry.GetValue("HKEY_CURRENT_USER\Software\Mycode","reg","A")
Dim ms As String = Registry.GetValue("HKEY_CURRENT_USER\Software\Mycode","ms","A")
Dim code As String = DecryptText(reg,ms,ms)
If code > "" AndAlso code = ComputerId Then
MessageBox.Show ("ok ")
Else
MessageBox.Show (" no ")
Syscmd.Project.Exit()
End If
1. 在没有人为修改注册表中 reg 和 ms 的值的时候,代码运行正常
2. 在人为修改注册表中 reg 的值的时候(修改或是置零),代码运行正常
问题来了
3. 在人为修改注册表中 ms 的值的时候(修改或是置零),代码运行时出现这个提示,请教是什么原因啊?

此主题相关图片如下:32.jpg