Xbase++

Encrypt / Decrypt Secure Strings

See more Encryption Examples

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). Xbase++

LOCAL nSuccess
LOCAL oSecStr1
LOCAL oCrypt
LOCAL cEncryptedStr
LOCAL oSecStr2

nSuccess := 0

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

//  Load the secure string with some text.
oSecStr1 := CreateObject("Chilkat.SecureString")
nSuccess := oSecStr1:LoadFile("qa_data/txt/helloWorld.txt", "utf-8")
IF (nSuccess != 1)
    ? "Failed to load helloWorld.txt"
    oSecStr1:destroy()
    RETURN
ENDIF

oCrypt := CreateObject("Chilkat.Crypt2")

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

//  Return the base64 encoded encrypted contents of secStr1.
cEncryptedStr := oCrypt:EncryptSecureENC(oSecStr1)
? "Encrypted string: " + cEncryptedStr

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

//  Decrypt to secStr2:
oSecStr2 := CreateObject("Chilkat.SecureString")
oCrypt:DecryptSecureENC(cEncryptedStr, oSecStr2)

//  Access the contents of secStr2
? "Decrypted string: " + oSecStr2:Access()

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

oSecStr1:destroy()
oCrypt:destroy()
oSecStr2:destroy()