软件序列号使用授权模块

文本组 ＝ 分割文本 (文本, “|”, ) ' 第一次获得
.如果真 (文本组 [5] ＝ “5Date”) ' 检测注册文件是否是初始的。
文本 ＝ 文本插入替换 (文本, “|”, 5, 格式化日期 (取现行时间 (), “%y年%m月%d日”))
写到文件 (文件, 字节集组 [1] ＋ 到字节集 (“ ~”) ＋ 秘密 (到字节集 (文本), 到文本 (字节集组 [1]), 1)) ' 将注册文件反写回去
.如果真结束
.如果真 (文本组 [6] ＝ “6Bdcs”) ' 检测注册文件是否是初始的。
文本 ＝ 文本插入替换 (文本, “|”, 6, “0”)
写到文件 (文件, 字节集组 [1] ＋ 到字节集 (“ ~”) ＋ 秘密 (到字节集 (文本), 到文本 (字节集组 [1]), 1)) ' 将注册文件反写回去
.如果真结束
序列号码 ＝ 序列号显示 (到整数 (文本组 [取数组成员数 (文本组)]))
.如果真 (序列号反算 (文本组 [4], 到整数 (文本组 [取数组成员数 (文本组)])) ≠ 序列号码) ' 这里判断是否为注册过了。
文本组 ＝ 分割文本 (文本, “|”, ) ' 第二次在获得
.如果真 (到整数 (文本组 [取数组成员数 (文本组) － 1]) － 到整数 (文本组 [取数组成员数 (文本组) － 3]) ＞ 0) ' 如果授权本地运行量到达限制那么就停止写入。
.如果 (文本组 [7] ＝ “0”) ' 区分是按照次算还是按照天算 “0”代表天
数字变量 ＝ 到文本 (到整数 (取时间间隔 (到时间 (格式化日期 (取现行时间 (), “%y年%m月%d日”)), 到时间 (文本组 [5]), #日)))
文本 ＝ 文本插入替换 (文本, “|”, 6, 数字变量)
写到文件 (文件, 字节集组 [1] ＋ 到字节集 (“ ~”) ＋ 秘密 (到字节集 (文本), 到文本 (字节集组 [1]), 1)) ' 将注册文件反写回去
.否则
数字变量 ＝ 到文本 (到整数 (文本组 [6]) ＋ 1) ' 按照次算
文本 ＝ 文本插入替换 (文本, “|”, 6, 数字变量)
写到文件 (文件, 字节集组 [1] ＋ 到字节集 (“ ~”) ＋ 秘密 (到字节集 (文本), 到文本 (字节集组 [1]), 1)) ' 将注册文件反写回去
.如果结束