百度POST登录易语言源码

.版本 2 .支持库 spec .程序集 bd, , , ' 本源码来自三叶资源网(www.sanye.cx) .程序集变量 cookie, 文本型 .程序集变量 token, 文本型 .程序集变量 pubkey, 文本型 .程序集变量 key, 文本型, , , ' 本源码来自三叶资源网(www.sanye.cx) .程序集变量 Gid, 文本型 .程序集变量 CodeString, 文本型 .子程序 Login, 文本型, , 0 登陆成功 .参数 User, 文本型 .参数 Pass, 文本型 .参数 Code, 文本型, 可空 .局部变量 url, 文本型 .局部变量 post, 文本型 .局部变量 Get, 文本型 .局部变量 err_no, 文本型 .局部变量 Json, 类_json Pass ＝ GetPublickey (Pass) url ＝ “https://passport.baidu.com/v2/api/?login” .判断开始 (Code ＝ “”) post ＝ “staticpage=https%3A%2F%2Fwww.baidu.com%2Fcache%2Fuser%2Fhtml%2Fv3Jump.html&charset=UTF-8&token=” ＋ token ＋ “&tpl=mn&subpro=&apiver=v3&tt=” ＋ 时间_到时间戳 () ＋ “&codestring=&safeflg=0&u=https%3A%2F%2Fwww.baidu.com%2F%3Ftn%3D58025142_oem_dg%26ch%3D12&isPhone=&detect=1&gid=” ＋ Gid ＋ “&quick_user=0&logintype=dialogLogin&logLoginType=pc_loginDialog&idc=&loginmerge=true&splogin=rate&username=” ＋ 编码_URL编码 (User, , 真) ＋ “&password=” ＋ Pass ＋ “&mem_pass=on&rsakey=” ＋ key ＋ “&crypttype=12&ppui_logintime=706202” .默认 post ＝ “staticpage=https%3A%2F%2Fwww.baidu.com%2Fcache%2Fuser%2Fhtml%2Fv3Jump.html&charset=UTF-8&token=” ＋ token ＋ “&tpl=mn&subpro=&apiver=v3&tt=” ＋ 时间_到时间戳 () ＋ “&codestring=” ＋ CodeString ＋ “&safeflg=0&u=https%3A%2F%2Fwww.baidu.com%2F&isPhone=&detect=1&gid=” ＋ Gid ＋ “&quick_user=0&logintype=dialogLogin&logLoginType=pc_loginDialog&idc=&loginmerge=true&splogin=rate&username=” ＋ 编码_URL编码 (User, , 真) ＋ “&password=” ＋ Pass ＋ “&verifycode=” ＋ 编码_URL编码 (Code, , 真) ＋ “&mem_pass=on&rsakey=” ＋ key ＋ “&crypttype=12&ppui_logintime=57377” .判断结束 Get ＝ 编码_Utf8到Ansi (网页_访问 (url, 1, post, , cookie)) err_no ＝ 文本_取出中间文本 (Get, “err_no=”, “&”) CodeString ＝ 文本_取出中间文本 (Get, “codeString=”, “&”) .如果真 (err_no ＝ “0”) 调试输出 (cookie) ' 本源码来自三叶资源网(www.sanye.cx) .如果真结束 返回 (err_no) .子程序 GetPublickey, 文本型, , 加密密码 .参数 Pass, 文本型 .局部变量 url, 文本型 .局部变量 Get, 文本型 .局部变量 Json, 类_json .局部变量 js, 类_脚本组件 url ＝ “https://passport.baidu.com/v2/getpublickey?” url ＝ url ＋ “token=” ＋ token ＋ “&tpl=netdisk&subpro=netdisk_web&apiver=v3&tt=” ＋ 时间_到时间戳 () ＋ “&gid=” ＋ Gid ＋ “&loginversion=v4” Get ＝ 编码_Utf8到Ansi (网页_访问 (url)) Json.解析 (Get) ' 本源码来自三叶资源网(www.sanye.cx) pubkey ＝ Json.取通用属性 (“pubkey”) key ＝ Json.取通用属性 (“key”) js.执行 (#PWD) 返回 (js.运行 (“GetPwd”, Pass, pubkey)) .子程序 LoginCheck, 文本型, , 判断是否需要验证码 .参数 User, 文本型 .局部变量 Js, 类_脚本组件 .局部变量 Url, 文本型 .局部变量 Get, 文本型 .局部变量 Json, 类_json .局部变量 No, 文本型 Js.执行 (#GUI) Gid ＝ Js.运行 (“guideRandom”) Url ＝ “https://passport.baidu.com/v2/api/?getapi&tpl=mn&apiver=v3&tt=” ＋ 时间_到时间戳 () ＋ “&class=login&gid=” ＋ Gid ＋ “&logintype=dialogLogin” Get ＝ 编码_Utf8到Ansi (网页_访问 (Url)) Json.解析 (Get) token ＝ Json.取通用属性 (“data.token”) Url ＝ “https://passport.baidu.com/v2/api/?logincheck&token=” ＋ token ＋ “&tpl=netdisk&subpro=netdisk_web&apiver=v3&tt=” ＋ 时间_取现行时间戳 () ＋ “&sub_source=leadsetpwd&username=” ＋ 编码_URL编码 (User, 真, 真) ＋ “&loginversion=v4&dv=tk0.061355123082562411526025192185%40vvlR70rdokqeMOKeMmx-ukrbSq__dl0CC70r-7Jxz7dEe709ZuF-A9A~pAPs4Izl9AzhS4slSDalcvnKyAI81Mw539O5fSk2d4kEe4kqyok2d4kAzos5h0PvF9AzSIzh0AsTiIzlaMb8USk2d7dPe7d9iok2y717x4y-A9A~pAPs4Izl9AzhS4slSLnsdLbvcLa5T707z7Fxd7d9e70rw409-os5h0PvF9AzSIzh0AsTiIzlzLwKy0asUDIx_C~~NI~xVcAlNhxli7FxyokA~zlgvnexo1qw707z402y7dqZ71Aw719-70Ay41qy402~712Z49__iloNp5iLp7joylxHGZfHasCDpAfHwlUoy-zMa53Da3fDG9_Als7mxxok2~7k7e70qb7mx-u0rxok2xukqe70Py7mx-u0rxok2x4kq_&traceid=&callback=bd__cbs__hbjg4s” Get ＝ 编码_Utf8到Ansi (网页_访问 (Url)) CodeString ＝ 文本_取出中间文本 (Get, “codeString” ＋ #引号 ＋ “ : ” ＋ #引号, #引号) No ＝ 文本_取出中间文本 (Get, “no” ＋ #引号 ＋ “: ” ＋ #引号, #引号) 调试输出 (Get) ' 本源码来自三叶资源网(www.sanye.cx) .如果真 (CodeString ≠ “”) ' Codestring 不为空 需要验证码 返回 257 标识 返回 (“257”) .如果真结束 返回 (No) .子程序 CheckVcode, 文本型, , 验证码判断是否正确 .参数 Code, 文本型 .参数 No, 文本型, 参考 可空 .参数 Msg, 文本型, 参考 可空 .局部变量 Url, 文本型 .局部变量 Get, 文本型 .局部变量 Json, 类_json Url ＝ “https://passport.baidu.com/v2/?checkvcode&token=” ＋ token ＋ “&tpl=netdisk&subpro=netdisk_web&apiver=v3&tt=” ＋ 时间_取现行时间戳 () ＋ “&verifycode=” ＋ 编码_URL编码 (Code, 真, 真) ＋ “&loginversion=v4&codestring=” ＋ CodeString ＋ “&traceid=&callback=bd__cbs__602twi” Get ＝ 编码_Utf8到Ansi (网页_访问 (Url)) No ＝ 文本_取出中间文本 (Get, “no” ＋ #引号 ＋ “: ” ＋ #引号, #引号) Msg ＝ 文本_取出中间文本 (Get, “msg” ＋ #引号 ＋ “: ” ＋ #引号, #引号) 调试输出 (No, Msg) ' No = 0 验证码正确 返回 (Get) ' 本源码来自三叶资源网(www.sanye.cx) .子程序 GetImg, 字节集, , 获取验证码 返回 (网页_访问 (“https://passport.baidu.com/cgi-bin/genimage?” ＋ CodeString))