VBScript

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