Visual FoxPro

Decode Base64

Demonstrates how to decode base64. Visual FoxPro

LOCAL lnSuccess
LOCAL loBd
LOCAL lcPassword

lnSuccess = 0

loBd = CreateObject('Chilkat.BinData')

*  Append a base64 string to bd.
lnSuccess = loBd.AppendEncoded("c2VjcmV0","base64")

*  The bd now contains the decoded bytes.
*  Let's say it was a password string..
lcPassword = loBd.GetString("utf-8")

*  Decodes to "secret".
? "password = " + lcPassword

RELEASE loBd