PowerBuilder

2-Key Triple DES (112 bits)

See more Encryption Examples

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

integer li_rc
oleobject loo_Crypt
string ls_KeyHex
string ls_EncStr
string ls_DecStr

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

loo_Crypt = create oleobject
li_rc = loo_Crypt.ConnectToNewObject("Chilkat.Crypt2")
if li_rc < 0 then
    destroy loo_Crypt
    MessageBox("Error","Connecting to COM object failed")
    return
end if

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

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

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

// Set the encryption key:
loo_Crypt.SetEncodedKey(ls_KeyHex,"hex")

// Encrypt
ls_EncStr = loo_Crypt.EncryptStringENC("The quick brown fox jumped over the lazy dog")
Write-Debug ls_EncStr

// Now decrypt:
ls_DecStr = loo_Crypt.DecryptStringENC(ls_EncStr)
Write-Debug ls_DecStr


destroy loo_Crypt