以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎样做到给自己设计的软件系统加密呢？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=7779)
--  作者：sophia
--  发布时间：2010/8/5 9:33:00
--  怎样做到给自己设计的软件系统加密呢？
如题
--  作者：狐狸爸爸
--  发布时间：2010/8/5 9:42:00
--  

1、设置密码，Foxtable自带的用户和密码管理就比较安全了

2、设计自己注册码系统，帮助有简单的介绍。

 
--  作者：sophia
--  发布时间：2010/8/6 13:33:00
--  

帮助里关于"设计自己的注册系统"一章GetConfigValue和SaveConfigValue是什么函数呢?我没找到关于这两个函数的介绍.

另外:给定机器码后,注册码是怎么产生的呢?
--  作者：kylin
--  发布时间：2010/8/6 14:10:00
--  

保存设置信息

一个完整的系统，通常会提供一些自定义的设置给用户，以便满足不同的用户需要。
FoxTable提供了一些函数，分别用于保存、读取和维护设置信息。

SaveConfigValue

保存设置信息

语法：

SaveConfigValue(Name, Value)

Name：  设置名称
Value： 设置值

设置信息经过加密储存，安全性比一般的方式更有保证。

GetConfigValue

读取设置信息。

语法：

GetConfigValue(Name, DefaultValue)

Name：        设置名称
DefaultValue：默认设置值，如果指定名称的设置不存在，则返回此值。

SaveAllConfigItem

保存所有的设置，无参数。
在默认情况下，只有单击菜单中的保存按钮，设置信息才会保存。
如果希望单独或者强制保存设置信息，可执行此方法。

RemoveConfigItem

删除指定名称的设置。

语法：

RemoveConfigItem(Name)

Name: 要删除的设置名称。

ClearConfigItem

删除所有的设置，无参数。

示例

假定你提供给客户的是一个试用版本，希望最多使用30次，可以在项目事件AfterProject事件中加入如下代码：

Dim n As Integer
n = GetConfigValue("Count",1) \'假定保存试用次数的设置名称为Count
If n > 30 Then
    Messagebox.Show("您正在使用的产品已经超出试用次数!")
    Syscmd.Project.Exit()
Else
    n = n + 1
    SaveConfigValue("Count",n)
End If

提示：如果启动项目而不保存，是不会计算试用次数的。
　

 

 

----以上是帮助里头的介绍