易语言API网络拦截源码

系统结构:接收send网截,接收recv网截,安装send网截,安装recv网截,卸载网截,BeginHook,StopHook,InstallApiHook,子程序到整数,UninstallApiHook,GetApiHookInfo,拷贝文本,Recv,GetModuleHandleA,子程序指针到整数,取整数指针,拷贝内存,VirtualProtect,GetProcAddress,Send,

======网截
           |  |
           |  |------ 接收send网截
           |  |
           |  |------ 接收recv网截
           |  |
           |  |------ 安装send网截
           |  |
           |  |------ 安装recv网截
           |  |
           |  |------ 卸载网截
           |  |
           |  |------ BeginHook
           |  |
           |  |------ StopHook
           |  |
           |  |------ InstallApiHook
           |  |
           |  |------ 子程序到整数
           |  |
           |  |------ UninstallApiHook
           |  |
           |  |------ GetApiHookInfo
           |  |
           |  |
======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮6_被单击
           |  |
           |  |------ _按钮8_被单击
           |  |
           |  |------ _按钮7_被单击
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ _按钮4_被单击
           |  |
           |  |------ _按钮5_被单击
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _超文本浏览框1_跳转完毕
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   拷贝文本
           |  |
           |  |---[dll]------   Recv
           |  |
           |  |---[dll]------   GetModuleHandleA
           |  |
           |  |---[dll]------   子程序指针到整数
           |  |
           |  |---[dll]------   取整数指针
           |  |
           |  |---[dll]------   拷贝内存
           |  |
           |  |---[dll]------   VirtualProtect
           |  |
           |  |---[dll]------   GetProcAddress
           |  |
           |  |---[dll]------   Send

调用的DLL命令:

.DLL命令 拷贝文本, , "kernel32.dll", "RtlMoveMemory"
    .参数 目标数据, 文本型, 传址, any
    .参数 原数据, 整数型, , any
    .参数 尺寸, 整数型

.DLL命令 Recv, 整数型, "ws2_32.dll", "recv", , 接收数据(TCP，当数据这次未接收完时返回剩余字节数)
    .参数 s, 整数型, , 套接字描述符
    .参数 buf, 整数型, , 数据(提供变量)
    .参数 buflen, 整数型, , 数据长度
    .参数 flags, 整数型, , 0

.DLL命令 GetModuleHandleA, 整数型
    .参数 lpModuleName, 文本型

.DLL命令 子程序指针到整数, 整数型, "kernel32", "lstrcpyn"
    .参数 数据1, 子程序指针, , lpString1
    .参数 数据2, 子程序指针, , lpString2
    .参数 数据长度, 整数型, , iMaxLength

.DLL命令 取整数指针, 整数型, "kernel32", "lstrcpyn"
    .参数 数据1, 整数型, 传址, lpString1
    .参数 数据2, 整数型, 传址, lpString2
    .参数 数据长度, 整数型, , iMaxLength

.DLL命令 拷贝内存, 整数型, "kernel32", "RtlMoveMemory", , RtlMoveMemory
    .参数 目标数据, 整数型, , lpvDest
    .参数 源数据, 字节集, 传址, lpvSource
    .参数 尺寸, 整数型, , cbCopy

.DLL命令 VirtualProtect, 逻辑型
    .参数 lpAddress, 整数型
    .参数 dwSize, 整数型
    .参数 flNewProtect, 整数型
    .参数 lpflOldProtect, 整数型, 传址

.DLL命令 GetProcAddress, 整数型
    .参数 hModule, 整数型
    .参数 lpProcName, 文本型

.DLL命令 Send, 整数型, "ws2_32.dll", "send", , 发送数据(TCP，当这次发送数据未发送完时返回剩余字节数)
    .参数 s, 整数型, , 套接字描述符
    .参数 buf, 整数型, , 欲发送的数据
    .参数 buflen, 整数型, , 欲发送数据长度
    .参数 flags, 整数型, , 0