(VBScript) Re-Encode (How to convert encodings)

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

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 example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Crypt2")
set crypt = CreateObject("Chilkat.Crypt2")

' Here are some bytes as a hex string
hex = "4142434445462140232425"

' The ReEncode method converts a string from one encoding to another.
' Valid encodings are "url", "base64", "qp", "hex", "modbase64", "base64url", "base32", "base58",
' and any of the encodings listed here:  http://cknotes.com/chilkat-binary-encoding-list

' Convert from hex to base64
b64 = crypt.ReEncode(hex,"hex","base64")
outFile.WriteLine("base64: " & b64)

' Convert from base64 to base32
b32 = crypt.ReEncode(b64,"base64","base32")
outFile.WriteLine("base32: " & b32)

' Convert from base32 back to hex
hex = crypt.ReEncode(b32,"base32","hex")
outFile.WriteLine("hex: " & hex)

outFile.Close