Mini-SHA1

[H3llsing]

Hallo, ich wollte nochmal das uralte Thema aufgreifen.

Was für ein Datentyp ist denn Bor? ByteOfRecord?
Wie sollte man das initialisieren?

Zitat:

Delphi-Quellcode:

Class function TSHA1.toHex(Res: TSHA1Res): String;
  Const HexTable: array[0..15] of Char = '0123456789ABCDEF';

  Var A: packed array[0..19] of Byte absolute Res;
    i: Integer;

  Begin
    SetLength(Result, 40);
    Bor i := 0 to 19 do Begin
      Result[i * 2 + 1] := HexTable[A[i] shr 4];
      Result[i * 2 + 2] := HexTable[A[i] and 15];
    End;
  End;

Vielen Dank für eure Hilfe