(PowerBuilder) AES Encrypt String (utf-8 byte representation) and return Base64

Demonstrates how to AES encrypt the utf-8 byte representation of a string and return in base64 format.

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

integer li_rc
oleobject loo_Crypt
string ls_IvHex
string ls_KeyHex
string ls_EncryptedStr
string ls_UrlEncoded
string ls_EncBase64Url
string ls_EncBase64
string ls_OriginalStr

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

loo_Crypt = create oleobject
// Use "Chilkat_9_5_0.Crypt2" for versions of Chilkat < 10.0.0
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

loo_Crypt.CryptAlgorithm = "aes"
loo_Crypt.CipherMode = "cbc"
loo_Crypt.KeyLength = 256
loo_Crypt.Charset = "utf-8"
loo_Crypt.EncodingMode = "base64"

ls_IvHex = "000102030405060708090A0B0C0D0E0F"
loo_Crypt.SetEncodedIV(ls_IvHex,"hex")
ls_KeyHex = "000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F"
loo_Crypt.SetEncodedKey(ls_KeyHex,"hex")

ls_EncryptedStr = loo_Crypt.EncryptStringENC("This is the original string")
Write-Debug ls_EncryptedStr

// Let's say we want to URL encode the base64 string..
loo_Crypt.CryptAlgorithm = "none"
loo_Crypt.EncodingMode = "url"
ls_UrlEncoded = loo_Crypt.EncryptStringENC(ls_EncryptedStr)
Write-Debug ls_UrlEncoded

// Sample output:

//  q3fmgEqjqa9o//ZS6aPuh4Wtbrrxx/WOIQSKeVnesZg=
//  q3fmgEqjqa9o%2F%2FZS6aPuh4Wtbrrxx%2FWOIQSKeVnesZg%3D

// -------------------------------------------------------------------
// Now let's do the reverse...
// 

// We start with a string that is the binary encrypted data, base64 encoded, and then URL encoded.
ls_EncBase64Url = "q3fmgEqjqa9o%2F%2FZS6aPuh4Wtbrrxx%2FWOIQSKeVnesZg%3D"

// We'll use the same crypt object.  If using a new instance of the crypt object,
// make sure *all* settings are identical:  the algorithm, cipher mode, key length, charset, encoding mode, IV, and secret key.

// Decode from URL...
loo_Crypt.CryptAlgorithm = "none"
loo_Crypt.EncodingMode = "url"
ls_EncBase64 = loo_Crypt.DecryptStringENC(ls_UrlEncoded)
Write-Debug ls_EncBase64

// Now decrypt...
loo_Crypt.CryptAlgorithm = "aes"
loo_Crypt.EncodingMode = "base64"
ls_OriginalStr = loo_Crypt.DecryptStringENC(ls_EncBase64)
Write-Debug ls_OriginalStr


destroy loo_Crypt