一款付费软件注册授权验证

.DLL命令 TextOutA, 整数型, , TextOutA, 公开, _文本绘图gdi32.dll文本绘图函数。也请参考SetTextAlign　非零表示成功，零表示失败。会设置GetLastError
.参数 设备场景, 整数型, , 设备场景的句柄
.参数 横, 整数型, , 绘图的起点，采用逻辑坐标
.参数 纵, 整数型, , 同上
.参数 内容, 文本型, , 欲描绘的字串
.参数 内容数量, 整数型, , 字串中要描绘的字符数量;

x ＝ 寻找文本 (L, “&”, , 假)
试用次数 ＝ 到整数 (取文本左边 (L, x － 1))
x ＝ 倒找文本 (L, “&”, , 假)
天数 ＝ 到整数 (取文本右边 (L, 取文本长度 (L) － x))
s ＝ 到文本 (试用次数) ＋ “&” ＋ 取文本右边 (机器码, 90) ＋ 取文本中间 (机器码, 9, 17) ＋ 密码 ＋ “&” ＋ 到文本 (天数)
变量1 ＝ s ＋ L ＋ 到文本 (注册码) ＋ 到文本 (试用次数) ＋ 到文本 (天数)
调试输出 (“注册值”, s, “注册码”, L, 注册码, 试用次数, 天数, )
.判断开始 (s ＝ L)
.如果真 (是否提示注册消息 ＝ 真)
' 系统_出错信息 (“感谢您成功注册本软件”, 假, “感谢您成功注册本软件”, 64)
.如果真结束
返回变量 ＝ 真
.默认
.如果真 (是否提示注册消息 ＝ 真)
' 系统_出错信息 (“注册码错误”, 假, )
.如果真结束
返回变量 ＝ 假
.判断结束
返回 (返回变量)