[ArtIntellAnd]

Привет всем. Помоги пожалуйста, как будет выглядеть данный код на Си, в Delphi. Функция подсчета контрольной суммы CRC8

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

unsigned char Crc8(unsigned char *pcBlock, unsigned int len) {     unsigned char crc = 0xFF;     unsigned int i;        while (len--)     {         crc ^= *pcBlock++;            for (i = 0; i < 8; i++)             crc = crc & 0x80 ? (crc << 1) ^ 0x31 : crc << 1;     }        return crc; }