100分购买加密解密算法！请看下！急的要命！

Question

那我在所一遍：
在一个文本文件中有这样的记录： 文件名为“font.txt”
 “一
$B0A1
  13
  78
  229
  34
g,ggll
B
1
二
$B0A2,$B0A3
  70,19
  133,23
  130,236
  31,35
fg,fgg
BB
2 ”
 我在程序中用到的调用语句为“
Var 
  PriStrList:TStringList;
begin  PriStrList := TStringList.Create;
  try
    PriStrList.LoadFromFile('font.txt');
    SetLength(FFontData.FontData,PriStrList.Count DIV 9);
             ·
             ·
             ·”
 我现在想把这个文本文件改为内部文件，或写成二进制文件，或采用密文！这样
 别人就不容易见到那些数据！
 请那位能善解我的苦衷，我已经找了快一天呢！告诉我到底那种方法方便一点，
 简单一点（当然是针对那个文本文件里面的数据而言）
 请详细告诉我，如果有源码更好 ，这样容易看懂！

Answer 1

不会变动，prometheusphinx(白日梦) 你有办法吗？ 
 tangth（青蛙） 你说的比如，是什么？

Answer 2

以下方法简单实用。
///////////////////////////////////////////////////////////////////////////
//文本简单的加密和解密
//////////////////////////////////////////////////////////////////////////const
  cKey = '随便你了';function Encrypt(mStr: string; mKey: string): string;
var
  I, J: Integer;
begin
  J := 1;
  Result := '';
  for I := 1 to Length(mStr) do begin
    Result := Result + Char(Ord(mStr[I]) xor Ord(mKey[J]));
    if J + 1 <= Length(mKey) then
      Inc(J)
    else J := 1;
  end;
  {自己加步骤}
end;function Decrypt(mStr: string; mKey: string): string;
var
  I, J: Integer;
begin
  J := 1;
  Result := '';
  {自己加步骤}
  for I := 1 to Length(mStr) do begin
    Result := Result + Char(Ord(mStr[I]) xor Ord(mKey[J]));
    if J + 1 <= Length(mKey) then
      Inc(J)
    else J := 1;
  end;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo2.Text := Decrypt(Encrypt(Memo1.Text, cKey), cKey);
end;

Answer 3

function addpassword( PriStrList:TStringList) : TStringList;
var
  str : string;
  i,n  : integer; 
begin
  for i := 0 to PriStrList.count do begin
     str := PriStrList.strings[i];
     for n := 1 to length(str) do 
       str[n] :=  char( byte(str[i]) xor (258100 shr 8 ));
     PriStrList.strings[i] := str;
  end;
  result := PriStrList;
end;