Visual FoxPro

PBES2 Password-Based Encryption

See more Encryption Examples

Demonstrates PBES2 encryption Visual FoxPro

LOCAL loCrypt
LOCAL lcPlainText
LOCAL lcEncryptedText
LOCAL lcDecryptedText

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

loCrypt = CreateObject('Chilkat.Crypt2')

* Set properties for PBES2 encryption:

* When the encryption algorithm is set to "pbes2",
* Chilkat will automatically derive the actual secret key using PBKDF2 and
* the specified paramters: password, salt, iteration count, hash function, and desired key length.

loCrypt.CryptAlgorithm = "pbes2"
loCrypt.PbesPassword = "mySecretPassword"

* Set the underlying PBE algorithm (and key length):
loCrypt.PbesAlgorithm = "aes"
loCrypt.KeyLength = 256

loCrypt.SetEncodedIV("000102030405060708090A0B0C0D0E0F","hex")

* Give it some salt:
loCrypt.SetEncodedSalt("0102030405060708","hex")

* A higher iteration count makes the algorithm more
* computationally expensive and therefore exhaustive
* searches (for breaking the encryption) is more difficult:
loCrypt.IterationCount = 1024

* A hash algorithm needs to be set for PBES2:
loCrypt.HashAlgorithm = "sha256"

* Indicate that the encrypted bytes should be returned
* as a hex string:
loCrypt.EncodingMode = "hex"

lcPlainText = "To be encrypted."

lcEncryptedText = loCrypt.EncryptStringENC(lcPlainText)

? lcEncryptedText

* Now decrypt:
lcDecryptedText = loCrypt.DecryptStringENC(lcEncryptedText)

? lcDecryptedText

RELEASE loCrypt