CPP -> Delphi

[Gehstock]

wie würdet ihr die Folgende Zeile Übersetzen mich verwirrt sie etwas

Code:

for (b = ~b & 0x3FFFFFFF; a >= 8; a -= 8, buffer++)

[implementation]

Code:

for (b = ~b & 0x3FFFFFFF; a >= 8; a -= 8, buffer++)

Vielleicht so:

Delphi-Quellcode:

var
  buffer, a, b: integer;
begin
  b := (not b) and $3FFFFFFF;
  while a >= 8 do begin
    ...
    Dec(a,8);
    Inc(buffer);
  end;
end;

[Assarbad]

buffer ist ziemlich sicher kein Integer. Vermutlich PAnsiChar oder sowas ...

[implementation]

Zitat:

Zitat von Assarbad (Beitrag 1086310)

buffer ist ziemlich sicher kein Integer. Vermutlich PAnsiChar oder sowas ...

Das wird wohl im C++-Quellcode drinstehen. Ging ja erstmal um die Zeile.

[Assarbad]

Zitat:

Zitat von implementation (Beitrag 1086311)

Das wird wohl im C++-Quellcode drinstehen. Ging ja erstmal um die Zeile.

Und mit ging es darum, daß du buffer als Integer deklariert hast :zwinker:

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

Zitat von Gehstock (Beitrag 1086334)

Delphi-Quellcode:

var
ll : LongInt;

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

so in etwa?

Neee ...

Delphi-Quellcode:

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.

[himitsu]

Wie kommst du auf strtoint?
Hier soll der Zeichencode des ersten Bytes verwendet werden.
Ein einer Variable vorangestelltes

Delphi-Quellcode:

*

entspricht (glaub ich) dem derefferenzierenden nachfolgenden

Delphi-Quellcode:

^

.

Delphi-Quellcode:

Ord(buffer^)

, wenn es ein PAnsiChar ist ... bei einem

Delphi-Quellcode:

array of Byte

aka

Delphi-Quellcode:

TBytes

wäre es ein buffer^ oder

Delphi-Quellcode:

buffer[0]

.

Und ja, das

Delphi-Quellcode:

if (b==0x5*8) b=0x5*8;

scheint totaler Schwachsinn zu sein.

[Assarbad]

Zitat:

Zitat von SirThornberry (Beitrag 1086483)

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 :thumb:

[Gehstock]

wurde doch schon beantwortet

Danke nochmal euch allen