Foxtable(狐表)用户栏目专家坐堂 → 使用软加密


  共有3813人关注过本帖树形打印复制链接

主题:使用软加密

帅哥哟,离线,有人找我吗?
kaituozhe
  21楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2234 积分:15278 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2017/1/24 14:54:00 [只看该作者]

使用EncryptText(Value, Key1, Key2)加密,然后再根据加密后的机器码,生成注册码,是这样吗

 


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  22楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/1/24 14:55:00 [只看该作者]

是的,你可以在foxtable帮助文档原来的方式上加上自己的想法。

 回到顶部
帅哥哟,离线,有人找我吗?
kaituozhe
  23楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2234 积分:15278 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2017/1/24 14:58:00 [只看该作者]

把软件中的ComputerId换成EncryptText(ComputerId, Key1, Key2),就可以了吗?

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  24楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/1/24 15:01:00 [只看该作者]

 你只需要修改注册窗口的TextBox1的显示。

 

 保存到信息的名字,字符不能超过32个字符的,所以Register & ComputeId都不要改。


 回到顶部
帅哥哟,离线,有人找我吗?
kaituozhe
  25楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2234 积分:15278 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2017/1/24 15:20:00 [只看该作者]

.NET Framework 版本:2.0.50727.5485
Foxtable 版本:2016.7.29.1
错误所在事件:项目,AfterOpenProject
详细错误信息:
不正确的数据。

 

这是什么原因


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  26楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/1/24 15:22:00 [只看该作者]

 打开注册窗口,把值保存成空白重新打开项目即可。


 回到顶部
帅哥哟,离线,有人找我吗?
kaituozhe
  27楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2234 积分:15278 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2017/1/24 15:23:00 [只看该作者]

该如何解决

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  28楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/1/24 15:24:00 [只看该作者]

看26楼,把你保存的数据设置成空白。

 回到顶部
帅哥哟,离线,有人找我吗?
kaituozhe
  29楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2234 积分:15278 威望:0 精华:0 注册:2015/7/18 10:10:00
  发帖心情 Post By:2017/1/24 15:25:00 [只看该作者]

把变成空,揭示如下

.NET Framework 版本:2.0.50727.5485
Foxtable 版本:2016.7.29.1
错误所在事件:窗口,注册,Button1,Click
详细错误信息:
值不能为空。
参数名: value


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  30楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/1/24 15:30:00 [只看该作者]

确定按钮改成

 

try
    If DecryptText(e.Form.Controls("TextBox2").Value,"abc","abc") = ComputerId Then
        SaveConfigValue("Register" & ComputerId, e.Form.Controls("TextBox2").Value)
        e.Form.Close()
    Else
        msgbox("注册码错误")
    End If
catch ex As exception
    msgbox("注册码错误")
End try


 回到顶部
总数 47 上一页 1 2 3 4 5 下一页