(Visual FoxPro) Manually Duplicate SetSecretKeyViaPassword

Demonstrates how to duplicate the password string to binary secret key computation of SetSecretKeyViaPassword.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

LOCAL loCrypt
LOCAL lcPassword
LOCAL loSb
LOCAL lcPasswordBase64

* This example assumes the Chilkat API to have been previously unlocked.
* See Global Unlock Sample for sample code.

* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Crypt2')
loCrypt = CreateObject('Chilkat.Crypt2')

* The password string is transformed to a binary secret key by computing the 
* MD5 digest (of the utf-8 password) to obtain 16 bytes.  
* If the KeyLength is greater than 16 bytes, then the MD5 digest of the Base64 encoding 
* of the utf-8 password is added.  A max of 32 bytes of key material is generated, and 
* this is truncated to the actual KeyLength required.

loCrypt.CryptAlgorithm = "aes"
loCrypt.KeyLength = 256

lcPassword = "this is my password"
loCrypt.SetSecretKeyViaPassword(lcPassword)

* Examine the resulting SecretKey in hex:
? "Computed Secret Key = " + loCrypt.GetEncodedKey("hex")

* Now perform the same computation manually:
* For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder')
loSb = CreateObject('Chilkat.StringBuilder')

loCrypt.HashAlgorithm = "md5"
loCrypt.Charset = "utf-8"
loCrypt.EncodingMode = "hex"
loSb.Append(loCrypt.HashStringENC(lcPassword))

lcPasswordBase64 = loCrypt.EncodeString(lcPassword,"utf-8","base64")
loSb.Append(loCrypt.HashStringENC(lcPasswordBase64))

? "Manually Computed = " + loSb.GetAsString()

* The output is:
* Computed Secret Key = 210D53992DFF432EC1B1A9698AF9DA16C7E90518F90E24828F78EC9E0A413B36
* Manually Computed = 210D53992DFF432EC1B1A9698AF9DA16C7E90518F90E24828F78EC9E0A413B36

RELEASE loCrypt
RELEASE loSb