Hash a Password with Argon2 (Tuned Options)

Demonstrates Crypt2.Argon2HashPassword with explicit options: the cost parameters, saltLen (how many random salt bytes to generate when no salt is given), and an optional secret (pepper).

var
crypt: HCkCrypt2;
password: PWideChar;
json: HCkJsonObject;
phcHash: PWideChar;

begin
crypt := CkCrypt2_Create();

//  The password should come from a secure source rather than being hard-coded.
password := 'correct horse battery staple';

//  The Argon2 options are the same members as Argon2DeriveKey, except the salt is optional for
//  hashing.  When no "salt" is given, a random salt is generated; "saltLen" (default 16, range 8..1024)
//  sets how many random bytes to use.
json := CkJsonObject_Create();
CkJsonObject_UpdateString(json,'variant','argon2id');
CkJsonObject_UpdateInt(json,'memoryCostKb',131072);
CkJsonObject_UpdateInt(json,'iterations',4);
CkJsonObject_UpdateInt(json,'parallelism',2);
CkJsonObject_UpdateInt(json,'saltLen',16);

//  A secret (pepper) and/or ad may be used, but neither is stored in the returned PHC string.  The
//  same values must be supplied to Argon2VerifyPassword for the password to verify.
CkJsonObject_UpdateString(json,'secret','application-wide-pepper');
CkJsonObject_UpdateString(json,'secretEncoding','utf-8');

phcHash := CkCrypt2__argon2HashPassword(crypt,password,CkJsonObject__emit(json));
if (CkCrypt2_getLastMethodSuccess(crypt) = False) then
  begin
    Memo1.Lines.Add(CkCrypt2__lastErrorText(crypt));
    Exit;
  end;
Memo1.Lines.Add(phcHash);

CkCrypt2_Dispose(crypt);
CkJsonObject_Dispose(json);