如何获得密码窗口的内容------揭开Hook的面纱

                                          Pan Ying(zero world)

　　现在的不少程序都有取得密码窗口的内容的功能，你有没有想过是如何做到这一切的呢？我有一个同学就问过我这样一个问题，当时我也回答不出来，现在我研究了视窗的Hook函数之后总算有了一定的了解。下面就有我来揭开Hook函数的神秘面纱。

　　先来介绍Hook的含义：

　　Hook是指在程序正常运行中接受信息之前预先启动的函数，用来检查和修改传给该程序的信息。举例来说，当你在一个窗口上点击鼠标以后，首先接收信息的是相应的Hook函数，然后才传到相应的应用程序。

　　如何定义Hook函数：

SetWindowsHookEx：

　　用来装入新的Hook函数，其参数列表为下：

int idHook：装入Hook类型，有WH_MOUSE 等。

HOOKPROC lpfn：要装入的Hook函数地址。

HINSTANCE hMod：函数所在的进程，如果为全局Hook函数该函数必须在Dll中。

DWORD dwThreadId：装入哪个进程，如果为全局，则为0。

　　返回相应Hook标识。

HookProc：

　　您自定义的Hook函数，应具有的参数如下：

int nCode：传入的信息类型。

WPARAM wParam：短整型参数。

LPARAM lParam：长整型参数。

　　要在函数中调用CallNextHookEx把信息传给下一个Hook函数。

CallNextHookEx：

　　用于将信息传给下一个Hook函数，需要将得到的Hook标识和相应参数传入。

UnhookWindowsHookEx：

　　用于将装入的Hook函数从Hook链表中剔除，应传入得到的Hook标识。

下面我们来看一个例子：

　　例子原码的下载：HookTest.zip 本程序在Window98和Delphi5下通过。

一、调用LoadLibrary和GetProcAddress取得函数地址。

　　hinstDLL := LoadLibrary(LPCTSTR( 'hooktest.dll'));

　　@hkprcSysMsg:=GetProcAddress(hinstDLL, 'MouseProc');

二、用SetWindowsHookEx将得到的函数装入。

　　hhk:= SetWindowsHookEx(WH_MOUSE,@hkprcSysMsg,hinstDLL, 0);

三、Windows会将函数装入到每一个进程中。

四、每当鼠标点击，自定义的Hook函数会将点击的窗口标题传给程序的标题。

if (nCode=HC_ACTION)and(WPARAM=WM_LBUTTONDOWN)

　then

　　begin

　　　MyMouse:=CPointer(lPARAM);

　　　MyHandle2:=MyMouse^.hwnd;

　　　GetMem(MyString,GetWindowTextlength(myhandle2)+1);

　　　GetWindowText(MyHandle2,MyString,GetWindowTextlength(myhandle2)+1);

　　　TempHandle:=myhandle2;

　　　while (TempHandle<>0) do

　　　begin

　　　　myHandle2:=TempHandle;

　　　　TempHandle:=GetParent(TempHandle);

　　　end;

　　　if (myhandle2<>0)

　　　then

　　　　SetWindowText(myhandle2,MyString);

　　　FreeMem(MyString);

　　end

就这样完成了得到密码窗口内容的功能。