Visual Basic 6.0

Base62 Encoding and Decoding

Demonstrates base62 encoding and decoding. Visual Basic 6.0

Dim bd As New ChilkatBinData

' Base62 encode.
success = bd.AppendString("hello world","utf-8")
Dim base62_encoded As String
base62_encoded = bd.GetEncoded("base62")
Debug.Print "hello world --> " & base62_encoded

' Output: 
' hello world --> AAwf93rvy4aWQVw

' Base62 decode
Dim sb As New ChilkatStringBuilder
success = sb.DecodeAndAppend("AAwf93rvy4aWQVw","base62","utf-8")
Debug.Print "decoded: " & sb.GetAsString()

' Output:
' decoded: hello world