Xbase++

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

See more Encryption Examples

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

LOCAL oCrypt
LOCAL cIvHex
LOCAL cKeyHex
LOCAL cEncryptedStr
LOCAL cUrlEncoded
LOCAL cEncBase64Url
LOCAL cEncBase64
LOCAL cOriginalStr

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

oCrypt := CreateObject("Chilkat.Crypt2")

oCrypt:CryptAlgorithm := "aes"
oCrypt:CipherMode := "cbc"
oCrypt:KeyLength := 256
oCrypt:Charset := "utf-8"
oCrypt:EncodingMode := "base64"

cIvHex := "000102030405060708090A0B0C0D0E0F"
oCrypt:SetEncodedIV(cIvHex, "hex")
cKeyHex := "000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F"
oCrypt:SetEncodedKey(cKeyHex, "hex")

cEncryptedStr := oCrypt:EncryptStringENC("This is the original string")
? cEncryptedStr

//  Let's say we want to URL encode the base64 string..
oCrypt:CryptAlgorithm := "none"
oCrypt:EncodingMode := "url"
cUrlEncoded := oCrypt:EncryptStringENC(cEncryptedStr)
? cUrlEncoded

//  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.
cEncBase64Url := "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...
oCrypt:CryptAlgorithm := "none"
oCrypt:EncodingMode := "url"
cEncBase64 := oCrypt:DecryptStringENC(cUrlEncoded)
? cEncBase64

//  Now decrypt...
oCrypt:CryptAlgorithm := "aes"
oCrypt:EncodingMode := "base64"
cOriginalStr := oCrypt:DecryptStringENC(cEncBase64)
? cOriginalStr

oCrypt:destroy()