🔷 易语言对接

.版本 2

.程序集 窗口程序集_启动窗口

.常量 API_BASE, "https://你的域名", , 公开
.常量 USERNAME, "你的用户名", , 公开
.常量 APP_NAME, "a", , 公开
.常量 APP_KEY, "32位程序密钥", , 公开

.子程序 计算签名, 文本型
    .参数 动作, 文本型
    .参数 卡密, 文本型
    .参数 MAC, 文本型
    .参数 应用, 文本型
    .参数 时间戳, 文本型
    .参数 密钥, 文本型
    .局部变量 原文, 文本型
    .局部变量 结果, 文本型

    原文 ＝ 动作 ＋ "|" ＋ 卡密 ＋ "|" ＋ MAC ＋ "|" ＋ 应用 ＋ "|" ＋ 时间戳 ＋ "|" ＋ 密钥
    结果 ＝ 取数据摘要 (原文)   ' 需引入"精易模块"或自行实现 MD5
    返回 (结果)

.子程序 验证卡密, 整数型
    .参数 动作, 文本型
    .参数 卡密, 文本型
    .参数 MAC, 文本型
    .局部变量 时间戳, 文本型
    .局部变量 签名, 文本型
    .局部变量 完整URL, 文本型
    .局部变量 响应, 文本型

    时间戳 ＝ 到文本 (取时间戳 ())  ' Unix 秒
    签名 ＝ 计算签名 (动作, 卡密, MAC, APP_NAME, 时间戳, APP_KEY)
    完整URL ＝ API_BASE ＋ "/kami/" ＋ USERNAME ＋ "/check.php"
    完整URL ＝ 完整URL ＋ "?act=" ＋ 动作
    完整URL ＝ 完整URL ＋ "&app=" ＋ APP_NAME
    完整URL ＝ 完整URL ＋ "&card=" ＋ 编码_URL (卡密)
    完整URL ＝ 完整URL ＋ "&mac=" ＋ 编码_URL (MAC)
    完整URL ＝ 完整URL ＋ "&sign=" ＋ 签名
    完整URL ＝ 完整URL ＋ "&ts=" ＋ 时间戳

    响应 ＝ 网页_访问 (完整URL, , , , , , , , , , , , , )
    ' 解析 JSON：code=0 成功
    .如果 (寻找文本 (响应, "code", , 假) ＞ 0 且 寻找文本 (响应, "0", , 假) ＞ 0)
        返回 (1)
    .否则
        返回 (0)
    .如果结束