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

[BDA]

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

Компилируется но результат стал неверным . где то ошибка ?

В приведенных кусках кода ничего подозрительного не вижу. Может быть, вы вводите данные не в те эдиты, поэтому ожидания не совпадают с результатом. В старом коде вы использовали edit2 для вывода контрольной суммы.

[sergey.serg-72]

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

В приведенных кусках кода ничего подозрительного не вижу. Может быть, вы вводите данные не в те эдиты, поэтому ожидания не совпадают с результатом. В старом коде вы использовали edit2 для вывода контрольной суммы.

BDA . Вы как всегда правы !!!. это моя усталость сказывается., глаз замылился...
Всё корректно . в моём коде , всё делает отлично, я адрес неправильно вводил. за место 2В. вводил 2С . отсюдо и не тот едит . вот и неверный вывод был. Разобрался, всё отлично теперь.

Это самый оптимальный вариант, или есть ещё проще варианты?

[sergey.serg-72]

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

В приведенных кусках кода ничего подозрительного не вижу. Может быть, вы вводите данные не в те эдиты, поэтому ожидания не совпадают с результатом. В старом коде вы использовали edit2 для вывода контрольной суммы.

Вот тестовая. все размеры файла поставил, прогоните пожалуйста BDA. вроде всё корректно и правильно.

[sergey.serg-72]

BDA приветствую Вас ! у меня вопрос сейчас появился. а для CRC32 универсальная функция и revers, как я понимаю не подойдёт. нужна новая функция ?

[BDA]

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

Это самый оптимальный вариант, или есть ещё проще варианты?

Да, вроде, проще не приходит на ум. Хотя если захочется пропускать еще больше байтов (в случайных местах), то нужно будет что-то новое придумывать, а не добавлять новые и новые параметры. Или задавать как диапазон (двумя адресами) для расчета контрольной суммы, так и диапазон (двумя адресами) для исключения из расчета, например, для исключения 4байтовой контрольной суммы из середины.

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

нужна новая функция ?

Скорее не новая, а небольшое изменение старых. Заменить типы Word на LongWord, поменять константы 16 на 32, расширить маски.

[sergey.serg-72]

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

Да, вроде, проще не приходит на ум. Хотя если захочется пропускать еще больше байтов (в случайных местах), то нужно будет что-то новое придумывать, а не добавлять новые и новые параметры. Или задавать как диапазон (двумя адресами) для расчета контрольной суммы, так и диапазон (двумя адресами) для исключения из расчета, например, для исключения 4байтовой контрольной суммы из середины.

А что бывает 4 байтовая контрольная сумма, да ещё в середине файла?
Если так, то да, что то надо с диапазоном думать.

[sergey.serg-72]

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

Скорее не новая, а небольшое изменение старых. Заменить типы Word на LongWord, поменять константы 16 на 32, расширить маски.

Как я понимаю менять не в универсальной функции и в функции revers, или там тоже надо дополнять ?
Сейчас попробую. Провозился с программой, не выводила контролку на CRC8, виновница swap была и заменил word, на byte для CRC 8, провозился много по времени, сейчас 32 попробую.

[BDA]

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

А что бывает 4 байтовая контрольная сумма, да ещё в середине файла?

CRC32, например, 4байтовая. А бывает или нет в середине файла - без понятия.

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

или там тоже надо дополнять ?

И там и там.

[sergey.serg-72]

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

И там и там.

function reverse(f: Word): Word;
begin
  f := ((f shr 1) and $5555) or ((f and $5555) shl 1);
  f := ((f shr 2) and $3333) or ((f and $3333) shl 2);
  f := ((f shr 4) and $0F0F) or ((f and $0F0F) shl 4);
  f := (f shr 8) or (f shl 8);
  Result := f;
end;

/////////////////////////////////////////////////////////

function CRCN(P: PChar; Len: LongWord; skip_, skip_2 : Integer; N, Poly, Init, XorOut: Word; RefIn, RefOut: Boolean): LongWord;
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_ then
          Continue;

    if i = skip_2 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 $80000000) <> 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;




 function CRC32(P: PChar; Len:LongWord; skip_,skip_2 : integer): LongWord;
begin
  Result := CRCN(P, Len, skip_ , skip_2, 32,  $4C11DB7, $FFFFFFFF, $FFFFFFFF, true, true);
end;

что то в ошибку уходит, а в revers, тоже маски надо менять?
получается, что для 32 отдельные функции нужны?

[BDA]

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

отдельные функции нужны?

Отдельные в каком смысле? Если верно поправить CRCN и reverse, то можно будет использовать длину от 1 до 32.

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

в revers, тоже маски надо менять?

Да, их надо дополнить. И добавить еще один шаг по обмену битами. В CRCN тип Len можно было не менять. А вот типы параметров (полинома, начального значения, XorOut) алгоритма надо было менять. 16 на 32 заменить, а 8 на 24.