关于异或运算

Question

将一字符串中的每一位取出，用每一位的ASC码值与一数异或运算，得到新的字符串，请问怎么实现，能否给出一完整的例程？

Answer 1

s:='fsdfs';
code:=23;
for i:=1 to length(s) do
begin
  s1:=s1+ chr(ord(s[i]) xor code);
end;

Answer 2

ｓｔｒ是ｃ型，可以使用ｄｅｌｐｈｉ自己的长度判断
while str[i] <> '\n' do
  newStr := newStr + intToStr(ord(str[i]) xor yourNumber)