Lianja

Base64 Encode/Decode a String

See more Encryption Examples

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

llSuccess = .F.

loBd = createobject("CkBinData")

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"

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

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

// To decode:
loBd2 = createobject("CkBinData")
loBd2.AppendEncoded(lcStrBase64,"base64")

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


release loBd
release loBd2