Blowfish Encryption Returning a URL-Encoded String

This example program shows how to blowfish encrypt a byte array and return the result as a url-encoded string.

        ' 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 url-encoded string.
        crypt.EncodingMode = "url"

        Dim inputData(10) As Byte
        Dim i As Integer
        For i = 1 To 10
            inputData(i) = i
        Next

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

        ' Url-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