(VBScript) Base64 Encode/Decode a String
VBScript example to base-64 encode and decode a string.
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
|