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

 

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)

 

以上是帮助文件中的一段代码，DecryptText(Code,"abc","abc") 应该是对Code的解密算法，我现在想知道Code这个加密字符串是如何被加密上的？abc是固定的加密解密字符吗？

 

请教高手解答

如何被加密就是函数内部的机制了

加密的两个字符串是随便你自己的

解密的时候必须一样

Dim Code As String = GetConfigValue("Register" & ComputerId,"") 对啊，code是在这时候被加密的吧！那加密字符abc是在哪里设置的呢？ DecryptText(Code,"abc","abc")这段是对code解密吧？ 我现在想改加密字符abc，不知道在哪里改！

 加密函数。

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

Dim Code As String = GetConfigValue("Register" & ComputerId,"")   这个是获得设置，请在开发篇的搜索“设置信息”

 

我看了没有看明白  这个abc是啥时候设置的  如果我再上述代码中把abc都改成  ert可以吗？？

用ukey，简单安全可靠：

 

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

 

对啊  上面这段代码我没有找到那一段是加密的啊？？？？？？

加密函数，在4楼。

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

楼主要问的是什么？