N
Neo_leaf
Unregistered / Unconfirmed
GUEST, unregistred user!
已知十六进制数组ArrHex($01 $00 $0B $00 $00 $05 $00 $00)，
如何求出这些数的CRC32校验码？
我的做法是这样的，大家看看对不：
定义全局数组：
TableCRC : array[0..255] of DWORD;
定义初始化数组函数：
procedure TfrmFinal.MakeTable();
var
i,j,Crc:integer;
begin
for i:=0 to 255 do
begin
Crc:=i;
for j:=0 to 7 do
begin
if (Crc and 1)<>0 then
Crc:=(Crc shr 1) xor $EDB88320
else
Crc:=Crc shr 1;
end;
TableCRC:=Crc;
end;
end;
定义求文件中数据CRC32码函数：
procedure TfrmFinal.GetCRC32File(FileName:string;var CRC32
WORD);
var
F:file;
BytesReadWORD;
Buffer:array[1..65521] of Byte;
i:Word;
begin
FileMode :=0;
CRC32 :=$ffffffff;
{$I-}
AssignFile(F,FileName);
Reset(F,1);
if IoResult = 0 then
begin
repeat
BlockRead(F,Buffer,Sizeof(Buffer),BytesRead);
for i := 1 to BytesRead do
CRC32 := (CRC32 shr 8) xor TableCRC[Buffer xor (CRC32 and $000000ff)];
until BytesRead = 0;
end;
CloseFile(F);
{$I+}
CRC32 := not CRC32;
end;
定义求一字符串CRC32校验码函数：
function TfrmFinal.GetCrc32Str(s: string; Seed: LongInt):string;
var
Count: Integer;
CrcVal: LongInt;
begin
CrcVal := Seed;
for Count := 1 to Length(s) do
CrcVal := TableCRC[Byte(CrcVal xor DWORD(Ord(s[Count])))] xor ((CrcVal shr 8) and $00FFFFFF);
Result := IntToHex(not(CrcVal), 8);
end;
应用实例：
procedure TfrmFinal.Button1Click(Sender: TObject);
var
str : string;
begin
MakeTable();
str := '01000B0000050000'; //01 00 0B 00 00 05 00 00这样也不行，
Memo1.Text := GetCrc32Str(Trim(str),8);
end;
这样求得的结果不对，麻烦大家帮忙看看俺这里出了什么问题，
100分送上，不成敬意！！
如何求出这些数的CRC32校验码？
我的做法是这样的，大家看看对不：
定义全局数组：
TableCRC : array[0..255] of DWORD;
定义初始化数组函数：
procedure TfrmFinal.MakeTable();
var
i,j,Crc:integer;
begin
for i:=0 to 255 do
begin
Crc:=i;
for j:=0 to 7 do
begin
if (Crc and 1)<>0 then
Crc:=(Crc shr 1) xor $EDB88320
else
Crc:=Crc shr 1;
end;
TableCRC:=Crc;
end;
end;
定义求文件中数据CRC32码函数：
procedure TfrmFinal.GetCRC32File(FileName:string;var CRC32
WORD);var
F:file;
BytesRead
WORD;Buffer:array[1..65521] of Byte;
i:Word;
begin
FileMode :=0;
CRC32 :=$ffffffff;
{$I-}
AssignFile(F,FileName);
Reset(F,1);
if IoResult = 0 then
begin
repeat
BlockRead(F,Buffer,Sizeof(Buffer),BytesRead);
for i := 1 to BytesRead do
CRC32 := (CRC32 shr 8) xor TableCRC[Buffer xor (CRC32 and $000000ff)];
until BytesRead = 0;
end;
CloseFile(F);
{$I+}
CRC32 := not CRC32;
end;
定义求一字符串CRC32校验码函数：
function TfrmFinal.GetCrc32Str(s: string; Seed: LongInt):string;
var
Count: Integer;
CrcVal: LongInt;
begin
CrcVal := Seed;
for Count := 1 to Length(s) do
CrcVal := TableCRC[Byte(CrcVal xor DWORD(Ord(s[Count])))] xor ((CrcVal shr 8) and $00FFFFFF);
Result := IntToHex(not(CrcVal), 8);
end;
应用实例：
procedure TfrmFinal.Button1Click(Sender: TObject);
var
str : string;
begin
MakeTable();
str := '01000B0000050000'; //01 00 0B 00 00 05 00 00这样也不行，
Memo1.Text := GetCrc32Str(Trim(str),8);
end;
这样求得的结果不对，麻烦大家帮忙看看俺这里出了什么问题，
100分送上，不成敬意！！