十万个为什么 发表于 2020-3-1 11:45:54

易语言实现bilibili登陆源码

哈哈.发现大家都在B站学习.分享一个易语言实现登陆B站的源码.也就是易语言POST.因为B站加密了.所以要用到Js解密哦.第一次解密

.版本 2

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

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

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


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

V8.InitializeV8 ()

.子程序 密码, 文本型
.参数 pwd, 文本型
.参数 key, 文本型
.参数 hash, 文本型
.局部变量 返回密码, 文本型

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

.子程序 登录, 文本型
.参数 账号, 文本型
.参数 密码, 文本型
.局部变量 str, 文本型
.局部变量 hash, 文本型
.局部变量 key, 文本型
.局部变量 gt, 文本型
.局部变量 challenge, 文本型
.局部变量 提交key, 文本型
.局部变量 滑块, 文本型
.局部变量 challenge1, 文本型
.局部变量 validate, 文本型
.局部变量 data, 文本型
.局部变量 cookie, 文本型
'易语言学习吧分享www.eyy8.vip
str ＝ 到文本 (网页_访问_对象 (“https://passport.bilibili.com/login?act=getkey&r=0.” ＋ 文本_取随机数字 (16, ), , , , , , , , , , , , , , , , , , ))
hash ＝ 文本_取出中间文本 (str, “hash” ＋ #引号 ＋ “:” ＋ #引号, #引号, , )
key ＝ 文本_取出中间文本 (str, “-----BEGIN PUBLIC KEY-----\n”, “\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)

源码下载:

Skylars 发表于 2020-3-2 16:19:37

哇，好棒，谢谢，我下载了

z994301349 发表于 2020-3-11 21:17:06

谢谢楼主分享

qingfeng 发表于 2020-3-20 22:54:07

感谢楼主分享，找点资源是真不容易

糖果 发表于 2020-4-4 11:32:42

感谢楼主的分享

小灰 发表于 2020-4-7 17:51:28

不懂。。。

908851378 发表于 2020-4-11 19:34:28

1111111111

345094 发表于 2020-4-12 16:21:59

楼主发贴辛苦了，谢谢楼主分享！我觉得易语言吧是注册对了！

Moonstone 发表于 2020-4-24 00:17:59


这东西我收了！谢谢楼主！易语言吧真好！

1605115492 发表于 2020-4-26 16:37:48

楼主发贴辛苦了，谢谢楼主分享！我觉得易语言吧是注册对了！
页: [1] 2
查看完整版本: 易语言实现bilibili登陆源码