挂海论坛 › 综合编程 › 如何远程注入代码

Mangosoft 发表于 2015-4-21 16:38:33

如何远程注入代码

如何远程注入代码

我网上找了一个,但是不起作用,能否给个注入MESSAGEBOX的例子

procedure func;
begin
      asm
      PUSHAD
      PUSH    2
      PUSH    $30
      CALL address
      POPAD
      end;
end;

procedure Inject(ProcessHandle: longword; EntryPoint: pointer);
var
      Module, NewModule: Pointer;
      Size, BytesWritten, TID: longword;
begin
      Module := Pointer(GetModuleHandle(nil)); //得到模块句柄,nil表示得到自身模块的
      Size := PImageOptionalHeader(Pointer(integer(Module) + PImageDosHeader(Module)._lfanew + SizeOf(dword) + SizeOf(TImageFileHeader))).SizeOfImage;
      VirtualFreeEx(ProcessHandle, Module, 0, MEM_RELEASE);
      NewModule := VirtualAllocEx(ProcessHandle, Module, Size, MEM_COMMIT or MEM_RESERVE, PAGE_EXECUTE_READWRITE);
      WriteProcessMemory(ProcessHandle, NewModule, Module, Size, BytesWritten);
      CreateRemoteThread(ProcessHandle, nil, 0, EntryPoint, Module, 0, TID);
end;

rg9695c36 发表于 2015-4-21 16:38:55

invoke VirtualAllocEx,hProc_YX,0,dw_CALL_CD,MEM_COMMIT,PAGE_EXECUTE_READWRITE ;申请内存

    .if    !eax
            invoke MessageBox,0,$CTA0("为注入码申请内存失败"),0,MB_ICONERROR
            ret
    .endif
    mov   esi,eax

    invoke WriteProcessMemory,hProc_YX,ebx,addr CALL_ECX,dwCALL_CD,NULL ;写—注入码
    .if    !eax
            invoke MessageBox,0,$CTA0("写注入码失败"),0,MB_ICONERROR
            ret
    .endif
   
    invoke CreateRemoteThread,hProc_YX,NULL,0,esi,dw_CALL,0,NULL ;创建远程线程-
   
    mov    edi,eax
    invoke WaitForSingleObject,edi,500               ;等待线程结束
    invoke CloseHandle,edi
    invoke VirtualFreeEx,hProc_YX,esi,0,MEM_RELEASE    ;释放内存

BruceLee 发表于 2015-6-2 10:46:25

就喜欢楼主这样的哈哈哈

unchenchao 发表于 2015-7-16 23:46:40

帮你顶，人还是厚道点好

查看完整版本: 如何远程注入代码