Re-Encode (How to convert encodings)

Demonstrates how to convert a string from one encoding to another.

Download Chilkat Crypt ActiveX

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


set crypt = CreateObject("Chilkat.Crypt2")

'  Any string argument automatically begins the 30-day trial.
success = crypt.UnlockComponent("30-day trial")
If (success <> 1) Then
    MsgBox crypt.LastErrorText
    WScript.Quit
End If

s1 = "This is a test / = abc 123"

'  The ReEncode method converts a string from one encoding
'  to another.
'  Valid encodings are "url", "base64", "qp", "hex", and "ansi"
'  Use "ansi" for an unencoded ANSI string.

'  Encode to URL-encoding:
s2 = crypt.ReEncode(s1,"ansi","url")
outFile.WriteLine(s2)

'  Convert from URL-encoding to base64:

b64 = crypt.ReEncode(s2,"url","base64")
outFile.WriteLine(b64)

'  Convert from base64 to hex:

hex = crypt.ReEncode(b64,"base64","hex")
outFile.WriteLine(hex)


outFile.Close