20分求翻对一下C语言的代码为DELPHI

[hong668]

unsigned int FcsTable(unsigned int j)
{
unsigned char i;
for(i=0;i<8;i++)
j=(j&1)?(j>>1)^0x8408:j>>1;
return j;
}
unsigned int Fcs16(unsigned char *cp,unsigned char len){
unsigned int fcs;
fcs=0xffff;
while(len-->0)
fcs=(fcs>>8)^FcsTable((fcs^*cp++)&0xff);
fcs^=0xffff;
return fcs;
}

[Seamour]

function FcsTable(j: Cardinal): Cardinal;
var i: Integer;
begin
  for i:=0 to 7 do
  if Boolean(j and 1)then
    j := (j shr 1)xor $8408
  else
    j := j shr 1;
  Result := j;
end;

function Fcs16(cp: PByte; Len: Byte): Cardinal;
var i: Integer;
begin
  Result := $ffff;
  for i:=1 to Len do
  begin
    Result := (Result shr 8)xor((Result xor cp^)and $ff);
    Inc(cp);
  end;
  Result := Result xor $ffff;
end;

[hong668]

这么快啊，我马上试一下

[TButton]

顶

[捧剑者]

[Quote=引用 4 楼 cglzyz 的回复:]
对C不太熟,但感觉第一个循环,应该是for i:=0 to 8 啊
[/Quote]
一楼的没错。

[cglzyz]

对C不太熟,但感觉第一个循环,应该是for i:=0 to 8 啊