• 欢迎访问搞代码网站,推荐使用最新版火狐浏览器和Chrome浏览器访问本网站!
  • 如果您觉得本站非常有看点,那么赶紧使用Ctrl+D 收藏搞代码吧

显示密码的原理_Delphi

Delphi 搞代码 3年前 (2018-08-09) 145次浏览 已收录 0个评论

大家都用过用来显示密码的工具吧,嘿嘿。其实原理很简单.比如说在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 搞代码


喜欢 (0)
[搞代码]
分享 (0)
发表我的评论
取消评论

表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址