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 16 进制转换为 10进制

Delphi代码禁止窗体最大化

winsock 实现telnet后门

Delphi application.processmessages的作用

Delphi 录音制作 wav 文件

Delphi 使用indy idftp 通过android 上传文件

Delphi的获取某坐标的颜色值

Delphi环境下基于spcomm控件开发串口通讯报文字节丢失的问题解决

Delphi 网上获取北京时间取字符串与字符串中间的字符

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

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