随手记登录sha1解密源码

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库 ()
返回 (结果)

@liuer