程序加盾处理易语言源码

系统结构:写配置,读配置,删除核心库资源,添加界面,取DOS执行结果,API_取命令行,BeginUpdateResourceA,UpdateResourceA,EndUpdateResourceA,CreateProcess,CreatePipe,ReadFile,CloseHandle,PeekNamedPipe,GetExitCodeProcess,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 写配置
           |  |
           |  |------ 读配置
           |  |
           |  |------ _按钮资源删除_被单击
           |  |
           |  |------ _按钮自动提权_被单击
           |  |
           |  |------ _按钮UPX_被单击
           |  |
           |  |------ 删除核心库资源
           |  |
           |  |------ 添加界面
           |  |
           |  |------ 取DOS执行结果
           |  |
           |  |------ _窗口1_将被销毁
           |  |
           |  |------ _拖放对象1_得到文件
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ __启动窗口_可否被关闭
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_取命令行
           |  |
           |  |---[dll]------   BeginUpdateResourceA
           |  |
           |  |---[dll]------   UpdateResourceA
           |  |
           |  |---[dll]------   EndUpdateResourceA
           |  |
           |  |---[dll]------   CreateProcess
           |  |
           |  |---[dll]------   CreatePipe
           |  |
           |  |---[dll]------   ReadFile
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   PeekNamedPipe
           |  |
           |  |---[dll]------   GetExitCodeProcess

调用的DLL命令:

.DLL命令 API_取命令行, 文本型, "kernel32.dll", "GetCommandLineA"

.DLL命令 BeginUpdateResourceA, 整数型
    .参数 pFileName, 文本型
    .参数 bDeleteExistingResources, 逻辑型

.DLL命令 UpdateResourceA, 逻辑型
    .参数 hUpdate, 整数型
    .参数 lpType, 整数型
    .参数 lpName, 整数型
    .参数 wLanguage, 整数型
    .参数 lpData, 字节集
    .参数 cbData, 整数型

.DLL命令 EndUpdateResourceA, 逻辑型
    .参数 hUpdate, 整数型
    .参数 fDiscard, 逻辑型

.DLL命令 CreateProcess, 整数型, , "CreateProcessA"
    .参数 lpApplicationName, 整数型
    .参数 lpCommandLine, 文本型
    .参数 lpProcessAttributes, 整数型
    .参数 lpThreadAttributes, 整数型
    .参数 bInheritHandles, 逻辑型
    .参数 dwCreationFlags, 整数型
    .参数 lpEnvironment, 整数型
    .参数 lpCurrentDriectory, 整数型
    .参数 lpStartupInfo, STARTUPINFO, 传址
    .参数 lpProcessInformation, PROCESS_INFORMATION, 传址

.DLL命令 CreatePipe, 整数型, , "CreatePipe"
    .参数 phReadPipe, 整数型, 传址
    .参数 phWritePipe, 整数型, 传址
    .参数 lpPipeAttributes, SECURITY_ATTRIBUTES, 传址
    .参数 nSize, 整数型

.DLL命令 ReadFile, 整数型, , "ReadFile"
    .参数 hFile, 整数型
    .参数 lpBuffer, 字节集, 传址
    .参数 nNumberOfBytesToRead, 整数型
    .参数 lpNumberOfBytesRead, 整数型, 传址
    .参数 lpOverlapped, 整数型

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

.DLL命令 PeekNamedPipe, 整数型, , "PeekNamedPipe"
    .参数 hNamedPipe, 整数型
    .参数 lpBuffer, 整数型
    .参数 nBufferSize, 整数型
    .参数 lpBytesRead, 整数型
    .参数 lpTotalBytesAvail, 整数型, 传址
    .参数 lpBytesLeftThisMessage, 整数型

.DLL命令 GetExitCodeProcess, 整数型, , "GetExitCodeProcess"
    .参数 hProcess, 整数型
    .参数 lpExitCode, 整数型, 传址