Visual FoxPro

Base62 Encoding and Decoding

Demonstrates base62 encoding and decoding. Visual FoxPro

LOCAL loBd
LOCAL lcBase62_encoded
LOCAL loSb

loBd = CreateObject('Chilkat.BinData')

* Base62 encode.
loBd.AppendString("hello world","utf-8")
lcBase62_encoded = loBd.GetEncoded("base62")
? "hello world --> " + lcBase62_encoded

* Output: 
* hello world --> AAwf93rvy4aWQVw

* Base62 decode
loSb = CreateObject('Chilkat.StringBuilder')
loSb.DecodeAndAppend("AAwf93rvy4aWQVw","base62","utf-8")
? "decoded: " + loSb.GetAsString()

* Output:
* decoded: hello world

RELEASE loBd
RELEASE loSb