String-to-String Compression in VBScript

Demonstrates how to do string-to-string compression using BZIP2 compression in VBscript.

set crypt = CreateObject("ChilkatCrypt2.ChilkatCrypt2")
crypt.UnlockComponent "30-day trial"

crypt.EncodingMode = "Base64"

' Create something to compress
myStr = "<test>"
for i = 0 to 30
	myStr = myStr + "This is test data to be compressed. " + vbCrLf
next
myStr = myStr + "</test>"

' Show the original.
MsgBox myStr

' Compress and display the output.
MsgBox crypt.CompressStringENC(myStr)