Chilkat
HOME
Android™
ASP
Visual Basic
VB.NET
C#
iOS (IPhone)
Objective-C
C++
C
MFC
Delphi
FoxPro
Java
Perl
PHP Extension
PHP ActiveX
Python
PowerShell
Ruby
SQL Server
VBScript
Quoted-Printable Encode/Decode a StringVisual Basic example to quoted-printable encode and decode a string.
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 Text1.Text = Text1.Text & crypt.LastErrorText & vbCrLf Exit Sub End If ' Here's a string in Icelandic using non us-ascii chars: Dim s As String s = "Ég get etið gler án þess að meiða mig." crypt.CryptAlgorithm = "none" crypt.EncodingMode = "quoted-printable" ' Quoted-printable encode/decode the iso-8859-1 ' representation of the string. Notice how each ' Icelandic char is represented by 1 byte: crypt.Charset = "iso-8859-1" Dim qp As String qp = crypt.EncryptStringENC(s) Text1.Text = Text1.Text & "iso-8859-1:" & vbCrLf Text1.Text = Text1.Text & qp & vbCrLf Dim decoded As String decoded = crypt.DecryptStringENC(qp) Text1.Text = Text1.Text & decoded & vbCrLf ' Now do the same using utf-8. Notice how each ' Icelandic char is represented by 2 bytes in utf-8: crypt.Charset = "utf-8" qp = crypt.EncryptStringENC(s) Text1.Text = Text1.Text & "utf-8:" & vbCrLf Text1.Text = Text1.Text & qp & vbCrLf decoded = crypt.DecryptStringENC(qp) Text1.Text = Text1.Text & decoded & vbCrLf |
© 2000-2012 Chilkat Software, Inc. All Rights Reserved.