专家坐堂-[求助]关于加密EncryptText？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

-- [求助]关于加密EncryptText？
用这个命令计算注册码： EncryptText("用户提供的机器码",X,Y)

注册后。

SaveConfigValue("Register" & ComputerId, e.Form.Controls("TextBox2").Value)

X Y 我用的是可变的用户名，就是变量吧

用以下代码判断，如果X Y 和注册时不一样。下面大字语句会报错！

运行错误，不正确的数据

我觉得这样不是很好，如果一旦用户更改了注册时候的用户名，这里报错，但照样能用！！不好

Dim n As Integer = GetConfigValue("Count",1)
Dim Code As String = GetConfigValue("Register" & ComputerId,"")
Dim Ok As Boolean
If Code > "" AndAlso DecryptText(Code,X,Y) = ComputerId Then \'如果注册码正确
    OK = True
Else
    If n > 30 Then
        Forms("注册").Open()
        Code = GetConfigValue("Register" & ComputerId,"")
        If Code > "" AndAlso DecryptText(Code,"abc","abc") = ComputerId Then \'如果注册码正确
            OK = True
        End If
    End If
    If n > 60 AndAlso Ok = False Then
        Messagebox.Show("您正在使用的产品已经超出试用次数!")
        Syscmd.Project.Exit()
    End If
End If
n = n + 1
SaveConfigValue("Count",n)