如何加密解密ini文件？？(18分)

以前有看过，别人的INI文件是一堆乱码，

不知道这是怎么制作出来的，又怎么读取的，还请大侠指点

加密后写入，读出后解密。

//运行一遍是加密,再运行一遍是解密
Function TForm1.CryptStr(Const S:string):String;
var
i: integer;
fkey: integer;
begin
result:='';
fkey := 8; //加密常量8,可以自己改
for i:=1 to length(s) do
result := result+chr( ord(s) xor fkey);
end;
//使用时这样即可
var
AppINI:TIniFile;
ConnStr:String;
begin
AppINI:=TIniFile.Create(ExtractFilePath(Application.ExeName)+'AppSys/login.dll');
ConnStr:= AppINI.ReadString('ADOconn', 'Conn', '');
ConnStr:= CryptStr(ConnStr);
AppINI.Free;
.......