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