用注册表对delphi程序加密

1 2 3 下一页

　　本加密方法分三部分：

　　1. 根据对注册表的搜索结果判定设置对话框的内容。

　　2. 若初次使用，则设新密码；若是已经设置密码，则进行验证。

　　3. 一个密码变换小程序（比原来的复杂得多）。当然，如果需要修改密码的功能，只要将设置密码部分改动一下即可。

　　一、程序启动时，通过搜索注册表，判断是否已有密码，来确定窗口的显示内容。不过事先应有以下的声明然后才能使用：

　　在user中加入TReGIStry，在var声明中加入以下几个窗体变量：

　　TheReg: TRegistry;

　　KeyName,ValueStr,tempStr:String;

　　procedure TfrmPass.FormShow(Sender: TObject);

　　begin

　　TheReg := TRegistry.Create;

　　try TheReg.RootKey := HKEY—LOCAL—MACHINE;

　　KeyName := ′SOFTWARE\Mypassword′;

　　//有该键则打开，没有则创建

　　if TheReg.OpenKey(KeyName, True) then begin

　　tempStr:=ExtractFileName(Application.ExeName); //读取密码

　　ValueStr:=TheReg.ReadString(tempStr);

　　//密码不为空则修改窗体为验证密码

　　if ValueStr<>′′ then begin

　　edit2.Visible:=false; frmPass.Caption:=′验证密码′;

　　edit1.SetFocus; OK.Caption:=′确定′; end

　　//密码为空则修改窗体为设置密码对话框

　　else begin

　　showmessage(′第一次使用请设置密码!′);

上一篇： Delphi学习:2个不错的通配符比较函数
下一篇： 基于Delphi的组件设计之简单实例

1 2 3 下一页

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!