Visual FoxPro

Base64 Encode/Decode a String

See more Encryption Examples

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

LOCAL lnSuccess
LOCAL loBd
LOCAL s
LOCAL lcStrBase64
LOCAL loBd2
LOCAL lcDecoded

lnSuccess = 0

loBd = CreateObject('Chilkat.BinData')

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"

lnSuccess = loBd.AppendString(s,"utf-8")

lcStrBase64 = loBd.GetEncoded("base64")
? lcStrBase64

* To decode:
loBd2 = CreateObject('Chilkat.BinData')
loBd2.AppendEncoded(lcStrBase64,"base64")

lcDecoded = loBd2.GetString("utf-8")
? lcDecoded

RELEASE loBd
RELEASE loBd2