用注册表对delphi程序加密
本加密方法分三部分：
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(′第一次使用请设置密码!′);
|
|
edit2.Visible:=true; frmPass.Caption:=′请设置新密码′;
edit1.SetFocus; OK.Caption:=′设置′;
end; TheReg.CloseKey; end;
finally TheReg.Free; end; end;
|
二、按钮的响应代码：包括新设密码和验证密码。
|
procedure TfrmPass.OKClick(Sender: TObject);
begin
//根据Edit2的显示与否判断已有密码,进行验证
if edit2.Visible=false then begin
if pass(edit1.text)=ValueStr then begin
showmessage(′密码正确!′); end
else begin
showmessage(′密码不正确!无权操作!′);
halt; end; end //无密码,设置新密码
else begin
if edit1.text=edit2.text then begin
TheReg := TRegistry.Create;
TheReg.RootKey := HKEY—LOCAL—MACHINE;
KeyName := ′SOFTWARE\Mypassword′;
if TheReg.OpenKey(KeyName, True) then
TheReg.WriteString(tempStr,pass(edit1.text));
TheReg.CloseKey; end
else begin
showmessage(′再次键入的密码不一致,请重输!′);
|
|
