.版本 2
.支持库 dp1
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
.局部变量 data, 文本型
.局部变量 params, 文本型
.局部变量 账号, 文本型
.局部变量 密码, 文本型
.局部变量 str, 文本型
.局部变量 id, 文本型
.局部变量 临时数组, 文本型, , "0"
.局部变量 ii, 整数型
.局部变量 昵称, 文本型
.局部变量 区, 文本型
.局部变量 等级, 文本型
.局部变量 区信息, 文本型
.局部变量 总输出, 文本型
账号 = “[email protected]”
密码 = “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¶ms=” + 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位]
.如果结束
.计次循环尾 ()
返回 (删首尾空 (到文本 (返回字节集)))