Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]加密


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

主题：[求助]加密
帅哥哟，离线，有人找我吗？
hanlingli111999
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：260 积分：1957 威望：0 精华：0 注册：2020/3/7 22:50:00 		[求助]加密  发帖心情 Post By：2020/4/28 8:11:00 [只看该作者]

老师好：我设计的小程序加密用的是帮助上面的“另一种加密方式”，帮助上提示
要把使用次数同时保存到注册表，我按帮助上的代码是否也放到项目属性的After Open project里，
如：把代码n = Registry.GetValue("HKEY_CURRENT_USER\Software\MyApp","n",0)
Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp","n",n + 1)
加入到下面的代码里

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)
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107672 积分：547681 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/28 8:58:00 [只看该作者]

Dim n As Integer = GetConfigValue("Count",1)
dim n2 = Registry.GetValue("HKEY_CURRENT_USER\Software\MyApp","n",1)
if n <> n2 then
msgbox("试用异常")
Syscmd.Project.Exit()
end if
Dim Code As String = GetConfigValue("Register" & ComputerId,"")
Dim Ok As Boolean
……
SaveConfigValue("Count",n)
Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp","n",n)
 回到顶部
帅哥哟，离线，有人找我吗？
hanlingli111999
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：260 积分：1957 威望：0 精华：0 注册：2020/3/7 22:50:00 		  发帖心情 Post By：2020/4/28 9:03:00 [只看该作者]

谢谢老师，我试一下

 回到顶部
帅哥哟，离线，有人找我吗？
hanlingli111999
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：260 积分：1957 威望：0 精华：0 注册：2020/3/7 22:50:00 		  发帖心情 Post By：2020/4/28 9:23:00 [只看该作者]

老师，怎么设置初始n=n2呢

 回到顶部
帅哥，在线噢！
有点蓝
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107672 积分：547681 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/28 9:40:00 [只看该作者]

命令窗口执行

SaveConfigValue("Count",1)
Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp","n",1)
 回到顶部
帅哥哟，离线，有人找我吗？
hanlingli111999
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：260 积分：1957 威望：0 精华：0 注册：2020/3/7 22:50:00 		  发帖心情 Post By：2020/4/28 10:17:00 [只看该作者]

老师我试了一下，卸载后重装还是能继续使用试用次数

 回到顶部
帅哥，在线噢！
有点蓝
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107672 积分：547681 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/28 10:41:00 [只看该作者]

上传项目实例测试。发布后的项目不要调用5楼的代码

 回到顶部
帅哥哟，离线，有人找我吗？
hanlingli111999
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：260 积分：1957 威望：0 精华：0 注册：2020/3/7 22:50:00 		  发帖心情 Post By：2020/4/28 11:04:00 [只看该作者]

Dim n As Integer = GetConfigValue("Count2",1)
Dim n2 = Registry.GetValue("HKEY_CURRENT_USER\Software\MyApp","n",1)
If n <> n2 Then
msgbox("试用异常")
Syscmd.Project.Exit()
End If
Dim Code As String = GetConfigValue("Register" & ComputerId,"")
Dim Ok As Boolean 
If Code > "" AndAlso DecryptText(Code,"abc","qaz") = ComputerId Then '如果注册码正确
    OK = True
Else
    If n > 10 Then
        Forms("登录").Open()
        Code = GetConfigValue("Register" & ComputerId,"")
        If Code > "" AndAlso DecryptText(Code,"abc","qaz") = ComputerId Then '如果注册码正确
            OK = True
        End If
    End If
    If n > 15 AndAlso Ok = False Then
        Messagebox.Show("您正在使用的产品已经超出试用次数!")
        Syscmd.Project.Exit()
    End If
End If
n = n + 1
SaveConfigValue("Count2",n)
Registry.SetValue("HKEY_CURRENT_USER\Software\MyApp","n",n)
 回到顶部
帅哥，在线噢！
有点蓝
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107672 积分：547681 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/28 11:17:00 [只看该作者]

卸载后重装指什么？foxtable？发布后的程序？

 回到顶部
帅哥哟，离线，有人找我吗？
hanlingli111999
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：童狐 帖子：260 积分：1957 威望：0 精华：0 注册：2020/3/7 22:50:00 		  发帖心情 Post By：2020/4/28 11:20:00 [只看该作者]

是指发布后的程序（安装包），比如我设置试用15次，卸载安装包后重新安装发布后的安装包，
还是试用15次
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04297 秒, 4 次数据查询