我必须为我的大学做一些项目,我需要计算CRC32。但我以前几乎不处理轮班,所以即使在我读了理论之后,我仍然很难。我为C找到了一些CRC32基本算法(不是我的(,并试图为Lazarus(Delphi(重写它。但它不起作用。我不明白,怎么了。请帮忙(*__(人
这是我的代码:
procedure TMyFrame.CRC32_Checksum();
var
P : Pointer;
Size, i : Integer;
CRC, j : LongWord;
B : ^Byte;
flag : Boolean;
begin
AssignFile (f, FileName);
Reset(f, 1);
Size := FileSize(f);
GetMem(P, Size);
BlockRead(f, P^, Size);
B := P;
//
//
CRC := $FFFFFFFF;
for i := 1 to Size do
begin
CRC := CRC XOR B^;
Inc(B);
for j := 0 to 7 do
begin
flag := (CRC AND 1) > 0;
if flag then
CRC := (CRC SHR 1) XOR $04C11DB7
else
CRC := CRC SHR 1;
end;
end;
LabeledEdit1.Text := IntToHEX(CRC, 8);
//
//
Freemem(P);
CloseFile(f);
end;
0xCBF43926
是0x340BC6D9
的逐位逆("not"(。您只需要在结果上使用not
,或者独占或与$FFFFFFFF
一起使用。
请注意,FPC附带一个CRC32单元。(来源于Mark Adler的crc32.c,上图(
该单元具有计算称为crc32((的块的CRC的功能
function crc32 (crc : cardinal; buf : Pbyte; len : cardinal): cardinal;
XOR包含在这个crc32.crc32((函数中。