Question

跪求QQ批量登陆器的易语言源码

谁有QQ批量登陆器的易语言源码，网络上的QQ批量登陆器我不放心。
好的有加分

Answer 1

.版本 2

.程序集 模块集

.子程序 BASE64编码, 文本型
.参数 待编码数据, 字节集
.局部变量 数据长度
.局部变量 余数
.局部变量 整数容器
.局部变量 当前数据, 字节集
.局部变量 字符1, 文本型
.局部变量 字符2, 文本型
.局部变量 字符3, 文本型
.局部变量 字符4, 文本型
.局部变量 输出数据, 文本型

数据长度 ＝ 取字节集长度 (待编码数据)
.如果真 (数据长度 ＜ 1)
返回 (“”)
.如果真结束
余数 ＝ 数据长度 ％ 3
.如果真 (余数 ＞ 0)
待编码数据 ＝ 待编码数据 ＋ 取空白字节集 (3 － 余数)
.如果真结束
.变量循环首 (1, 取字节集长度 (待编码数据), 3, 整数容器)
当前数据 ＝ 取字节集中间 (待编码数据, 整数容器, 3)
字符1 ＝ 取文本中间 (#BASE64集合, 位与 (当前数据 [1], 252) ＼ 4 ＋ 1, 1)
字符2 ＝ 取文本中间 (#BASE64集合, 位与 (位或 (位与 (当前数据 [2], 240) ＼ 16, 位与 (当前数据 [1], 3) × 16), 255) ＋ 1, 1)
字符3 ＝ 取文本中间 (#BASE64集合, 位与 (位或 (位与 (当前数据 [3], 192) ＼ 64, 位与 (当前数据 [2], 15) × 4), 255) ＋ 1, 1)
字符4 ＝ 取文本中间 (#BASE64集合, 位与 (当前数据 [3], 63) ＋ 1, 1)
输出数据 ＝ 输出数据 ＋ 字符1 ＋ 字符2 ＋ 字符3 ＋ 字符4
.变量循环尾 ()
数据长度 ＝ 取文本长度 (输出数据)
.如果真 (余数 ＞ 0)
.如果 (余数 ＝ 1)
输出数据 ＝ 文本替换 (输出数据, 数据长度 － 1, 2, “==”)
.否则
输出数据 ＝ 文本替换 (输出数据, 数据长度, 1, “=”)
.如果结束

.如果真结束
返回 (输出数据)

.子程序 十六进制到十进制, 文本型
.参数 十六进制文本, 文本型
.局部变量 中间文本, 文本型
.局部变量 结果, 长整数型
.局部变量 容器1, 整数型

.变量循环首 (1, 取文本长度 (十六进制文本), 1, 容器1)
中间文本 ＝ 取文本中间 (十六进制文本, 容器1, 1)
结果 ＝ (寻找文本 (“0123456789ABCDEF”, 中间文本, , 真) － 1) × 求次方 (16, 取文本长度 (十六进制文本) － 容器1) ＋ 结果
.变量循环尾 ()
返回 (到文本 (结果))

.子程序 取数值目录到组合框
.参数 目录名, 文本型
.参数 组合框, 组合框
.局部变量 ee, 文本型

ee ＝ 寻找文件 (目录名 ＋ “*.*”, #子目录)
.判断循环首 (ee ≠ “”)
.如果真 (取文本左边 (ee, 1) ≠ “.”)
.如果 (到文本 (到数值 (ee)) ＝ ee)
.如果真 (ee ≠ “0”)
组合框.加入项目 (ee, )

.如果真结束
输出调试文本 (ee)
.否则

.如果结束

.如果真结束
ee ＝ 寻找文件 (, #子目录)
.判断循环尾 ()

Answer 2

我用的就是网上的，因为自己现在还不会，正在努力学习，到时候自己写
一般应该没问题，杀下毒