主题：使用软加密

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

 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)

这是我做的例子，怎么获取注册码？怎么给机器设置注册码？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:注册软件.foxdb

 

是按这个代码保存了，还是不行呀SaveConfigValue("Register" & ComputerId, e.Form.Controls("TextBox2").Value)
e.Form.Close()

生成的注册填写后还是打不开呀

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:注册软件.foxdb

这是例子，看看怎么修改呀？

谢谢，还有一个问题，是否是对同一台电脑机器码，无论使用那个电脑的foxtale程序都会生成相同的注册码？

 

如果computerId相同，生成的注册码就始终一致吗？有没有可能个性化设置？如果我开发程序，别人拷走以后，使用其他单位的foxtale也可以生成机器码，对吗？如果是这样软加密就失去意义了。

如果computerId相同，无论使用那个电脑上装的foxtable都可以生成相关的注册码，对吗？

如果ComputeId相同，也就是同一台电脑，使用不电脑的foxtale中的e.Form.Controls("TextBox2").Text = EncryptText(e.Form.Controls("TextBox1").Text, "abc", "abc")得到的机器码会一样吗？