Datentypen von String zu Byte und wieder zurück

[Blup]

Ein anderer Weg, mit reinem Assembler geht das natürlich noch kompakter:

Delphi-Quellcode:

function Rol(const AValue: LongWord; const ACount: Byte): LongWord; register;
asm
  mov cl, dl
  rol eax, cl
end;

function IntConvert(A, B: LongWord): Int64;
var
  i: integer;
begin
  Result := 0;
  for i := 0 to 31 do
  begin
    Result := Result shl 1;
    B := Rol(B, 1);
    Result := Result or (B and $00000001);

    Result := Result shl 1;
    A := Rol(A, 1);
    Result := Result or (A and $00000001);
  end;
end;

function Convert(const A, B: string): string;
var
  aa, bb: LongWord;
begin
  aa := StrToInt('$' + A);
  bb := StrToInt('$' + B);
  Result := IntToHex(IntConvert(aa, bb), 16);
end;

[himitsu]

Delphi-Quellcode:

  for i := 0 to 31 do
  begin
    Result := Result shl 1;
    B := B shl 1;
    Result := Result or (B shr 31);

    Result := Result shl 1;
    A := A shl 1;
    Result := Result or (A shr 31);
  end;

[Blup]

Beide verschieben die Bits nach links, aber shl schiebt nur 0-Bits von rechts nach.

12345678 shl 4 -> 23456780
12345678 rol 4 -> 23456781

[Blup]

Wenn dann so:

Delphi-Quellcode:

 for i := 0 to 31 do
  begin
    Result := Result shl 1;
    Result := Result or (B shr 31);
    B := B shl 1;

    Result := Result shl 1;
    Result := Result or (A shr 31);
    A := A shl 1;
  end;

[himitsu]

Doch, kann ich, aber

Delphi-Quellcode:

  for i := 0 to 31 do
  begin
    Result := Result shl 1;
    Result := Result or (B shr 31);
    B := B shl 1;

    Result := Result shl 1;
    Result := Result or (A shr 31);
    A := A shl 1;
  end;

In diesem Fall wird das ja nur benutzt, um nacheinander jedes Bit auszulesen und in diesem Fall kann man einfach auf der anderen Seite auslesen, anstatt im Kreis zu schieben.

[edit]
jupp

[edit2]

Delphi-Quellcode:

  for i := 31 downto 0 do
  begin
    Result := Result shl 1;
    Result := Result or ((B shr i) and $1);

    Result := Result shl 1;
    Result := Result or ((A shr i) and $1);
  end;

Delphi-Quellcode:

  for i := 31 downto 0 do
  begin
    Result := Result shl 2;
    Result := Result or ((B shr (i-1)) and $1)  // schiebt SHR bei -1 nach links?
                     or ((A shr i) and $1);
  end;

?

[Blup]

Der zweite Operand ist ein Byte, welches zusätzlich maskiert ist.

1.Operand	2.Operand signifikante Bits	entspricht
Byte	3	a shl (b mod 8)
Word	4	a shl (b mod 16)
Longword	5	a shl (b mod 32)
Int64	6	a shl (b mod 64)

Byte(-1) -> 255
(255 mod 32) -> 31

(Longword(a) shr -1) -> (a shr 15)

Das funktioniert also nicht, abgesehen davon müsste die Maske für B $2 sein.

[Blup]

So kann es funktionieren und ist übersichtlich:

Delphi-Quellcode:

 for i := 31 downto 0 do
 begin
   Result := Result shl 1;
   Result := Result or ((B shr i) and $1);
   Result := Result shl 1;
   Result := Result or ((A shr i) and $1);
 end;

[Blup]

Richtig müsste es heißen: (Longword(a) shr -1) -> (a shr 31)