Crc算法 ssp delphi 算法

Question

原算法是C的：
#define FALSE 0x00
#define TRUE 0x01
#define uchar unsigned char
#define uint unsigned int
uchar CrcL,CrcH;
const uint CrcTable[8*32]=
{
0x0000,0x8005,0x800F,0x000A,0x801B,0x001E,0x0014,0x8011,
0x8033,0x0036,0x003C,0x8039,0x0028,0x802D,0x8027,0x0022,
0x8063,0x0066,0x006C,0x8069,0x0078,0x807D,0x8077,0x0072,
0x0050,0x8055,0x805F,0x005A,0x804B,0x004E,0x0044,0x8041,
0x80C3,0x00C6,0x00CC,0x80C9,0x00D8,0x80DD,0x80D7,0x00D2,
0x00F0,0x80F5,0x80FF,0x00FA,0x80EB,0x00EE,0x00E4,0x80E1,
0x00A0,0x80A5,0x80AF,0x00AA,0x80BB,0x00BE,0x00B4,0x80B1,
0x8093,0x0096,0x009C,0x8099,0x0088,0x808D,0x8087,0x0082,
0x8183,0x0186,0x018C,0x8189,0x0198,0x819D,0x8197,0x0192,
0x01B0,0x81B5,0x81BF,0x01BA,0x81AB,0x01AE,0x01A4,0x81A1,
0x01E0,0x81E5,0x81EF,0x01EA,0x81FB,0x01FE,0x01F4,0x81F1,
0x81D3,0x01D6,0x01DC,0x81D9,0x01C8,0x81CD,0x81C7,0x01C2,
0x0140,0x8145,0x814F,0x014A,0x815B,0x015E,0x0154,0x8151,
0x8173,0x0176,0x017C,0x8179,0x0168,0x816D,0x8167,0x0162,
0x8123,0x0126,0x012C,0x8129,0x0138,0x813D,0x8137,0x0132,
0x0110,0x8115,0x811F,0x011A,0x810B,0x010E,0x0104,0x8101,
0x8303,0x0306,0x030C,0x8309,0x0318,0x831D,0x8317,0x0312,
0x0330,0x8335,0x833F,0x033A,0x832B,0x032E,0x0324,0x8321,
0x0360,0x8365,0x836F,0x036A,0x837B,0x037E,0x0374,0x8371,
0x8353,0x0356,0x035C,0x8359,0x0348,0x834D,0x8347,0x0342,
0x03C0,0x83C5,0x83CF,0x03CA,0x83DB,0x03DE,0x03D4,0x83D1,
0x83F3,0x03F6,0x03FC,0x83F9,0x03E8,0x83ED,0x83E7,0x03E2,
0x83A3,0x03A6,0x03AC,0x83A9,0x03B8,0x83BD,0x83B7,0x03B2,
0x0390,0x8395,0x839F,0x039A,0x838B,0x038E,0x0384,0x8381,
0x0280,0x8285,0x828F,0x028A,0x829B,0x029E,0x0294,0x8291,
0x82B3,0x02B6,0x02BC,0x82B9,0x02A8,0x82AD,0x82A7,0x02A2,
0x82E3,0x02E6,0x02EC,0x82E9,0x02F8,0x82FD,0x82F7,0x02F2,
0x02D0,0x82D5,0x82DF,0x02DA,0x82CB,0x02CE,0x02C4,0x82C1,
0x8243,0x0246,0x024C,0x8249,0x0258,0x825D,0x8257,0x0252,
0x0270,0x8275,0x827F,0x027A,0x826B,0x026E,0x0264,0x8261,
0x0220,0x8225,0x822F,0x022A,0x823B,0x023E,0x0234,0x8231,
0x8213,0x0216,0x021C,0x8219,0x0208,0x820D,0x8207,0x0202
};
//------------------------------------------------------------------------
void UpdateCrc(const uchar num)
{
uint table_addr;
table_addr=(num ^ Crch);
Crch=(CrcTable[table_addr] >> 8) ^ CrcL;
CrcL=(CrcTable[table_addr] & 0x00FF);
}
//------------------------------------------------------------------------
void ResetCrc(void)
{
CrcL=0xFF;
CrcH=0xFF;
}
应用示例: 对 7F 80 03 02 FF FF 进行校验,假设 WrBuf[] 存放的数据是 0x7f..0xff,0xff 等待数据,
该数据包的 Crc 计算如下:
int i0,s_len;
ResetCrc();
for(i0=1;i0<6;i0++) UpdateCrc(WrBuf[i0]); // 计算 Crc，0x7f 不参加 Crc 计算
WrBuf[i0++]=CrcL;
WrBuf[i0++]=CrcH;
s_len=i0;
for(i0=0;i0<s_len;i0++) SendChar (WrBuf[i0]); // 数据发送到识币器//-----------------------------------------------------------------
本人新手，“CrcTable[table_addr]”这个数组的下标是多少啊？晕！求将上面的算法改成delphi的delphic

Answer 1

function CRC(BufferData : PByte;len:Integer) : word;
var
  Data: byte;
  i,j: integer;
  buf:array[0..20] of byte;
const
  polinomio:word= $0A001;
begin
  CopyMemory(@Buf,BufferData,len);
  result:= $0FFFF;
  for i:=0 to len - 1 do
  begin
    data:= Buf[i];
    for j:=1 to 8 do
    begin
      if (((data xor result) and $0001) = 1) then
         result:=(result shr 1) xor polinomio
      else
         result:=result shr 1;
      data:= data shr 1;
    end;
  end;
end;

Answer 2

你这个我测试了下得不到我想要的结果，第一位不参加校验，最后两位是计算后的校验码。
下面举几个实例
 7F    80 01 07    12 02 //只校验 80 01 07 校验码是 12 02
 7F    00 03 F0 EF 00     CF CA //只校验 00 03 F0 EF 00 校验码是 CF CA
 7F    00 01 07    11 88  //只校验00 01 07 校验码是 11 88
 

Answer 3

装个CnVcl里面有常用的算法单元

Answer 4

谢jankercsdn，aqtata求结果和5楼一样的算法，等待中

Answer 5

我这有两种CRC算法，以前用在工控软件中，两种方法得到的结果都一样，随便用哪种都行。地址http://www.tansoo.cn/article.asp?id=1

Answer 6

你这个查表法的生成多项式是x16+x15+x2+1的，也就是0x8005
我给的那个的生成多项式是x16+x15+x13+1的，也就是0xA001
你把
  GENP = $A001;
换成
  GENP = $8005;

Answer 7

感谢yangliu jankercsdn 你们的算法我试了，得不到5楼的结果呀，麻烦你们测试一下。

Answer 8

CRC 有俩种算法的撒 16 和 32 的 你要搞清楚先，不然瞎搞什么呢？

Answer 9

不好意思，我给你的算法是反转算法（比特反转的），所以和你得出的结果不一样，(x16+x15+x5+1对应8005,反转多项式1+x2+x15+x16对应A001)

Answer 10

请大家看看5楼，算法是16位的，测试通过发贴吧，我是新手这个算法搞的我晕头转向的jankercsdn很热心再次感谢！只是改成A001也不行呀

Answer 11

好吧 看在新手的份上 贴一份 没时间看你那个，具体适不适合那我也不知道了，这个是我以前翻译的，自己看着改改，
var
Table_CRC_16 : array [0..255] of Longword;
function TFrmMain.CRC16(buffer: array of Byte; Len: Integer): Word;
var
  i : LongWord;
  nAccum : Word;
begin
  nAccum:=0;
  BuildTable16(cnCRC_16);  for i:=0 to Len-1 do
  begin
    nAccum :=(nAccum shl 8) xor word(Table_Crc_16[(nAccum shr 8) xor buffer[i]]);
  end;
  Result :=nAccum;
end;procedure TFrmMain.BuildTable16(apoly: Word);
var
  i ,j: Word;
  nAccum ,nData : Word;
begin
  for i:=0 to 255 do
  begin
    nData :=word(i shl 8);
    nAccum :=0;
    for j:=0 to 7 do
    begin
      if (((nData xor nAccum) and $8000) >0) then
      begin
        nAccum :=(nAccum shl 1) xor apoly;
      end
      else
      begin
        nAccum :=nAccum shl 1;
      end;
      nData :=nData shl 1;
    end;
    Table_CRC_16[i]:=Longword(nAccum);
  end;
end;

Answer 12

Const
  CNCRC_16 :  word = $8005;

Answer 13

我直接帮你把他翻译过来算了，与你的第1、3结果一样，第2个不一样。太晚了，我把代码贴出来你先看一下，我明天再看是什么原因。
type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;const
  CrcTable: array [0 .. 255] of word = ($0000, $8005, $800F, $000A, $801B,
    $001E, $0014, $8011, $8033, $0036, $003C, $8039, $0028, $802D, $8027, $0022,
    $8063, $0066, $006C, $8069, $0078, $807D, $8077, $0072, $0050, $8055, $805F,
    $005A, $804B, $004E, $0044, $8041, $80C3, $00C6, $00CC, $80C9, $00D8, $80DD,
    $80D7, $00D2, $00F0, $80F5, $80FF, $00FA, $80EB, $00EE, $00E4, $80E1, $00A0,
    $80A5, $80AF, $00AA, $80BB, $00BE, $00B4, $80B1, $8093, $0096, $009C, $8099,
    $0088, $808D, $8087, $0082, $8183, $0186, $018C, $8189, $0198, $819D, $8197,
    $0192, $01B0, $81B5, $81BF, $01BA, $81AB, $01AE, $01A4, $81A1, $01E0, $81E5,
    $81EF, $01EA, $81FB, $01FE, $01F4, $81F1, $81D3, $01D6, $01DC, $81D9, $01C8,
    $81CD, $81C7, $01C2, $0140, $8145, $814F, $014A, $815B, $015E, $0154, $8151,
    $8173, $0176, $017C, $8179, $0168, $816D, $8167, $0162, $8123, $0126, $012C,
    $8129, $0138, $813D, $8137, $0132, $0110, $8115, $811F, $011A, $810B, $010E,
    $0104, $8101, $8303, $0306, $030C, $8309, $0318, $831D, $8317, $0312, $0330,
    $8335, $833F, $033A, $832B, $032E, $0324, $8321, $0360, $8365, $836F, $036A,
    $837B, $037E, $0374, $8371, $8353, $0356, $035C, $8359, $0348, $834D, $8347,
    $0342, $03C0, $83C5, $83CF, $03CA, $83DB, $03DE, $03D4, $83D1, $83F3, $03F6,
    $03FC, $83F9, $03E8, $83ED, $83E7, $03E2, $83A3, $03A6, $03AC, $83A9, $03B8,
    $83BD, $83B7, $03B2, $0390, $8395, $839F, $039A, $838B, $038E, $0384, $8381,
    $0280, $8285, $828F, $028A, $829B, $029E, $0294, $8291, $82B3, $02B6, $02BC,
    $82B9, $02A8, $82AD, $82A7, $02A2, $82E3, $02E6, $02EC, $82E9, $02F8, $82FD,
    $82F7, $02F2, $02D0, $82D5, $82DF, $02DA, $82CB, $02CE, $02C4, $82C1, $8243,
    $0246, $024C, $8249, $0258, $825D, $8257, $0252, $0270, $8275, $827F, $027A,
    $826B, $026E, $0264, $8261, $0220, $8225, $822F, $022A, $823B, $023E, $0234,
    $8231, $8213, $0216, $021C, $8219, $0208, $820D, $8207, $0202);var
  Form1: TForm1;
  CrcL, CrcH: byte;implementation{$R *.dfm}procedure ResetCrc;
begin
  CrcL := $FF;
  CrcH := $FF;
end;procedure UpdateCrc(const num: byte);
var
  table_addr: byte;
begin
  table_addr := (num xor CrcH);
  CrcH := (CrcTable[table_addr] shr 8) xor CrcL;
  CrcL := (CrcTable[table_addr] and $00FF);
end;procedure TForm1.Button1Click(Sender: TObject);
var
  i0, s_len: integer;
  WrBuf: array [1 .. 32] of byte;
  s:string;
begin
  s:='';
  WrBuf[1] := $7F;
  WrBuf[2] := $80;
  WrBuf[3] := $01;
  WrBuf[4] := $07;
  //WrBuf[5] := $ef;
  //WrBuf[6] := $00;
  ResetCrc;
  for i0 := 2 to 4 do
    UpdateCrc(WrBuf[i0]); // 计算 Crc，0x7f 不参加 Crc 计算
  WrBuf[i0] := CrcL;
  inc(i0);
  WrBuf[i0] := CrcH;
  s_len := i0;
  for i0 := 1 to s_len do s:=s+inttohex(WrBuf[i0],2)+' ';
  label1.Caption := s;
end;

Answer 14

参考一个C程序，这是结果
function CalCRC8005(AData:array of Byte; AStart,AEnd:Integer): Word;
const
  GENP = $8005;var
  crc:Word;
  i:Integer;procedure CalOneByte(AByte:Byte);
var
  j:Integer;
  msb:Word;   //移出的最高位
  tmp:Word;
begin
  tmp:=AByte;
  tmp:=tmp shl 8;
  crc:=crc xor tmp;  for j := 0 to 7 do
  begin
    msb:= crc and $8000;
    crc:=crc shl 1;
    if msb = $8000 then
      crc:= crc xor GENP;
  end;
end;begin
  crc:=$FFFF;
  //crc:=$0000;
  for i := AStart to AEnd do
    CalOneByte(AData[i]);
  Result:=crc;
end;
这里注意，crc的案值不同，结果也不同

Answer 15

yangliu jankercsdn 辛苦，万分感谢，离目标越来越近啦

Answer 16

两位的结果完全正确，第二个实例是我抄错了（应为 7f  80 03 f0 ef 00 cf ca)，结贴了，再次感谢你们！