请那位高手将这个delphi改成unix下的c语言程序，谢谢！！

chen_mh

procedure ByteCrc(data:byte;var crc:word);
VAR
  i:BYTE;
BEGIN
  FOR i:=0 TO 7 DO
  BEGIN
   IF ((data and $01)XOR(crc AND $0001)<>;0) THEN
    BEGIN
     crc:=crc shr 1;
     crc:= crc XOR $A001;
    END
   ELSE crc:=crc shr 1;
   data:=data shr 1;
  END;
END;

forest077

1. void ByteCrc(int data,long crc)
   
2. {
   
3.         int i;
   
4.        
   
5.         for(i=0;i<=7;i++)
   
6.         {
   
7.                 if((data & 0x01)^(crc & 0x0001)!=0)
   
8.                 {
   
9.                         crc=crc >;>; 1;
   
10.                         crc=crc ^ 0xA001;
    
11.                 }
    
12.                 else
    
13.                 {
    
14.                         crc=crc >;>; 1;
    
15.                         data=data >;>;1;
    
16.                 }
    
17.         };
    
18.         return;
    
19. }

复制代码