Convertir código C++ a Delphi (para lograr un cierto "CRC" de una cadena de entrada)

[[escafandra]]

Traducción cuasi literal:

Código Delphi [-]
type
ABYTE = array [0..1] of BYTE;
PABYTE = ^ABYTE;

function CCITTx1D0F(data: PAnsiChar; count: integer): ABYTE;
var
  crc, z: Word;
  x, i: Integer;
begin
  crc:= $1D0F;
  x     := 0;
  while (count > 0) do
  begin
    Dec(count);
    z   := Word(data[x]) shl 8;
    Inc(x);
    crc := crc xor z;
    i:=8;
    repeat
      if crc and $8000 <> 0 then
        crc := (crc shl 1 xor $1021)
      else
        crc := (crc shl 1);
      dec(i);
    until i<=0;
  end;
  Result := PABYTE(@crc)^;
end;

Uso:

Código Delphi [-]
var
  S: String;
  CRC: ABYTE;
begin
  S:= '13|0000123|1|Maximilian|Mustermann|05051999|21092019';
  CRC:= CCITTx1D0F(PAnsiChar(S), Length(S));
end;

Consideraciones:
1. En C un array de Char es una cadena. Un unsigned char es un BYTE. Con estas consideraciones y teniendo en cuenta que se introduce una cadena, podemos usar PAnsyChar como parametro de entrada. Tambien podríamos unsa un array de bytes pero requeriría casting de entrada.
2. el CRC es un word pasado a array de 2 Bytes. El resultado del word es 8275 que en hexadecimal es $2053 pero visto como array de bytes es $53, $20


Saludos.