用注册表对Delphi程序进行加密
本加密方法分三部分:
　　1. 根据对注册表的搜索结果判定设置对话框的内容。
　　2. 若初次使用,则设新密码;若是已经设置密码,则进行验证。
　　3. 一个密码变换小程序(比原来的复杂得多)。当然,如果需要修改密码的功能,只要将设置密码部分改动一下即可。

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

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

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;