delphi 用注册表对Delphi程序进行验证

本加密方法分三部分:

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

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

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

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

　　在user中加入TRegistry,在var声明中加入以下几个窗体变量:

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;

二、按钮的响应代码:包括新设密码和验证密码。

　　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('再次键入的密码不一致,请重输!');

　　 edit1.text:=''; edit2.text:='';

　　 edit1.SetFocus;

end; //进行下一步操作...

　　 end;

三、密码变换程序:注意要预先定义。

　　这个变换小程序在笔者看来还不算很复杂,只进行了两次变换,不过,想要破译也是得费点劲。读者还可以采用其他的数学函数进行更为复杂的变换。

function pass(pstr:string):string;

　　var str,str1:string;

　　i,j:integer;

　　begin

　　 str:=pstr;

　　 for i:=1 to length(str) do begin

　　//进行第一次变换

　　 j:=(i*i*i mod (i+20))+(i*i mod (i+10))+i*2+1;

　　 str1:=str1+chr(ord(str[i])+j); //第二次变换

　　 j:=(i*i*i mod (i+10))+(i*i mod (i+20))+i*2+1;

　　 str1:=str1+chr(ord(str[i])+j); end;

　　 pass:=str1;

　　end;

推荐分享