تحويل CRC-Ccitt Kermit 16 Delphi Code to C#

Question

أنا أعمل على وظيفة تعطيني قيمة Kermit CRC من سلسلة سداسية. لدي قطعة من الكود في دلفي. أنا مطور .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 في دلفي

أعتقد أن وظيفة دلفي صحيحة. إذا كان بإمكان أي شخص تحويل الرمز إلى C# سيكون رائعًا. حاولت التحويل إلى C#، لكنني فقدت في نوع بيانات الكلمات ووظيفة LO من Delphi. شكرا لكم جميعا.

Answer 1

من منتديات 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);
}

يستخدم الترميز. ascii.getBytes (سلسلة) لتحويل أ string إلى byte[].

Answer 2

الكلمة هي عدد صحيح غير موقّع 16 بت (والذي يمكنه تخزين القيم 0..65535).

LO إرجاع البايت المنخفض من عدد صحيح. لذلك إذا كان عدد صحيح هو 0x7B41AF ، على سبيل المثال ، سيعود LO 0xAF.