给配置文件ini加个密！如何做到啊？抢分题！

Question

小弟正做一程序，但目前配置文件ini是明文的。
如：
[config]
mian=测试但是现在客户要求配置文件进行加密。搜索了半天也不知道怎么做才好。
只要简单的加密就可以了。问题是加密这部分好做，解密感到十分困惑，因为是配置文件，需要读取里面的内容，解密后是怎么协调的呢？总不至于让我生成解密后的临时文件吧？

Answer 1

function EnDeCode(s:String;i:integer):String;
var k:integer;
begin
  for k:=1 to Length(s) do
    s[k]:=Chr(ord(s[k]) Xor i);
  Result:=s;
end;with TIniFile.Create(ExtractFilePath(Application.ExeName)+'Config.ini') do
begin
  WriteString('Config','mian',EnDeCode(myString,300));
  Free;
end;//这是写with TIniFile.Create(ExtractFilePath(Application.ExeName)+'Config.ini') do
begin
  myString:=EnDeCode(ReadString('Config','mian',''),300);
  Free;
end;//这是读

Answer 2

楼主不妨用dat文件来保持配置。