Отправлено Zman 26 августа 2002 г. 10:11 В ответ на: 2 Нерус. А чем CRC - таблицу сгенерили? Есть какая-то прога? отправлено CTAC 23 августа 2002 г. 11:49

procedure MakeCRC32Table;
// Polynom-Definition:
// x^32+x^26+x^23+x^22+x^16+x^12+x^11+x^10+x^8+x^7+x^5+x^4+x^2+x^1+x^0
// 1 0000 0100 1100 0001 0001 1101 1011 0111 = $04C11DB7
// Polynom-Definition revers:
// 1110 1101 1011 1000 1000 0011 0010 0000 1 = $EDB88320
const
cPolynom = $EDB88320;
var
i, k : Integer;
v : DWord;
begin
GetMem(xCRC32Table,SizeOf(TCRC32Table));
for i:=0 to 255 do begin
v:=i;
for k:=0 to 7 do begin
if (v and $01)<>0 then
v:=cPolynom xor (v shr 1)
else
v:=v shr 1;
end;
xCRC32Table^[i]:=v;
end;
end;