powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / C++ [игнор отключен] [закрыт для гостей] / Помогите перевести функцию вычисления контрольной суммы с С на Паскаль
1 сообщений из 1, страница 1 из 1
Помогите перевести функцию вычисления контрольной суммы с С на Паскаль
    #38026870
filll
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Собстенно сабж.
Заранее спасибо.

unsigned char Crc8(unsigned char *pcBlock, unsigned char len)
{
unsigned char crc =0;
unsigned char fb, data;
unsigned char POL=0x18;

while (len--)
{
data =*pcBlock++;

fb =crc;
for (unsigned char i=0; i<8; i++)
{
fb =(crc ^ data)&0x01;
if(fb == 0x01)
crc=crc^POL;
crc=(crc>>1)&0x7F;
if (fb == 0x01)
crc=crc|0x80;
data=data>>1;
}
}
return crc;
}
...
Рейтинг: 0 / 0
1 сообщений из 1, страница 1 из 1
Форумы / C++ [игнор отключен] [закрыт для гостей] / Помогите перевести функцию вычисления контрольной суммы с С на Паскаль
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]