用注册表对delphi程序加密

　　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;