CPP -> Delphi

[Gehstock]

Danke ihr beiden,
Assarbad hat recht ist ein PAnsiChar
und wie übersetz ich das

Code:

if ( ((a ^ data) & (1L << 29)) != 0 )

Delphi-Quellcode:

var
ll : LongInt;

if not((a Xor data) and (SizeOf(ll) SHL 29)) = 0 then

so in etwa?

[Assarbad]

Zitat von Gehstock:

Delphi-Quellcode:

var
ll : LongInt;

if not((a Xor data) and (SizeOf(ll) SHL 29)) = 0 then

so in etwa?

Neee ...

if ((a xor data) and (1 shl 29)) <> 0 then

[Phoenix]

sizeof longint ist 1??

[Gehstock]

Also doch richtig?

[himitsu]

Das L kannst'e in Delphi ignorieren.

Und um deine letzte Frage zu beantworten:
Wieviele Bytes ist ein LongInt groß?

[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.