如何在电脑不联网的情况下给软件加使用时长验证

我是浮夸

如何在电脑不联网的情况下给软件加使用时长验证？
有网络验证，但是个别客户电脑不能联网，怎么样能实现不联网的情况下控制使用时长。
求大神给个成品软件或者易语言例子。
不求防破，能达到限制控制使用时长就行。

yzhzhp

.版本 2

.子程序 生成卡密, 文本型, 公开, 生成卡密，长度最低16
.参数 长度, 整数型, , 最低16位卡密
.参数 到期时间, 文本型, , 列如 2020/10/12/14/15 高级版可以规定年月日时分
.局部变量 时间分割, 文本型, , "0"
.局部变量 结果, 文本型
.局部变量 X, 整数型
.局部变量 时间1, 字节集
.局部变量 时间2, 字节集
.局部变量 时间3, 字节集
.局部变量 时间4, 字节集
.局部变量 时间5, 字节集

.如果真 (长度 ＜ 16)
    长度 ＝ 16
.如果真结束
时间分割 ＝ 分割文本 (到期时间, “/”, )
.如果真 (取数组成员数 (时间分割) ＜ 5)
    返回 (“错误的到期时间！”)
.如果真结束
.计次循环首 (长度 － 16, X)
    结果 ＝ 结果 ＋ 字符 (取随机数 (65, 90))
.计次循环尾 ()
.如果真 (取文本长度 (时间分割 [2]) ＜ 2)
    时间分割 [2] ＝ “0” ＋ 时间分割 [2]
.如果真结束
.如果真 (取文本长度 (时间分割 [3]) ＜ 2)
    时间分割 [3] ＝ “0” ＋ 时间分割 [3]
.如果真结束
.如果真 (取文本长度 (时间分割 [4]) ＜ 2)
    时间分割 [4] ＝ “0” ＋ 时间分割 [4]
.如果真结束
.如果真 (取文本长度 (时间分割 [5]) ＜ 2)
    时间分割 [5] ＝ “0” ＋ 时间分割 [5]
.如果真结束
时间1 ＝ 到字节集 (时间分割 [1])
时间2 ＝ 到字节集 (时间分割 [2])
时间3 ＝ 到字节集 (时间分割 [3])
时间4 ＝ 到字节集 (时间分割 [4])
时间5 ＝ 到字节集 (时间分割 [5])
.计次循环首 (取字节集长度 (时间1), X)
    时间1 [X] ＝ 时间1 [X] ＋ 17
.计次循环尾 ()
.计次循环首 (取字节集长度 (时间2), X)
    时间2 [X] ＝ 时间2 [X] ＋ 17
.计次循环尾 ()
.计次循环首 (取字节集长度 (时间3), X)
    时间3 [X] ＝ 时间3 [X] ＋ 17
.计次循环尾 ()
.计次循环首 (取字节集长度 (时间4), X)
    时间4 [X] ＝ 时间4 [X] ＋ 17
.计次循环尾 ()
.计次循环首 (取字节集长度 (时间5), X)
    时间5 [X] ＝ 时间5 [X] ＋ 17
.计次循环尾 ()
结果 ＝ 结果 ＋ 到文本 (时间1) ＋ “K” ＋ 到文本 (时间2) ＋ “K” ＋ 到文本 (时间3) ＋ “K” ＋ 到文本 (时间4) ＋ “K” ＋ 到文本 (时间5)
返回 (结果)


.子程序 解密卡密, 文本型, 公开, 获取卡密的到期时间
.参数 卡密, 文本型, , 需要解析的卡密 最低长度为10位
.局部变量 数据, 文本型
.局部变量 分割时间, 文本型, , "0"
.局部变量 时间1, 字节集
.局部变量 时间2, 字节集
.局部变量 时间3, 字节集
.局部变量 时间4, 字节集
.局部变量 时间5, 字节集
.局部变量 X, 整数型
.局部变量 结果, 文本型

.如果真 (取文本长度 (卡密) ＜ 16)
    返回 (“非有效卡密！”)
.如果真结束
数据 ＝ 取文本右边 (卡密, 16)
分割时间 ＝ 分割文本 (数据, “K”, )
时间1 ＝ 到字节集 (分割时间 [1])
时间2 ＝ 到字节集 (分割时间 [2])
时间3 ＝ 到字节集 (分割时间 [3])
时间4 ＝ 到字节集 (分割时间 [4])
时间5 ＝ 到字节集 (分割时间 [5])
.计次循环首 (取字节集长度 (时间1), X)
    时间1 [X] ＝ 时间1 [X] － 17
.计次循环尾 ()
.计次循环首 (取字节集长度 (时间2), X)
    时间2 [X] ＝ 时间2 [X] － 17
.计次循环尾 ()
.计次循环首 (取字节集长度 (时间3), X)
    时间3 [X] ＝ 时间3 [X] － 17
.计次循环尾 ()
.计次循环首 (取字节集长度 (时间4), X)
    时间4 [X] ＝ 时间4 [X] － 17
.计次循环尾 ()
.计次循环首 (取字节集长度 (时间5), X)
    时间5 [X] ＝ 时间5 [X] － 17
.计次循环尾 ()
.如果真 (时间2 [1] ＝ 48)
    时间2 ＝ 取字节集右边 (时间2, 1)
.如果真结束
.如果真 (时间3 [1] ＝ 48)
    时间3 ＝ 取字节集右边 (时间3, 1)
.如果真结束
.如果真 (时间4 [1] ＝ 48)
    时间4 ＝ 取字节集右边 (时间4, 1)
.如果真结束
.如果真 (时间5 [1] ＝ 48)
    时间5 ＝ 取字节集右边 (时间5, 1)
.如果真结束
结果 ＝ 到文本 (时间1) ＋ “/” ＋ 到文本 (时间2) ＋ “/” ＋ 到文本 (时间3) ＋ “/” ＋ 到文本 (时间4) ＋ “/” ＋ 到文本 (时间5)

我是浮夸

yzhzhp 发表于 2021-5-17 17:25
.版本 2

.子程序 生成卡密, 文本型, 公开, 生成卡密，长度最低16

这个看过太简单  随便改个字母到期时间都变了

yzhzhp

我是浮夸 发表于 2021-5-17 18:36
这个看过太简单  随便改个字母到期时间都变了

哈哈  的确的确