Re-Encode (How to convert encodings)

Demonstrates how to convert a string from one encoding to another.

Download Chilkat Crypt ActiveX

LOCAL loCrypt
LOCAL lnSuccess
LOCAL lcS1
LOCAL lcS2
LOCAL lcB64
LOCAL lcHex


loCrypt = CreateObject('Chilkat.Crypt2')

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

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

lcS1 = "This is a test / = abc 123"

*  The ReEncode method converts a string from one encoding
*  to another.
*  Valid encodings are "url", "base64", "qp", "hex", and "ansi"
*  Use "ansi" for an unencoded ANSI string.

*  Encode to URL-encoding:
lcS2 = loCrypt.ReEncode(lcS1,"ansi","url")
? lcS2

*  Convert from URL-encoding to base64:

lcB64 = loCrypt.ReEncode(lcS2,"url","base64")
? lcB64

*  Convert from base64 to hex:

lcHex = loCrypt.ReEncode(lcB64,"base64","hex")
? lcHex