Base64 Encode/Decode a String

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

Download Chilkat Crypt ActiveX

LOCAL loCrypt
LOCAL lnSuccess
LOCAL s
LOCAL lcStrBase64
LOCAL lcDecoded

loCrypt = CreateObject('Chilkat.Crypt2')

*  Any string argument automatically begins the 30-day trial.

lnSuccess = loCrypt.UnlockComponent("30-day trial")
IF (lnSuccess <> 1) THEN
    ? loCrypt.LastErrorText
    QUIT
ENDIF

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"

*  Indicate that no encryption should be performed,
*  only encoding/decoding.
loCrypt.CryptAlgorithm = "none"
loCrypt.EncodingMode = "base64"

*  Other possible EncodingMode settings are:
*  "quoted-printable", "hex", "uu", "base32", and "url"

lcStrBase64 = loCrypt.EncryptStringENC(s)

? lcStrBase64

lcDecoded = loCrypt.DecryptStringENC(lcStrBase64)

? lcDecoded