+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : اريد حساب crc16 و crc32 (/showthread.php?tid=12314)
اريد حساب crc16 و crc32 - Team dz - 08-06-2023
سلام عليكم ورحة الله وبركته
اريد حساب قيم في جدول
crc16
crr32
------------------------------------------------------------------------------------------------------------------------------------------------------------
RE: اريد حساب crc16 و crc32 - wadoud - 13-06-2023
(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;RE: اريد حساب crc16 و crc32 - Team dz - 13-06-2023
شكرا لك لكن ترجمة CHATGPT غير صحيحة
RE: اريد حساب crc16 و crc32 - Team dz - 13-08-2023
// تحويل بيانات النص إلى مصفوفة بايتات
SetLength(dataBytes, Length(data) div 2);
HexToBin(PChar(data), @dataBytes[0], Length(dataBytes));