主题：[求助]关于帮助文档中注册系统设计的一个疑问？

Dim n As Integer = GetConfigValue("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 > 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)

 

 

我是说在上面这些代码中找不到加密函数

EncryptText

啊

 

 答案在5楼。

 事先把加密后的字符存入到 Register & ComputerId 中保存起来了。比如在项目启动之前。

 楼主不要太纠结……


http://www.foxtable.com/help/topics/1544.htm

那我现在按照帮助的文档去做，我如何把帮助代码中的加密和解密字符abc改成其他的呢？  因为我不改用默认的，基本不安全吧？

 直接改不行？报什么错？我很不理解啊！

你打开狐表  打开学习文档里的 设计自己的注册系统  然后修改项目事件里的代码  我改了好多次都不行  我现在就是觉得没有加密这一一步  上了就是对Code的解密  我也很困惑啊

ABC就是你的加密字符串，解密的时候也需要的。。。