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).

load ./chilkat.dll

set crypt [new_CkCrypt2]

#  The password should come from a secure source rather than being hard-coded.
set 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.
set json [new_CkJsonObject]

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"

set phcHash [CkCrypt2_argon2HashPassword $crypt $password [CkJsonObject_emit $json]]
if {[CkCrypt2_get_LastMethodSuccess $crypt] == 0} then {
    puts [CkCrypt2_lastErrorText $crypt]
    delete_CkCrypt2 $crypt
    delete_CkJsonObject $json
    exit
}

puts "$phcHash"

delete_CkCrypt2 $crypt
delete_CkJsonObject $json