Преобразование CRC-CCITT Kermit 16 Код DELPHI в C#

Question

Я работаю над функцией, которая даст мне значение ККМ Kermit из строки HEX. У меня есть код в DELPHI. Я разработчик .NET и нуждаюсь в коде в C#.

function CRC_16(cadena : string):word; 
var 
valuehex : word; 
i: integer; 
CRC : word; 
Begin 
    CRC := 0; 
    for i := 1 to length(cadena) do 
    begin 
     valuehex := ((ord(cadena[i]) XOR CRC) AND $0F) * $1081; 
     CRC := CRC SHR 4; 
     CRC := CRC XOR valuehex; 
     valuehex := (((ord(cadena[i]) SHR 4) XOR LO(CRC)) AND $0F); 
     CRC := CRC SHR 4; 
     CRC := CRC XOR (valuehex * $1081); 
    end; 
    CRC_16 := (LO(CRC) SHL 8) OR HI(CRC); 
end; 

Я получил код с этой страницы: Kermit CRC in DELPHI

Я предполагаю, что функция Delphi правильно. Если кто-то может конвертировать код в C#, это будет здорово. Я попытался преобразовать в C#, но потерялся в типе данных WORD и функции LO Delphi. Спасибо вам всем.

Answer 1

От MSDN forums:

static long ComputeCRC(byte[] val) 
{ 
    long crc; 
    long q; 
    byte c; 
    crc = 0; 
    for (int i = 0; i < val.Length; i++) 
    { 
     c = val[i]; 
     q = (crc^c) & 0x0f; 
     crc = (crc >> 4)^(q * 0x1081); 
     q = (crc^(c >> 4)) & 0xf; 
     crc = (crc >> 4)^(q * 0x1081); 
    } 
    return (byte)crc << 8 | (byte)(crc >> 8); 
} 

Encoding.ASCII Использование .GetBytes(string) для преобразования string в byte[].

Answer 2

Слово представляет собой 16-разрядное целое без знака (которое может хранить значения 0..65535).

Lo возвращает младший байт целого числа. Поэтому, если целое число равно 0x7B41AF, например, lo вернет 0xAF.