(VBScript) Stream a file to compression to encryption to an output file.

Runs a chain of streams to read a source file, compress, encrypt, and write an output file.

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)

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

' Initialize the compression object.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Compression")
set compress = CreateObject("Chilkat.Compression")
compress.Algorithm = "deflate"

' Initialize the encryption object.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Crypt2")
set crypt = CreateObject("Chilkat.Crypt2")
crypt.CryptAlgorithm = "chacha20"
crypt.KeyLength = 256
crypt.EncodingMode = "hex"
ivHex = "000000000000000000000002"
crypt.SetEncodedIV ivHex,"hex"
crypt.InitialCount = 42
keyHex = "1c9240a5eb55d38af333888604f6b5f0473917c1402b80099dca5cbc207075c0"
crypt.SetEncodedKey keyHex,"hex"

' Setup the streams.  
' streamC is for compression
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Stream")
set streamC = CreateObject("Chilkat.Stream")
' streamE is for encryption
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Stream")
set streamE = CreateObject("Chilkat.Stream")

' The source for the compressor is a file.
streamC.SourceFile = "qa_data/hamlet.xml"
' The source for the encryptor is the output of the compressor stream.
success = streamE.SetSourceStream(streamC)

' The sink for the encryptor is the output file.
streamE.SinkFile = "qa_output/compressed_encrypted.dat"

' Start the compression and encryption streams in background threads..
' taskC is a Chilkat.Task
Set taskC = compress.CompressStreamAsync(streamC)
' taskE is a Chilkat.Task
Set taskE = crypt.EncryptStreamAsync(streamE)
success = taskC.Run()
success = taskE.Run()

' Let the streams run until finished.
' Let's make sure the background task finished.
' It should already be the case that the task is finished.
Do While ((taskE.Finished <> 1) Or (taskC.Finished <> 1))
    taskE.SleepMs 20
Loop

' check for success..
If (taskE.TaskSuccess <> 1) Then
    outFile.WriteLine("async encryption failed:")
    outFile.WriteLine(taskE.ResultErrorText)
    success = 0
End If

' check for success..
If (taskC.TaskSuccess <> 1) Then
    outFile.WriteLine("async compression failed:")
    outFile.WriteLine(taskC.ResultErrorText)
    success = 0
End If

' Load the file that was produced and decrypt/decompress to verify.
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.BinData")
set binData = CreateObject("Chilkat.BinData")
success = binData.LoadFile("qa_output/compressed_encrypted.dat")
success = crypt.DecryptBd(binData)
success = compress.DecompressBd(binData)

' binData should contain the original data..
success = binData.WriteFile("qa_output/original_hamlet.xml")

outFile.WriteLine("Finished.")

outFile.Close