Главная arrow FAQ  
26.03.2019 г.
Главное меню
Главная
Документация
Скачать
Поиск
Контакты
Форум
FAQ
Browser statistics
Totals Top 5
 40 % Safari 537.36
 27 % Internet Explorer 6.0
 14 % Internet Explorer 9.0
 10 % Internet Explorer 8.0
 10 % Opera 9.80
Visitors by Country
Totals Top 5
 67 % United States
 19 % Russian Federation
 5 % Ukraine
 3 % Unknown
 2 % Germany
120538 visits from 139 countries

FAQ

Frequently Asked Questions.
Поиск по FAQ
Ответ
Как подсчиытвается CRC (контрольная сумма)?

Программа расчета CRC

function GetCRCByte(CRC, Nbt: byte): byte;
var
i : Byte;
begin
for i:=0 to 7 do begin
if Odd(CRC xor Nbt) then begin
CRC:=CRC xor $18;
CRC:=(CRC shr 1) or $80;
end else CRC:=CRC shr 1;
if Odd(Nbt) then begin
Nbt:=(Nbt shr 1) or $80;
end else Nbt:=Nbt shr 1;
end;
Result:=CRC;
end;

Комментариев: