Re-Encode a String (Hex, Base64, URL, etc)

Demonstrates how to convert from one encoding to another. For example: base64 to hex, URL to base64, base64 to quoted-printable, etc.

Note: The ReEncode method is unreleased at the time of this writing (08-April-2008) The next major Chilkat Crypt2 release after this date will include the ReEncode method.

Download Chilkat Crypt ActiveX

LOCAL loCrypt
LOCAL lnSuccess
LOCAL lcHexStr
LOCAL lcFromEncoding
LOCAL lcToEncoding
LOCAL lcBase64
LOCAL lcQp
LOCAL lcUrlEnc


loCrypt = CreateObject('Chilkat.Crypt2')

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

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

lcHexStr = "41424344E0E1E2E3"

lcFromEncoding = "hex"

lcToEncoding = "base64"

*  Convert from hex to base64

lcBase64 = loCrypt.ReEncode(lcHexStr,lcFromEncoding,lcToEncoding)
? lcBase64

*  Now convert from base64 to quoted-printable:
lcFromEncoding = "base64"
lcToEncoding = "quoted-printable"

lcQp = loCrypt.ReEncode(lcBase64,lcFromEncoding,lcToEncoding)
? lcQp

*  Now convert from quoted-printable to URL:
lcFromEncoding = "quoted-printable"
lcToEncoding = "url"

lcUrlEnc = loCrypt.ReEncode(lcQp,lcFromEncoding,lcToEncoding)
? lcUrlEnc

*  Now convert from URL back to hex:
lcFromEncoding = "url"
lcToEncoding = "hex"
lcHexStr = loCrypt.ReEncode(lcUrlEnc,lcFromEncoding,lcToEncoding)
? lcHexStr

*  The output of this program is:
*  QUJDRODh4uM=
*  ABCD=E0=E1=E2=E3
*  ABCD%E0%E1%E2%E3
*  41424344E0E1E2E3