易语言获取wy某游戏params值

.版本 2
.支持库 dp1
.支持库 spec

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

.子程序 __启动窗口_创建完毕
.局部变量 data, 文本型
.局部变量 params, 文本型
.局部变量 账号, 文本型
.局部变量 密码, 文本型
.局部变量 str, 文本型
.局部变量 id, 文本型
.局部变量 临时数组, 文本型, , "0"
.局部变量 ii, 整数型
.局部变量 昵称, 文本型
.局部变量 区, 文本型
.局部变量 等级, 文本型
.局部变量 区信息, 文本型
.局部变量 总输出, 文本型

账号 ＝ “2732230285@qq.com”
密码 ＝ “txy332”
params ＝ params_Encrypt (“{” ＋ #引号 ＋ “username” ＋ #引号 ＋ “:” ＋ #引号 ＋ 账号 ＋ #引号 ＋ “,” ＋ #引号 ＋ “password” ＋ #引号 ＋ “:” ＋ #引号 ＋ 取数据摘要 (到字节集 (密码)) ＋ #引号 ＋ “,” ＋ #引号 ＋ “unique_id” ＋ #引号 ＋ “:” ＋ #引号 ＋ 程序_生成GUID () ＋ #引号 ＋ “,” ＋ #引号 ＋ “password_level” ＋ #引号 ＋ “:3}”)
data ＝ “opt_fields=nickname%2Cavatar%2Crealname_status%2Cmobile_bind_status%2Cexit_popup_info&params=” ＋ params ＋ “&game_id=aecflhqq3qaaaagw-g-l10&gv=35&gvn=1.3.5&cv=a2.11.0&app_type=games&app_mode=2&app_channel=netease.mj3687_sm_cpc_dev”
str ＝ 编码_usc2到ansi (到文本 (网页_访问_对象 (“https://service.mkey.163.com/mpay/games/aecflhqq3qaaaagw-g-l10/devices/aiav52fzmxaz3ukz-d/users?un=” ＋ 编码_URL编码 (账号, 真, 真), 1, data, , , , , , , , , , , , , , )))
调试输出 (str)

.子程序 params_Encrypt, 文本型
.参数 _d, 文本型

返回 (bin2hex_ (对称加密 (到字节集 (_d), { 35, 130, 172, 11, 10, 89, 19, 110, 143, 115, 132, 143, 167, 6, 200, 178 }, #对称算法_AES_ECB, #数据填充_PKCS7_PADDING, ), 真, ))

.子程序 bin2hex_, 文本型, 公开
.参数 bin, 字节集
.参数 转换为小写, 逻辑型, 可空
.参数 填充空格, 逻辑型, 可空
.局部变量 数组, 字节型, , "0"
.局部变量 返回字节集, 字节集
.局部变量 ki, 整数型
.局部变量 i, 整数型
.局部变量 高4位, 整数型
.局部变量 低4位, 整数型

.如果 (转换为小写)
    数组 ＝ { 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 97, 98, 99, 100, 101, 102 }
.否则
    数组 ＝ { 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 65, 66, 67, 68, 69, 70 }
.如果结束
ki ＝ 取字节集长度 (bin)
.如果 (填充空格)
    返回字节集 ＝ 取空白字节集 (ki × 3)
.否则
    返回字节集 ＝ 取空白字节集 (ki × 2)
.如果结束
.计次循环首 (ki, i)
    高4位 ＝ bin [i] ÷ 16 ＋ 1
    低4位 ＝ bin [i] ％ 16 ＋ 1
    .如果 (填充空格)
        返回字节集 [i × 3 － 2] ＝ 32
        返回字节集 [i × 3 － 1] ＝ 数组 [高4位]
        返回字节集 [i × 3] ＝ 数组 [低4位]
    .否则
        返回字节集 [i × 2 － 1] ＝ 数组 [高4位]
        返回字节集 [i × 2] ＝ 数组 [低4位]
    .如果结束

.计次循环尾 ()
返回 (删首尾空 (到文本 (返回字节集)))

@a1115894846