Re-Encode (How to convert encodings)

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

Download: Chilkat .NET Assemblies

Dim crypt As New Chilkat.Crypt2()

'  Any string argument automatically begins the 30-day trial.
Dim success As Boolean
success = crypt.UnlockComponent("30-day trial")
If (success <> true) Then
    MsgBox(crypt.LastErrorText)
    Exit Sub
End If


Dim s1 As String
Dim s2 As String

s1 = "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:
s2 = crypt.ReEncode(s1,"ansi","url")
TextBox1.Text = TextBox1.Text & s2 & vbCrLf

'  Convert from URL-encoding to base64:
Dim b64 As String
b64 = crypt.ReEncode(s2,"url","base64")
TextBox1.Text = TextBox1.Text & b64 & vbCrLf

'  Convert from base64 to hex:
Dim hex As String
hex = crypt.ReEncode(b64,"base64","hex")
TextBox1.Text = TextBox1.Text & hex & vbCrLf