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编程时按回车键无效，无法换行解决办法

Delphi 无窗体无界面exe怎么做？

Delphi searchbox1 基本用法

Delphi winapi: getdesktopwindow - 返回桌面窗口的句柄

Delphi 计算文件与当前时间差(天小时分钟秒)

Delphi获取默认浏览器

Delphi deletefiles 删除目录下多个文件

Delphi多线程tthread详解

Delphi 字符串操作之格式化

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

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