Blowfish Encrypt Byte Array

Encrypt a byte array using the Blowfish encryption algorithm

        ' 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")

        ' Encrypt a byte array using Blowfish
        Dim inputByteData(1000) As Byte
        ' ....
        Dim encryptedBytes() As Byte
        encryptedBytes = crypt.EncryptBytes(inputByteData)

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