五百丁登陆JS密码计算源码

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

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

.子程序 _按钮_登录_被单击

五百丁登录 (编辑框1.内容, 编辑框2.内容)

.子程序 五百丁登录
.参数 user, 文本型
.参数 pass, 文本型
.局部变量 str, 文本型
.局部变量 url, 文本型
.局部变量 json, 类_json
.局部变量 exponent, 文本型
.局部变量 modulus, 文本型
.局部变量 Cookies, 文本型
.局部变量 postData, 文本型

url ＝ “https://www.500d.me/common/public_key/?_=” ＋ 时间_到时间戳 (, , )
str ＝ 网页_访问S (url, , , , Cookies, #常量1, , , , , , , , , , , , 真, , , )
调试输出 (Cookies)
json.解析 (str)
exponent ＝ json.取通用属性 (“exponent”, )
modulus ＝ json.取通用属性 (“modulus”, )
调试输出 (str, exponent, modulus, 格式化文本 (“'%s','%s','%s'”, pass, modulus, exponent))
pass ＝ JS调试 (#常量_js, “getPas”, 格式化文本 (“'%s','%s','%s'”, pass, modulus, exponent))
调试输出 (pass)

.子程序 JS调试, 文本型, 公开, 代码由鬼鬼JS调试工具生成 
.参数 JS代码, 文本型
.参数 函数名, 文本型
.参数 参数, 文本型, 可空
.局部变量 js, 对象
.局部变量 return, 文本型

' CoInitialize (0) 线程中请初始化COM  否则会出错
js.创建 (“ScriptControl”, )
js.写属性 (“Language”, “JavaScript”)
js.数值方法 (“AddCode”, JS代码)  ' 调试成功的JS代码段
return ＝ js.通用方法 (“eval”, 函数名 ＋ “(” ＋ 参数 ＋ “)”).取文本 ()
' CoUninitialize ()
返回 (return)

@ku2017