哔哩哔哩登录源码

.版本 2

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

.子程序 _按钮1_被单击

编辑框3.内容 ＝ 登录 (编辑框1.内容, 编辑框2.内容)

.子程序 __启动窗口_创建完毕

V8.InitializeV8 ()

.子程序 密码, 文本型, , ' 本源码来自三叶资源网(www.sanye.cx)
.参数 pwd, 文本型
.参数 key, 文本型
.参数 hash, 文本型
.局部变量 返回密码, 文本型

返回密码 ＝ V8.ExecJavaScriptV8 (#JS, “test('” ＋ pwd ＋ “','” ＋ key ＋ “','” ＋ hash ＋ “')”, , )
返回密码 ＝ 文本_替换 (返回密码, , , , “=”, “%3D”, “+”, “%2B”, “/”, “%2F”, , , , )
返回 (返回密码)

.子程序 登录, 文本型
.参数 账号, 文本型
.参数 密码, 文本型
.局部变量 str, 文本型
.局部变量 hash, 文本型
.局部变量 key, 文本型
.局部变量 gt, 文本型
.局部变量 challenge, 文本型
.局部变量 提交key, 文本型
.局部变量 滑块, 文本型
.局部变量 challenge1, 文本型
.局部变量 validate, 文本型
.局部变量 data, 文本型
.局部变量 cookie, 文本型

str ＝ 到文本 (网页_访问_对象 (“https://passport.bilibili.com/login?act=getkey&r=0.” ＋ 文本_取随机数字 (16, ), , , , , , , , , , , , , , , , , , ))
hash ＝ 文本_取出中间文本 (str, “hash” ＋ #引号 ＋ “:” ＋ #引号, #引号, , )
key ＝ 文本_取出中间文本 (str, “-----BEGIN PUBLIC KEY-----\n”, “
-----END P”, , )
str ＝ 到文本 (网页_访问_对象 (“https://passport.bilibili.com/web/captcha/combine?plat=6”, , , , , , , , , , , , , , , , , , ))
gt ＝ 文本_取出中间文本 (str, “gt” ＋ #引号 ＋ “:” ＋ #引号, #引号, , )
challenge ＝ 文本_取出中间文本 (str, “challenge” ＋ #引号 ＋ “:” ＋ #引号, #引号, , )
提交key ＝ 文本_取出中间文本 (str, “key” ＋ #引号 ＋ “:” ＋ #引号, #引号, , )
' -----我对接的滑块平台，自己找个平台可以对接登录
data ＝ “captchaType=6&username=” ＋ 账号 ＋ “&password=” ＋ 密码 (密码, key, hash) ＋ “&keep=true&key=” ＋ 提交key ＋ “&goUrl=https%3A%2F%2Fwww.bilibili.com%2F&challenge=” ＋ challenge1 ＋ “&validate=” ＋ validate ＋ “&seccode=” ＋ validate ＋ “%7Cjordan”
str ＝ 编码_URL解码 (到文本 (网页_访问_对象 (“https://passport.bilibili.com/web/login/v2”, 1, data, , cookie, , , , , , , , , , , , , , )), 真)
返回 (str)

@wb138960