[ArtIntellAnd]

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

Код:

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;
}

[lmikle]

совсем народ обленился. Первые 2 ссылки из гугла:
http://radiokot.ru/forum/viewtopic.php?f=24&t=38160
http://www.miscel.dk/MiscEl/CRCcalculations.html