标  题: Self-Delete程序之Delphi版本，终于搞定了。
发信站: BBS 水木清华站 (Mon Jun  4 20:50:42 2001)
到Borland的论坛去问了问，确实跟laoduan说得一样，要自己GetProcAddress。代码如下：

program Project1;

{$APPTYPE CONSOLE}
uses
  SysUtils,
  Windows;

procedure DeleteSelf;
var
  hModule: THandle;
  buff: array[0..255] of Char;
  hKernel32: THandle;
  pExitProcess, pDeleteFileA, pUnmapViewOfFile: Pointer;
begin
  hModule := GetModuleHandle(nil);
  GetModuleFileName(hModule, buff, sizeof(buff));
  CloseHandle(THandle(4));
  hKernel32 := GetModuleHandle('KERNEL32');
  pExitProcess := GetProcAddress(hKernel32, 'ExitProcess');
  pDeleteFileA := GetProcAddress(hKernel32, 'DeleteFileA');
  pUnmapViewOfFile := GetProcAddress(hKernel32, 'UnmapViewOfFile');
  asm
         LEA         EAX, buff
         PUSH        0
         PUSH        0
         PUSH        EAX
         PUSH        pExitProcess
         PUSH        hModule
         PUSH        pDeleteFileA
         PUSH        pUnmapViewOfFile
         RET
  end;
end;

begin
  try
    { TODO -oUser -cConsole Main : Insert code here }
    DeleteSelf;
  except
    on E: Exception do
    begin
       Writeln(E.Classname, ': ', E.Message);
    end;
  end;
end.

现在有一点比较古怪，那就是必须把代码放在一个Procedure里，

直接放在begin … end.中间是不行的。也许是全局变量不能使用

的缘故，但为什么不能使用，还是不是很清楚。

还有，不GetProcAddress，直接如下写：

     PUSH  OFFSET  UnmapViewOfFile

trace的结果是执行进入了KERNEL32.UnmapViewOfFile的，只是在

函数内RET $4出就出错了，跳到了一个莫名其妙的地方。为什么会

这样？难道是Delphi的编译器的问题吗？

参考csdn：

必须把代码放在一个Procedure里!  
  **************  
  下面的代码由Gary   Nebbett写就.Gary   Nebbett乃是WINDOWS   NT/2000   NATIVE   API   REFERENCE的作者.乃NT系统一等一的高手.下面就分析一些他的这段代码.    
  这段代码在PROCESS没有结束前就将启动PROCESS的EXE文件删除了.    
  int   main(int   argc,   char   *argv[])    
  {    
        HMODULE   module   =   GetModuleHandle(0);    
        CHAR   buf[MAX_PATH];    
        GetModuleFileName(module,   buf,   sizeof   buf);    
        CloseHandle(HANDLE(4));    
        __asm   {    
                lea           eax,   buf    
                push         0    
                push         0    
                push         eax    
                push         ExitProcess    
                push         module    
                push         DeleteFile    
                push         UnmapViewOfFile    
                ret    
        }    
        return   0;    
  }    
  现在,我们先看一下堆栈中的东西    
  偏移   内容    
  24       0    
  20       0    
  16       offset   buf    
  12       address   of   ExitProcess    
  8         module    
  4         address   of   DeleteFile    
  0         address   of   UnmapViewOfFile    
  调用RET返回到了UnmapViewOfFile,也就是栈里的偏移0所指的地方.当进入UnmapViewOfFile的流程时,栈里见到的是返回地址DeleteFile和HMODUL   module.也就是说调用完毕后返回到了DeleteFile的入口地址.当返回到DeleteFile时,看到了ExitProcess的地址,也就是返回地址.和参数EAX,而EAX则是buffer.buffer存的是EXE的文件名.由GetModuleFileName(module,   buf,   sizeof   buf)返回得到.执行了DeleteFile后,就返回到了ExitProcess的函数入口.并且参数为0而返回地址也是0.0是个非法地址.如果返回到地址0则会出错.而调用ExitProcess则应该不会返回.    
  这段代码的精妙之处在于:    
  1.如果有文件的HANDLE打开,文件删除就会失败,所以,CloseHandle(HANDLE(4));是十分巧妙的一手.HANDLE4是OS的硬编码,对应于EXE的IMAGE.在缺省情况下,OS假定没有任何调用会关闭IMAGE   SECTION的HANDLE,而现在,该HANDLE被关闭了.删除文件就解除了文件对应的一个句柄.    
  2.由于UnmapViewOfFile解除了另外一个对应IMAGE的HANDLE,而且解除了IMAGE在内存的映射.所以,后面的任何代码都不可以引用IMAGE映射地址内的任何代码.否则就OS会报错.而现在的代码在UnmapViewOfFile后则刚好没有引用到任何IMAGE内的代码.    
  3.在ExitProcess之前,EXE文件就被删除了.也就是说,进程尚在,而主线程所在的EXE文件已经没了.(WINNT/9X都保护这些被映射到内存的WIN32   IMAGE不被删除.)    
  #include   Windows.h  
  int   main(int   argc,   char   *argv[])    
  {    
          HMODULE   module   =   GetModuleHandle(0);  
          CHAR   buf[MAX_PATH];  
          GetModuleFileName(module,   buf,   sizeof(buf));  
          MessageBox(0,"Del   Me","Test",MB_OK);  
          CloseHandle((HANDLE)4);  
          __asm   {  
                  lea         eax,   buf  
                  push         0  
                  push         0  
                  push         eax  
                  push         ExitProcess  
                  push         module  
                  push         DeleteFile  
                  push         UnmapViewOfFile  
                 
ret  
          }  
          return   0;    
  }  
  采用vc++6.0的控制台模式编译  
  运行该程序后自动把自己删掉 

有空试试，暂存。

——————————

经过试验，并没有把本身删除，运行后，exe文件还在。

C++和Delphi的都没成功。

【转自】Self-Delete程序之Delphi版本，终于搞定了。 – Delphi教程 – CND8学院