Последние записи

made in programmersforum 3

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

11th
Ноя

Подсчет и поверка контрольной суммы CRC16

Posted by obzor under Delphi

Есть задание написать программу, для подсчёта и проверки контрольной суммы, в тестовом файле по алгоритму :CRC16CCITT, именно по этому алгоритму и желательно без таблицы.

BDA

Код:

function CRC16CCITT(P: PChar; Len: Word): Word;
var
  i, j: Integer;
begin
  Result := $FFFF;
  for i := 0 to Len - 1 do
  begin
    Result := Result xor (ord(P) shl 8);
    for j := 0 to 7 do
    begin
      if (Result and $8000) <> 0 then
        Result := (Result shl 1) xor $1021
      else
        Result := Result shl 1;
    end;
  end;
end;