易语言如何实现HOSTS式反钓鱼拦截

.版本 2 .支持库 shell .程序集窗口程序集1 .程序集变量 IP, 文本型 .程序集变量 host路径, 文本型 .程序集变量原hosts是否存在, 逻辑型 .程序集变量客户, 文本型 .程序集变量是否为账号, 逻辑型 .程序集变量是否为密码, 逻辑型 .程序集变量账号, 文本型 .程序集变量密码, 文本型 .子程序列表框_加入提示 .参数提示, 文本型列表框_状态.加入项目 (提示, ) 列表框_状态.现行选中项＝列表框_状态.取项目数 () － 1 处理事件 () .子程序 _按钮_监听_被单击 IP ＝ “” 原hosts是否存在＝真账号＝ “” 密码＝ “” 是否为账号＝假是否为密码＝假连续赋值 (真, 编辑框_服务器端口.禁止, 编辑框_服务器地址.禁止, 单选框1.禁止, 单选框2.禁止) 列表框_状态.清空 () 处理事件 () 列表框_加入提示 (“正在访问网络获取指定邮箱服务器的IP地址...”) IP ＝转换为IP地址 (编辑框_服务器地址.内容) .如果真 (IP ＝ “”) 列表框_加入提示 (“查询IP失败！请检查邮箱服务器地址拼写。”) 返回 () .如果真结束列表框_加入提示 (“查询结果：地址[” ＋编辑框_服务器地址.内容＋ “]对应IP地址[” ＋ IP ＋ “]”) host路径＝取特定目录 (#Windows系统目录) ＋ “Drivers\etc\hosts” ' 备份原hosts文件列表框_加入提示 (“正在备份原hosts文件...”) .如果真 (复制文件 (host路径, “.\hosts.bak”) ＝假) 原hosts是否存在＝假 .如果真结束列表框_加入提示 (“正在修改hosts文件...”) .如果真 (写到文件 (host路径, 到字节集 (“127.0.0.1 ” ＋编辑框_服务器地址.内容＋ #换行符)) ＝假) 列表框_加入提示 (“hosts文件修改失败！请使用管理员身份运行，并且不要拦截。”) 返回 () .如果真结束服务器1.端口＝到整数 (编辑框_服务器端口.内容) 列表框_加入提示 (“已开始监控...请务必关闭监控后再退出本工具，以便还原hosts”) 按钮_监听.禁止＝真按钮_终止.禁止＝假 .子程序 __启动窗口_可否被关闭, 逻辑型 .如果真 (按钮_监听.禁止＝真) 信息框 (“请先关闭监控在退出软件！否则无法还原备份的hosts文件！”, 0, ) 返回 (假) .如果真结束返回 (真) .子程序 _按钮_终止_被单击服务器1.端口＝ 0 列表框_状态.清空 () 列表框_状态.加入项目 (“正在还原被修改的hosts文件...”, ) .如果 (原hosts是否存在＝假) .如果真 (删除文件 (host路径) ＝假) 列表框_状态.加入项目 (“还原hosts失败！请不要用杀毒软件拦截。”, ) 返回 () .如果真结束 .否则 .如果真 (写到文件 (host路径, 读入文件 (“.\hosts”)) ＝假) 列表框_状态.加入项目 (“还原hosts失败！请不要用杀毒软件拦截。”, ) 返回 () .如果真结束 .如果结束列表框_加入提示 (“监控已关闭！”) 按钮_终止.禁止＝真按钮_监听.禁止＝假连续赋值 (假, 编辑框_服务器端口.禁止, 编辑框_服务器地址.禁止, 单选框1.禁止, 单选框2.禁止) .子程序 __启动窗口_创建完毕服务器1.端口＝ 0 .子程序 _服务器1_客户进入客户＝服务器1.取回客户 () 列表框_加入提示 (“客户进入：” ＋客户) .如果真 (单选框2.选中＝真) 服务器1.发送数据 (客户, “220 smtp.qq.com Esmtp QQ Mail Server” ＋ #换行符, ) 返回 () .如果真结束客户1.连接 (IP, 到整数 (编辑框_服务器端口.内容)) .子程序 _服务器1_客户离开客户＝服务器1.取回客户 () 列表框_加入提示 (“客户离开：” ＋客户) 客户1.断开连接 () _按钮_重置_被单击 () .子程序 _服务器1_数据到达 .局部变量数据, 字节集 .局部变量不输出列表, 逻辑型数据＝服务器1.取回数据 () .如果真 (单选框2.选中＝真) ' 如果是这样则当本软件为虚拟SMTP服务器，返回数据给钓鱼软件骗取密码列表框_加入提示 (“发送数据：” ＋到文本 (数据)) .如果真 (寻找字节集 (数据, 到字节集 (“HELO”), ) ≠ -1 或寻找字节集 (数据, 到字节集 (“EHLO”), ) ≠ -1) 服务器1.发送数据 (客户, “250-smtp.qq.com” ＋ #换行符＋ “250-PIPELINING” ＋ #换行符＋ “250-SIZE 52428800” ＋ #换行符＋ “250-AUTH LOGIN PLAIN” ＋ #换行符＋ “250-AUTH=LOGIN” ＋ #换行符＋ “250-MAILCOMPRESS” ＋ #换行符＋ “250 8BITMIME” ＋ #换行符, ) 列表框_加入提示 (“返回数据：250-smtp.qq.com250-PIPELINING250-SIZE 5242880”) 返回 () .如果真结束 .如果真 (数据＝到字节集 (“AUTH LOGIN” ＋ #换行符)) 服务器1.发送数据 (客户, “334 VXNlcm5hbWU6” ＋ #换行符, ) 列表框_加入提示 (“返回数据：334 VXNlcm5hbWU6”) 是否为账号＝真返回 () .如果真结束 .如果真 (是否为账号＝真) 服务器1.发送数据 (客户, “334 UGFzc3dvcmQ6” ＋ #换行符, ) 列表框_加入提示 (“返回数据：334 UGFzc3dvcmQ6”) 账号＝到文本 (BASE64解码 (到文本 (数据))) 列表框_加入提示 (“拦截到账号：” ＋账号) 是否为账号＝假是否为密码＝真返回 () .如果真结束 .如果真 (是否为密码＝真) 服务器1.发送数据 (客户, “235 Authentication successful” ＋ #换行符, ) 列表框_加入提示 (“返回数据：235 Authentication successful”) 密码＝到文本 (BASE64解码 (到文本 (数据))) 列表框_加入提示 (“拦截到密码：” ＋密码) 是否为密码＝假返回 () .如果真结束 .如果真 (数据＝到字节集 (“QUIT” ＋ #换行符)) 服务器1.断开客户 (客户) 返回 () .如果真结束 .如果真结束 .如果真 (是否为密码＝真) ' 说明这次拦截的数据是邮箱密码密码＝到文本 (BASE64解码 (到文本 (数据))) 列表框_加入提示 (“拦截到密码：” ＋密码) 是否为密码＝假不输出列表＝真 .如果真结束 .如果真 (是否为账号＝真) 账号＝到文本 (BASE64解码 (到文本 (数据))) 列表框_加入提示 (“拦截到账号：” ＋账号) 是否为账号＝假是否为密码＝真不输出列表＝真 .如果真结束 .如果真 (不输出列表＝假) 列表框_加入提示 (“发送数据：” ＋到文本 (数据)) .如果真结束 .如果真 (数据＝到字节集 (“AUTH LOGIN” ＋ #换行符)) ' 这意味着拦截到AUTH LOGIN 是否为账号＝真 .如果真结束客户1.发送数据 (数据) .子程序 BASE64解码, 字节集 .参数编码文本, 文本型, 参考 .局部变量文本长度 .局部变量整倍数 .局部变量三字节组, 字节型, , "3" .局部变量四字节组, 字节型, , "4" .局部变量编码值 .局部变量 X .局部变量 n .局部变量二进制数据, 字节集 .局部变量指针 .局部变量字节数组, 字节型, , "0" 编码文本＝删全部空 (编码文本) 编码文本＝子文本替换 (编码文本, #换行符, , , , 真) 文本长度＝取文本长度 (编码文本) 整倍数＝文本长度＼ 4 .如果真 (文本长度％ 4 ≠ 0) 整倍数＝整倍数＋ 1 .如果真结束重定义数组 (字节数组, 假, 整倍数 × 3) ' 开辟缓冲区大小指针＝ 1 .计次循环首 (整倍数, X) .计次循环首 (4, n) 四字节组 [n] ＝取代码 (编码文本, (X － 1) × 4 ＋ n) 编码值＝寻找文本 (“ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/”, 字符 (四字节组 [n]), , 假) .如果真 (编码值＝ -1) 跳出循环 () .如果真结束四字节组 [n] ＝编码值－ 1 .计次循环尾 () 字节数组 [指针] ＝位或 (四字节组 [1] × 4, 四字节组 [2] ÷ 16) 字节数组 [指针＋ 1] ＝位或 (四字节组 [2] × 16, 四字节组 [3] ÷ 4) 字节数组 [指针＋ 2] ＝位或 (四字节组 [3] × 64, 四字节组 [4]) 指针＝指针＋ 3 .计次循环尾 () 二进制数据＝到字节集 (字节数组) .如果真 (n ＜ 5) ' 最后一组4字符是提前退出的,截取字节集 n ＝ 5 － n 二进制数据＝取字节集左边 (二进制数据, 取字节集长度 (二进制数据) － n) .如果真结束返回 (二进制数据) .子程序 _客户1_连接断开服务器1.断开客户 (客户) 列表框_加入提示 (“客户被强制离开。”) .子程序 _客户1_数据到达 .局部变量数据, 字节集数据＝客户1.取回数据 () 服务器1.发送数据 (客户, 数据, ) 列表框_加入提示 (“返回数据：” ＋到文本 (数据)) .子程序 _按钮_结果_被单击 .局部变量输出文本, 文本型输出文本＝ “账号:” .如果 (账号＝ “”) 输出文本＝输出文本＋ “未拦截到” .否则输出文本＝输出文本＋账号 .如果结束输出文本＝输出文本＋ #换行符＋ “密码:” .如果 (密码＝ “”) 输出文本＝输出文本＋ “未拦截到” .否则输出文本＝输出文本＋密码 .如果结束信息框 (输出文本, 0, ) .子程序 _按钮_重置_被单击是否为账号＝假是否为密码＝假列表框_加入提示 (“重置完毕。”)

相关阅读