关于字符串操作

Question

都说字符串的加密最简单的办法是通过字符异或完成的。可是在程序里怎样实现字符串的异或操作呢。请大家帮助。程序中我写:'ab' xor 'bc'提示不支持此操作。

Answer 1

function addkey(str1:string):string;
var
i:integer;
temp:string;
begin
temp:=str1;
for i:=1 to length(str1) do
 begin
   temp[i]:=char(ord(str1[i]) xor (i));
 end;
 addkey:=temp;
end;

Answer 2

我以前写了一个程序，就用了简单的字符异或，但已经很久了。算法全部忘记了。且源程序也没了。现在只知道这个程序输入420101300198696这样一串数字，屏幕上就会出来一串乱码，翻译成16进制码为：82 CE 4E 74 02 3C 69 3F B6 F7 F3 8B 3F 39 20 20 20 02，请大家能给我提个醒，我以前是怎样加密的。谢谢。