.版本 2
.子程序 卡密登录, 文本型, 公开, 单码卡密登录,官网开发文档:https://jjy.hxywl.top/doc.php?act=kmlogon
.参数 卡密, 文本型, , 卡密
.参数 用户账号, 文本型, 可空, VIP充值卡或积分充值卡密则需提交此应用下已注册的用户账号
.参数 数据传输, 整数型, 可空, 留空或填写0默认全局数据传输方式,填写1则数据传输独立设置RC4加密,填写2则数据传输独立设置不加密
.参数 独立秘钥, 文本型, 可空, 默认全局RC4KEY初始秘钥,填写则独立配置RC4KEY
.局部变量 yun_VALUE, 文本型
.局部变量 yun_DATA, 文本型
.局部变量 登录, 文本型
.局部变量 KEY, 文本型
.局部变量 code, 文本型
.局部变量 签名SIGN, 文本型
' APPID_jjy_hxywl_top为全局变量---应用后台APPID
' APPKEY_jjy_hxywl_top为全局变量---应用后台APPKEY秘钥
' RC4KEY_jjy_hxywl_top为全局变量---应用后台数据传输RC4秘钥
KEY = RC4KEY_jjy_hxywl_top
.如果真 (独立秘钥 ≠ “”)
KEY = 独立秘钥
.如果真结束
.如果真 (卡密 = “”)
返回 (“卡密为空”)
.如果真结束
签名SIGN = 校验_取md5_文本 (“kami=” + 卡密 + “&user=” + 用户账号 + “&markcode=” + 校验_取md5_文本 (系统_取CPU型号 () + 系统_取CPU制造商 () + 系统_取CPU序列号 (), 真) + “&t=” + 到文本 (时间_到时间戳 (, 真, 真)) + “&” + APPKEY_jjy_hxywl_top, 真)
yun_VALUE = 到文本 (取随机数 (1000, 99999)) + 到文本 (时间_到时间戳 (, , ))
yun_DATA = “kami=” + 卡密 + “&user=” + 用户账号 + “&markcode=” + 校验_取md5_文本 (系统_取CPU型号 () + 系统_取CPU制造商 () + 系统_取CPU序列号 (), 真) + “&t=” + 到文本 (时间_到时间戳 (, 真, 真)) + “&sign=” + 签名SIGN + “&value=” + yun_VALUE
.如果 (数据传输 = 0)
.如果真 (数据加密_jjy_hxywl_top = 1)
yun_DATA = “data=” + RC4加密 (yun_DATA, KEY)
.如果真结束
.否则
.如果真 (数据传输 = 1)
yun_DATA = “data=” + RC4加密 (yun_DATA, KEY)
.如果真结束
.如果结束
登录 = 删除空字符 (UTF8到文本 (网页_访问 (#URL + “/api.php?api=kmlogon&app=” + APPID_jjy_hxywl_top + “&user=” + 用户账号 + “&” + yun_DATA, 0, , , , , , , , , , , , )))
.如果 (数据传输 = 0)
.如果真 (数据加密_jjy_hxywl_top = 1)
登录 = RC4解密 (登录, KEY)
.如果真结束
.否则
.如果真 (数据传输 = 1)
登录 = RC4解密 (登录, KEY)
.如果真结束
.如果结束
成功登录卡密 = 卡密
返回 (登录)