URL Parameter verschlüsseln mit DEC 5.2 (AES 128)

[Ajintaro]

Hallo DP !

Ich möchte einen String verschlüsseln mit AES (128Bit). Einen zwingend zu nutzenden Schlüssel habe ich bereits erhalten. Da ich damit noch keinerlei Erfahrung habe, bemühte ich Google. Während meiner Recherche bin ich auf das Delphi Encryption Compendium Version 5.2 gestoßen und konnte es erfolgreich in ein XE6 Projekt einbinden. Das DEC ist...überwältigend! Hagen muss ein Genie sein.

Freundlicherweise war ein ein kleines Beispiel dabei, welches auch problemlos läuft:

Delphi-Quellcode:

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

Ich konnte bisher noch keinen Ansatz erkennen, wie ich DEC für eine AES 128 Bit Verschlüsselung mit eigenem Key realisieren kann:

Delphi-Quellcode:

function encrypt_url_param(url_parameter, key: string): string;
var RCipher: TCipher_Rijndael;
begin
  RCipher:= TCipher_Rijndael.Create('', nil);
  RCipher.Init(Pointer(Key)^,Length(Key),nil);
  //RCipher.Mode:= ? 
  Result:= RCipher.CodeString(url_parameter, paEncode, fmtMIME64);
  RCipher.Free;
end;

procedure TForm6.Button1Click(Sender: TObject);
var
  s, k: WideString;
begin
  s := edit1.Text;
  k := '0ABF3398XDF784';
  Memo1.Lines.Clear;
  Memo1.Lines.Add(
    'Verschlüsselung: ' + encrypt_url_param(s, k)
  );
end;

So weit mein theoretischer Ansatz. Ich würde mich über einen kleinen Tipp sehr freuen