数组的XOR加密

Question

 
code: array[0..8] of byte =($55, $8B, $EC, $81, $C4, $30, $F0, $FF, $FF)上面的数组，想通过xor后生成一个新的数组。
delphi 小菜，请高手们指点迷津！

Answer 1

关键是与什么异或,是一个常量,那简单:procedure TForm1.Button1Click(Sender: TObject); const
 code: array[0..8] of byte =($55, $8B, $EC, $81, $C4, $30, $F0, $FF, $FF);
 var
   newcode : array[0..8] of byte;
  i:integer;
begin
  for i:=0 to sizeof(code)-1  do
     newcode[i]:=code[i] xor $55;  //这个就是你要的新数组
end;

Answer 2

请问怎么把newcode[i]显示在一个Memo控件中，或者是把他在编译的时候能够保存到一个txt文本里面。就是专门获取XOR后的byte数组。