标签：
//数据异或校验
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;
标签：
原文地址：http://www.cnblogs.com/zhangzhifeng/p/5526760.html
