(Tcl) 2-Key Triple DES (112 bits)

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

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

set crypt [new_CkCrypt2]

# Specify 3DES for the encryption algorithm:
CkCrypt2_put_CryptAlgorithm $crypt "3des"

CkCrypt2_put_CipherMode $crypt "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).
CkCrypt2_put_KeyLength $crypt 128

# Pad with zeros
CkCrypt2_put_PaddingScheme $crypt 3

# EncodingMode specifies the encoding of the output for
# encryption, and the input for decryption.
# It may be "hex", "url", "base64", or "quoted-printable".
CkCrypt2_put_EncodingMode $crypt "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)
CkCrypt2_put_HashAlgorithm $crypt "md5"
set keyHex [CkCrypt2_hashStringENC $crypt "secretPassword"]

# Set the encryption key:
CkCrypt2_SetEncodedKey $crypt $keyHex "hex"

# Encrypt
set encStr [CkCrypt2_encryptStringENC $crypt "The quick brown fox jumped over the lazy dog"]
puts "$encStr"

# Now decrypt:
set decStr [CkCrypt2_decryptStringENC $crypt $encStr]
puts "$decStr"

delete_CkCrypt2 $crypt