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

[sergey.serg-72]

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

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

Так я и сравнивал с вашим CRC15,а CRC8 у Вас примера не было, с чем сравнивать ?
Сдвиги зависят от длины, вот я и хочу разобраться, от чего зависит разная длина и какая она должна быть на 8,10,12,14 CRC, как её вычислять ?

[BDA]

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

CRC8 у Вас примера не было

Был, сразу после вашего сообщения с CRC8.

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

от чего зависит разная длина и какая она должна быть на 8,10,12,14 CRC

Так длина дана в таблице (столбец Width). И это число является степенью порождающего контрольную сумму многочлена. А вот необходимые сдвиги уже зависят от длины.

[sergey.serg-72]

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

Был, сразу после вашего сообщения с CRC8.

ПРОШУ ПРОЩЕНИЯ BDA, ВЫ ПРАВЫ !, зашился я, мой косяк.

[BDA]

Хотя, похоже, можно не мучиться со смещениями внутри цикла, а сделать необходимые смещения до и после него:

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

[sergey.serg-72]

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

Так длина дана в таблице (столбец Width). И это число является степенью порождающего контрольную сумму многочлена. А вот необходимые сдвиги уже зависят от длины.

(столбец Width). для CRC 8 длина 8. для 10 десятая . для 12, двенадцатая. из таблице понятно и наглядна длина.С этим понятно.
далее, является степенью порождающего контрольную сумму многочлена. то есть контрольная сумма в один бай. или в два?
Сдвиги от длины.......CRC8 длина.8. контролка один байт =9 байт

Сдвиги есть в лево. в право так ведь? shl, shr

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

Хотя, похоже, можно не мучиться со смещениями внутри цикла, а сделать необходимые смещения до и после него:

лучше пока помучатся внутри цикла.пока не разобрался и не врубился. от простого. к сложному.

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

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

Вот сравнил и вот отличия :

Result := Result xor (ord(P[i]) shl 7); сдвиг в лево для 15




Result := Result xor (reverse(ord(P[i])) shr 8) логический сдвиг вправо 8

Но не как не дойду бестолковкой. сдвиг в право на 8 в одном. во втором сдвиг влево на 7. почему?

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

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

Это универсальная функция для всех CRC. заместо reverse ?

[BDA]

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

то есть контрольная сумма в один бай. или в два?

Длина контрольной суммы в битах совпадает с Width.

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

Сдвиги есть в лево. в право так ведь? shl, shr

Да.

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

от простого. к сложному.

Не могу сказать, что внутри цикла - просто, а снаружи - сложно.

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

Вот сравнил и вот отличия

Вы сравниваете разные ветки выполнения по флагу RefIn в двух функциях, а не одну ветку. Чтобы не сравнивать самому построчно, воспользуйтесь, например, программой Meld, которая подсветит различия. Основной смысл сдвигов внутри цикла, это расценивать переменную result как width-битовое число, а новые биты из потока данных надо класть в самые старшие биты result.

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

Это универсальная функция для всех CRC. заместо reverse ?

Да, универсальная (от CRC-1 до CRC-16, но проверял только на нескольких алгоритмах и строке 123456789). Нет, reverse всё также нужна.

Еще одно замечание. Я с темой реализации CRC сталкиваюсь впервые (до начала данной темы на форуме не задумывался, как именно оно там считает) и могу ошибаться. Так что единственным мерилом верности выводов является совпадение контрольной суммы с чужими реализациями.

[sergey.serg-72]

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

Длина контрольной суммы в битах совпадает с Width.

BDA здравствуйте ! сегодня препод офигел слегка от старого кода и от того. на сколько я продвинулся. сказал что у репетитора вашего знаний больше чем у него самого. Но хоть честно признался сегодня. что объяснять не умеет ... По принципу провёл урок и всё. дальше сами..
Лёд тронулся. я об этом второй год преподу говорю. что донести и объяснять не умеет совсем. от того и группа в отстающих и интереса нет у ребят к данному предмету. Сегодня, наконец услышал нас....... BDA . Вы пока, не оставляйте тему. пока не разберусь до конца. Что то меня зацепило конкретно.....

И так продолжим ! по теме : (Длина контрольной суммы в битах совпадает с Width.)

берём пример CRC8 - - Width (длина) контрольная сумма 0xF4 1-байт - 8 бит С этим понятно

значит длина для CRC8 это 8 бит Result := Result xor (reverse(ord(P[i])) shr 8)

тогда почему в цикле for j := 0 to 7 do семь почему?

для CRC16 for j := 0 to 8 do

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

Не могу сказать, что внутри цикла - просто, а снаружи - сложно.

Сейчас посмотрел и мне кажется Вы правы.

[BDA]

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

значит длина для CRC8 это 8 бит Result := Result xor (reverse(ord(P[i])) shr 8)

Зря вы пытаетесь разобраться с ветки, в которой есть reverse. reverse накладывает свои особенности на размер сдвига (потому что переворачивает 8битное число как 16битное, что нужно учесть при сдвиге).

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

для CRC16 for j := 0 to 8 do

В CRC16 также цикл "for j := 0 to 7 do".

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

семь почему?

Потому что берется один байт (8 бит) из потока и прокручивается через XOR.

[sergey.serg-72]

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

Вы сравниваете разные ветки выполнения по флагу RefIn в двух функциях, а не одну ветку. Чтобы не сравнивать самому построчно, воспользуйтесь, например, программой Meld, которая подсветит различия. Основной смысл сдвигов внутри цикла, это расценивать переменную result как width-битовое число, а новые биты из потока данных надо класть в самые старшие биты result.

Как говорил герой фильма " Покровские ворота " во формулирует !!! Попробую перевести сам.а Вы поправьте. если ошибусь.

( Основной смысл сдвигов внутри цикла, это расценивать переменную result как width-битовое число, а новые биты из потока данных надо класть в самые старшие биты result.)

переменная result для CRC8 - 8 ,бит,для СRС16 - 16 бит так?
А новые биты из потока данных могут быть как 8. так и 16 бит мы кладём в самые старшие биты result - не понятно. ?

[BDA]

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

переменная result для CRC8 - 8 ,бит,для СRС16 - 16 бит так?

Да.

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

А новые биты из потока данных могут быть как 8. так и 16 бит

Нет. Из потока всегда берется 8 бит за один раз. Но разместить их надо всегда в старшие биты result. Поэтому для CRC16 сдвиг "shl 8", а для CRC8 не было сдвига вообще (если рассматривать функции до CRCN).