PowerBuilder

Base62 Encoding and Decoding

Demonstrates base62 encoding and decoding. PowerBuilder

integer li_rc
oleobject loo_Bd
string ls_Base62_encoded
oleobject loo_Sb

loo_Bd = create oleobject
li_rc = loo_Bd.ConnectToNewObject("Chilkat.BinData")
if li_rc < 0 then
    destroy loo_Bd
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// Base62 encode.
loo_Bd.AppendString("hello world","utf-8")
ls_Base62_encoded = loo_Bd.GetEncoded("base62")
Write-Debug "hello world --> " + ls_Base62_encoded

// Output: 
// hello world --> AAwf93rvy4aWQVw

// Base62 decode
loo_Sb = create oleobject
li_rc = loo_Sb.ConnectToNewObject("Chilkat.StringBuilder")

loo_Sb.DecodeAndAppend("AAwf93rvy4aWQVw","base62","utf-8")
Write-Debug "decoded: " + loo_Sb.GetAsString()

// Output:
// decoded: hello world


destroy loo_Bd
destroy loo_Sb