(Tcl) Deriving a 256-bit AES Secret Key from a Password Using SHA256

This example demonstrates how to derive a 256-bit secret key for AES encryption from an password string. (A more secure way of deriving secret keys from passwords is via PBKDF2, and Chilkat has examples for this on example-code.com).

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set crypt [new_CkCrypt2]

set password "mySecretPassword"

CkCrypt2_put_EncodingMode $crypt "hex"

# We're going to hash the utf-8 byte representation of the password.
# For this example, the utf-8 byte representation is identical to the us-ascii 
# representation because there are no 8bit chars (such as non-English or chars with accent marks.)
CkCrypt2_put_Charset $crypt "utf-8"

# Compute the SHA-256 hash of the password, and return the hash
# in hexidecimal string form:
set strSecretKeyHex [CkCrypt2_hashStringENC $crypt $password]

# Set our encryption algorithm to 256-bit AES (CBC mode)
CkCrypt2_put_CryptAlgorithm $crypt "aes"
CkCrypt2_put_CipherMode $crypt "cbc"
CkCrypt2_put_KeyLength $crypt 256
CkCrypt2_SetEncodedIV $crypt "000102030405060708090A0B0C0D0E0F" "hex"

# Now set the 256-bit binary secret key:
CkCrypt2_SetEncodedKey $crypt $strSecretKeyHex "hex"

# That's all for this example.  We've setup the encryptor with our
# 256-bit key derived from a password string.  There are other examples
# to show the calls for encrpyting / decrypting..

delete_CkCrypt2 $crypt