|
发表于 2013-12-3 13:40:45
|
显示全部楼层
广东省东莞市
给你写了一个例子,看代码:
[e]
.版本 2
.程序集 程序集1
.子程序 _启动子程序, 整数型, , 请在本子程序中放置易模块初始化代码
_临时子程序 () ' 在初始化代码执行完毕后调用测试代码
返回 (0) ' 可以根据您的需要返回任意数值
.子程序 _临时子程序
' 本名称子程序用作测试程序用,仅在开发及调试环境中有效,编译发布程序前将被系统自动清空,请将所有用作测试的临时代码放在本子程序中。 ***注意不要修改本子程序的名称、参数及返回值类型。
.子程序 注册码验证, 文本型, 公开, 成功返回注册信息,失败返回空文本
.参数 参_注册码, 文本型
.局部变量 局_正确注册码, 文本型
.局部变量 局_解密后注册码, 文本型
.局部变量 局_文本数组数据, 文本型
.局部变量 局_注册有效期, 日期时间型
'
' 这里面写解密注册码的代码
' 我就不演示了
' 例如解密后的明文注册码为:XXX软件注册码|SJCJDDSVJDHVDSNVFVSSDVJN|2013-12-5
局_解密后注册码 = “XXX软件注册码|SJCJDDSVJDHVDSNVFVSSDVJN|2013-12-5”
' ~
' 这里写计算正确的注册码代码
' 例如计算后的正确注册码为:SJCJDDSVJDHVDSNVFVSSDVJN
局_正确注册码 = “SJCJDDSVJDHVDSNVFVSSDVJN”
' ~~
局_文本数组数据 = 分割文本 (局_解密后注册码, “|”, )
.如果真 (取数组成员数 (局_文本数组数据) < 1 或 取数组成员数 (局_文本数组数据) > 3)
返回 (“”)
.如果真结束
.如果真 (局_文本数组数据 [1] ≠ “XXX软件注册码”)
返回 (“”)
.如果真结束
.如果真 (局_文本数组数据 [2] ≠ 局_正确注册码)
返回 (“”)
.如果真结束
局_注册有效期 = 到时间 (局_文本数组数据 [3])
.判断开始 (局_注册有效期 ≥ [2099年12月30日])
返回 (“有效期:永久使用”)
.默认
返回 (“有效期:” + 到文本 (局_注册有效期))
.判断结束
[/e] |
|