Übersetzen von 3 Zeilen C Code nach Delphi

[eric_draven]

Hi,

kann mir jemand bitte diesen (für mich) kryptischen C Code nach Delphi oder Pseudocode übersetzen ?

Code:

void get_crc( unsigned char d )
{
  int i;

  crc ^= d;
  for( i = 8; i; i-- ){
    crc = (crc >> 1) ^ ((crc & 1) ? 0xA001 : 0 );
  }
}