delphi4arab منتديات دلفي للعرب

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

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

crc16
crr32

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

(13-06-2023, 05:53 PM)Team dz كتب : [ -> ]هل من مساعدة ياعضاء منتدى

كود :
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;

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

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

Team dz

wadoud

Team dz

Team dz