Tcl

Base62 Encoding and Decoding

Demonstrates base62 encoding and decoding. Tcl

load ./chilkat.dll

set bd [new_CkBinData]

# Base62 encode.
CkBinData_AppendString $bd "hello world" "utf-8"
set base62_encoded [CkBinData_getEncoded $bd "base62"]
puts "hello world --> $base62_encoded"

# Output: 
# hello world --> AAwf93rvy4aWQVw

# Base62 decode
set sb [new_CkStringBuilder]

CkStringBuilder_DecodeAndAppend $sb "AAwf93rvy4aWQVw" "base62" "utf-8"
puts "decoded: [CkStringBuilder_getAsString $sb]"

# Output:
# decoded: hello world

delete_CkBinData $bd
delete_CkStringBuilder $sb