Visual FoxPro

Example: Crypt2.EncryptEncoded method

Demonstrates how to call the EncryptEncoded method. Visual FoxPro

LOCAL loCrypt
LOCAL lcEncrypted
LOCAL lcDecrypted

loCrypt = CreateObject('Chilkat.Crypt2')

loCrypt.CryptAlgorithm = "aes"
loCrypt.CipherMode = "cbc"
loCrypt.KeyLength = 128
loCrypt.SetEncodedKey("000102030405060708090A0B0C0D0E0F","hex")
loCrypt.SetEncodedIV("000102030405060708090A0B0C0D0E0F","hex")

* Encrypt the bytes 0x00, 0x01, 0x02, ... 0x0A
* and return the encrypted bytes using the lowercase hex encoding.
loCrypt.EncodingMode = "hex_lower"
lcEncrypted = loCrypt.EncryptEncoded("000102030405060708090a")
? lcEncrypted

* Output:
* 9da2ae71a5378487114b430e5e230378

lcDecrypted = loCrypt.DecryptEncoded(lcEncrypted)
? lcDecrypted

* Output:
* 000102030405060708090a

RELEASE loCrypt