(PowerBuilder) Encrypt / Decrypt Secure Strings

Demonstrates how to use the EncryptSecureENC and DecryptSecureENC methods to encrypt/decrypt secure strings. These methods were added in Chilkat v9.5.0.71 (released January 2018).

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

integer li_rc
oleobject loo_SecStr1
integer li_Success
oleobject loo_Crypt
string ls_EncryptedStr
oleobject loo_SecStr2

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

// Load the secure string with some text.
loo_SecStr1 = create oleobject
// Use "Chilkat_9_5_0.SecureString" for versions of Chilkat < 10.0.0
li_rc = loo_SecStr1.ConnectToNewObject("Chilkat.SecureString")
if li_rc < 0 then
    destroy loo_SecStr1
    MessageBox("Error","Connecting to COM object failed")
    return
end if
li_Success = loo_SecStr1.LoadFile("qa_data/txt/helloWorld.txt","utf-8")
if li_Success <> 1 then
    Write-Debug "Failed to load helloWorld.txt"
    destroy loo_SecStr1
    return
end if

loo_Crypt = create oleobject
// Use "Chilkat_9_5_0.Crypt2" for versions of Chilkat < 10.0.0
li_rc = loo_Crypt.ConnectToNewObject("Chilkat.Crypt2")

loo_Crypt.CryptAlgorithm = "aes"
loo_Crypt.CipherMode = "cbc"
loo_Crypt.KeyLength = 128
loo_Crypt.SetEncodedKey("000102030405060708090A0B0C0D0E0F","hex")
loo_Crypt.SetEncodedIV("000102030405060708090A0B0C0D0E0F","hex")
loo_Crypt.EncodingMode = "base64"

// Return the base64 encoded encrypted contents of secStr1.
ls_EncryptedStr = loo_Crypt.EncryptSecureENC(loo_SecStr1)
Write-Debug "Encrypted string: " + ls_EncryptedStr

// Output:
// Encrypted string: qiq+IFhcjTkEIkZyf31V/g==

// Decrypt to secStr2:
loo_SecStr2 = create oleobject
// Use "Chilkat_9_5_0.SecureString" for versions of Chilkat < 10.0.0
li_rc = loo_SecStr2.ConnectToNewObject("Chilkat.SecureString")

loo_Crypt.DecryptSecureENC(ls_EncryptedStr,loo_SecStr2)

// Access the contents of secStr2
Write-Debug "Decrypted string: " + loo_SecStr2.Access()

// Output:
// Decrypted string: Hello World!


destroy loo_SecStr1
destroy loo_Crypt
destroy loo_SecStr2