显示密码的原理_Delphi

  • 内容
  • 评论
  • 相关

大家都用过用来显示密码的工具吧,嘿嘿。其实原理很简单.比如说在Delphi中,Edit控件的PasswordChar属性可让框中的回显的字符为自己想要的字符。但是这些字符对于内部来说是不变的(虽说不够专业,但就是这么回事)!!而我们伟大的Delphi给了这个API----
int GetWindowTextLength(HWND hWnd);得到名字的长度
int GetWindowText得到名字
  hWnd代表句柄大家都知道吧。还是不说废话。看下的程序;

在Form中放Label,Edit,Button各一。将Edit的PasswordChar属性改成自己想要的字符。加入Button代码:

  procedure TForm1.Button1.Click(sendor:TObject);  Var    Charname:Pchar;    CharLong:integer;  begin    Charlong:=GetwindowTextLength(Edit1.handle)+1;    Getmem(charname,charlong);    GetWindowText(Edit.handle,Charname,Charlong);    Label1.Caption:=String(Charname);    FreeMem(charname,0)  end;

http://www.gaodaima.com/?p=65882显示密码的原理_Delphi

在Delphi 5.0 for winme下通过。
当然,这只是原理,原理而已。你大可以再融合其它技术,写一个自己的密码查看器。

欢迎大家阅读《显示密码的原理_Delphi》,跪求各位点评,若觉得好的话请收藏本文,by 搞代码

原创文章,转载请注明: 转载自搞代码

本文链接地址: 显示密码的原理_Delphi

微信支付二维码

微信 赏一包辣条吧~

支付宝支付二维码

支付宝 赏一听可乐吧~

评论

0条评论

发表评论

电子邮件地址不会被公开。 必填项已用*标注