请教高手150分，请教1.异或校验和,

Question

请教高手150分，
 举例得分
 1.异或校验和 （所有字节异或）
 2. 累加异或校验和 (算术相加并舍去进位)

Answer 1

二进制1111 xor 1100 = 0011

Answer 2

function xortest(buffer:array of byte):byte;
var
    i,len:integer;
begin
    result:=$11;
    len:=length(buffer);
    for i:=0 to len-1 do 
        result:=result xor buffer[i];
end;

Answer 3

我只想求一个byte数组的异或校验和,,请教