sha1解密 随手记登录取等级例子
.版本 2
.支持库 spec
.程序集 窗口程序集_启动窗口
.程序集变量 乐玩, 图色模拟类
.子程序 _按钮1_被单击
.局部变量 获取_uid, 文本型
.局部变量 json, 类_json
.局部变量 vccode, 文本型
.局部变量 uid, 文本型
.局部变量 password, 文本型
.局部变量 cookies, 文本型
.局部变量 局_返回, 文本型
.局部变量 cookie, 文本型
.局部变量 响应_cookie, 文本型
.局部变量 su, 文本型
.局部变量 iv, 文本型
.局部变量 sign, 文本型
.局部变量 st, 文本型
.局部变量 局_提交, 文本型
.局部变量 lv, 文本型
password = 功能_运行JS代码_表达式 (编辑框2.内容)
password = 功能_运行JS代码_表达式 (编辑框1.内容 + password)
获取_uid = 网页_访问S (“https://login.sui.com/login.do?opt=vccode”, 0, , , , , , , , , , , , , , , , , , , )
json.解析 (获取_uid)
vccode = json.取通用属性 (“vccode”, )
uid = json.取通用属性 (“uid”, )
password = 功能_运行JS代码_表达式 (password + vccode)
json.清除 ()
局_返回 = 网页_访问S (“https://login.sui.com/login.do?email=” + 编辑框1.内容 + “&status=0&password=” + password + “&uid=” + uid + “&callback=jsonp” + 时间_取现行时间戳 (), 0, , , 响应_cookie, #常量3, , , , , , , , , , , , , , , )
.如果真 (寻找文本 (局_返回, “ok”, , 假) ≠ -1)
响应_cookie = 文本_替换 (响应_cookie, , , , “__newAuth=” + #引号 + #引号 + “;”, “”, , , , , , , , )
局_返回 = 网页_访问S (“https://login.sui.com/auth.do”, 0, , 响应_cookie, , , , , , , , , , , , , , , , , )
su = 文本_取出中间文本 (局_返回, #su, #引号, , )
iv = 文本_取出中间文本 (局_返回, #iv, #引号, , )
sign = 文本_取出中间文本 (局_返回, #sign, #引号, , )
st = 文本_取出中间文本 (局_返回, #st, #引号, , )
局_提交 = “su=” + su + “&iv=” + iv + “&sign=” + sign + “&st=” + st
局_返回 = 网页_访问S (“https://www.sui.com/report_index.do”, 1, 局_提交, , 响应_cookie, , , , , , , , , , , , , , , , )
lv = 文本_取出中间文本 (局_返回, #lv, #引号, , )
调试输出 (“等级:”, lv)
局_返回 = 网页_访问S (“https://www.sui.com/systemSet/setPassword.do”, 0, , 响应_cookie, , , , , , , , , , , , , , , , , )
调试输出 (局_返回)
.如果真结束
.子程序 功能_运行JS代码_表达式, 文本型, , 此代码由精易网页调试助手生成代码,配合精易模块使用。
.参数 参数1, 文本型
.局部变量 JS命令, 类_脚本组件
.局部变量 结果, 文本型
JS命令.执行 (#常量1)
线程_初始化COM库 ()
结果 = JS命令.计算表达式 (“hex_sha1('” + 参数1 + “')”)
线程_取消COM库 ()
返回 (结果)