Encrypt Strings in VB.NET

Download: Chilkat .NET Assemblies

VB.NET sample program demonstrating how to encrypt/decrypt strings using 128-bit AES encryption.

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim crypt As New Chilkat.Crypt()

        crypt.UnlockComponent("unlockCode")
        crypt.SetAlgorithmRijndael()
        crypt.SetSecretKeyViaPassPhrase("secretPassword")
        ' Encrypt using 128-bit AES and encode the encrypted binary data in Base64
        TextBox2.Text = crypt.EncodeBase64(crypt.EncryptStr(TextBox1.Text))
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim crypt As New Chilkat.Crypt()

        crypt.UnlockComponent("unlockCode")
        crypt.SetAlgorithmRijndael()
        crypt.SetSecretKeyViaPassPhrase("secretPassword")
        ' Encrypt using 128-bit AES and encode the encrypted binary data in Base64
        TextBox3.Text = crypt.DecryptStr(crypt.DecodeBase64(TextBox2.Text))
    End Sub

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