File Encryption / Decryption

File-to-file encryption in VBScript using AES, Blowfish, RC2, ARC4, or 3DES.

Download Chilkat Crypt ActiveX

set crypt = CreateObject("Chilkat.Crypt2")

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

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

'  16 bytes of key for 128-bit encryption.
key = "1234567890123456"

'  The IV is equal to the block size of the encryption algorithm.

iv = "1234567890123456"

'  Set the key.
crypt.SetEncodedKey key,"ascii"

'  Set the IV
crypt.SetEncodedIV iv,"ascii"

'  AES Encrypt the file (the file may be any size because it will
'  stream the file in/out.
success = crypt.CkEncryptFile("hamlet.xml","aesEncrypted.dat")
If (success <> 1) Then
    MsgBox crypt.LastErrorText
    WScript.Quit
End If

'  AES Decrypt the file (the file may be any size because it will
'  stream the file in/out.
success = crypt.CkDecryptFile("aesEncrypted.dat","hamlet_aes.xml")
If (success <> 1) Then
    MsgBox crypt.LastErrorText
    WScript.Quit
End If

MsgBox "AES File Encryption Success."

'  Now do 3DES file encryption:

'  To use Triple-DES, set the algorithm = "des",
'  and the key length = 168.
'  To use DES, set the key length = 56 bits.
crypt.CryptAlgorithm = "des"
crypt.CipherMode = "cbc"
crypt.KeyLength = 168

'  3DES Encrypt the file
success = crypt.CkEncryptFile("hamlet.xml","tripleDesEncrypted.dat")
If (success <> 1) Then
    MsgBox crypt.LastErrorText
    WScript.Quit
End If

'  3DES Decrypt the file
success = crypt.CkDecryptFile("tripleDesEncrypted.dat","hamlet_3des.xml")
If (success <> 1) Then
    MsgBox crypt.LastErrorText
    WScript.Quit
End If

MsgBox "3DES File Encryption Success."

'  Do Blowfish file encryption:

'  To use Blowfish, set the algorithm = "blowfish2".
'  The original Chilkat "blowfish" implementation outputs
'  4321 swapped bytes.  "blowfish2" output is in the correct
'  byte order.
crypt.CryptAlgorithm = "blowfish2"
crypt.CipherMode = "cbc"
crypt.KeyLength = 128

'  Blowfish Encrypt the file
success = crypt.CkEncryptFile("hamlet.xml","blowfishEncrypted.dat")
If (success <> 1) Then
    MsgBox crypt.LastErrorText
    WScript.Quit
End If

'  Blowfish Decrypt the file
success = crypt.CkDecryptFile("blowfishEncrypted.dat","hamlet_blowfish.xml")
If (success <> 1) Then
    MsgBox crypt.LastErrorText
    WScript.Quit
End If

MsgBox "Blowfish File Encryption Success."

'  Do RC2 file encryption:

'  To use RC2, set the algorithm = "rc2".
'  Also, set the Rc2EffectiveKeyLength property.
crypt.CryptAlgorithm = "rc2"
crypt.CipherMode = "cbc"
'  Key length and effective key length should range
'  from 8 to 1024 bits.
crypt.KeyLength = 128
crypt.Rc2EffectiveKeyLength = 128

'  RC2 Encrypt the file
success = crypt.CkEncryptFile("hamlet.xml","rc2Encrypted.dat")
If (success <> 1) Then
    MsgBox crypt.LastErrorText
    WScript.Quit
End If

'  RC2 Decrypt the file
success = crypt.CkDecryptFile("rc2Encrypted.dat","hamlet_rc2.xml")
If (success <> 1) Then
    MsgBox crypt.LastErrorText
    WScript.Quit
End If

MsgBox "RC2 File Encryption Success."

'  Do ARC4 file encryption:

'  To use ARC4, set the algorithm = "arc4".
crypt.CryptAlgorithm = "arc4"
crypt.KeyLength = 128

'  ARC4 Encrypt the file
success = crypt.CkEncryptFile("hamlet.xml","arc4Encrypted.dat")
If (success <> 1) Then
    MsgBox crypt.LastErrorText
    WScript.Quit
End If

'  ARC4 Decrypt the file
success = crypt.CkDecryptFile("arc4Encrypted.dat","hamlet_arc4.xml")
If (success <> 1) Then
    MsgBox crypt.LastErrorText
    WScript.Quit
End If

MsgBox "ARC4 File Encryption Success."