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》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...