B4X

Example: Crypt2.DecryptStringENC method

Demonstrates how to call the DecryptStringENC method. B4X

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


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 bytes
Dim encodedEncrypted As String = crypt.EncryptStringENC("Hello World!")
Log("Encrypted: " & encodedEncrypted)

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

'  Decrypt
Dim originalText As String = crypt.DecryptStringENC(encodedEncrypted)

Log("Decrypted: " & originalText)

'  Output:
'  Decrypted: Hello World!