Delphi 数据异或校验

本文整理自网络，侵删。

 
//数据异或校验
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 传输文件例子的核心代码

Delphi 遍历pe文件

Delphi研究之驱动开发篇（四）--使用系统内存堆

Delphi indy tidhttp tidhttpserver post get

Delphi 防止程序重复执行的单元

Delphi pagecontrol.ttabsheet与drivecombobox.items同步

Delphi 10.3.x 截取字符串函数substring 和copy()常用字串符处理函数用法

Delphi分离汉字和英文字母

Delphi md5加密算法

Delphi中让图片大小随timage控件大小变化

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 数据异或校验