用hook实现dll注入详解.docVIP

用hook实现dll注入详解 日期：2004年10月29日 作者： 人气： 5053 查看:[大字体 中字体 小字体] 需要一个用来注入的dll（inject.dll）及一个调用程序 caller.exe 流程：?caller.exeprocedure 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 ;?? //等待消息返回?? getmessage msg,0,0,0 ;?? //找到注入的窗口?? hwndInject: findwindow nil,InjectForm ;?? //发送控制消息,将目标窗体的句柄作为wparam，控制参数以lparam传入 sendMessage hwndInject, wm_app,hChild,integer true ;?? //关闭注入的窗口?? sendMessage hwndInject,wm_close,0,0 ;?? //等待窗口关闭?? sleep 500 ;?? //检查是否成功关闭?? assert not iswindow hwndInject ;?? //去掉挂钩?? setDipsHook 0 ;end; //下面说明 Inject.dll的SetInjectHook的具体操作在全局定义以下变量?var?? g_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; //定义一个全局的是否第一个消息的标志var? fFirstTime:boolean true;//这个函数用于在收到第一个消息时创建自定义窗体，以便于远程控制function GetMsgProc code: Integer; wparam: WPARAM; lparam: LPARAM : LRESULT; stdcall;begin? //如果是第一次? if fFirstTime then? begin fFirstTime : false; //创建窗体 InjectFrm : TinjectFrm.create nil ; //保存窗体句柄