Hola a todos,
Por fin he conseguido más información sobre el tema que se trata aquí... y ahora estoy seguro de que es posible convertir el código a Delphi, vaya, de que vosotros sabréis hacerlo, puesto que yo, aunque lo he intentado... no he sido capaz...
En efecto, el código de que se partía al principio no estaba completo, sino que faltaba información, según lo veo yo, principalmente, los tipos de las variables de entrada y de salida, o bien podía deducirse todo del siguiente código... que es el "programa" completo:
Código:
using System;
using System.Text;
namespace QRCode
{
class Program
{
static void Main(string[] args)
{
byte[] b = Encoding.Default.GetBytes("13|0000123|1|Maximilian|Mustermann|05051999|21092019");
byte[] crc = CCITTx1D0F(b, b.Length);
// Podemos ver una salida = 5320, que, es la esperada para la cadena de entrada
Console.WriteLine( $"{crc[0]:X2}{crc[1]:X2}" );
Console.ReadLine();
}
static private byte[] CCITTx1D0F(byte[] data, int len)
{
int i, x = 0;
ushort crc = 0x1D0F;
int count = len;
while (--count >= 0)
{
ushort z = (ushort)(data[x++] << 8);
crc = (ushort)(crc ^ z);
i = 8;
do
{
if ((crc & 0x8000) != 0)
crc = (ushort)(crc << 1 ^ 0x1021);
else
crc = (ushort)(crc << 1);
} while (--i > 0);
}
return BitConverter.GetBytes(crc);
}
}
}
Como se ve, la cosa cambia... tratamos con "bytes", no con "words" o "strings", y, ahora sí, creo que podréis acaso ayudarme / convertir el código / solucionar el problema... ¡o eso espero, puesto que yo, aunque lo he intentado (¡y teniendo más de la mitad hecho!) me declaro incapaz... aunque voy a seguir intentándolo...
Desde ya os agradezco vuestra ayuda a todos.