频道分类

Delphi 数据异或校验

作者:admin 来源: 日期:2019/10/11 10:17:21 人气: 标签:

 
//数据异或校验
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;