(VBScript) Example: Crypt2.EncryptEncoded method

Demonstrates how to call the EncryptEncoded method.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

set crypt = CreateObject("Chilkat.Crypt2")

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

' Encrypt the bytes 0x00, 0x01, 0x02, ... 0x0A
' and return the encrypted bytes using the lowercase hex encoding.
crypt.EncodingMode = "hex_lower"
encrypted = crypt.EncryptEncoded("000102030405060708090a")
outFile.WriteLine(encrypted)

' Output:
' 9da2ae71a5378487114b430e5e230378

decrypted = crypt.DecryptEncoded(encrypted)
outFile.WriteLine(decrypted)

' Output:
' 000102030405060708090a

outFile.Close