Помогите перегнать из паскаля в C

[LemmonRus]

Народ очень нужно перегнать код на паскале в с,в паскале я не в зуб ногой.
procedure AddByteToCRS(const B:byte;var Rg32:cardinal);
const
 Polynom=$F5000000;
var
 J,Rg8:byte;
 F,F1:boolean;
begin
 Rg8:=B;
 for J:=1 to 8 do
  begin
   F:=(Rg8 and 1)<>0;
   F1:=(Rg32 and 1)<>0;
   Rg8:=Rg8 shr 1;
   Rg32:=Rg32 shr 1;
   if F then
    Rg32:=Rg32 or $80000000;
   if F1 then
    Rg32:=Rg32 xor Polynom;
  end;
end;

[darkelf]

Если посчитать cardinal за unsigned long, и переводить дословно, то будет нечто подобное:

Код:

#define Polynom 0xF5000000

void AddByteToCRS(unsigned char B, unsigned long* Rg32)
{ unsigned char J,Rg8;
  int F,F1;

  Rg8 = B;
  for (J = 1; J <= 8; J++)
  { F = ((Rg8 & 1) != 0) ? 1 : 0;
    F1 = (((*Rg32) & 1) != 0) ? 1 : 0;
    Rg8 >>= 1;
    (*Rg32) >>= 1;
    if (F)
      (*Rg32) |= 0x80000000;
    if (F1)
      (*Rg32) ^= Polynom;
  }
  return ;
}

Дальше можно смотреть и переводить на более человеческий манер.

[LemmonRus]

Если посчитать cardinal за unsigned long, и переводить дословно, то будет нечто подобное:

Код:

#define Polynom 0xF5000000

void AddByteToCRS(unsigned char B, unsigned long* Rg32)
{ unsigned char J,Rg8;
  int F,F1;

  Rg8 = B;
  for (J = 1; J <= 8; J++)
  { F = ((Rg8 & 1) != 0) ? 1 : 0;
    F1 = (((*Rg32) & 1) != 0) ? 1 : 0;
    Rg8 >>= 1;
    (*Rg32) >>= 1;
    if (F)
      (*Rg32) |= 0x80000000;
    if (F1)
      (*Rg32) ^= Polynom;
  }
  return ;
}

Дальше можно смотреть и переводить на более человеческий манер.

ОГРОМНОЕ СПАСИБО!!!