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

 

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，不知道在哪里改！

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

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

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

啊

 

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

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