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;
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;
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;
delphi 用注册表对Delphi程序进行验证

相关推荐

评论
