اريد حساب crc16 و crc32

[Team dz]

سلام عليكم ورحة الله وبركته 

اريد حساب قيم في جدول 

crc16
crr32





------------------------------------------------------------------------------------------------------------------------------------------------------------

[wadoud]

هل من مساعدة ياعضاء منتدى

كود :

function crc_buffer(crc: Cardinal; const p: PCardinal; sz: Cardinal): Cardinal; const   poly = $EDB88320; var   i: Integer;   tmp1, tmp2: Cardinal; begin   while sz > 0 do   begin     tmp1 := 0;     tmp2 := crc and poly;     for i := 0 to 31 do       tmp1 := tmp1 xor ((tmp2 shr i) and 1);     crc := p^ xor ((crc shl 1) or tmp1);     Inc(p);     Dec(sz);   end;   Result := crc; end;

[Team dz]

شكرا لك لكن ترجمة CHATGPT غير صحيحة

[Team dz]

// تحويل بيانات النص إلى مصفوفة بايتات
  SetLength(dataBytes, Length(data) div 2);
  HexToBin(PChar(data), @dataBytes[0], Length(dataBytes));