给软件增加试用时间

luozhicheng

调动了精易模块，本人新手，只在业余时间学了几周而已，中间有漏洞，还不知道怎么改，高手勿喷，

  

子程序名	返回值类型	公开	备 注
软件试用时间

变量名	类 型	静态	数组	备 注
配置信息	文本型
到期时间	文本型
当前时间	日期时间型
剩余试用时长	文本型
文件号	整数型
延时时长	整数型

如果 (文件是否存在 (取运行目录 () ＋ “\切勿删除.dat”))  ' 判断配置文件是否存在
配置信息 ＝ 文本_解密c (读入文件 (取运行目录 () ＋ “\切勿删除.dat”), “密码”)
编辑框2.内容 ＝ 到文本 (配置信息)
到期时间 ＝ 文本_取出中间文本 (配置信息, “[到期时间：”, “]”, , 真)
当前时间 ＝ 时间_取北京时间 ()
如果真 (到期时间 ≠ “” 且 取时间间隔 (到时间 (到期时间), 当前时间, #秒 ) ＜ 0)
时钟1.时钟周期 ＝ 0
信息框 (“对不起，您的试用时间已结束，如果想继续使用本软件，请联系作者QQ：350508236”, 0, “试用结束”, )
销毁 ()

时钟1.时钟周期 ＝ 0
信息框 (“对不起，您的试用时间已结束，如果想继续使用本软件，请联系作者QQ：350508236”, 0, “试用结束”, )
销毁 ()
' 文件号 ＝ 打开文件 (取运行目录 () ＋ “\切勿删除.dat”, #重写, )   该段代码用以检测“切勿删除”如果不存在的话，新建一个文档，并将到期时间赋值，漏洞是，如果每次到期后，将该文档删除，将再次获得试用时间。。。。
' 当前时间 ＝ 时间_取北京时间 ()
' 到期时间 ＝ 时间到文本 (增减时间 (当前时间, #分钟, 1), )
' 写到文件 (取运行目录 () ＋ “\切勿删除.dat”, 文本_加密c (“[到期时间：” ＋ 到期时间 ＋ “]”, “peiqi”))
' 关闭文件 (文件号)

子程序名	返回值类型	公开	备 注
检测剩余时间

变量名	类 型	静态	数组	备 注
配置信息	文本型
到期时间	文本型
当前时间	日期时间型
剩余时间	文本型

如果真 (文件是否存在 (取运行目录 () ＋ “\切勿删除.dat”))
配置信息 ＝ 文本_解密c (读入文件 (取运行目录 () ＋ “\切勿删除.dat”), “密码”)
到期时间 ＝ 文本_取出中间文本 (配置信息, “[到期时间：”, “]”, , 真)
当前时间 ＝ 时间_取北京时间 ()
如果真 (到期时间 ＝ “”)  ' 判断到期时间
到期时间 ＝ 时间到文本 (增减时间 (当前时间, #分钟, 1), )  ' 1可以改为任意数，即试用时长，单位为分钟
写到文件 (取运行目录 () ＋ “\切勿删除.dat”, 文本_加密c (“[到期时间：” ＋ 到期时间 ＋ “]”, “密码”))
时钟检测到期时间.时钟周期 ＝ 0
信息框 (“您的试用时间为5分钟，到期时间为” ＋ 到期时间, 0, “提示”, )
时钟检测到期时间.时钟周期 ＝ 1000
如果真 (取时间间隔 (到时间 (到期时间), 当前时间, #秒 ) ＞ 0 且 取时间间隔 (到时间 (到期时间), 当前时间, #秒 ) ≤ 60)
剩余时间 ＝ 到文本 (取时间间隔 (到时间 (到期时间), 当前时间, #秒 ))
时钟检测到期时间.时钟周期 ＝ 0
信息框 (“您的试用到期时间为” ＋ 到期时间 ＋ #换行符 ＋ “当前试用剩余时长” ＋ 剩余时间 ＋ “秒”, 0, , )

子程序名	返回值类型	公开	备 注
_按钮1_被单击

时钟1.时钟周期 ＝ 1000

子程序名	返回值类型	公开	备 注
_时钟检测到期时间_周期事件

检测剩余时间 ()

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

软件试用时间 ()

子程序名	返回值类型	公开	备 注
_按钮2_被单击

变量名	类 型	静态	数组	备 注
到期时间	文本型

到期时间 ＝ 时间到文本 (增减时间 (取现行时间 (), #分钟, 到整数 (编辑框2.内容)), )  ' 编辑框2可以填写任意数，即试用时长，单位为分钟
写到文件 (取运行目录 () ＋ “\切勿删除.dat”, 文本_加密c (“[到期时间：” ＋ 到期时间 ＋ “]”, “密码”))

.版本 2<br /> <br /> <br /> <br /> .子程序 软件试用时间<br /> .局部变量 配置信息, 文本型<br /> .局部变量 到期时间, 文本型<br /> .局部变量 当前时间, 日期时间型<br /> .局部变量 剩余试用时长, 文本型<br /> .局部变量 文件号, 整数型<br /> .局部变量 延时时长, 整数型<br /> <br /> .如果 (文件是否存在 (取运行目录 () ＋ “\切勿删除.dat”))  ' 判断配置文件是否存在<br />     配置信息 ＝ 文本_解密c (读入文件 (取运行目录 () ＋ “\切勿删除.dat”), “密码”)<br />     编辑框2.内容 ＝ 到文本 (配置信息)<br />     到期时间 ＝ 文本_取出中间文本 (配置信息, “[到期时间：”, “]”, , 真)<br />     当前时间 ＝ 时间_取北京时间 ()<br />     .如果真 (到期时间 ≠ “” 且 取时间间隔 (到时间 (到期时间), 当前时间, #秒) ＜ 0)<br />         时钟1.时钟周期 ＝ 0<br />         信息框 (“对不起，您的试用时间已结束，如果想继续使用本软件，请联系作者QQ：350508236”, 0, “试用结束”, )<br />         销毁 ()<br />     .如果真结束<br /> <br /> .否则<br />     时钟1.时钟周期 ＝ 0<br />     信息框 (“对不起，您的试用时间已结束，如果想继续使用本软件，请联系作者QQ：350508236”, 0, “试用结束”, )<br />     销毁 ()<br /> <br />     ' 文件号 ＝ 打开文件 (取运行目录 () ＋ “\切勿删除.dat”, #重写, )   该段代码用以检测“切勿删除”如果不存在的话，新建一个文档，并将到期时间赋值，漏洞是，如果每次到期后，将该文档删除，将再次获得试用时间。。。。<br />     ' 当前时间 ＝ 时间_取北京时间 ()<br />     ' 到期时间 ＝ 时间到文本 (增减时间 (当前时间, #分钟, 1), )<br />     ' 写到文件 (取运行目录 () ＋ “\切勿删除.dat”, 文本_加密c (“[到期时间：” ＋ 到期时间 ＋ “]”, “peiqi”))<br />     ' 关闭文件 (文件号)<br /> .如果结束<br /> <br /> <br /> .子程序 检测剩余时间<br /> .局部变量 配置信息, 文本型<br /> .局部变量 到期时间, 文本型<br /> .局部变量 当前时间, 日期时间型<br /> .局部变量 剩余时间, 文本型<br /> <br /> .如果真 (文件是否存在 (取运行目录 () ＋ “\切勿删除.dat”))<br />     配置信息 ＝ 文本_解密c (读入文件 (取运行目录 () ＋ “\切勿删除.dat”), “密码”)<br />     到期时间 ＝ 文本_取出中间文本 (配置信息, “[到期时间：”, “]”, , 真)<br />     当前时间 ＝ 时间_取北京时间 ()<br />     .如果真 (到期时间 ＝ “”)  ' 判断到期时间<br />         到期时间 ＝ 时间到文本 (增减时间 (当前时间, #分钟, 1), )  ' 1可以改为任意数，即试用时长，单位为分钟<br />         写到文件 (取运行目录 () ＋ “\切勿删除.dat”, 文本_加密c (“[到期时间：” ＋ 到期时间 ＋ “]”, “密码”))<br />         时钟检测到期时间.时钟周期 ＝ 0<br />         信息框 (“您的试用时间为5分钟，到期时间为” ＋ 到期时间, 0, “提示”, )<br />         时钟检测到期时间.时钟周期 ＝ 1000<br />     .如果真结束<br />     .如果真 (取时间间隔 (到时间 (到期时间), 当前时间, #秒) ＞ 0 且 取时间间隔 (到时间 (到期时间), 当前时间, #秒) ≤ 60)<br />         剩余时间 ＝ 到文本 (取时间间隔 (到时间 (到期时间), 当前时间, #秒))<br />         时钟检测到期时间.时钟周期 ＝ 0<br />         信息框 (“您的试用到期时间为” ＋ 到期时间 ＋ #换行符 ＋ “当前试用剩余时长” ＋ 剩余时间 ＋ “秒”, 0, , )<br /> <br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 时钟1.时钟周期 ＝ 1000<br /> <br /> .子程序 _时钟检测到期时间_周期事件<br /> <br /> 检测剩余时间 ()<br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> 软件试用时间 ()<br /> <br /> .子程序 _按钮2_被单击<br /> .局部变量 到期时间, 文本型<br /> <br /> 到期时间 ＝ 时间到文本 (增减时间 (取现行时间 (), #分钟, 到整数 (编辑框2.内容)), )  ' 编辑框2可以填写任意数，即试用时长，单位为分钟<br /> 写到文件 (取运行目录 () ＋ “\切勿删除.dat”, 文本_加密c (“[到期时间：” ＋ 到期时间 ＋ “]”, “密码”))

。

FENGANQI2007

安全性忒差

applepear

还没有上传源码啊，

luozhicheng

FENGANQI2007 发表于 2020-2-25 17:13
安全性忒差

我新手，只接触了几周而已

308228

谢谢..............

四叶草接单

感觉 我的智商被摩擦了

NeStedww

没安全性。。。。

mood100

这个从安全角度考虑差点

夜华

信息框那个dump就行了...

十年約

感谢分享，很给力！~