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

[ULIK]

Hallo,

im Zuge der Umstellung eines Projekts auf Delphi 2009 muß ich auch die DEC Library aktualisieren. Bisher wurde die Version 3 verwendet. Nur wie stellt man das korrekt auf die Version 5 um? Teilweise fehlen ja Funktionalitäten (oder ich finde sie nicht mehr):

• Durch was kann man THash_CRC32 ersetzen?
• Wie müßte man Result := THash_MD5.CalcString(strText, TMAC.Create(strPassword, nil), fmtHEX) umschreiben?
• Wie ersetzt man den folgenden Code:
  
  Delphi-Quellcode:

  with TCipher_Blowfish.Create(strPassword, nil) do
     try
       strResultV3 := CodeString(EncodeString(strText), paEncode, fmtMIME64);
     finally
       Free;
     end;

  Mein Versuch ihn mit
  Delphi-Quellcode:

  with TCipher_Blowfish.Create do
    try
      Init(strPassword);
      strResultV5 := EncodeBinary(strText, TFormat_MIME64);
    finally
      Free;
    end;

  zu ersetzen liefert leider falsche Ergebnisse:
  • strText := 'This is a confidential text'
  • strPassword := 'Password';
  • V3: strResultV3 = TzWGKC6P5greUpxUgBnQaTFJtUVQhPbIk83N
  • V5: strResultV5 = ggrgAZoMYbij5DbW6DKMynShnjmsxRsUnYtQ
  Auch das Entschlüsseln mit Cipher_BlowFish liefert mir immer falsche Werte. Bisher
  DecodeBinary(strText, DEC5_DECFmt.TFormat_MIME64) , nun durch DecodeString(CodeString(strText, paDecode, fmtMIME64)) ersetzt. Genau diese Funktionalität zum Entschlüsseln bestehender mit V3 verschlüsselter Daten benötige ich aber unbedingt.

Bin für jede Hilfe dankbar!

Grüße,
Uli