-段C语言代码转delphi代码

[tonyzhang980]

unsigned int crc(char *s,int len)
{
unsigned int acc = 0,i;
while (len--)
{
acc = acc ^ (*s++ << 8);
for (i=0; i++ < 8;)
{
if (acc & 0x8000)
{
acc = (acc << 1) ^ 0x7301;
}
else
{
acc <<= 1;
}
}
}
return (acc);
}

[lqfcu2]

function crc(s: PChar; len: Integer): DWORD;
var
acc, i: DWORD;
begin
acc := 0;
while(len > 0) do
begin
acc := acc xor (Ord(s^) shl 8);
Inc(s);
for i := 0 to 7 do
begin
if Boolean(acc AND $8000) then
acc := (acc shl 1) xor $7301
else
acc := acc shl 1;
end;
Dec(len);
end;
Result := acc;
end;

没试过,不知道结果对不对~

[bdmh]

unsigned int Cardinal
char* Pchar
^ xor
<< shl
>> shr

*s++ pchar也是指针，也可以进行加减