最新公告
  • 欢迎您光临51分享吧,本站秉承服务宗旨 履行“站长”责任,销售只是起点 服务永无止境!立即加入我们
  • 哔哩哔哩登录源码

    .版本 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”, “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

    文件下载

    解压密码:
    下载地址

    本站大部分下载资源收集于网络,只做学习和交流使用,版权归原作者所有,若为付费资源,请在下载后24小时之内自觉删除,若作商业用途,请到原网站购买,由于未及时购买和付费发生的侵权行为,与本站无关。本站发布的内容若侵犯到您的权益,请联系本站删除,我们将及时处理!
    51分享吧 » 哔哩哔哩登录源码
    • 195会员总数(位)
    • 2014资源总数(个)
    • 0本周发布(个)
    • 0 今日发布(个)
    • 380稳定运行(天)

    51分享吧 51DZSC.COM

    开通VIP 超级项目
    升级SVIP尊享更多特权立即升级