112-bit 3DES Encryption

Demonstrates how to do 112-bit 3DES encryption.

Download Chilkat Crypt ActiveX

LOCAL loCrypt
LOCAL lnSuccess
LOCAL lcIvHex
LOCAL lcKeyHex
LOCAL lcEncStr
LOCAL lcDecStr

loCrypt = CreateObject('Chilkat.Crypt2')

lnSuccess = loCrypt.UnlockComponent("Anything for 30-day trial")
IF (lnSuccess <> 1) THEN
    =MESSAGEBOX("Crypt component unlock failed")
    QUIT
ENDIF

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

*  CipherMode may be "ecb" or "cbc"
loCrypt.CipherMode = "ecb"

*  Set the key length
loCrypt.KeyLength = 112

*  Choose a padding scheme...
loCrypt.PaddingScheme = 0

*  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"

*  An initialization vector is required if using CBC or CFB modes.
*  ECB mode does not use an IV.
*  The length of the IV is equal to the algorithm's block size.
*  It is NOT equal to the length of the key.

lcIvHex = "0001020304050607"
loCrypt.SetEncodedIV(lcIvHex,"hex")

*  The secret key must equal the size of the key.
*  Remember, DES (i.e. 3DES) uses a parity bit in the key,
*  so 112-bit 3DES requires 128 bits of key material
*  (i.e. 16 bytes)

lcKeyHex = "11165395389c904862912aba16d315b8"
loCrypt.SetEncodedKey(lcKeyHex,"hex")

*  Encrypt a string...

lcEncStr = loCrypt.EncryptStringENC("999999987")
*  The result should be: 8CDBB138C11EDC3A77F04E488B46385C
=MESSAGEBOX(lcEncStr)

*  Now decrypt:

lcDecStr = loCrypt.DecryptStringENC(lcEncStr)
=MESSAGEBOX(lcDecStr)