IrcClient mit Fish

[DelTurbo]

Nachtrag:

Im irc sieht das word text wie folgt aus

11HWp1aS5fm.

Der Key ist testkey

Bei dem Encrypt('text','testkey'); bekomme ich leider folgendes.

j6/LrRj4EbYWho+gC9n38WY81JFOLmIgEHqkOQ==

Gruss

PS.: Das ist der Code dazu. Habe ich hier aus dem Board.

Delphi-Quellcode:

function Encrypt(const AText: String; const APassword: String): String;
var
  ASalt: Binary;
  AData: Binary;
  x   :String;
begin
  with ValidCipher(ACipherClass).Create, Context do
  try
    ASalt := RandomBinary(16);
    Mode := ACipherMode;
    Init(ValidHash(AHashClass).KDFx(APassword, ASalt, KeySize, TFormat_Copy, AKDFIndex));
    AData := ASalt + EncodeBinary(AText) + CalcMAC;
    Result := ValidFormat(ATextFormat).Encode(AData);
  finally
    Free;
    ProtectBinary(ASalt);
    ProtectBinary(AData);
  end;
end;