VBScript Requires Chilkat v11.2.0+

Base62 Encoding and Decoding

Demonstrates base62 encoding and decoding. VBScript

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

set bd = CreateObject("Chilkat.BinData")

'  Base62 encode.
success = bd.AppendString("hello world","utf-8")
base62_encoded = bd.GetEncoded("base62")
outFile.WriteLine("hello world --> " & base62_encoded)

'  Output: 
'  hello world --> AAwf93rvy4aWQVw

'  Base62 decode
set sb = CreateObject("Chilkat.StringBuilder")
success = sb.DecodeAndAppend("AAwf93rvy4aWQVw","base62","utf-8")
outFile.WriteLine("decoded: " & sb.GetAsString())

'  Output:
'  decoded: hello world

outFile.Close