Generate Secret Key from Password

The GenEncodedSecretKey method provides a way to produce a secret key from an arbitrarily sized password string. The secret key produced will be equal in bit length to the KeyLength. A given string passed to GenEncodedSecretKey will always produce the same key. (In other words, this is really a hash function and not a random key generator.)

Download Chilkat Crypt ActiveX

LOCAL loCrypt
LOCAL lnSuccess
LOCAL lcHexKey

loCrypt = CreateObject('Chilkat.Crypt2')

lnSuccess = loCrypt.UnlockComponent("Anything for 30-day Trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX("Crypt component unlock failed")
    QUIT
ENDIF

loCrypt.CryptAlgorithm = "aes"
loCrypt.KeyLength = 128

*  Transform an arbitrary-length password to a secret key
*  equal in bit-length to the KeyLength:

lcHexKey = loCrypt.GenEncodedSecretKey("my_password","hex")

*  Set the secret key:
loCrypt.SetEncodedKey(lcHexKey,"hex")

*  The hexKey is 16 bytes in length:
=MESSAGEBOX(lcHexKey)