Blowfish Encrypt Bytes Returning Base64 String

This sample code encrypts a byte array using the blowfish encryption algorithm,
using 256-bit encryption, and returns the encrypted data as a base64 encoded string.

        ' This example uses the Chilkat .NET encryption library, which can be downloaded
        ' at http://www.chilkatsoft.com/downloads.asp

        ' Create an instance of the Chilkat encryption class.
        Dim crypt As New Chilkat.Crypt2()

        ' Any code begins the 30-day trial.
        crypt.UnlockComponent("30-day-trial")

        ' Set the encryption algorithm to blowfish
        crypt.CryptAlgorithm = "blowfish"

        ' Set the password.
        crypt.SecretKey = crypt.GenerateSecretKey("myPassword")

        ' Tell the encryption object to return a base64 encoded string.
        crypt.EncodingMode = "base64"

        ' Use 256-bit encryption
        crypt.KeyLength = 256

        ' File a byte array to encrypt
        Dim inputData(10) As Byte
        Dim i As Integer
        For i = 1 To 10
            inputData(i) = i
        Next

        ' Encrypt byte array returning a base64-encoded string
        TextBox2.Text = crypt.EncryptBytesENC(inputData)

        ' Base64-decode and blowfish decrypt.
        Dim outputData() As Byte
        outputData = crypt.DecryptBytesENC(TextBox2.Text)

        ' Verify the output byte data.
        TextBox3.Text = ""
        For i = 1 To 10
            TextBox3.Text = TextBox3.Text + Chr(i + Asc("A") - 1)
        Next

Important: The download for this example does not contain the ChilkatDotNet.dll which
must be downloaded and installed separately at http://www.chilkatsoft.com/downloads.asp.
Once installed, add a reference to the DLL in the project by following the instructions at
http://www.example-code.com/vbdotnet/step2.asp