PowerBuilder

Base64 Encode/Decode a String

See more Encryption Examples

_LANGUAGE_ example to base-64 encode and decode a string. PowerBuilder

integer li_rc
integer li_Success
oleobject loo_Bd
string s
string ls_StrBase64
oleobject loo_Bd2
string ls_Decoded

li_Success = 0

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

s = "A friend called me up the other day and talked about investing in a dot-com that sells lobsters. Internet lobsters. Where will this end? --Donald Trump"

li_Success = loo_Bd.AppendString(s,"utf-8")

ls_StrBase64 = loo_Bd.GetEncoded("base64")
Write-Debug ls_StrBase64

// To decode:
loo_Bd2 = create oleobject
li_rc = loo_Bd2.ConnectToNewObject("Chilkat.BinData")

loo_Bd2.AppendEncoded(ls_StrBase64,"base64")

ls_Decoded = loo_Bd2.GetString("utf-8")
Write-Debug ls_Decoded


destroy loo_Bd
destroy loo_Bd2