本文整理自网络，侵删。
unit Crc8Unt;
interface
type
PBYTE = ^Byte;
//计算CRC校验码
function GetCrc8(const pData: Pointer; nLength: Integer): byte;
//校验函数
function CheckCRC8(const pData: Pointer; nLength: Integer; CrcValue: byte):
Boolean;
implementation
uses SysUtils,yifanUnt;
const
CRCTable8: array[0..255] of byte = (
$00, $31, $62, $53, $C4, $F5, $A6, $97,
$B9, $88, $DB, $EA, $7D, $4C, $1F, $2E,
$43, $72, $21, $10, $87, $B6, $E5, $D4,
$FA, $CB, $98, $A9, $3E, $0F, $5C, $6D,
$86, $B7, $E4, $D5, $42, $73, $20, $11,
$3F, $0E, $5D, $6C, $FB, $CA, $99, $A8,
$C5, $F4, $A7, $96, $01, $30, $63, $52,
$7C, $4D, $1E, $2F, $B8, $89, $DA, $EB,
$3D, $0C, $5F, $6E, $F9, $C8, $9B, $AA,
$84, $B5, $E6, $D7, $40, $71, $22, $13,
$7E, $4F, $1C, $2D, $BA, $8B, $D8, $E9,
$C7, $F6, $A5, $94, $03, $32, $61, $50,
$BB, $8A, $D9, $E8, $7F, $4E, $1D, $2C,
$02, $33, $60, $51, $C6, $F7, $A4, $95,
$F8, $C9, $9A, $AB, $3C, $0D, $5E, $6F,
$41, $70, $23, $12, $85, $B4, $E7, $D6,
$7A, $4B, $18, $29, $BE, $8F, $DC, $ED,
$C3, $F2, $A1, $90, $07, $36, $65, $54,
$39, $08, $5B, $6A, $FD, $CC, $9F, $AE,
$80, $B1, $E2, $D3, $44, $75, $26, $17,
$FC, $CD, $9E, $AF, $38, $09, $5A, $6B,
$45, $74, $27, $16, $81, $B0, $E3, $D2,
$BF, $8E, $DD, $EC, $7B, $4A, $19, $28,
$06, $37, $64, $55, $C2, $F3, $A0, $91,
$47, $76, $25, $14, $83, $B2, $E1, $D0,
$FE, $CF, $9C, $AD, $3A, $0B, $58, $69,
$04, $35, $66, $57, $C0, $F1, $A2, $93,
$BD, $8C, $DF, $EE, $79, $48, $1B, $2A,
$C1, $F0, $A3, $92, $05, $34, $67, $56,
$78, $49, $1A, $2B, $BC, $8D, $DE, $EF,
$82, $B3, $E0, $D1, $46, $77, $24, $15,
$3B, $0A, $59, $68, $FF, $CE, $9D, $AC);
function GetCrc8(const pData: Pointer; nLength: Integer): byte;
var
fcs: byte;
p: PBYTE;
begin
p := PBYTE(PData);
fcs := 0; // 初始化
while (nLength > 0) do
begin
fcs := CRCTable8[fcs xor p^];
Dec(nLength);
Inc(p);
end;
result := fcs;
end;
function CheckCRC8(const pData: Pointer; nLength: Integer; CrcValue: byte):
Boolean;
var
fcs: byte;
p: PBYTE;
begin
p := PBYTE(PData);
fcs := 0; // 初始化
while (nLength > 0) do
begin
fcs := CRCTable8[fcs xor p^];
Dec(nLength);
Inc(p);
end;
Result := (fcs = CrcValue);
end;
end.
相关阅读 >>
Delphi中 tstringlist和thashedstringlist的性能对比
Delphi xe 使用savestate保存firemonkey状态的示例
Delphi中如何捕获mediaplayer播放的视频中的每一帧 ?
Delphi timage保存图片到stream及从stream中取图片
更多相关阅读请进入《Delphi》频道 >>
