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

[sergey.serg-72]

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

Они отличаются только начальным значением (Спецификации алгоритмов CRC).

BDA, а можно изменить уже имеющуюся мою функцию? что изменить , если можно в примере?
Спасибо !

[BDA]

Ну вот где result инициализируется, это и есть начальное значение для расчета (или Init из таблицы на Википедии).

[sergey.serg-72]

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

Ну вот где result инициализируется, это и есть начальное значение для расчета (или Init из таблицы на Википедии).

Вы имеете ввиду за мерить 0 , на $FFFF ?

Result := 0; это CRC-16/XMODEM
Result := $FFFF; это CRC-16 CCITT судя по таблице.
Я правильно понял?

[BDA]

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

Я правильно понял?

Да.

[sergey.serg-72]

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

Ну вот где result инициализируется, это и есть начальное значение для расчета (или Init из таблицы на Википедии).

BDA ВЫ, гений ! действительно всё получилось, взял , сделал тестовый файл -2, в редакторе HxD, подсчитал, получилось : 26Ff, изменил данные, согласно таблицы и действительно всё отлично !
Получается что CRC-16/XMODEM отличается от CRC-16 CCITT входными данными.
Действительно просто.
Вот вторая с тестовым файлом -2.

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

Да.

Разобрался , огромное спасибо BDA !
Странно то , что не в HxD, не в редакторе Тритона нет алгоритма CRC-16/XMODEM, да и я, не скажи Вы ,не знал о таком.
Получается что отработали сразу 2 варианта CRC-16/XMODEM и CRC-16 CCITT ?

[BDA]

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

не в HxD, не в редакторе Тритона нет алгоритма CRC-16/XMODEM

Может быть он менее распространен. Не знаю, что там в Тритоне, но в HxD можно нажать кнопку "Задать CRC..." и просто задать нужные параметры расчета (взяв их, например, с Википедии).

[sergey.serg-72]

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

Может быть он менее распространен. Не знаю, что там в Тритоне, но в HxD можно нажать кнопку "Задать CRC..." и просто задать нужные параметры расчета (взяв их, например, с Википедии).

Спасибо BDA ! я уже попробовал в HxD, да действительно. И ссылка Ваша очень к стате.
Ещё раз, огромно спасибо за помощь !

[sergey.serg-72]

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

Может быть он менее распространен. Не знаю, что там в Тритоне, но в HxD можно нажать кнопку "Задать CRC..." и просто задать нужные параметры расчета (взяв их, например, с Википедии).

Всем здравствуйте ! тему не закрываю, а придётся продолжить. Препод согласился с тем что это :CRC-16/XMODEM, но признавать ошибки не любит... В общем усложнил задание.
Что теперь требуется ?
1) Пересчитать контрольную сумму файла алгоритмом CRC-16/XMODEM , но не просто пересчитать.
Теперь требует пересчитать файл, пропустив( не учитывая) одного байта в файле , это байт 0Е, находящийся на адресе :02С. Полученную контрольную сумму прописать в конец файла.

То есть, надо как то пропускать один байт (не учитывать), встал в ступор !
Фото и тест-3 прилагается.

Уважаемые админы, а можно продолжить эту тему, или надо новую открывать, а эту , уже закрыли?

[BDA]

Можно пойти разными путями. Или "готовить" входные данные, исключая ненужный байт, или засунуть логику пропуска прямо в функцию подсчета (топорно, зато меньше думать):

for i := 0 to Len - 1 do
begin
  if i = $2C then
    continue;

[sergey.serg-72]

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

for i := 0 to Len - 1 do
begin
if i = $2C then
continue;

Попробовал пересчитать по двум адресам, а потом сложить содержание 2 буферов.
Выходит сумма, но я не уверен , что правильная. Наверное сложение делать нельзя.

function CRC16CCITT(P: PChar; Len: Word): Word;
var
i, j: Integer;
begin
Result :=0;
for i := 0 to Len - 1 do
begin
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 $1021
else
Result := Result shl 1;
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
const Adr=$02b-$0;  Adr2=$02D-$05E;
Var
crc,W: Word;
Buffer,Damp,F: String;
fs: TFileStream;
Begin
edit2.Clear;
edit4.Clear;
edit5.Clear;
OpenDialog1.Filter:='BIN (*.bin)|*.bin';
with OpenDialog1 do
if Execute then
begin
fs:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead);
Fs.Position:=$05E;
Fs.Read(w,2);
w:=swap(w );
edit4.Text:=IntToHex(w,2);
 end;
begin
Fs.Position:=$0;
SetLength(Buffer, Adr);
Fs.Read(Buffer[1],Adr);
end;
 begin
Fs.Position:=$02D;
SetLength(Damp, Adr2);
Fs.Read(Damp[1],Adr2);
F:=(Buffer+ Damp);
crc :=CRC16CCITT(PChar(f),Length(f));
//crc:=swap(crc );
edit2.Text :=IntToHex(crc, 2);
Fs.free;
end;
end;
end;
end.