飞卢小说网登陆源码

.版本 2

.程序集 类_飞卢
.程序集变量 http, WinHttpW
.程序集变量 ts, 文本型

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

http.Auto (真)
http.AutoCookies (1)

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



.子程序 方法_init

ts ＝ 文本_取出中间文本 (方法_get (“https://u.faloo.com/regist/Login.aspx”), “var time_stamp =”, “;//”, , )

.子程序 方法_getcookie, , 公开

方法_init ()
方法_get (“https://flux.faloo.com/pvdata.aspx?faloo_ch_id=19&faloo_ref=”)

.子程序 方法_get, 文本型
.参数 参数_网址, 文本型

http.Open (“get”, 参数_网址)
http.Send (, , )
返回 (http.GetResponseText ())

.子程序 方法_获得验证码, 字节集, 公开
.参数 user, 文本型

http.Open (“get”, “https://u.faloo.com/Common/ValidateImage.aspx?vt=login_code&lc=true&u=” ＋ user ＋ “&height=36&width=106&m=” ＋ GetTime (, ))
http.Send (, , )
返回 (http.GetResponseBody ())

.子程序 login_md5, 文本型, , WT-JS_DEBUG
.参数 pwd, 文本型, , 参数1
.参数 datetime_num, 文本型, , 参数2
.局部变量 js, 对象
.局部变量 eval, 变体型
.局部变量 ret, 文本型

' CoInitialize (0)‘线程中使用 加载COM
js.创建 (“ScriptControl”, )
js.写属性 (“Language”, “JScript”)
' 如果调试结果与工具不符，有可能是编码问题，尝试加入： 【 编码_Utf8到Ansi (到字节集 (script)) 】
js.逻辑方法 (“AddCode”, #md5)
eval ＝ js.通用方法 (“Eval”, “login_md5(” ＋ #引号 ＋ pwd ＋ #引号 ＋ “, ” ＋ #引号 ＋ datetime_num ＋ #引号 ＋ “)”)
ret ＝ eval.取文本 ()
js.清除 ()
' CoUninitialize () ‘线程中使用 卸载COM
返回 (ret)

.子程序 方法_login, 文本型, 公开
.参数 user, 文本型
.参数 pwd, 文本型
.参数 vcode, 文本型
.局部变量 _pwd, 文本型
.局部变量 url, 文本型
.局部变量 登录结果, 文本型

_pwd ＝ login_md5 (pwd, ts)
url ＝ “https://u.faloo.com/regist/Login.aspx?txtUserID=” ＋ user ＋ “&txtPwd=” ＋ _pwd ＋ “&txtPwd4temp=&verifyCode=” ＋ vcode ＋ “&ts=” ＋ ts ＋ “&t=2&dK537666=0920&backurl=http%3A%2F%2Fwww.faloo.com%2F”
登录结果 ＝ 文本_取出中间文本 (方法_get (url), “>alert('”, “');</script>”, , )
返回 (登录结果)

@倾慕风月