以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于帮助文档中注册系统设计的一个疑问？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=25271)
--  作者：38585830
--  发布时间：2012/11/5 16:02:00
--  [求助]关于帮助文档中注册系统设计的一个疑问？

 

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是固定的加密解密字符吗？

 

请教高手解答
--  作者：hanxuntx
--  发布时间：2012/11/5 16:28:00
--  

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

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

解密的时候必须一样
--  作者：38585830
--  发布时间：2012/11/5 17:06:00
--  
以下是引用hanxuntx在2012-11-5 16:28:00的发言：

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

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

解密的时候必须一样

Dim Code As String = GetConfigValue("Register" & ComputerId,"") 对啊，code是在这时候被加密的吧！那加密字符abc是在哪里设置的呢？ DecryptText(Code,"abc","abc")这段是对code解密吧？ 我现在想改加密字符abc，不知道在哪里改！
--  作者：lin_hailun
--  发布时间：2012/11/5 17:13:00
--  
 加密函数。

http://www.foxtable.com/help/topics/0350.htm
--  作者：hanxuntx
--  发布时间：2012/11/5 17:36:00
--  

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

 
--  作者：38585830
--  发布时间：2012/11/5 23:22:00
--  
我看了没有看明白  这个abc是啥时候设置的  如果我再上述代码中把abc都改成  ert可以吗？？
--  作者：狐狸爸爸
--  发布时间：2012/11/6 8:14:00
--  

用ukey，简单安全可靠：

 

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

 
--  作者：38585830
--  发布时间：2012/11/6 16:34:00
--  
以下是引用muhua在2012-11-6 8:12:00的发言：
可以随便更改， abc可以改成任意字符，只要在编码和解码的时候一致就可以了。

对啊  上面这段代码我没有找到那一段是加密的啊？？？？？？
--  作者：lin_hailun
--  发布时间：2012/11/6 16:38:00
--  
以下是引用38585830在2012-11-6 16:34:00的发言：

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


加密函数，在4楼。

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

楼主要问的是什么？
--  作者：38585830
--  发布时间：2012/11/6 16:41:00
--  
以下是引用lin_hailun在2012-11-6 16:38:00的发言：

加密函数，在4楼。

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

楼主要问的是什么？

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

啊

 

[此贴子已经被作者于2012-11-6 16:42:33编辑过]