易语言怎么编写输入正确的数字后增加使用天数?
我做了一个,但是只会输入正确后永久使用不会限制时间,但是如果增加天数,不能让数字重复使用,怎么制作?不要服务器。是本地的。...
我做了一个,但是只会输入正确后永久使用不会限制时间,但是如果增加天数,不能让数字重复使用,怎么制作?不要服务器。是本地的。
展开
展开全部
把需要增加的天数加密后写到注册表里面,需要的时候读注册表再解密,即安全又有保障。
.版本 2
.支持库 dp1
.支持库 spec
.子程序 _增加天数按钮_被单击
.局部变量 需要增加的天数, 文本型
需要增加的天数 = “分” + 天数编辑框.内容 ' 这里的分是解密的时候需要到的因为加解密支持库不能解密纯数字
写注册项 (4, “SOFTWARE\Microsoft\Windows\CurrentVersion\Reliability\天数”, 到文本 (加密数据 (到字节集 (需要增加的天数), “1234567”, #RC4算法)))
.子程序 _取天数按钮_被单击
.局部变量 取天数, 文本型
.局部变量 临时文本数组, 文本型, , "0"
取天数 = 取文本注册项 (4, “SOFTWARE\Microsoft\Windows\CurrentVersion\Reliability\天数”, “空”)
.判断开始 (取天数 ≠ “空”)
取天数 = 到文本 (解密数据 (到字节集 (取天数), “1234567”, #RC4算法))
临时文本数组 = 分割文本 (取天数, “分”, )
调试输出 (临时文本数组 [2]) ' 这是写到注册表的天数
.默认
信息框 (“文本注册项不存在,取天数失败!”, #信息图标, )
.版本 2
.支持库 dp1
.支持库 spec
.子程序 _增加天数按钮_被单击
.局部变量 需要增加的天数, 文本型
需要增加的天数 = “分” + 天数编辑框.内容 ' 这里的分是解密的时候需要到的因为加解密支持库不能解密纯数字
写注册项 (4, “SOFTWARE\Microsoft\Windows\CurrentVersion\Reliability\天数”, 到文本 (加密数据 (到字节集 (需要增加的天数), “1234567”, #RC4算法)))
.子程序 _取天数按钮_被单击
.局部变量 取天数, 文本型
.局部变量 临时文本数组, 文本型, , "0"
取天数 = 取文本注册项 (4, “SOFTWARE\Microsoft\Windows\CurrentVersion\Reliability\天数”, “空”)
.判断开始 (取天数 ≠ “空”)
取天数 = 到文本 (解密数据 (到字节集 (取天数), “1234567”, #RC4算法))
临时文本数组 = 分割文本 (取天数, “分”, )
调试输出 (临时文本数组 [2]) ' 这是写到注册表的天数
.默认
信息框 (“文本注册项不存在,取天数失败!”, #信息图标, )
展开全部
不清楚,我都是用现成的工具的。加密方式可靠,不易被破解,自己写注册机制太脆弱了
更多追问追答
追问
拜托我是纯编制不用其他软件加密。
追答
呵呵,我只是表达一个个人观点
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
不要服务器,我觉得还是用配置项,配置项的位置隐秘一些,如在system文件夹里配置项的名字也隐秘些,在用VMP保护壳,应该行了。
更多追问追答
追问
我知道要配置,但是代码不会写,我用2012QQ协议做了一个软件,我想制作成收费软件,是有期限,但是不学写。
追答
配置项的写法网上很多
参考资料: 只是思路,我也较菜
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这个要一算法 用MD5加密今天的日期 你留个邮箱给我 我写给你
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询