高分请高手把以下算法用DELPHI写一遍
void crc16( unsigned char *p,unsigned int len )
{
unsigned int i;
unsigned char da;
unsigned short CRCWORD=0;
for (i=0;i<len;i++)
{
da=(unsigned char)(CRCWORD/256);
CRCWORD<<=8;
CRCWORD^=CRCtbl[da^p[i]];
}
return CRCWORD;
}
我对C不太懂,只了解DELPHI,请把以上代码改成DELPHI的。