易语言防挂钩子优化源码

系统结构:SealGuard,Call1,Newconnect,检测外挂,比较内核模块,准备弹窗,开始弹窗,GetCurrentProcessId,SetTimer,SetWindowText,CreateRemoteThread,CloseHandle,CreateThread,FindWindowA,对方网络名,取字节集指针,整型IP到,GetCurrentProcess,send,IP到整型,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ SealGuard
           |  |
           |  |------ Call1
           |  |
           |  |------ Newconnect
           |  |
           |  |------ 检测外挂
           |  |
           |  |------ 比较内核模块
           |  |
           |  |------ 准备弹窗
           |  |
           |  |------ 开始弹窗
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetCurrentProcessId
           |  |
           |  |---[dll]------   SetTimer
           |  |
           |  |---[dll]------   SetWindowText
           |  |
           |  |---[dll]------   CreateRemoteThread
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   CreateThread
           |  |
           |  |---[dll]------   FindWindowA
           |  |
           |  |---[dll]------   对方网络名
           |  |
           |  |---[dll]------   取字节集指针
           |  |
           |  |---[dll]------   整型IP到
           |  |
           |  |---[dll]------   GetCurrentProcess
           |  |
           |  |---[dll]------   send
           |  |
           |  |---[dll]------   IP到整型

调用的DLL命令:

.DLL命令 GetCurrentProcessId, 整数型, "kernel32.dll", "GetCurrentProcessId"

.DLL命令 SetTimer, 整数型, "user32.dll", "SetTimer", , 启动时钟_,创建一个时钟事件，并返回一个时钟ID(句柄)
    .参数 窗口句柄, 整数型, , hwnd设为0
    .参数 时钟ID, 整数型, , nIDEvent可以设为0
    .参数 时钟周期, 整数型, , uElapse单位是ms
    .参数 回调函数地址, 子程序指针, , lpTimerFunc欲执行的时钟事件子程序，不带参数

.DLL命令 SetWindowText, 整数型, "user32", "SetWindowTextA"
    .参数 hwnd, 整数型
    .参数 lpString, 文本型

.DLL命令 CreateRemoteThread, 整数型, , , 公开
    .参数 hProcess, 整数型
    .参数 lpThreadAttributes, 整数型
    .参数 dwStackSize, 整数型
    .参数 lpStartAddress, 整数型
    .参数 lpParameter, 整数型
    .参数 dwCreationFlags, 整数型
    .参数 lpThreadId, 整数型, 传址

.DLL命令 CloseHandle, 逻辑型, , "CloseHandle"
    .参数 hObject, 整数型

.DLL命令 CreateThread, 整数型
    .参数 lpThreadAttributes, 整数型
    .参数 dwStackSize, 整数型
    .参数 lpStartAddress, 子程序指针
    .参数 lpParameter, 整数型
    .参数 dwCreationFlags, 整数型
    .参数 LpthreadId, 整数型, 传址

.DLL命令 FindWindowA, 整数型, "user32.dll", "FindWindowA"
    .参数 类, 文本型
    .参数 窗口标题, 文本型

.DLL命令 对方网络名, 整数型, "ws2_32.dll", "getpeername"
    .参数 套接口, 整数型
    .参数 name, 字节集, 传址
    .参数 namelen, 整数型, 传址

.DLL命令 取字节集指针, 整数型, "kernel32.dll", "lstrcpynA", , 成功返回保存变量指针,失败返回0
    .参数 保存变量, 字节集, 传址, 保存的变量
    .参数 待拷变量, 字节集, 传址, 拷与的变量或数据
    .参数 拷贝长度, 整数型, , 拷贝长度可用0

.DLL命令 整型IP到, 文本型, "ws2_32.dll", "inet_ntoa", 公开
    .参数 整数型IP, 整数型

.DLL命令 GetCurrentProcess, 整数型

.DLL命令 send, 整数型, "ws2_32.dll", "send", , 已发送长度
    .参数 套接字, 整数型
    .参数 封包指针, 整数型
    .参数 封包长度, 整数型
    .参数 标志, 整数型, , 值=0

.DLL命令 IP到整型, 整数型, "ws2_32.dll", "inet_addr", 公开, 失败返回-1，成功返回整型IP地址
    .参数 文本型IP, 文本型