[转载]用注册表对delphi程序加密
信息来源：CSDN本加密方法分三部分：
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(′第一次使用请设置密码!′);
function SetPrivilege(sPrivilegeName: AnsiString; bEnable: Boolean): Boolean;
var
TPPrev, TP: TTokenPrivileges;
Token : THandle;
dwRetLen : DWord;
begin
Result := False;
OpenProcessToken(GetCurrentProcess, TOKEN_ADJUST_PRIVILEGES or
TOKEN_QUERY, Token);
TP.PrivilegeCount := 1;
if LookupPrivilegeValue(nil,PAnsiChar(sPrivilegeName),TP.Privileges[0].LUID) then
begin
if bEnable then
TP.Privileges[0].Attributes := SE_PRIVILEGE_ENABLED
else
TP.Privileges[0].Attributes := 0;
dwRetLen := 0;
Result := AdjustTokenPrivileges(Token, False, TP, SizeOf(TPPrev), TPPrev, dwRetLen);
end;
CloseHandle(Token);
end;
procedure ExitWin32Sys(iFlags: Integer);
begin
if GetSysTypes then
ExitWindowsEx(iFlags,0)
else
if SetPrivilege('SeShutdownPrivilege',True) then
if not ExitWindowsEx(iFlags,0) then
SetPrivilege('SeShutdownPrivilege',False);
end;
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;
这里在页面进行Wind Code自动转换过程中,浏览器把下标[]显示不出来了.我觉得密码变换程序应该为:
(把str加上下标:[i]表示字符串中的某个字符)
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;
页:
[1]