易语言随机取进程名模块源码

系统结构:随机进程名,Yhan_Run,CallRemoteFunction,CreateProcessThread,MakeCallCode,GetBinPtr,GetAddress,取随机文件名,取短路径,进程名取PID,MoveFileEx,GetShortPathName,OpenProcess,GetCurrentProcessId,CloseHandle,VirtualAllocEx,WriteProcessMemory_字节集,VirtualFreeEx,CreateRemoteThread,WaitForSingleObject,GetExitCodeThread,GetProcAddress,LoadLibraryA,CreateToolhelp32Snapshot,Process32First,Process32Next,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 随机进程名
           |  |
           |  |------ Yhan_Run
           |  |
           |  |------ _OpenProcess
           |  |
           |  |------ _CloseHandle
           |  |
           |  |------ CallRemoteFunction
           |  |
           |  |------ CreateProcessThread
           |  |
           |  |------ MakeCallCode
           |  |
           |  |------ GetBinPtr
           |  |
           |  |------ GetAddress
           |  |
           |  |------ 取随机文件名
           |  |
           |  |------ 取短路径
           |  |
           |  |------ 进程名取PID
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   MoveFileEx
           |  |
           |  |---[dll]------   GetShortPathName
           |  |
           |  |---[dll]------   OpenProcess
           |  |
           |  |---[dll]------   GetCurrentProcessId
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   VirtualAllocEx
           |  |
           |  |---[dll]------   WriteProcessMemory_字节集
           |  |
           |  |---[dll]------   VirtualFreeEx
           |  |
           |  |---[dll]------   CreateRemoteThread
           |  |
           |  |---[dll]------   WaitForSingleObject
           |  |
           |  |---[dll]------   GetExitCodeThread
           |  |
           |  |---[dll]------   _P_BIN
           |  |
           |  |---[dll]------   GetProcAddress
           |  |
           |  |---[dll]------   LoadLibraryA
           |  |
           |  |---[dll]------   CreateToolhelp32Snapshot
           |  |
           |  |---[dll]------   Process32First
           |  |
           |  |---[dll]------   Process32Next

调用的DLL命令:

.DLL命令 MoveFileEx, 逻辑型, "Kernel32.dll", "MoveFileExA"
    .参数 lpExistingFileName, 文本型
    .参数 lpNewFileName, 文本型
    .参数 dwFlags, 整数型

.DLL命令 GetShortPathName, 整数型, "kernel32.dll", "GetShortPathNameA"
    .参数 lpszLongPath, 文本型
    .参数 lpszShortPath, 文本型
    .参数 cchBuffer, 整数型

.DLL命令 OpenProcess, 整数型, "kernel32.dll", "OpenProcess", , , 将句柄返回给过程对象
    .参数 进程对象, 整数型, , dwDesiredAccess
    .参数 继承句柄, 逻辑型, , bInheritHandle
    .参数 进程标识符, 整数型, , dwProcessId

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

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

.DLL命令 VirtualAllocEx, 整数型, "kernel32.dll", "VirtualAllocEx"
    .参数 hProcess, 整数型
    .参数 lpAddress, 整数型
    .参数 dwSize, 整数型
    .参数 flAllocationType, 整数型
    .参数 flProtect, 整数型

.DLL命令 WriteProcessMemory_字节集, 逻辑型, "kernel32.dll", "WriteProcessMemory"
    .参数 hProcess, 整数型
    .参数 lpBaseAddress, 整数型, , any
    .参数 lpBuffer, 字节集
    .参数 nSize, 整数型
    .参数 lpNumberOfBytesWritten, 整数型

.DLL命令 VirtualFreeEx, 整数型, "kernel32.dll", "VirtualFreeEx"
    .参数 hProcess, 整数型
    .参数 lpAddress, 整数型
    .参数 dwSize, 整数型
    .参数 flAllocationType, 整数型

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

.DLL命令 WaitForSingleObject, 整数型
    .参数 hHandle, 整数型
    .参数 dwMilliseconds, 整数型

.DLL命令 GetExitCodeThread, 逻辑型, , "GetExitCodeThread"
    .参数 hThread
    .参数 lpExitCode, , 传址

.DLL命令 _P_BIN, 整数型, , "lstrcatA"
    .参数 lpString1, 字节集, 传址
    .参数 lpString2, 整数型, 传址

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

.DLL命令 LoadLibraryA, 整数型
    .参数 lpFileName, 文本型, , ;

.DLL命令 CreateToolhelp32Snapshot, 整数型, , "CreateToolhelp32Snapshot"
    .参数 dwFlags, 整数型
    .参数 th32ProcessID, 整数型

.DLL命令 Process32First, 整数型, , "Process32First"
    .参数 hSnapshot, 整数型
    .参数 lppe, PROCESSENTRY32

.DLL命令 Process32Next, 整数型, , "Process32Next"
    .参数 hSnapshot, 整数型
    .参数 lppe, PROCESSENTRY32