B4X

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). B4X

Dim success As Boolean = False

'  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.
Dim secStr1 As ChilkatSecureString
secStr1.Initialize
success = secStr1.LoadFile("qa_data/txt/helloWorld.txt", "utf-8")
If success <> True Then
    Log("Failed to load helloWorld.txt")
    Return
End If


Dim crypt As ChilkatCrypt2
crypt.Initialize("crypt")

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

'  Return the base64 encoded encrypted contents of secStr1.
Dim encryptedStr As String = crypt.EncryptSecureENC(secStr1)
Log("Encrypted string: " & encryptedStr)

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

'  Decrypt to secStr2:
Dim secStr2 As ChilkatSecureString
secStr2.Initialize
crypt.DecryptSecureENC(encryptedStr, secStr2)

'  Access the contents of secStr2
Log("Decrypted string: " & secStr2.Access)

'  Output:
'  Decrypted string: Hello World!