主题：使用软加密

以下是我软加密代码，为什么我输入了注册码，还是显示“您正在使用的产品已经超出试用次数!"

 Dim n As Integer = Registry.GetValue("HKEY_CURRENT_USER\Software\MyApp","Count",1)

Dim Code As String = GetConfigValue("Register" & ComputerId,"")

Dim Ok As Boolean

If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确

    OK = True

Else

    If n > 2 Then

        Forms("注册").Open()

        Code = GetConfigValue("Register" & ComputerId,"")

        If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then '如果注册码正确

            OK = True

        End If

    End If

    If n > 5 AndAlso Ok = False Then

        Messagebox.Show("您正在使用的产品已经超出试用次数!")

        Syscmd.Project.Exit()

    End If

End If

Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp","Count",n + 1)