用注册表对delphi程序加密
添加时间: 2006-2-25 5:25:39 作者: Delphi教程 阅读次数:49 来源: http://www.d9soft.com
本加密方法分三部分：
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(′再次键入的密码不一致,请重输!′); |
| 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制作DLL的方法 下一篇文章: 教你如何用Delphi注册快捷方式