【vfp开源代码栏目提醒】:网学会员为广大网友收集整理了,crc.PRG,希望对大家有所帮助!
*used:
*crc(@aArrayName,nArrayRow)
LPARAMETERS aSnd,nNum
CRC=0xFFFF
FOR i=1 TO nNum
C=BITAND(aSnd[i],0x00FF)
CRC=BITXOR(CRC,C)
FOR j=1 TO 8
IF BITTEST(BITAND(CRC,0x001),0)
CRC=BITRSHIFT(CRC,1)
CRC=BITXOR(CRC,0xA001)
ELSE
CRC=BITRSHIFT(CRC,1)
ENDIF
ENDFOR
ENDFOR
RETURN CRC