Thinking more...

忘記從哪兒節錄下來的了,在這裡向作者說聲抱歉,因為那時沒有記下出處.
如果有侵犯版權的話,請來信告訴我,我會拿掉.
兩個 function 是作 base64 encode/decode 的.

不過, VFP7 以後,微軟已經擴充了 STRCONV() 的功能,讓他也能作 base64 encode/decode.

用法如下:
? STRCONV("Hallo",13) encodes to Base64
? STRCONV("SGFsbG8=",14) decodes from Base64

=====

FUNCTION Base64Encode(lcInput,loXML)
LOCAL loNode

IF VARTYPE(loXML) # "O"
loXML = CREATEOBJECT("MSXML2.DOMDocument")
loXML.Async = .F.
ENDIF

loXML.loadXML("<node></node>")
loNode = loXML.DocumentElement

loNode.dataType = "bin.base64"
loNode.nodeTypedValue = CREATEBINARY(lcInput)

RETURN loNode.Text


FUNCTION Base64Decode(lcInput,loXML)
LOCAL lcDocument

IF VARTYPE(loXML) # "O"
loXML = CREATEOBJECT("MSXML2.DomDocument")
loXML.Async = .F.
ENDIF

lcDocument = [<node xmlns:dt="urn:schemas-microsoft-com:datatypes"
dt:dt="bin.base64">] + lcInput + [</node>]

loXML.loadXML(lcDocument)

RETURN loXML.DocumentElement.nodeTypedValue