正在阅读：用注册表对delphi程序加密用注册表对delphi程序加密

　　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(′第一次使用请设置密码!′);

　　edit1.SetFocus; OK.Caption:=′设置′;

　　end; TheReg.CloseKey; end;

　　finally TheReg.Free; end; end;

　　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.SetFocus; end; //进行下一步操作...

　　end; end;

　　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;