用hook實現dll注入詳解

需要乙個用來注入的dll（inject.dll）及乙個呼叫程式(caller.exe)

流程：caller.exe

procedure testhook;

var pwnd,hchild, hwndinject :hwnd;

msg:tmsg;

begin

//通過視窗標題用findwindow找到要注入的程式的主視窗控制代碼pwnd

pwnd := findwindow('progman',nil);

//用findwindowex(hmain,0,nil,nil)找到要處理的子視窗控制代碼hchild

hchild := findwindowex(pwnd,0,nil,nil);

//用getwindowthreadprocessid(hchild,nil)找到要注入的執行緒

dwthreadid := getwindowthreadprocessid(hchild,nil);

//呼叫 inject.dll的setinjecthook方法

setinjecthook(dwthreadid);

//卻⒎禱?br>   getmessage(msg,0,0,0);

//找到注入的視窗

hwndinject:= findwindow(nil,'injectform');

//傳送控制訊息,將目標窗體的控制代碼作為wparam，控制引數以lparam傳入

//關閉注入的視窗

sendmessage( hwndinject,wm_close,0,0);

//等待視窗關閉

sleep(500);

//檢查是否成功關閉

assert(not iswindow( hwndinject));

//去掉掛鉤

setdipshook(0);

end;  

//下面說明 inject.dll的setinjecthook的具體操作

在全域性定義以下變數

varg_hhook :hhook=0;

g_dwthreadidinject :dword=0;

g_hinjectfrm:hwnd;

function setinjecthook(dwthreadid:dword):boolean;

begin

result := false;

//如果執行緒標誌為0則用於去掉鉤子，否則進行動態庫注入

if dwthreadid<>0 then

begin

assert(g_hhook=0);

//儲存當前執行緒的id到 g_dwthreadidinject

g_dwthreadidinject := getcurrentthreadid;

//下乙個getmessage的鉤子到目標執行緒

//getmsgproc是在下面定義的乙個函式，在第一次呼叫時將自定義的form在目標執行緒中建立出來

//這樣就能通過這個自定義的form對目標執行緒進行程序內控制了

g_hhook := setwindowshookex(wh_getmessage,getmsgproc,hinstance,dwthreadid);

result := g_hhook <> null;

if result then

//發乙個空的資訊以便於立即建立這個自定義form

result := postthreadmessage(dwthreadid, wm_null,0,0);

//等待半秒鐘，以保證呼叫者可以找到這個剛建立的form

sleep(500);

end else

begin

assert(g_hhook<>0);

//去掉鉤子

result := unhookwindowshookex(g_hhook);

g_hhook := 0;

end;

end;

//定義乙個全域性的是否第乙個訊息的標誌

varffirsttime:boolean = true;

//這個函式用於在收到第乙個訊息時建立自定義窗體，以便於遠端控制

function getmsgproc(code: integer; wparam: wparam; lparam: lparam): lresult; stdcall;

begin

//如果是第一次

if ffirsttime then

begin

ffirsttime := false;

//建立窗體

injectfrm := tinjectfrm.create(nil);

//儲存窗體控制代碼

g_hinjectfrm := injectfrm.handle;

end;

//呼叫預設處理，這一句可不能忘記

result := callnexthookex(g_hhook,code,wparam,lparam);

end;

用hook實現dll注入詳解

需要乙個用來注入的dll inject.dll 及乙個呼叫程式 caller.exe 流程 caller.exe procedure testhook var pwnd,hchild,hwndinject hwnd msg tmsg begin 通過視窗標題用findwindow找到要注入的程式的主...

用hook實現dll注入詳解

下面說明 inject.dll的setinjecthook的具體操作 在全域性定義以下變數 varg hhook hhook 0 g dwthreadidinject dword 0 g hinjectfrm hwnd function setinjecthook dwthreadid dword ...

用hook實現dll注入詳解

該日誌由傻貓發表於 2010 07 21 13 00 31 需要乙個用來注入的 dll inject.dll 及乙個呼叫程式 caller.exe 流程 caller.exe procedure testhook var pwnd,hchild,hwndinject hwnd msg tmsg be...