vb中aes密码如何加密存储

在VB（Visual Basic）中，使用AES加密算法加密存储数据通常涉及以下几个步骤：

1. 创建一个密钥（Key）和初始化向量（IV）。

2. 使用密钥和初始化向量初始化AES加密器。

3. 加密数据。

4. 将加密后的数据和初始化向量存储到数据库或文件中。

以下是一个使用VB.NET进行AES加密的示例代码：

```vb

Imports System.Security.Cryptography

Imports System.Text

Module Module1

Sub Main()

' 原始数据

Dim originalData As String = "Hello, World!"

Dim key As Byte() = Encoding.UTF8.GetBytes("Your16ByteKeyHere")

Dim iv As Byte() = Encoding.UTF8.GetBytes("Your16ByteIVHere")

' 加密数据

Dim encryptedData As Byte() = EncryptStringToBytes_Aes(originalData, key, iv)

' 将加密后的数据转换为字符串格式，以便存储

Dim encryptedString As String = Convert.ToBase64String(encryptedData)

' 在这里将encryptedString存储到数据库或文件中

' 解密数据（示例）

Dim decryptedData As String = DecryptStringFromBytes_Aes(encryptedData, key, iv)

' 输出解密后的数据

Console.WriteLine(decryptedData)

End Sub

' AES加密函数

Private Function EncryptStringToBytes_Aes(ByVal plainText As String, ByVal Key As Byte(), ByVal IV As Byte()) As Byte()

' 创建AES加密器

Using aes As Aes = Aes.Create()

aes.Key = Key

aes.IV = IV

' 创建内存流

Using ms As New IO.MemoryStream()

Using cs As New CryptoStream(ms, aes.CreateEncryptor(), CryptoStreamMode.Write)

Using sw As New IO.StreamWriter(cs)

sw.Write(plainText)

End Using

Return ms.ToArray()

End Using

End Using

End Using

End Function

' AES解密函数

Private Function DecryptStringFromBytes_Aes(ByVal cipherText As Byte(), ByVal Key As Byte(), ByVal IV As Byte()) As String

' 创建AES解密器

Using aes As Aes = Aes.Create()

aes.Key = Key

aes.IV = IV

' 创建内存流

Using ms As New IO.MemoryStream(cipherText)

Using cs As New CryptoStream(ms, aes.CreateDecryptor(), CryptoStreamMode.Read)

Using sr As New IO.StreamReader(cs)

Return sr.ReadToEnd()

End Using

End Using

End Using

End Using

End Function

End Module

```

请注意以下几点：

密钥（Key）和初始化向量（IV）必须是16字节长。

加密和解密时使用的密钥和初始化向量必须相同。

在存储加密数据时，通常需要将密钥和初始化向量也存储起来，以便以后解密。

在实际应用中，您可能需要将加密后的数据存储到数据库或文件中，并确保密钥和初始化向量也得到妥善保护。