Umstellung DEC 3 auf DEC5.2: fehlende Funktionalität?

[ULIK]

Und der nächste Punkt ist gelöst:

THash_MD5.CalcString(FText, TMAC.Create(FPassword, nil), fmtHEX); aus DEC 3 kann durch folgenden Code in DEC 5 ersetzt werden:

Delphi-Quellcode:

var
  strKey: ANSIString;
  ...
begin
  ...

  // erst mal Password Hashen mit MD5
  strKey := DEC5_DECHash.THash_MD5.CalcBinary(FPassword, DEC5_DECFmt.TFormat_Copy);
  with DEC5_DECHash.THash_MD5.Create do
  try
    Init;

    // Digest mit gehashtem Password verknuepfen
    DEC5_DECUtil.XORBuffers(Digest^, PAnsiChar(strKey)^, Length(strKey), Digest^);
    Calc(PAnsiChar(FText)^, Length(FText));
    Done;
    strResultV5 := DigestStr(DEC5_DECFmt.TFormat_HEX);
  finally
    free;
  end;
  ...
end;

Grüße,
Uli

[Assertor]

Hi Uli,

das schaut doch richtig gut aus und ist bestimmt eine Hilfe für Spät-DEC-Wechsler, die jetzt gleichzeitig vor dem Wechsel von DEC 3 zu DEC 5.x und dem Wechsel von Dx zu D2009 stehen.

Gruß und Danke,
Assertor