CRC8 на Delphi

[Skail]

Привет всем. Помоги пожалуйста, как будет выглядеть данный код на Си, в 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;
}

[Человек_Борща]

как будет выглядеть данный код на Си, в Delphi.

Никак. Delphi не поддерживает Си.

[Stilet]

Как-то так:

function Crc8(pcBlock:string; len:integer):cardinal;
var crc,i:cardinal;
begin
    crc := $FF;
  
    while len>0 do begin dec(len)
    
        crc:= crc xor byte(len);
  
        for i := 0 to  8 do begin crc := crc shl 1
            if crc and $80 then crc:= crc  xor $31;
       end;
    end;
  
    result crc;
end;