Question

利用delphi怎么编写异或函数？实现对一串字符串按位异或，最好给出一个详细的程序~

字符串名字为：SS
函数名为：bcc（SS）
最后得出的结果应该是一个字符！

Answer 1

字符串变量名为ss 是吧? 给你个例子
比如: ss:='Hello!'

function bcc(str:string):string;
var
c:string;
i:integer;
begin
for i:=1 to length(str) do
c:=c+chr( ord(copy(str,i,1)[1]) xor 124);
result:=c;
end;

结果: bcc(ss) 等于 4]