| 首页 | 电脑常识 | 程序设计 | 操作系统 | 语法 | 病毒安全 | 软件教程 | 硬件 | 数据库 | 多媒体 | 认证 | 下载 | 
首页>>程序设计 >>系统
*****查看技术

*****查看技术

电脑学习网,xuef.com,最全最新最权威的电脑知识网站.
免费计算机学习教程,电脑入门指南.
Windows系统的密码是很脆弱的,因为所有的密码输入的时候都显示为********
表面上看这很安全,因为一般人不懂*******是什么东西,但其实要看到*******
下的内容是很容易的事,工作原理如下:
Windows是基于窗口的消息驱动型作业系统,每个窗口都有自已的属性,其中密码窗
口的属性是ES_PASSWORD,所以我们可以利用枚举子窗口EnumChildWindows的方法
来找出系统中所有子窗口,再检查其属性GetWindowLong,若是ES_PASSWORD则是个密码窗
然后用SendMessage()取得窗口标题,那就是******下的真正内容



=========下面是Delphi程序=====================

program LookPass;

interface

uses
 Windows, Messages, SysUtils;
var
 hcount:integer;

//这是一个窗口响应函数,注意:Result:=true很重要,因为只有这样才能连续扫描所有子窗口
function lpEnumFunc(hwnd:integer;uint:integer):boolean;stdcall;
var hw,hs,wlong:integer;
   sbuf,sb2:array[0..256] of char;
   sb1:string;
begin
   //得到窗口的属性
   wlong:=GetWindowLong(hwnd,GWL_STYLE);
   //若属性为es_password则为密码窗
   if (wlong and ES_PASSWORD)<>0 then
   begin
       inc(hcount);
       //发送获取窗口标题的消息
       sendmessage(hwnd,wm_gettext,40,integer(@sbuf));
       //设置得到的密码
       strpcopy(sbuf,format('[Password %d] = %s',[hcount,sbuf]));
       //显示密码
   end;
   //result为true时继续扫描下一个子窗口
   result:=true;
end;


begin
    lp:=0;hcount:=0;
    //枚举子窗口,GetDesktopWindow用来得到桌面的句柄
    EnumChildWindows(GetDesktopWindow,@lpEnumFunc,lp);
end.
//////////////////////////////////////////////////////////////////////////////
                             作者:倪建华
                Copyright (C) 2001-6-27 Allright Reserved.

相 关 文 章
  • Delphi中初始化.Ini文件的读写

  • 为应用软件加入全面的功能权限控制

  • Delphi下汉字输入法的编程及使用

  • Win9x下程序间的数据传递

  • 在应用程序中开关WINDOWS系统

  • 利用DELPHI编写WINDOWS外壳

  • 想学win9x,nt,w2k下进程的深度隐藏吗?来这里吧

  • win32下的系统日志钩子示例程序(Delphi版)

  • 在DELPHI2.0/3.0中直接操作端口

  • 使用Delphi获取系统信息

  • 学府网电脑学习的乐园
    中国电脑教学网,电脑爱好者的乐园,做最好最全的计算机学习网站.