如何获得密码窗口的内容------揭开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
就这样完成了得到密码窗口内容的功能。
