吾爱分享资源网

 找回密码
 立即注册
快捷导航
搜索
查看: 51|回复: 0

QQ好友文件分析易语言源码下载

[复制链接]

1604

主题

1725

帖子

1万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
17878
金币
8067
发表于 7 天前 | 显示全部楼层 |阅读模式
请点击此处下载

查看状态:需购买或无权限

您的用户组是:游客

提取密码:5ifx88 
下载次数:0  文件大小:0 Bytes 
下载权限: 不限 以上或 VIP会员   [购买VIP]   [充值金币]  [免费赚金币]



部分代码如下
  
窗口程序集名保 留  保 留备 注
窗口程序集1   
变量名类 型数组备 注
QQ路径文本型  

子程序名返回值类型公开备 注
__启动窗口_创建完毕  
如果真 (注册项是否存在 (4, “SOFTWARE\TENCENT\PLATFORM_TYPE_LIST\1\TypeName”))
信息框 (“未检测到QQ历史信息,请自行选择安装目录”, 0, )
结束 ()
QQ路径 = 取文本注册项 (4, “Software\Tencent\QQ\install”, “未检测到QQ”)
子程序名返回值类型公开备 注
转换为号码长整数型 
参数名类 型参考可空数组备 注
号码字节集   
变量名类 型静态数组备 注
i整数型  
返回值文本型  
文本文本型  
计次循环首 (4, i)
文本 = 取文本右边 (“00”取十六进制文本 (号码 [4 - i + 1]), 2)
返回值 = 返回值 + 文本
计次循环尾 ()
返回 (十六进制到十进制 (返回值))
' 易语言学习资源、源码下载站:[url]www.5ifx88.com[/url]
子程序名返回值类型公开备 注
十六进制到十进制长整数型 
参数名类 型参考可空数组备 注
十六进制文本文本型   
变量名类 型静态数组备 注
文本文本型  
最终值长整数型  
i整数型  
临时数值文本型  
文本 = 到小写 (十六进制文本)
变量循环首 (1, 取文本长度 (文本), 1, i)
临时数值 = 取文本中间 (文本, i, 1)
如果 (取代码 (临时数值, )取代码 (“a”, ) 取代码 (临时数值, )取代码 (“f”, ))
最终值 = 最终值 (取代码 (临时数值, )取代码 (“a”, ) + 10) × 求次方 (16, 取文本长度 (文本) - i)
最终值 = 最终值 + 到数值 (临时数值) × 求次方 (16, 取文本长度 (文本) - i)
' 易语言学习资源、源码下载站:[url]www.5ifx88.com[/url]
变量循环尾 ()
返回 (最终值)
子程序名返回值类型公开备 注
_按钮1_被单击  
变量名类 型静态数组备 注
返回值整数型  
号码长整数型 0
i整数型  
返回值 = 取登录号码 (QQ路径 + “\LoginUinList.dat”, 号码)
计次循环首 (返回值, i)
列表框1.加入项目 (到文本 (号码 [i]), )
计次循环尾 ()
子程序名返回值类型公开备 注
取登录号码整数型 
参数名类 型参考可空数组备 注
文件路径文本型   
号码数组长整数型 
变量名类 型静态数组备 注
字节集字节集 0
计次整数型  
号码字节集  
字节集 = 分割字节集 (读入文件 (文件路径), { 81, 68 }, )
计次循环首 (取数组成员数 (字节集), 计次)
如果真 (取字节集长度 (字节集 [计次]) > 51)
号码 = 取字节集中间 (字节集 [计次], 50, 4)
加入成员 (号码数组, 转换为号码 (号码))
' 易语言学习资源、源码下载站:[url]www.5ifx88.com[/url]

计次循环尾 ()
返回 (取数组成员数 (号码数组))
子程序名返回值类型公开备 注
_按钮2_被单击  
变量名类 型静态数组备 注
数量整数型  
号码好友信息 0
计次整数型  
索引整数型  
数量 = 分析好友名单 (QQ路径 + “\77458515\User.db”, 号码)
计次循环首 (数量, 计次)
索引 = 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (号码 [计次].号码))
超级列表框1.置标题 (索引, 1, 到文本 (号码 [计次].昵称))
' 易语言学习资源、源码下载站:[url]www.5ifx88.com[/url]
计次循环尾 ()
标签1.标题 = “共 ”到文本 (超级列表框1.取硐钍 ()) + “ 个好友”
子程序名返回值类型公开备 注
分析好友名单整数型 
参数名类 型参考可空数组备 注
文件路径文本型   
好友信息好友信息 
变量名类 型静态数组备 注
内容字节集 0
计次整数型  
长度整数型  
号码长整数型  
昵称文本型  
内容 = 分割字节集 (读入文件 (文件路径), { 169, 181, 178, 4 }, )
计次循环首 (取数组成员数 (内容), 计次)
如果真 (寻找字节集 (内容 [计次], { 179, 183, 187, 189 }, ) ≠ -1)
重定义数组 (好友信息, 真, 取数组成员数 (好友信息) + 1)
号码 = 转换为号码 (取字节集中间 (内容 [计次], 4, 4))  ' 4-7位为号码
长度 = 取字节集数据 (取字节集中间 (内容 [计次], 15, 1), #整数型, )  ' 昵称数据段长度
昵称 = 转换为昵称 (取字节集中间 (内容 [计次], 19, 长度))  ' 昵称数据
' 易语言学习资源、源码下载站:[url]www.5ifx88.com[/url]
好友信息 [取数组成员数 (好友信息)].号码 = 号码
好友信息 [取数组成员数 (好友信息)].昵称 = 昵称

计次循环尾 ()
返回 (取数组成员数 (好友信息))
子程序名返回值类型公开备 注
_列表框1_列表项被选择  
变量名类 型静态数组备 注
数量整数型  
号码好友信息 0
计次整数型  
路径文本型  
索引整数型  
路径 = QQ路径 + “\” + 列表框1.取项目文本 (列表框1.现行选中项)“\User.db”
超级列表框1.全部删除 ()
如果 (文件是否存在 (路径))
数量 = 分析好友名单 (路径, 号码)
计次循环首 (数量, 计次)
索引 = 超级列表框1.插入表项 (, , , , , )
超级列表框1.置标题 (索引, 0, 到文本 (号码 [计次].号码))
超级列表框1.置标题 (索引, 1, 到文本 (号码 [计次].昵称))
处理事件 ()
计次循环尾 ()
标签1.标题 = “共 ”到文本 (超级列表框1.取硐钍 ()) + “ 个好友”
' 易语言学习资源、源码下载站:[url]www.5ifx88.com[/url]
标签1.标题 = “无此号码数据”

子程序名返回值类型公开备 注
转换为昵称文本型 
参数名类 型参考可空数组备 注
数据字节集   
变量名类 型静态数组备 注
计次整数型  
长度整数型  
分段整数型  
分段2整数型  
对比1字节型  
对比2字节型  
位置1整数型 
文本文本型  
长度 = 取字节集长度 (数据)
位置1 = 1
计次循环首 (长度, 计次)
分段 = 取字节集数据 (取字节集中间 (数据, 位置1, 1), #整数型, )
对比1 = 位异或 (分段, 255 - 长度)
判断 (对比1 < 160)
文本 = 文本 + 字符 (对比1)
位置1 = 位置1 + 1

判断 (对比1 > 160)
对比1 = 位异或 (取字节集数据 (取字节集中间 (数据, 位置1, 1), #整数型, ), 255 - 长度)
对比2 = 位异或 (取字节集数据 (取字节集中间 (数据, 位置1 + 1, 1), #整数型, ), 255 - 长度)
文本 = 文本 + 取字节集数据 (到字节集 (对比1)到字节集 (对比2), #文本型, )
位置1 = 位置1 + 2




如果真 (位置1 > 取字节集长度 (数据))
跳出循环 ()
处理事件 ()
' 易语言学习资源、源码下载站:[url]www.5ifx88.com[/url]
计次循环尾 ()
返回 (文本)
子程序名返回值类型公开备 注
取数字目录  



i支持库列表   支持库注释   
iext扩展界面支持库一





上一篇:易语言制作QQ斗地主记牌器源码下载
下一篇:易语言制作qq军旗复盘文件读取源码下载
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

GMT+8, 2020-11-26 18:21 , Processed in 0.671779 second(s), 44 queries .
Powered by Discuz! X3.2 © 2001-2017 Comsenz Inc.
快速回复 返回顶部 返回列表