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保存读取utf-8的文本文件

Delphi tstringlist 保存txt文本文件最后一行不留空行

Delphi通过将数据放入exe的资源信息中的方式制作自已的安装工具

Delphi执行cmd命令和bat文件

Delphi xe 减少程序体积!

Delphi filecreate 建立新文件

Delphi 使用钩子函数 - 钩子链和 callnexthookex 的返回值

Delphi编程之win10桌面图标设置

Delphi 调用js解决全角转半角

Delphi 加载excel 导入数据库

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



打赏

取消

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

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

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

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

评论

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