如何使用vb.net对windows窗体中的连接字符串进行加密，以便将其分发到其他计算机

Imports System.Security.Cryptography
Imports System.Text

Private Function EncryptString(ByVal plainText As String, ByVal key As String, ByVal iv As String) As String
    Dim encrypted As String = Nothing

    Using aes As Aes = Aes.Create()
        aes.Key = Encoding.UTF8.GetBytes(key)
        aes.IV = Encoding.UTF8.GetBytes(iv)

        Dim encryptor As ICryptoTransform = aes.CreateEncryptor(aes.Key, aes.IV)

        Using ms As New IO.MemoryStream()
            Using cs As New CryptoStream(ms, encryptor, CryptoStreamMode.Write)
                Using sw As New IO.StreamWriter(cs)
                    sw.Write(plainText)
                End Using
            End Using

            encrypted = Convert.ToBase64String(ms.ToArray())
        End Using
    End Using

    Return encrypted
End Function

Private Function DecryptString(ByVal encryptedText As String, ByVal key As String, ByVal iv As String) As String
    Dim decrypted As String = Nothing

    Using aes As Aes = Aes.Create()
        aes.Key = Encoding.UTF8.GetBytes(key)
        aes.IV = Encoding.UTF8.GetBytes(iv)

        Dim decryptor As ICryptoTransform = aes.CreateDecryptor(aes.Key, aes.IV)

        Using ms As New IO.MemoryStream(Convert.FromBase64String(encryptedText))
            Using cs As New CryptoStream(ms, decryptor, CryptoStreamMode.Read)
                Using sr As New IO.StreamReader(cs)
                    decrypted = sr.ReadToEnd()
                End Using
            End Using
        End Using
    End Using

    Return decrypted
End Function

Dim connectionString As String = "Your connection string"
Dim key As String = "Your encryption key"
Dim iv As String = "Your encryption IV"

Dim encryptedConnectionString As String = EncryptString(connectionString, key, iv)

Dim decryptedConnectionString As String = DecryptString(encryptedConnectionString, key, iv)