Дельфи 7 Не получается реализация CRC16, на простом задание завис.

[sergey.serg-72]

Сообщение от BDA

В result 15 битное число, поэтому для проверки старшего бита новая маска 4000. И перед возвратом из функции в result 16-й бит обнуляется.

15 бит ,это 1,88 байт, 16 бит - 2 байта, 12 бит -1,5 байта, 8 бит - 1 байт ,10 бит - 1,25 байт это понятно. А как маска вычисляется, для 8 , 10,12,13 ? и соответственно обнуление .

Сообщение от BDA

Вбил ваш bin на сайте https://crccalc.com/. Контрольную сумму 0x92BE выдал CRC-16/XMODEM, который отличается от CCITT начальным значением.

И ни как не могу разобраться как Вы вбиваете bin файл. нет кнопки загрузки файла.
И как вы отличили какая CRC ? ни как не могу тестовый файл загнать.

[BDA]

Сообщение от sergey.serg-72

А как маска вычисляется, для 8 , 10,12,13 ? и соответственно обнуление .

Для длины 15:
0x4000 это 0100 0000 0000 0000‬ в двоичном виде (15й бит единичка, а остальные нули).
0x7FFF это 0111 1111 1111 1111‬ в двоичном виде (пятнадцать единичек).
Для других длин аналогично поступать. Проблема сейчас возникнет с длинами меньше 8 - их как-то по-другому нужно учесть.

Сообщение от sergey.serg-72

ни как не могу разобраться как Вы вбиваете bin файл

Открыл файл в HxD, выделил нужный кусок (целиком, например), скопировал его (можно Ctrl+C), вставил в блокнот, удалил все пробелы, вставил в поле на сайте, Input type выбрал HEX, нажал "Calc CRC-16".

Сообщение от sergey.serg-72

И как вы отличили какая CRC ?

А потом искал в столбце Result контрольную сумму, которая совпадала бы с той, что записана в файле.

[sergey.serg-72]

Сообщение от BDA

Для длины 15:
0x4000 это 0100 0000 0000 0000‬ в двоичном виде (15й бит единичка, а остальные нули).
0x7FFF это 0111 1111 1111 1111‬ в двоичном виде (пятнадцать единичек).
Для других длин аналогично поступать. Проблема сейчас возникнет с длинами меньше 8 - их как-то по-другому нужно учесть.

С этим разобрался вот : lдля длины 8

0X100 это 0100000000
0xFF это 011111111


для длины 10

0 X200 это 010000000000


0xFF это 01111111111



для длины 12

0X 800 это 0100000000000

0xFFF это 0111111111111

Не знаю как с функцией reverse - скорей всего не подойдёт, надо менять.

А вот CRC8 сделал так :

 function CRC8 (P: PChar; Len: Word; skip_i: Integer; Poly, Init, XorOut: Word; RefIn, RefOut: Boolean): Word;
var
  i, j: Integer;
begin
  Result := Init;
  for i := 0 to Len - 1 do
  begin
    if i = skip_i then
      Continue;
    if RefIn then
      Result := Result xor (reverse(ord(P[i])) shr 1)
    else
      Result := Result xor (ord(P[i]) shl 8);
    for j := 0 to 8 do
    begin
      if (Result and $100) <> 0 then
        Result := (Result shl 1) xor Poly
      else
        Result := Result shl 1;
    end;
  end;
  if RefOut then
    Result := reverse(Result) shr 1;
  Result := Result xor XorOut;
  Result := Result and $FF;
end;


function CRC8DARC(P: PChar; Len: Word; skip_: Integer): Word;
begin
  Result := CRC8(P, Len, skip_ ,  $38, 0, 0, true, true);
end;

crc := CRC8DARC(PChar(buffer), buf_len, skip_ - addr1);

Остаётся функция reverse для каких подойдёт и как исправить?

[BDA]

Сообщение от sergey.serg-72

С этим разобрался вот : для длины 8
0X100 это 0100000000
0xFF это 011111111

Я неверно сказал для длины 15. Если нумеровать биты с нуля, то 14й бит единичка. Поэтому для длины 8: 0x80 и 0xFF.

Сообщение от sergey.serg-72

Не знаю как с функцией reverse - скорей всего не подойдёт, надо менять.

Не надо её менять. Но для CRC8 сдвиги тоже надо менять (а не только менять маски):

function CRC8(P: PChar; Len: Word; skip_i: Integer; Poly, Init, XorOut: Word; RefIn, RefOut: Boolean): Word;
var
  i, j: Integer;
begin
  Result := Init;
  for i := 0 to Len - 1 do
  begin
    if i = skip_i then
      Continue;
    if RefIn then
      Result := Result xor (reverse(ord(P[i])) shr 8)
    else
      Result := Result xor ord(P[i]);
    for j := 0 to 7 do
    begin
      if (Result and $80) <> 0 then
        Result := (Result shl 1) xor Poly
      else
        Result := Result shl 1;
    end;
  end;
  if RefOut then
    Result := reverse(Result) shr 8;
  Result := Result xor XorOut;
  Result := Result and $FF;
end;

А еще у CRC-8/DARC полином 0x39, а не 0x38.

[sergey.serg-72]

Сообщение от BDA

Открыл файл в HxD, выделил нужный кусок (целиком, например), скопировал его (можно Ctrl+C), вставил в блокнот, удалил все пробелы, вставил в поле на сайте, Input type выбрал HEX, нажал "Calc CRC-16".

Сделал, скопировал, пробелы убрал. Но хорошо это маленький файл, а если большой?
неделю пробелы убирать ? Не ужели нельзя было сделать кнопку загрузки файла bin, hex,s19?....

Сообщение от BDA

А потом искал в столбце Result контрольную сумму, которая совпадала бы с той, что записана в файле.

Всё сделал , но в столбце нет контрольной суммы , которая бы совпадала 69АС, я такой не видел и не понял как отличили какая из CRC16. Всё по инструкции делал.
Вот фото.

[BDA]

Сообщение от sergey.serg-72

неделю пробелы убирать ?

Ну их убирать надо не вручную, а заменой по тексту.

Сообщение от sergey.serg-72

Но хорошо это маленький файл, а если большой?

Значит нужно искать сайт, который поддерживает загрузку файлов. Но чтобы разобраться вполне и этого хватает.

Сообщение от sergey.serg-72

но в столбце нет контрольной суммы , которая бы совпадала 69АС

На сайте Output type смените на HEX.

[sergey.serg-72]

Сообщение от BDA

Я неверно сказал для длины 15. Если нумеровать биты с нуля, то 14й бит единичка. Поэтому для длины 8: 0x80 и 0xFF

Да, действительно, а тоже сразу заподозрил не ладное. Всё, усвоено.

Сообщение от BDA

На сайте Output type смените на HEX.

Ура разобрался !!!

Сообщение от BDA

А еще у CRC-8/DARC полином 0x39, а не 0x38.

Я без очков, действительно 39, это сослепу.

Сообщение от BDA

Не надо её менять. Но для CRC8 сдвиги тоже надо менять (а не только менять маски):

Вот с этого момента , если можно подробней !
Как я понял , что в функции reverse, ничего менять не надо она подходит и для CRC9.10,12,14 ?


(. Но для CRC8 сдвиги тоже надо менять (а не только менять маски):[/QUOTE] Вот с этого момента не понял, сдвиги и для 8,10,12,14 разные? можно пример пожалуйста, а то не догоню ни как. Наверное опять просто, а я тормажу.

[BDA]

Сообщение от sergey.serg-72

в функции reverse, ничего менять не надо она подходит

Да.

Сообщение от sergey.serg-72

сдвиги и для 8,10,12,14 разные?

Да.

Сообщение от sergey.serg-72

можно пример

Сравните код функций CRC8 и CRC15, которые выше упоминались.

[sergey.serg-72]

Сообщение от BDA

Сравните код функций CRC8 и CRC15, которые выше упоминались.

Сравнил ; Result := Result xor (ord(P[i]) shl 8);
for j := 0 to 8 do /// для CRC8



Result := Result xor (ord(P[i]) shl 7);

for j := 0 to 7 do /// для CRC15

Получается что для чётных 8 сдвиг. а для не чётных 7?

[BDA]

Все-таки стоит сравнивать CRC8 и CRC15 из моих сообщений, а не из ваших
Цикл по j не нужно было менять. А сдвиги зависят не от четности/нечетности, а от требуемой длины.