Chilkat HOME ASP Visual Basic VB.NET C# Visual C++ C MFC Delphi FoxPro Java Perl PHP Python Ruby SQL Server VBScript
|
Base64 Encode/Decode a String
Visual Basic example to base-64 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 MsgBox "Crypt component unlock failed" Exit Sub End If Dim s As String s = "A friend called me up the other day and talked about investing in a dot-com that sells lobsters. Internet lobsters. Where will this end? --Donald Trump" crypt.CryptAlgorithm = "none" crypt.EncodingMode = "base64" ' Other possible EncodingMode settings are: ' "quoted-printable", "hex", and "url" Dim qp As String qp = crypt.EncryptStringENC(s) Text1.Text = Text1.Text & qp & vbCrLf Text1.Refresh Dim decoded As String decoded = crypt.DecryptStringENC(qp) Text1.Text = Text1.Text & decoded & vbCrLf Text1.Refresh |
Need a specific example? Send a request to support@chilkatsoft.com
© 2000-2008 Chilkat Software, Inc. All Rights Reserved.