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:

zusammenfalten · markieren

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:

zusammenfalten · markieren

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

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

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

Forumregeln