назад в прошлое , вопрос по CRC кодам

[aha]

когда то в каких то приборах использовал подсчет CRC, для связи по модбасу rtu
точно знаю такую комбинацию дивайс понимает 7 10 0 8 0 1 2 0 2 0D 79
0D 79 это CRC должно 16
подставляю в прежнюю формулу подсчета 0D 79 никак не получается ....
пытался в калькуляторы онлайн вставлять тоже не могу получить ожидаемое

[p51x]

Первая ссылка в гугле https://www.lammertbies.nl/comm/info/crc-calculation
вставляете 071000080001020002 тыкаете hex и Calculate CRC -> CRC-16 (Modbus) 0x790D

[aha]

спасибо что напомнили , похоже я ранее подсчет проводил CRC -16 не модбас , как сложно переделать такое ? алгоритм насколько сложнее ?

[p51x]

Что переделать? Там алгоритма то:

UInt16 ModRTU_CRC(byte[] buf, int len)
{
  UInt16 crc = 0xFFFF;
  
  for (int pos = 0; pos < len; pos++) {
    crc ^= (UInt16)buf[pos];          // XOR byte into least sig. byte of crc
  
    for (int i = 8; i != 0; i--) {    // Loop over each bit
      if ((crc & 0x0001) != 0) {      // If the LSB is set
        crc >>= 1;                    // Shift right and XOR 0xA001
        crc ^= 0xA001;
      }
      else                            // Else LSB is not set
        crc >>= 1;                    // Just shift right
    }
  }
  // Note, this number has low and high bytes swapped, so use it accordingly (or swap bytes)
  return crc;  
}

[aha]

function crc16(Buffer: string; Polynom, Initial: Cardinal): Cardinal;
var
i, j: Integer;
begin
Result := Initial;
for i := 1 to Length(Buffer) do
begin
// f1.sb2.Tag:= f1.sb2.Tag+1; //256
Result := Result xor (ord(buffer[i]) shl 8);
for j := 0 to 7 do
begin
// f1.tag:=f1.tag+1;
if (Result and $8000) <> 0 then
Result := (Result shl 1) xor Polynom
else
Result := Result shl 1;
end;
end;
Result:=Result and $ffff;
end;

function GenerateTableCrc16(Poly: Cardinal): Cardinal;
var
i: Cardinal;
begin
for i:=0 to 255 do
begin
CRC16Table[i] := Crc16(chr(i),Poly,0); // ..256

end;

end;

GenerateTableCrc16($8F57);
e12.text:=inttohex(crc16byte(s,0),4 ); ТУТ Я ПОЛУЧАЛ crc

мне конечно помогли- тот дивайс работал

[aha]

разобрался с кодом, теперь не могу прочитать полученные 3 байта с прибора
00 41 40 это точно 12
00 41 50 -- 13
.
.
00 41 А0 -- 20

00 43 00 -- 128
не хотелось бы составлять таблицу перевода ...