EncryptEncoded: Decode-->Encrypt Bytes-->Encode

In some programming languages, it is very difficult to work with binary data. To help avoid these problems, two new methods have been added to the Chilkat Crypt2 component: EncryptEncoded and DecryptEncoded.

EncryptEncoded takes binary data in the form of an encoded string (base64, hex, etc.), decodes it, encrypts, and then encodes the encrypted output and returns an encoded string (base64, hex, etc.).

DecryptEncoded does the opposite. It accepts encrypted data in the form of an encoded string, decodes, decrypts, and then returns the result as an encoded string.

The encoding is determined by the EncodingMode property. It may be "base64", "hex", "url", "quoted-printable", etc.

Note: The EncryptEncoded and DecryptEncoded methods are unreleased at the time of this writing (08-April-2008) The next major Chilkat Crypt2 release after this date will include these new methods.

Download Chilkat Crypt ActiveX

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set outFile = fso.CreateTextFile("output.txt", True)

set crypt = CreateObject("Chilkat.Crypt2")

success = crypt.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    '  Unlock failed.
    MsgBox crypt.LastErrorText
    WScript.Quit
End If

crypt.CryptAlgorithm = "aes"
crypt.KeyLength = 128

'  The encrypted output will be a hex-encoded string.
'  It is also possible to use "base64", "url" (for url-encoding), and other modes.
crypt.EncodingMode = "hex"

'  Both ECB and CBC modes are available.
'  Use "ecb" for Electronic Cookbook Mode.
'  "cbc" is for Cipher-Block-Chaining.
crypt.CipherMode = "ecb"

'  Key (128): E8E9EAEBEDEEEFF0F2F3F4F5F7F8F9FA
'  Plaintext: 014BAF2278A69D331D5180103643E99A
'  Ciphertext: 6743C3D1519AB4F2CD9A78AB09A511BD

crypt.SetEncodedKey "E8E9EAEBEDEEEFF0F2F3F4F5F7F8F9FA","hex"

crypt.PaddingScheme = 3

cipherHex = crypt.EncryptEncoded("014BAF2278A69D331D5180103643E99A")
outFile.WriteLine(cipherHex)

plainTextHex = crypt.DecryptEncoded(cipherHex)
outFile.WriteLine(plainTextHex)
outFile.Close