AES + HMAC: wie mache ich das im Praxis

[mytbo]

Wenn du die freie Wahl der Methode hast, verwende am besten höhere Funktionen aus den mORMot Libraries.

Delphi-Quellcode:

uses
  SynCommons, SynCrypto, SynZip;

var
  s: String;
  sBase64: RawByteString;
begin
  s := 'The cryptographic feature';
  sBase64 := BinToBase64(AESSHA256(CompressString(s), StringToUTF8('meinPW'), True));
  ShowMessage(sBase64);

  s := UnCompressString(AESSHA256(Base64ToBin(sBase64), StringToUTF8('meinPW'), False));
  if s <> '' then
    ShowMessage(s)
  else
    ShowMessage('Da ging etwas schief!');

Bis bald...
Thomas

[myicq]

Zitat von mytbo:

Wenn du die freie Wahl der Methode hast, verwende am besten höhere Funktionen aus den mORMot Libraries.
[/DELPHI]

Bis bald...
Thomas

Danke dafür. Ich mußte eine GUID an die Daten zufügen, da sonnst das gleiche Ergebniss als Base64 kam (inputA=>outputA).

Ich verstehe halbwegs das mit Zip, aber, ich bin immer noch neugierig wie ich mit zB HMAC_SHA256 umgehe (auch aus SynCrypto). Habe keine code online gefunden.

Danke für die Hilfe so weit!

[Alter Mann]

Hilft das hier:

HMAC