|
楼主 |
发表于 2014-4-11 21:26:23
|
显示全部楼层
安徽省安庆市
[e]
.版本 2
.支持库 spec
.子程序 登录QQ, 文本型, 公开
.参数 QQ号, 文本型
.参数 QQ密码, 文本型
.参数 验证码, 文本型, 可空, 验证码可不填,如果登录时返回"要验证码",才需要填
.局部变量 Data, 文本型
.局部变量 Url, 文本型
Url = “http://ptlogin2.qq.com/login?u=” + 删首尾空 (编辑框1.内容) + “&verifycode=” + 删首尾空 (编辑框3.内容) + “&p=” + P + “&pt_rsa=0&ptredirect=1&u1=http%3A%2F%2Fid.qq.com%2Findex.html&h=1&t=1&g=1&from_ui=1&ptlang=2052&action=” + 到文本 (取随机数 (1, 9)) + “-” + 文本_取随机数字 (2) + “-” + 时间_取现行时间戳 () + “&js_ver=10074&js_type=1&login_sig=” + login_sig + “&aid=1006102&daid=1&”
' 调试输出 (Url)
Data = 编码_URL解码 (到文本 (网页_访问 (Url, , , , cookies)), 真)
提示信息 (cookies)
G_tk = 文本_取出中间文本 (cookies, “skey=”, “; ETK=”, , 真)
G_tk = 计算G_tk (文本_取出中间文本 (cookies, “skey=”, “; ETK=”, , 真))
调试输出 (G_tk)
Data = 编码_URL解码 (到文本 (网页_访问 (“http://id.qq.com/cgi-bin/friends_home”, 1, “ldw=” + G_tk + “&ver=20100914&from=mars” + 编辑框1.内容, , , )))
调试输出 (Data)
返回 (Data)
.子程序 计算G_tk, 文本型
.参数 skey, 文本型
.局部变量 hash, 整数型
.局部变量 计次, 整数型
hash = 5381
.变量循环首 (1, 取文本长度 (skey), 1, 计次)
hash = hash + hash × 求次方 (2, 5) + 取字节集数据 (编码_Ansi到Unicode (取文本中间 (skey, 计次, 1)), 3, )
.变量循环尾 ()
返回 (到文本 (位与 (hash, 进制_十六到十 (“7fffffff”))))
[/e] |
|