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.