(VBScript) Base64 Encode/Decode a String

VBScript example to base-64 encode and decode a string.

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)

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

s = "A friend called me up the other day and talked about investing in a dot-com that sells lobsters. Internet lobsters. Where will this end? --Donald Trump"

success = bd.AppendString(s,"utf-8")

strBase64 = bd.GetEncoded("base64")
outFile.WriteLine(strBase64)

' To decode:
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.BinData")
set bd2 = CreateObject("Chilkat.BinData")
success = bd2.AppendEncoded(strBase64,"base64")

decoded = bd2.GetString("utf-8")
outFile.WriteLine(decoded)

outFile.Close