CPP -> Delphi

[Gehstock]

Das ist auch etwas verwirrend

Code:

DWORD fix(unsigned char *buffer,int length)
...
for (a = ~a & 0x3FFFFFFF; b >= 8; b -= 8, buffer++)
{
if (b==0x5*8)
b=0x5*8;
a = table[((a >> (30 - 8)) ^ *buffer) & 0xff]^ (a << 8);
}

welches ich mit

Delphi-Quellcode:

Function Fix (buffer: PAnsichar; len: Integer): DWord;
var
  c, a, d, e: DWord;
  b, i: Integer;
  buffer2: Array [0 .. 4] of Byte;
...
a := (not a) and $3FFFFFFF;
  while b >= 8 do
  begin
    if b = ($05 * 8) then b := $05 * 8;//macht für mich keinen sinn?
      a := Table[(a SHR (30 - 8) XOR strtoint(buffer)) and $FF] XOR (a SHL 8);
      Dec(b, 8);
      Inc(buffer);
  end;

übersetzen würde