Xbase++ Requires Chilkat v11.1.0+

openssl enc decrypt

See more Encryption Examples

Demonstrates how to decrypt a file that was encrypted using "openssl enc".

This example shows how to decrypt what was created using this openssl command:

openssl enc -e -aes-256-cbc -in hamlet.xml -out hamlet.enc -pass file:./secret.txt

This example shows how to do this:

openssl enc -d -aes-256-cbc -in hamlet.enc -out hamlet_dec.xml -pass file:./secret.txt

Xbase++

LOCAL nSuccess
LOCAL oCrypt
LOCAL oFileData

nSuccess := 0

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

oCrypt := CreateObject("Chilkat.Crypt2")

//  Use aes-256-cbc
oCrypt:CryptAlgorithm := "aes"
oCrypt:CipherMode := "cbc"
oCrypt:KeyLength := 256

//  We'll need to set the hash algorithm to either MD5 or SHA256.
//  openssl version 1.0.* or earlier used MD5 by default
//  openssl version 1.1.* uses SHA-256 for the password to secret key derivation.

//  For example, if openssl 1.1.0 was used, we should do this:
oCrypt:HashAlgorithm := "sha256"

//  This example assumes openssl 1.0.2 was used to encrypt what we're now decrypting:
oCrypt:HashAlgorithm := "md5"

//  The openssl command we are duplicating is:
//  
//     openssl enc -d -aes-256-cbc -in hamlet.enc -out hamlet_dec.xml -pass file:./secret.txt
//  
//  The file secret.txt contains the word "secret".  We could write code to load the contents
//  of secret.txt, but instead we'll just do this:
oCrypt:SetEncodedKey("secret", "openssl")

//  Load the file to be decrypted.
oFileData := CreateObject("Chilkat.BinData")
nSuccess := oFileData:LoadFile("qa_data/openssl_enc/hamlet.enc")

//  Decrypt
oCrypt:VerboseLogging := 1
nSuccess := oCrypt:DecryptBd(oFileData)
? oCrypt:LastErrorText

//  Save the decrypted output.
nSuccess := oFileData:WriteFile("c:/temp/qa_output/hamlet_dec.xml")

? "success = " + Str(nSuccess)

oCrypt:destroy()
oFileData:destroy()