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