Visual FoxPro

2-Key Triple DES (112 bits)

See more Encryption Examples

Demonstrates 2-Key Triple DES encryption (112-bit 3DES encryption). Visual FoxPro

LOCAL loCrypt
LOCAL lcKeyHex
LOCAL lcEncStr
LOCAL lcDecStr

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

loCrypt = CreateObject('Chilkat.Crypt2')

* Specify 3DES for the encryption algorithm:
loCrypt.CryptAlgorithm = "3des"

loCrypt.CipherMode = "ecb"

* For 2-Key Triple-DES, use a key length of 128
* (Given that each byte's msb is a parity bit, the strength is really 112 bits).
loCrypt.KeyLength = 128

* Pad with zeros
loCrypt.PaddingScheme = 3

* EncodingMode specifies the encoding of the output for
* encryption, and the input for decryption.
* It may be "hex", "url", "base64", or "quoted-printable".
loCrypt.EncodingMode = "hex"

* Let's create a secret key by using the MD5 hash of a password.
* The Digest-MD5 algorithm produces a 16-byte hash (i.e. 128 bits)
loCrypt.HashAlgorithm = "md5"
lcKeyHex = loCrypt.HashStringENC("secretPassword")

* Set the encryption key:
loCrypt.SetEncodedKey(lcKeyHex,"hex")

* Encrypt
lcEncStr = loCrypt.EncryptStringENC("The quick brown fox jumped over the lazy dog")
? lcEncStr

* Now decrypt:
lcDecStr = loCrypt.DecryptStringENC(lcEncStr)
? lcDecStr

RELEASE loCrypt