如何运行res里面包含的exe文件(100分)

刘麻子 · 2004-04-20

qfgj,已发，查收。。：）   现在delphi盒子在弄服务器，否则我放到空间，你们直接下。。

jingtao · 2004-04-23

很多程序员觉得这个东西需要重定位EXE,也就是涉及到汇编语言.其实,根本不用什么汇编,用Delphi一样可以做到,点这里[http://www.138soft.com/htm/MemoryRun.zip]下载内存运行EXE演示,包括了使用说明和两个例子:一个例子是类似于UPX之类的加壳软件,另外一个例子是运行资源文件里面的EXE.注意:请用Delphi7编译,因为我是用Delphi7编写的.

刘麻子 · 2004-04-23

谢谢大哥！

jingtao · 2004-04-23

客气

delphi爱 · 2004-04-24

jingtao 大侠： 　　您好，我到您网站也看了，想不到您这么年轻有为，未来的大侠非您莫属，如果方便，请发一个MemoryRun.pas到:wjp100cn@163.com,我会终身感谢并永远记着您，谢谢！

hottey · 2004-04-24

我也想要一份，谢了。 delphi21@163.com

刘麻子 · 2004-04-24

to delphi爱:        jingtao哥，早就是著名的大虾了。。        还有，几句甜言蜜语就想要来Code？？                 ：）

wjp888 · 2004-04-24

经韬大侠： 　　能否好人做到低，请发一个MemoryRun.pas到:wjp8@163.com中，再次谢谢！

特尔斐 · 2004-04-27

值得研究一下。

wjp888 · 2004-04-27

经韬大侠：     [http://www.138soft.com/htm/MemoryRun.zip]下载内存运行EXE演示,包括了使用说明和两个例子:一个例子是类似于UPX之类的加壳软件,另外一个例子是运行资源文件里面的EXE.注意:请用Delphi7编译,因为我是用Delphi7编写的.      资源文件里面的EXE如果是一个单独的EXE（一个软件只有EXE，没有其他数据库或DLL），那么您给的运行资源文件里面的EXE还可运行，如果资源EXE还有需数据库或DLL不能分离，那包含到资源文件再运行时就会出错。错误信息是：‘Runtime error 216 at 009A32D6’。请陈大侠再看一看，谢谢！

delphi爱 · 2004-04-28

如果资源EXE还有数据库或DLL，那包含到资源文件再运行时就会出错!!!

jingtao · 2004-04-28

那个倒没有试验.那个例子是晚上洗澡后临时写的.这个其实与UPX之类是不一样的.这个是重构建内存表.而UPX是重组EXE,关于重组EXE的话代码比较大,可以参考一下这个问题的我前面贴的部分代码.实际上,dll也可以用这个内存定位方法,不过计算那个地址的公式前面两个参数不一样而已.刚才试验了一下是成功的. 这个例子主要是想说明DELPHI不用内镶汇编也能做到而已,知道就可以了,没必要过多研究这种东西,没有市场价值的.

铁盒子 · 2004-04-28

我在google上找到一个C的，只支持NT以上。不知道是否真的行。代码比较短 #define WIN32_NO_STATUS #include <windows.h> #undef  WIN32_NO_STATUS namespace NT {     extern "C" { #pragma warning(disable: 4005)  // macro redefinition #include <ntddk.h> #pragma warning(default: 4005)     } } using NT::NTSTATUS; typedef struct _DEBUG_CONTROL {     ULONG L0 : 1;     ULONG G0 : 1;     ULONG L1 : 1;     ULONG G1 : 1;     ULONG L2 : 1;     ULONG G2 : 1;     ULONG L3 : 1;     ULONG G3 : 1;     ULONG LE : 1;     ULONG GE : 1;     ULONG    : 3;     ULONG GD : 1;     ULONG    : 2;     ULONG RWE0 : 2;     ULONG LEN0 : 2;     ULONG RWE1 : 2;     ULONG LEN1 : 2;     ULONG RWE2 : 2;     ULONG LEN2 : 2;     ULONG RWE3 : 2;     ULONG LEN3 : 2; } DEBUG_CONTROL, *PDEBUG_CONTROL; VOID preppatch() {     CONTEXT context = {CONTEXT_DEBUG_REGISTERS};     PDEBUG_CONTROL dr7 = PDEBUG_CONTROL(&context.Dr7);     context.Dr0 = ULONG(GetProcAddress(GetModuleHandle("ntdll.dll"), "ZwCreateThread"));     dr7->L0 = 1, dr7->RWE0 = 0, dr7->LEN0 = 0;     SetThreadContext(GetCurrentThread(), &context); } LONG patch(PEXCEPTION_POINTERS ep) {     if (ep->ExceptionRecord->ExceptionCode == EXCEPTION_SINGLE_STEP) {         HANDLE hProcess = PHANDLE(ep->ContextRecord->Esp)[4];         PCONTEXT context = ((PCONTEXT*)(ep->ContextRecord->Esp))[6];         NT:

ROCESS_BASIC_INFORMATION pbi;         NT::NtQueryInformationProcess(hProcess, NT:

rocessBasicInformation, &pbi, sizeof pbi, 0);         PVOID x; ReadProcessMemory(hProcess, PCHAR(pbi.PebBaseAddress) + 8, &x, sizeof x, 0);         NT::ZwUnmapViewOfSection(hProcess, x);         HRSRC hRsrc = FindResource(0, "Image", "EXE");         HGLOBAL hGlobal = LoadResource(0, hRsrc);         PVOID p = LockResource(hGlobal);         PIMAGE_NT_HEADERS nt = PIMAGE_NT_HEADERS(PCHAR(p) + PIMAGE_DOS_HEADER(p)->e_lfanew);         PVOID q = VirtualAllocEx(hProcess,                                  PVOID(nt->OptionalHeader.ImageBase),                                  nt->OptionalHeader.SizeOfImage,                                  MEM_RESERVE | MEM_COMMIT, PAGE_EXECUTE_READWRITE);         WriteProcessMemory(hProcess, PCHAR(q), PCHAR(p), 0x1000, 0);         PIMAGE_SECTION_HEADER sect = IMAGE_FIRST_SECTION(nt);         for (ULONG i = 0; i < nt->FileHeader.NumberOfSections; i++)             WriteProcessMemory(hProcess,                                PCHAR(q) + sect.VirtualAddress,                                PCHAR(p) + sect.PointerToRawData,                                sect.SizeOfRawData, 0);         WriteProcessMemory(hProcess, PCHAR(pbi.PebBaseAddress) + 8, &q, sizeof q, 0);         context->Eax = ULONG(q) + nt->OptionalHeader.AddressOfEntryPoint;         ep->ContextRecord->Dr7 = 0;         return EXCEPTION_CONTINUE_EXECUTION;     }     return EXCEPTION_CONTINUE_SEARCH; } int main(int argc, char *argv[]) {     PROCESS_INFORMATION pi;     STARTUPINFO si = {sizeof si};     __try {         preppatch();         CreateProcess(0, "Explorer", 0, 0, FALSE, 0, 0, 0, &si, &pi);     }     __except (patch(GetExceptionInformation())) {}     return 0; }

风铃夜思雨 · 2004-04-28

我发现一个很好用的方法，用VB的资源编辑器装入要的图标，声音，文件等，保存成RES，DELPHI就可以调用了，VB的资源编辑器很好用

dingbaosheng · 2004-04-28

DELPHI也有资源编辑器

scan888 · 2004-04-29

牛比！！！！！！！！！

刘麻子 · 2004-04-29

我昨天才体会到 jingtao 哥的苦衷。。昨天，我正在写代码，有人问我问题， 由于我是隐身的，完全没有必要理睬，但是出于好心，我就回了一句，给他 指了个方向。。。结果呢？就缠着我要我写代码，我怎么可能放下自己的事 情帮你写代码呢？？最后当然我没有写，而那人却非常生气。。好象欠他几百 万似的，哎。。。。在这里我想说一句，任何人都没有义务帮助任何人解决问题， 给你说了是情分，不说是本分，怪不得别人的。。。象jingtao哥那么有名气的， 而且又不象我喜欢隐身，还不知会碰到多少这样的人，嘿嘿！    ：）

如何运行res里面包含的exe文件(100分)

刘麻子

Unregistered / Unconfirmed

jingtao

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

jingtao

Unregistered / Unconfirmed

delphi爱

Unregistered / Unconfirmed

hottey

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

wjp888

Unregistered / Unconfirmed

特尔斐

Unregistered / Unconfirmed

wjp888

Unregistered / Unconfirmed

delphi爱

Unregistered / Unconfirmed

jingtao

Unregistered / Unconfirmed

铁盒子

Unregistered / Unconfirmed

风铃夜思雨

Unregistered / Unconfirmed

dingbaosheng

Unregistered / Unconfirmed

scan888

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

Similar threads