// 生成modbus CRC16数据

     CRC- / MODBUS ：

）CRC寄存器初始值为 FFFF；即16个字节全为1；

）CRC- / MODBUS的多项式A001H (   0001B) ‘H’表示16进制数，‘B’表示二进制数

计算步骤为： 
().预置  位寄存器为十六进制 FFFF（即全为 ） ，称此寄存器为 CRC  寄存器；  
().把第一个   位数据与   位 CRC  寄存器的低位相异或，把结果放于 CRC  寄
存器； 

().检测相异或后的CRC寄存器的最低位，若最低位为1：CRC寄存器先右移1位，再与多项式A001H进行异或；若为0，则CRC寄存器右移1位，无需与多项式进行异或。

().重复步骤   ，直到右移   次，这样整个  位数据全部进行了处理； 
().重复步骤   到步骤4，进行下一个   位数据的处理； 
().最后得到的 CRC  寄存器即为 CRC 码。 

附参考：

数据(进制)：      CRC校验：F7 DB

附C语言实现代码：

#include <stdio.h>

int main(void)
{
    unsigned short tmp = 0xffff;
    unsigned short ret1 = 0;
    unsigned char buff[6] = {0};
    buff[] = 0x01;
    buff[] = 0x03;
    buff[] = 0x61;
    buff[] = 0x00;
    buff[] = 0x00;
    buff[] = 0x02;

    for(int n = ; n < ; n++){/*此处的6 -- 要校验的位数为6个*/
        tmp = buff[n] ^ tmp;
        for(int i = 0;i < 8;i++){  /*此处的8 -- 指每一个char类型又8bit，每bit都要处理*/
            if(tmp & 0x01){
                tmp = tmp >> 1;
                tmp = tmp ^ 0xa001;
            }
            else{
                tmp = tmp >> 1;
            }
        }
    }
    /*CRC校验后的值*/
    printf("%X\n",tmp);
    /*将CRC校验的高低位对换位置*/
    ret1 = tmp >> ;
    ret1 = ret1 | (tmp << );
    printf("ret: %X\n",ret1);
    return ;
}
输出结果：

F7DB
ret: DBF7

// 生成modbus CRC16数据
function CRC16(sSrc:shortstring):shortstring;
var
  tmp: word;
  ret1: word;
  buff: array of byte;
  n:integer;
  i:integer;

  ilen:Integer; //ssrc length
begin
  if trim(ssrc)='' then exit;

  tmp:= $FFFF;
  ret1:= ;

  ssrc:= Trim(ssrc);
  ssrc:= StringReplace(sSrc,' ','',[rfReplaceAll]);
  ilen:= length(ssrc);

  SetLength(buff,ilen div );
  i:=;
  while i<ilen do
  begin
    buff[(i-)div ]:= StrToInt('$'+sSrc[i]+sSrc[i+]);
    i:=i+;
  end;

  for n :=  to Length(buff)- do  //*此处的6 -- 要校验的位数为6个*/
  begin
    tmp:= buff[n] xor tmp;
    for I :=  to  do  //*此处的8 -- 指每一个char类型又8bit，每bit都要处理*/
    begin
      if(tmp and $)<> then
      begin
        tmp:= tmp shr ;
        tmp:= tmp xor $A001;
      end
      else
      begin
        tmp:= tmp shr ;
      end;
    end;
  end;

  ret1 := tmp shr ;        //*将CRC校验的高低位对换位置*/
  ret1 := ret1 or (tmp shl );
  Result:= IntToHex(ret1,);

  //返回16进制串 用 空格 分开  crc 暂定 2字节
  result:= Result[]+Result[]+' '+Result[]+Result[];
end;