百度POST登录易语言源码

资源介绍：

百度POST登录易语言源码

资源作者：

tayuyu

资源界面：

.版本 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))

资源下载：