天涯app协议登录源码

天涯app协议登录源码，源码调用了精易模块。

@火币OT

.版本 2
.支持库 e2ee
.支持库 spec

.程序集 窗口程序集_启动窗口

.子程序 DESede_CryptoJS, 文本型
.参数 data, 文本型
.参数 key, 文本型
.参数 iv, 文本型, 可空
.参数 mode, 整数型, 可空
.参数 padding, 整数型, 可空
.参数 enc, 逻辑型, , 真：加密
.参数 hexkey, 逻辑型, 可空
.参数 hexiv, 逻辑型, 可空
.参数 hextext, 逻辑型, 可空
.参数 hexresult, 逻辑型, 可空

.如果真 (mode ＜ 0 或 mode ＞ 5)
    mode ＝ #Mode_CBC
.如果真结束
.如果真 (padding ＜ 0 或 padding ＞ 5)
    padding ＝ #Pkcs7Padding
.如果真结束
.如果 (enc)
    返回 (功能_JS (#DESede, “encrypt_3DES('” ＋ data ＋ “','” ＋ key ＋ “','” ＋ iv ＋ “','” ＋ 到文本 (mode) ＋ “','” ＋ 到文本 (padding) ＋ “','” ＋ 到文本 (到整数 (hexkey)) ＋ “','” ＋ 到文本 (到整数 (hexiv)) ＋ “','” ＋ 到文本 (到整数 (hextext)) ＋ “','” ＋ 到文本 (到整数 (hexresult)) ＋ “')”))
.否则
    返回 (功能_JS (#DESede, “decrypt_3DES('” ＋ data ＋ “','” ＋ key ＋ “','” ＋ iv ＋ “','” ＋ 到文本 (mode) ＋ “','” ＋ 到文本 (padding) ＋ “','” ＋ 到文本 (到整数 (hexkey)) ＋ “','” ＋ 到文本 (到整数 (hexiv)) ＋ “','” ＋ 到文本 (到整数 (hextext)) ＋ “','” ＋ 到文本 (到整数 (hexresult)) ＋ “')”))
.如果结束


.子程序 功能_JS, 文本型
.参数 参_JS代码, 文本型
.参数 表达式, 文本型
.局部变量 对象, 对象
.局部变量 result, 文本型

对象.创建 (“scriptcontrol”, )
对象.写属性 (“Language”, “javascript”)
对象.数值方法 (“AddCode”, 参_JS代码)
result ＝ 对象.文本方法 (“Eval”, 表达式)
对象.清除 ()
返回 (result)

.子程序 login
.参数 user, 文本型, 可空
.参数 pass, 文本型, 可空
.局部变量 data, 文本型
.局部变量 re, 文本型

user ＝ 编码_URL编码 (user, 真, 真)
pass ＝ DESede_CryptoJS (pass, “tianyaiphone and android”, , 1, 6, 真, , , , )
pass ＝ HEX编码 (编码_BASE64解码 (pass, ), 真)
调试输出 (pass)  ' 友情提示，单一设备登录次数过多会导致封号，uuid 和headCstr是对应的
data ＝ “userName=” ＋ user ＋ “&dPassword=” ＋ pass
re ＝ 编码_Utf8到Ansi (网页_访问_对象 (“https://passport.tianya.cn/ssl/login.do”, 1, data, , , #常量1, , , , , , , , , , , , , ))
调试输出 (re)

.子程序 _按钮2_被单击

login (编辑框1.内容, 编辑框2.内容)