利用Dll实现通用密码验证框
来源:互联网 发布:淘宝上公认好穿的文胸 编辑:程序博客网 时间:2024/06/06 00:42
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
如果能有一个通用的密码验证框,便能够为我们的工作节约不少的时间,更能使我们编制的程序小而快。
以下的程序为你提供了这样的一个Dll文件。
//文件名为CheckPasswordForm.dpr;
编译此文件生成CheckPasswordForm.Dll
library CheckPasswordForm;
uses
XcqCheck in 'XcqCheck.pas' {XcqForm};
exports
CheckPassword name 'CheckPassword';//Dll入口
begin
end.
//文件名为XcqCheck.pas
unit XcqCheck;
interface
uses
Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs,
StdCtrls, Mask, Menus;
type
TXcqForm = class(TForm)
XcqEdit: TMaskEdit;//密码输入框
OkBtn: TButton;
procedure OkBtnClick(Sender: TObject);
end;
var
XcqForm: TXcqForm;
Check: Boolean;//验证输入密码的正确性
function CheckPassword: Boolean;export;
//本Dll文件的关键实现
implementation
{$R *.DFM}
procedure TXcqForm.OkBtnClick(Sender: TObject);
begin
if XcqEdit.Text = 'xcq' then
Check := True;
Close;
end;
function CheckPassword;export;
begin
Check := False;
XcqForm := TXcqForm.Create(Application);
//创建密码输入框
XcqForm.ShowModal;//显示密码输入框;
注意:不能用XcqForm.Show!
Result := Check;//返回给调用本Dll的应用程序判断
XcqForm.Free;//释放本Dll文件所占资源
end;
end.
---- 在调用以上Dll中CheckPassword函数的应用程序中只需加入以下语句在implementation 后,
function CheckPassword: Boolean; external 'CheckPasswordForm.Dll' name 'CheckPassword';在需
要进行密码验证的地方加入下面的条件语句就完全实现了密码验证的功能。
if CheckPassword then
begin
...//如XcqQuery.Open;
end;
---- 上面的程序只是一个简单的密码验证框,我们可以将密码以写入注册表或文件的方式保存,动态修
改,更可以利用算术算法对密码进行简单的加密等,使要保密的数据更安全。
---- 其实,上文中如何在Dll中实现窗口让我走了不少弯路,我觉得此法对大家更有意义,这是避免程序
庞大的一种有效方法,不妨试试。
---- 以上程序在Windows98/Delphi3下编译通过。欢迎大家批评指正。
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 160x600, 创建于 08-4-23MSDN */google_ad_slot = "4367022601";google_ad_width = 160;google_ad_height = 600;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
作者:夏青虫
如果能有一个通用的密码验证框,便能够为我们的工作节约不少的时间,更能使我们编制的程序小而快。
以下的程序为你提供了这样的一个Dll文件。
//文件名为CheckPasswordForm.dpr;
编译此文件生成CheckPasswordForm.Dll
library CheckPasswordForm;
uses
XcqCheck in 'XcqCheck.pas' {XcqForm};
exports
CheckPassword name 'CheckPassword';//Dll入口
begin
end.
//文件名为XcqCheck.pas
unit XcqCheck;
interface
uses
Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs,
StdCtrls, Mask, Menus;
type
TXcqForm = class(TForm)
XcqEdit: TMaskEdit;//密码输入框
OkBtn: TButton;
procedure OkBtnClick(Sender: TObject);
end;
var
XcqForm: TXcqForm;
Check: Boolean;//验证输入密码的正确性
function CheckPassword: Boolean;export;
//本Dll文件的关键实现
implementation
{$R *.DFM}
procedure TXcqForm.OkBtnClick(Sender: TObject);
begin
if XcqEdit.Text = 'xcq' then
Check := True;
Close;
end;
function CheckPassword;export;
begin
Check := False;
XcqForm := TXcqForm.Create(Application);
//创建密码输入框
XcqForm.ShowModal;//显示密码输入框;
注意:不能用XcqForm.Show!
Result := Check;//返回给调用本Dll的应用程序判断
XcqForm.Free;//释放本Dll文件所占资源
end;
end.
---- 在调用以上Dll中CheckPassword函数的应用程序中只需加入以下语句在implementation 后,
function CheckPassword: Boolean; external 'CheckPasswordForm.Dll' name 'CheckPassword';在需
要进行密码验证的地方加入下面的条件语句就完全实现了密码验证的功能。
if CheckPassword then
begin
...//如XcqQuery.Open;
end;
---- 上面的程序只是一个简单的密码验证框,我们可以将密码以写入注册表或文件的方式保存,动态修
改,更可以利用算术算法对密码进行简单的加密等,使要保密的数据更安全。
---- 其实,上文中如何在Dll中实现窗口让我走了不少弯路,我觉得此法对大家更有意义,这是避免程序
庞大的一种有效方法,不妨试试。
---- 以上程序在Windows98/Delphi3下编译通过。欢迎大家批评指正。
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 160x600, 创建于 08-4-23MSDN */google_ad_slot = "4367022601";google_ad_width = 160;google_ad_height = 600;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
- 利用Dll实现通用密码验证框
- 利用Dll实现通用密码验证框
- 利用IAT hook实现windows通用密码后门
- 利用IAT hook实现windows通用密码后门
- 利用tessnet2_32.dll实现OCR验证码识别
- 利用tessnet2_32.dll实现OCR验证码识别
- 通用数据库访问DLL实现
- 实现一个密码验证输入框
- JLDAP《实现密码验证》
- GTK -- 实现密码验证
- 温习ASP调用C#的DLL并实现用户名密码进行域验证反馈结果
- 利用GPU实现通用计算
- 【JSP页面】利用数据库中的表格中的数据实现验证用户名和密码
- MySQL密码验证实现原理
- jquery实现密码强度验证
- js实现密码强度验证
- ExtJS4 如何实现密码验证
- JavaScript实现密码强度验证
- Delphi 代码优化——字符串篇
- 用CSS风格的文本和图形构建网页实用按钮
- SELECT查询的应用(一)
- win2000下安装Dreamweaver CS3
- TwoListen
- 利用Dll实现通用密码验证框
- 通过CSS类型的顺序改变网页超级连接翻滚效果
- 字符编码
- 如何锁定MYSQL数据表
- Delphi中的图形显示技巧
- 结构化的XHTML和CSS页面转换成为打印机页面
- Mxml Application和Mxml Component的区别
- placement new释疑
- 特殊数据(SQL)