/// <summary>
/// 字符加密函數  這是用的一個異或加密
/// </summary>
/// <param name="Str">待加密字符</param>
/// <returns>加密字符</returns>
function EncString(Str:String):String;
var
  i,j:Integer;
begin
  Result:='';
  j:=0;
  for i:=1 to Length(Str) do
  begin
    Result:=Result+IntToHex(Byte(Str[i]) xor XorKey[j],2);
    j:=(j+1) mod 8;
  end;
end;
/// <summary>
/// 字符解密函數
/// </summary>
/// <param name="Str">加密字符</param>
/// <returns>解密字符</returns>
function DecString(Str:String):String;
var
i,j:Integer;
begin
  Result:='';
  j:=0;
  for i:=1 to Length(Str) div 2 do
  begin
    Result:=Result+Char(StrToInt('$'+Copy(Str,i*2-1,2)) xor XorKey[j]);
    j:=(j+1) mod 8;
  end;
end;