Xbase++

2-Key Triple DES (112 bits)

See more Encryption Examples

Demonstrates 2-Key Triple DES encryption (112-bit 3DES encryption). Xbase++

LOCAL oCrypt
LOCAL cKeyHex
LOCAL cEncStr
LOCAL cDecStr

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

oCrypt := CreateObject("Chilkat.Crypt2")

//  Specify 3DES for the encryption algorithm:
oCrypt:CryptAlgorithm := "3des"

oCrypt: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).
oCrypt:KeyLength := 128

//  Pad with zeros
oCrypt: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".
oCrypt: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)
oCrypt:HashAlgorithm := "md5"
cKeyHex := oCrypt:HashStringENC("secretPassword")

//  Set the encryption key:
oCrypt:SetEncodedKey(cKeyHex, "hex")

//  Encrypt
cEncStr := oCrypt:EncryptStringENC("The quick brown fox jumped over the lazy dog")
? cEncStr

//  Now decrypt:
cDecStr := oCrypt:DecryptStringENC(cEncStr)
? cDecStr

oCrypt:destroy()