|
如果后两们为校验值,则肯定是CRC16了,我用标准CRC16算法得到前32的值应为:42 8D
给你个Delphi的算法
function ModBusCRC(var Data: Byte; Size: Byte): Word; //生成modbus CRC数据
var
CRC16Lo, CRC16Hi, CL, CH, UseHi, UseLo : Dword;
i, index : integer;
DataAdder : PByteArray;
begin
CRC16Lo := $FF; //CRC16Lo为CRC寄存器低8位
CRC16Hi := $FF; //CRC16Hi为CRC寄存器高8位
CL := $01;
CH := $A0; // A001 H 是CRC-16多项式代码
DataAdder := @Data;
for i := 0 to Size-1 do
begin
CRC16Lo := CRC16Lo xor DataAdder^; //每一个数据与CRC寄存器异或
for index := 0 to 7 do
begin
UseHi := CRC16Hi;
UseLo := CRC16Lo;
CRC16Hi := CRC16Hi shr 1;
CRC16Lo := CRC16Lo shr 1; //右移一位
if ((UseHi and $1) = $1) then //如果高位字节最后一位是1的话
CRC16Lo := CRC16Lo or $80; //低位字节右移后前面补1
if ((UseLo and $1) = $1) then //如果LSB 为1,则与多项式进行异或
begin
CRC16Hi := CRC16Hi xor CH;
CRC16Lo := CRC16Lo xor CL;
end;
end;
end;
Result := (CRC16Hi shl 8) or CRC16Lo;
end; |
|