Конвертировать код CRC-CCITT Kermit 16 DELPHI в C#

Я работаю над функцией, которая даст мне значение Kermit CRC из строки 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 в DELPHI

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

Источник

2 ответа

Решение

С форумов MSDN:

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[],

Источник

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

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

Источник
Другие вопросы по тегам