饿了么微博授权源码

饿了么微博授权源码

@奋斗的坦然

.版本 2
.支持库 spec

.程序集 ele
.程序集变量 ck, 文本型
.程序集变量 servertime, 文本型
.程序集变量 pcid, 文本型
.程序集变量 nonce, 文本型
.程序集变量 pubkey, 文本型, , , ' 本源码来自三叶资源网(www.sanye.cx)
.程序集变量 rsakv, 文本型
.程序集变量 ticket, 文本型
.程序集变量 uid, 文本型

.子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用

' 本源码来自三叶资源网(www.sanye.cx)

.子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用



.子程序 login, 文本型, 公开
.参数 phone, 文本型
.参数 password, 文本型
.参数 picCode, 文本型
.局部变量 back, 文本型
.局部变量 sp, 文本型
.局部变量 xyt, 文本型
.局部变量 url, 文本型
.局部变量 access_token, 文本型

sp ＝ Js_enPwd (password)
调试输出 (ck)
back ＝ 网页_访问_对象u_usc2 (“https://login.sina.com.cn/sso/login.php?client=ssologin.js(v1.4.18)&_=” ＋ 时间_取现行时间戳 () ＋ “&openapilogin=qrcode”, 1, “entry=openapi&gateway=1&from=&savestate=0&useticket=1&pagerefer=&ct=1800&s=1&vsnf=1&vsnval=&door=” ＋ picCode ＋ “&appkey=XbPAC&pcid=” ＋ pcid ＋ “&su=” ＋ 编码_BASE64编码 (到字节集 (phone)) ＋ “&service=miniblog&servertime=” ＋ servertime ＋ “&nonce=” ＋ nonce ＋ “&pwencode=rsa2&rsakv=” ＋ rsakv ＋ “&sp=” ＋ sp ＋ “&sr=1440*900&encoding=UTF-8&cdult=2&domain=weibo.com&prelt=83&returntype=TEXT”, ck, ck, , , , , , , , , , , , )
调试输出 (back)
ticket ＝ Json_读属性 (back, “ticket”)
uid ＝ Json_读属性 (back, “uid”)
back ＝ 网页_访问_对象u (“https://open.weibo.cn/oauth2/authorize”, 1, “client_id=3522052502&redirect_uri=https%3A%2F%2Fapi.weibo.com%2Foauth2%2Fdefault.html&display=sdk&action=login&offcialMobile=true&rf=1&version=null&sso_type=1&scope=follow_app_official_microblog&quick_auth=true&wm=3349&ticket=” ＋ ticket, ck, , , xyt, , 真, , , , , , , , )
url ＝ 文本_取出中间文本 (xyt, “Location: ”, #换行符, , )
access_token ＝ 文本_取出中间文本 (url, “access_token=”, “&”, , )
返回 (access_token)

.子程序 Json_读属性, 文本型
.参数 Json文本, 文本型
.参数 key, 文本型
.局部变量 Json, 类_JsonEx
.局部变量 属性值, 文本型

.如果真 (Json.解析 (Json文本) ＝ 假)
    输出调试文本 (“解析失败，请确认Json格式是否正确！”)
    返回 (Json文本)
.如果真结束
属性值 ＝ Json.取通用属性 (key, , , )
Json.清除 ()
返回 (属性值)

.子程序 Js_enPwd, 文本型
.参数 password, 文本型
.局部变量 Js, 类_脚本组件
.局部变量 return, 文本型

线程_初始化COM库 ()
return ＝ Js.执行JS函数Ex (#常量_JS, “enPwd”, pubkey, servertime, nonce, password, , , , , , , , , , , )  ' 请在常量_Js中放入调试成功的JS代码段
线程_取消COM库 ()
返回 (return)

.子程序 getPic, 字节集, 公开
.参数 phone, 文本型, , ' 本源码来自三叶资源网(www.sanye.cx)
.局部变量 back, 文本型

back ＝ 网页_访问_对象u (“https://login.sina.com.cn/sso/prelogin.php?entry=openapi&callback=sinaSSOController.preloginCallBack&su=” ＋ 编码_BASE64编码 (到字节集 (phone)) ＋ “&rsakt=mod&checkpin=1&client=ssologin.js(v1.4.18)&_=” ＋ 时间_取现行时间戳 (), , , , , , , , , , , , , , , , )
servertime ＝ Json_读属性 (back, “servertime”)
nonce ＝ Json_读属性 (back, “nonce”)
pubkey ＝ Json_读属性 (back, “pubkey”)
pcid ＝ Json_读属性 (back, “pcid”)
rsakv ＝ Json_读属性 (back, “rsakv”)
返回 (网页_访问_对象 (“https://login.sina.com.cn/cgi/pin.php?r=87960792&s=0&p=” ＋ pcid, , , ck, ck, , , , , , , , , , , , ))
' 本源码来自三叶资源网(www.sanye.cx)

.子程序 bingdingW, 文本型, 公开
.参数 access_token, 文本型
.参数 eleCK, 文本型
.局部变量 back, 文本型
.局部变量 userId, 文本型

userId ＝ 文本_取出中间文本 (eleCK, “USERID=”, “; ”, , )
back ＝ 网页_访问_对象u (“https://restapi.ele.me/eus/v1/users/” ＋ userId ＋ “/bind_sns”, 1, “sns_type=1&sns_uid=” ＋ uid ＋ “&access_token=” ＋ access_token, eleCK, , , , , , , , , , , , , )
调试输出 (back)
返回 (back)

.子程序 unbingdingW, 文本型, 公开, 解绑
.参数 eleck, 文本型
.局部变量 back, 文本型, , , ' 本源码来自三叶资源网(www.sanye.cx)
.局部变量 userId, 文本型

userId ＝ 文本_取出中间文本 (eleck, “USERID=”, “; ”, , )
back ＝ 网页_访问_对象u (“https://restapi.ele.me/eus/v1/users/” ＋ userId ＋ “/sns?sns_type=1”, 4, , eleck, , , , , , , , , , , , , )
返回 (back)