VBScript

Example: Crypt2.DecryptStringENC method

Demonstrates how to call the DecryptStringENC method. VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

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

set crypt = CreateObject("Chilkat.Crypt2")

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
encodedEncrypted = crypt.EncryptStringENC("Hello World!")
outFile.WriteLine("Encrypted: " & encodedEncrypted)

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

' Decrypt
originalText = crypt.DecryptStringENC(encodedEncrypted)

outFile.WriteLine("Decrypted: " & originalText)

' Output:
' Decrypted: Hello World!

outFile.Close