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

[SirThornberry]

Was genau weißt du denn nicht? Bevor wir dir jeden Quelltext übersetzen ist es vielleicht hilfreicher dir die Dinge zu erklären die du nicht verstehst.

[himitsu]

Wie kommst du auf strtoint?
Hier soll der Zeichencode des ersten Bytes verwendet werden.
Ein einer Variable vorangestelltes * entspricht (glaub ich) dem derefferenzierenden nachfolgenden ^ .

Ord(buffer^) , wenn es ein PAnsiChar ist ... bei einem array of Byte aka TBytes wäre es ein buffer^ oder buffer[0] .

Und ja, das if (b==0x5*8) b=0x5*8; scheint totaler Schwachsinn zu sein.

[Assarbad]

Zitat von SirThornberry:

Was genau weißt du denn nicht? Bevor wir dir jeden Quelltext übersetzen ist es vielleicht hilfreicher dir die Dinge zu erklären die du nicht verstehst.

+1 von mir

[Gehstock]

wurde doch schon beantwortet

Danke nochmal euch allen