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

Dim crypt As New ChilkatCrypt2

'  Any string argument automatically begins the 30-day trial.
Dim success As Long
success = crypt.UnlockComponent("30-day trial")
If (success <> 1) Then
    MsgBox "Crypt component unlock failed"
    Exit Sub
End If

Dim hexStr As String
hexStr = "41424344E0E1E2E3"

Dim fromEncoding As String
fromEncoding = "hex"
Dim toEncoding As String
toEncoding = "base64"

'  Convert from hex to base64
Dim base64 As String
base64 = crypt.ReEncode(hexStr,fromEncoding,toEncoding)
Text1.Text = Text1.Text & base64 & vbCrLf

'  Now convert from base64 to quoted-printable:
fromEncoding = "base64"
toEncoding = "quoted-printable"
Dim qp As String
qp = crypt.ReEncode(base64,fromEncoding,toEncoding)
Text1.Text = Text1.Text & qp & vbCrLf

'  Now convert from quoted-printable to URL:
fromEncoding = "quoted-printable"
toEncoding = "url"
Dim urlEnc As String
urlEnc = crypt.ReEncode(qp,fromEncoding,toEncoding)
Text1.Text = Text1.Text & urlEnc & vbCrLf

'  Now convert from URL back to hex:
fromEncoding = "url"
toEncoding = "hex"
hexStr = crypt.ReEncode(urlEnc,fromEncoding,toEncoding)
Text1.Text = Text1.Text & hexStr & vbCrLf

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