不是系统级的高手别进来！(200分)

人在昆明 · 2002-12-17

这几天比较空，突然对win2000的星号感兴趣，于是写了一个unit 用来取*，然后想在 hook中调用，结果鼠标钩子没问题，键盘钩子冲突，想问一下有没有那位高手封装过 getwindowtext 可以得到星号，或者有什么其他的方法，直接用 sendmessage(..), 俺愿意用俺的unit 交换（远程注入）。

jsxjd · 2002-12-17

23. 如何获得密码窗口的内容揭开Hook的面纱 现在的不少程序都有取得密码窗口的内容的功能，你有没有想过是如何做到这一切的呢？我有一个同学就问过我这样一个问题，当时我也回答不出来，现在我研究了视窗的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 就这样完成了得到密码窗口内容的功能。 　　我想现在你能够基本了解Hook了吧，还有任何问题请给我来信。

ljy_17 · 2002-12-17

完全不用什麼HOOK那麼麻煩！ 隻要做一個系統熱鍵就可以了！如CTRL+X+Z 激活後就調用你的unit 文件！

tseug · 2002-12-17

密码查看器 awin.y365.com　　 Delphi梦工场 源程序在下面，里面还演示了怎样使用自定义光标，不过这个东西对win2000好像没有什么作用，如果有人知道怎么解决这个问题，一定要告诉我一声！ 工程文件如下： program viewpass; uses Forms, pass in 'pass.pas' {Form1}; {$R *.RES} begin Application.Initialize; Application.Title := 'passview'; Application.CreateForm(TForm1, Form1); Application.Run; end. 单元文件如下： unit pass; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, StdCtrls, ExtCtrls,shellapi; const crmycursor=2;//自定义光标的ID，必须大于0 type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Panel1: TPanel; Image1: TImage; Button1: TButton; Label1: TLabel; Label2: TLabel; Edit3: TEdit; Label4: TLabel; Panel2: TPanel; Image2: TImage; Image3: TImage; Label5: TLabel; CheckBox1: TCheckBox; procedure Button1Click(Sender: TObject); procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure FormCreate(Sender: TObject); procedure FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure CheckBox1Click(Sender: TObject); procedure Label5Click(Sender: TObject); private { Private declarations } isdragging:boolean; public { Public declarations } end; var Form1: TForm1; {$R mycursor.res}//包含自定义光标的资源文件，必须加上 implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin close; end; procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if isdragging=false then begin isdragging:=true; image1.visible:=false; screen.cursor:=crmycursor;//设置光标为自定义光标 setcapture(handle);//设置鼠标捕捉，重要 end; end; procedure TForm1.FormCreate(Sender: TObject); begin isdragging:=false; screen.cursors[crmycursor]:=loadcursor(HINSTANCE,'pass');//从资源文件中装载自定义光标，pass为自定义资源文件中光标的文件名 try case strtoint(copy(timetostr(time),5,1)) of 0..2:color:=clpurple; 3..5:color:=clblack; 6..7:color:=clinfobk; 8..9:color:=clbackground; end; except color:=clbackground; end; end; procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); begin if isdragging=true then begin isdragging:=false; image1.visible:=true; screen.Cursor:=crdefault;//恢复缺省的光标 releasecapture;//释放鼠标捕捉，重要 end; end; procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); var mousepoint:tpoint; myhwnd:hwnd; pass,classname:array [0..254] of char; lens:integer; begin if isdragging=true then begin getcursorpos(mousepoint);//获得当前光标位置 myhwnd:=windowfrompoint(mousepoint);//获得光标处的窗口句柄 getclassname(myhwnd,classname,sizeof(classname));//获得窗口的类名 lens:=sendmessage(myhwnd,wm_gettextlength,0,0)+1;//取得密码长度 sendmessage(myhwnd,wm_gettext,lens,longint(@pass));//取得密码 if (defwindowproc(handle,wm_nchittest,0,getmessagepos)=htcaption) or (defwindowproc(handle,wm_nchittest,0,getmessagepos)=htclient) then begin edit1.Text:='本窜口中'; edit3.text:='; edit2.Text:='; end else begin edit1.Text:=format('X:%d,Y:%d',[mousepoint.x,mousepoint.y]); edit2.text:=string(pass); edit3.text:=string(classname); end; end; end; procedure TForm1.CheckBox1Click(Sender: TObject); begin if checkbox1.checked then setwindowpos(handle,hwnd_topmost,left,top,width,height,0);//总在最前 end; procedure TForm1.Label5Click(Sender: TObject); begin shellexecute(handle,'open',pchar('mailto:mhsxaw@163.com?subject=我的建议*_*'),nil,nil,9); end; end. 作者:不详 来源:不详

bbw · 2002-12-17

呵呵，我也进来了……[

][

]

人在昆明 · 2002-12-17

我本来是想写一个木马钩oicq 的密码，当然我不干坏事，我的oicq　号码一大筐 我仅仅是做技术性探索，楼上的两位兄弟，不用ｈｏｏｋ　你怎么搞定密码，不用 远程注入，你怎么取？？

knifepj · 2002-12-17

有没有读写CMOS的例子？？我想要!! 请各位高手帮帮忙忙!!!!!!!!

人在昆明 · 2002-12-17

或者那位有键盘钩子，要求实现共享内存的，给我看看

人在昆明 · 2002-12-17

另外，补充说明，就是说键盘hook  我要在 dll 中截获的键盘信息， 可以在exe 中处理，要用到，内存共享，我写了但是效果不好。

smallsun007 · 2002-12-17

zw84611 · 2002-12-17

这个完全符合你的要求： http://service.lonetear.com/delphi/dispdoc.asp?id=1299

YFeral · 2002-12-17

to zw84611：    我看过你的地址，也下过。我想那个例程不适合这个需求。 Hook!Hook!自己写多麻烦，我给你们提供一个Hook的控件包，老外写的还行。 http://service.lonetear.com/delphi/dispdoc.asp?id=1328

zw84611 · 2002-12-17

>>“就是说键盘hook  我要在 dll 中截获的键盘信息，可以在exe 中处理，要用到，内存共享” 完全符合。[

]

yzhshi · 2002-12-17

其实不用SendMessage，改用PostMessage就可以的。 如果那个星号真的是可以变回来的，比如QQ的密码，但是如果那个星号本来就是星号，如Windows2000的拨号连接，就不行啦。 不知道是否理解你的需求＋满足你的需求？ {-------------------------------------------------------------------------------} {系统的回调过程，在本过程内发送显示/隐藏密码的消息} function EnumChildWindowsProc(hwnd: Integer; lparam: Longint): Boolean; stdcall; var   buffer: array[0..255] of Char; begin   GetClassName(hwnd, buffer, 256); //if StrPas(Buffer) = 'TEdit' then                        //找TEdit控件   begin     if lparam = 0 then       PostMessage(hwnd, EM_SETPASSWORDCHAR, longint(0), 0)     else       PostMessage(hwnd, EM_SETPASSWORDCHAR, longint('*'), 0);     InvalidateRgn(hwnd, 0, True);     Result := True;                                         //终止循环   end; end; {-------------------------------------------------------------------------------} {显示/隐藏所有窗体密码，本部分枚举所有窗体} procedure ShowAll(lparam: Integer); var   Window_Handle, Hand: Integer; begin   Window_Handle := GetWindow(Application.Handle, GW_HWNDFIRST);   while Window_Handle <> 0 do   begin     if Window_Handle <> 0 then     begin       EnumChildWindows(Window_Handle, @EnumChildWindowsProc, lparam);     end;     Window_Handle := GetWindow(Window_Handle, GW_HWNDNEXT);   end; end;

LiChaoHui · 2002-12-17

D:/Borland/Delphi6/Demos/Ipcdemos/IPCThrd.pas 内存共享和文件映射的类,挺好用的

YFeral · 2002-12-17

to zw84611：    确实是那样，但是那个例程只能捕获传向自己的按键，对捕获系统中其他程序中的按 键改动比较大，况且比较复杂，键值没有过滤。 使用控件的话这些事情可很好解决。：）

LiChaoHui · 2002-12-17

你的这种获取密码的方法太落后了, 对于我写的程序,你的方法就不行了, 我是响应按键事件,将字符写入内存, 编辑筐内,写入真实的*号 用你的方法只能得到一串*号而已

zw84611 · 2002-12-17

to YFeral：   不，那个例程是个全局的鼠标钩子，系统的所有按键都能捕获到！！

人在昆明 · 2002-12-17

zw84611的可以实现啦， yzhshi  你的代码在win2000  下可以抓到星号并存储起来吗？ no 其实本来没有这么麻烦，但是我的2000下看*的代码中有一个 waitfor 如果取密码的过程  跟  键盘 hook 在一个线程中就会因为等不到消息而死掉。 所以要共享内存，把键盘消息映射到exe 即不在 dll  这个线程中处理。 继续讨论看看有没有更好的解决方法。

人在昆明 · 2002-12-17

to LiChaoHui:      呵呵，那肯定如果你可以的去处理的 *  那当然不行啦，不过目前好多商业软件比如 qq 还是可以的。

不是系统级的高手别进来！(200分)

人在昆明

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

ljy_17

Unregistered / Unconfirmed

tseug

Unregistered / Unconfirmed

bbw

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

knifepj

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

smallsun007

Unregistered / Unconfirmed

zw84611

Unregistered / Unconfirmed

YFeral

Unregistered / Unconfirmed

zw84611

Unregistered / Unconfirmed

yzhshi

Unregistered / Unconfirmed

LiChaoHui

Unregistered / Unconfirmed

YFeral

Unregistered / Unconfirmed

LiChaoHui

Unregistered / Unconfirmed

zw84611

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

Similar threads