Visual FoxPro Requires Chilkat v11.6.0+

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

Background. For hashing, the salt is optional — when omitted, a random salt of saltLen bytes (default 16) is generated, which is the normal case. A secret or ad is not stored in the PHC string; the same values must be supplied to Argon2VerifyPassword for the password to verify.

Chilkat Visual FoxPro Downloads

Download Chilkat for Visual FoxPro

Visual FoxPro

LOCAL loCrypt
LOCAL lcPassword
LOCAL loJson
LOCAL lcPhcHash

loCrypt = CreateObject('Chilkat.Crypt2')

*  The password should come from a secure source rather than being hard-coded.
lcPassword = "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.
loJson = CreateObject('Chilkat.JsonObject')
loJson.UpdateString("variant","argon2id")
loJson.UpdateInt("memoryCostKb",131072)
loJson.UpdateInt("iterations",4)
loJson.UpdateInt("parallelism",2)
loJson.UpdateInt("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.
loJson.UpdateString("secret","application-wide-pepper")
loJson.UpdateString("secretEncoding","utf-8")

lcPhcHash = loCrypt.Argon2HashPassword(lcPassword,loJson.Emit())
IF (loCrypt.LastMethodSuccess = 0) THEN
    ? loCrypt.LastErrorText
    RELEASE loCrypt
    RELEASE loJson
    CANCEL
ENDIF

? lcPhcHash

RELEASE loCrypt
RELEASE loJson