PBKDF2 - Derive Key from Password

Demonstrates how to derive a symmetric encryption key from a password using PBKDF2. This example matches the results found at this URL: http://www.di-mgt.com.au/cryptoKDFs.html#examplespbkdf

Download Chilkat Crypt ActiveX

LOCAL loCrypt
LOCAL lnSuccess
LOCAL lcHexKey
LOCAL lcPw
LOCAL lcPwCharset
LOCAL lcHashAlg
LOCAL lcSaltHex
LOCAL lnIterationCount
LOCAL lnOutputBitLen
LOCAL lcEnc

loCrypt = CreateObject('Chilkat.Crypt2')

lnSuccess = loCrypt.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX(loCrypt.LastErrorText)
    QUIT
ENDIF

*  http://www.di-mgt.com.au/cryptoKDFs.html#examplespbkdf

lcPw = "password"

lcPwCharset = "ansi"
*  Hash algorithms may be: sha1, md2, md5, etc.

lcHashAlg = "sha1"
*  The salt should be 8 bytes:

lcSaltHex = "78578E5A5D63CB06"

lnIterationCount = 2048
*  Derive a 192-bit key from the password.

lnOutputBitLen = 192

*  The derived key is returned as a hex or base64 encoded string.
*  (Note: The salt argument must be a string that also uses
*  the same encoding.)

lcEnc = "hex"

lcHexKey = loCrypt.Pbkdf2(lcPw,lcPwCharset,lcHashAlg,lcSaltHex,lnIterationCount,lnOutputBitLen,lcEnc)

? lcHexKey

*  The output should have this value:
*  BFDE6BE94DF7E11DD409BCE20A0255EC327CB936FFE93643