//数据异或校验function BytesXor(buffer:array of byte):Integer;var i:integer;begin Result:=$0; for i:=Low(buffer) to High(buffer) do begin result:=result xor buffer[i]; end;end;
Delphi 异或校验方法
原文：http://www.cnblogs.com/zhangzhifeng/p/5526760.html
