易语言实现bilibili登陆源码

十万个为什么

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

1. .版本 2
   
2. 
   
3. .程序集 窗口程序集_启动窗口
   
4. 
   
5. .子程序 _按钮1_被单击
   
6. 
   
7. 编辑框3.内容 ＝ 登录 (编辑框1.内容, 编辑框2.内容)
   
8. 
   
9. 
   
10. .子程序 __启动窗口_创建完毕
    
11. 
    
12. V8.InitializeV8 ()
    
13. 
    
14. .子程序 密码, 文本型
    
15. .参数 pwd, 文本型
    
16. .参数 key, 文本型
    
17. .参数 hash, 文本型
    
18. .局部变量 返回密码, 文本型
    
19. 
    
20. 返回密码 ＝ V8.ExecJavaScriptV8 (#JS, “test('” ＋ pwd ＋ “','” ＋ key ＋ “','” ＋ hash ＋ “')”, , )
    
21. 返回密码 ＝ 文本_替换 (返回密码, , , , “=”, “%3D”, “+”, “%2B”, “/”, “%2F”, , , , )
    
22. 返回 (返回密码)
    
23. 
    
24. .子程序 登录, 文本型
    
25. .参数 账号, 文本型
    
26. .参数 密码, 文本型
    
27. .局部变量 str, 文本型
    
28. .局部变量 hash, 文本型
    
29. .局部变量 key, 文本型
    
30. .局部变量 gt, 文本型
    
31. .局部变量 challenge, 文本型
    
32. .局部变量 提交key, 文本型
    
33. .局部变量 滑块, 文本型
    
34. .局部变量 challenge1, 文本型
    
35. .局部变量 validate, 文本型
    
36. .局部变量 data, 文本型
    
37. .局部变量 cookie, 文本型
    
38. '易语言学习吧分享www.eyy8.vip
    
39. str ＝ 到文本 (网页_访问_对象 (“https://passport.bilibili.com/login?act=getkey&r=0.” ＋ 文本_取随机数字 (16, ), , , , , , , , , , , , , , , , , , ))
    
40. hash ＝ 文本_取出中间文本 (str, “hash” ＋ #引号 ＋ “:” ＋ #引号, #引号, , )
    
41. key ＝ 文本_取出中间文本 (str, “-----BEGIN PUBLIC KEY-----\n”, “\n-----END P”, , )
    
42. 
    
43. str ＝ 到文本 (网页_访问_对象 (“https://passport.bilibili.com/web/captcha/combine?plat=6”, , , , , , , , , , , , , , , , , , ))
    
44. gt ＝ 文本_取出中间文本 (str, “gt” ＋ #引号 ＋ “:” ＋ #引号, #引号, , )
    
45. challenge ＝ 文本_取出中间文本 (str, “challenge” ＋ #引号 ＋ “:” ＋ #引号, #引号, , )
    
46. 提交key ＝ 文本_取出中间文本 (str, “key” ＋ #引号 ＋ “:” ＋ #引号, #引号, , )
    
47. 
    
48. 
    
49. ' -----我对接的滑块平台，自己找个平台可以对接登录
    
50. 
    
51. 
    
52. 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”
    
53. str ＝ 编码_URL解码 (到文本 (网页_访问_对象 (“https://passport.bilibili.com/web/login/v2”, 1, data, , cookie, , , , , , , , , , , , , , )), 真)
    
54. 返回 (str)
    
55. 
    

复制代码

源码下载:

Skylars

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

z994301349

谢谢楼主分享

qingfeng

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

糖果

感谢楼主的分享

小灰

不懂。。。

908851378

1111111111

345094

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

Moonstone

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

1605115492

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