我花了一些时间学习如何在.NET中使用RijndaelManaged库,并开发了以下函数来测试加密文本,只需稍微修改一下MSDN库:
Function encryptBytesToBytes_AES(ByVal plainText As Byte(), ByVal Key() As Byte, ByVal IV() As Byte) As Byte()
' Check arguments.
If plainText Is Nothing OrElse plainText.Length <= 0 Then
Throw New ArgumentNullException("plainText")
End If
If Key Is Nothing OrElse Key.Length <= 0 Then
Throw New ArgumentNullException("Key")
End If
If IV Is Nothing OrElse IV.Length <= 0 Then
Throw New ArgumentNullException("IV")
End If
' Declare the RijndaelManaged object
' used to encrypt the data.
Dim aesAlg As RijndaelManaged = Nothing
' Declare the stream used to encrypt to an in memory
' array of bytes.
Dim msEncrypt As MemoryStream = Nothing
Try
' Create a RijndaelManaged object
' with the specified key and IV.
aesAlg = New RijndaelManaged()
aesAlg.BlockSize = 128
aesAlg.KeySize = 128
aesAlg.Mode = CipherMode.ECB
aesAlg.Padding = PaddingMode.None
aesAlg.Key = Key
aesAlg.IV = IV
' Create a decrytor to perform the stream transform.
Dim encryptor As ICryptoTransform = aesAlg.CreateEncryptor(aesAlg.Key, aesAlg.IV)
' Create the streams used for encryption.
msEncrypt = New MemoryStream()
Using csEncrypt As New CryptoStream(msEncrypt, encryptor, CryptoStreamMode.Write)
Using swEncrypt As New StreamWriter(csEncrypt)
'Write all data to the stream.
swEncrypt.Write(plainText)
End Using
End Using
Finally
' Clear the RijndaelManaged object.
If Not (aesAlg Is Nothing) Then
aesAlg.Clear()
End If
End Try
' Return the encrypted bytes from the memory stream.
Return msEncrypt.ToArray()
End Function
这是我调用encryptBytesToBytes_AES()的实际代码:
Private Sub btnEncrypt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEncrypt.Click
Dim bZeroKey As Byte() = {&H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0, &H0}
PrintBytesToRTF(encryptBytesToBytes_AES(bZeroKey, bZeroKey, bZeroKey))
End Sub
但是,我在swEncrypt.Write(plainText)
上抛出异常,指出“要加密的数据长度无效。”
但是,我知道我的密钥,iv和明文的大小是16字节== 128位== aesAlg.BlockSize。 为什么会抛出此异常?是因为StreamWriter正在尝试创建一个String(表面上是一些编码)并且它不喜欢&amp; H0作为值?
答案 0 :(得分:1)
在这种情况下,您不能也不需要使用StreamWriter StreamWriter不接受Byte()作为参数。
您可以将加密功能修改为以下内容:
Function encryptBytesToBytes_AES(ByVal plainText As Byte(), ByVal Key() As Byte, ByVal IV() As Byte) As Byte()
' Check arguments.'
If plainText Is Nothing OrElse plainText.Length <= 0 Then
Throw New ArgumentNullException("plainText")
End If
If Key Is Nothing OrElse Key.Length <= 0 Then
Throw New ArgumentNullException("Key")
End If
If IV Is Nothing OrElse IV.Length <= 0 Then
Throw New ArgumentNullException("IV")
End If
' Declare the RijndaelManaged object'
' used to encrypt the data.'
Dim aesAlg As RijndaelManaged = Nothing
Dim encryptedData As Byte()
Try
' Create a RijndaelManaged object'
' with the specified key and IV.'
aesAlg = New RijndaelManaged()
aesAlg.BlockSize = 128
aesAlg.KeySize = 128
aesAlg.Mode = CipherMode.ECB
aesAlg.Padding = PaddingMode.None
aesAlg.Key = Key
aesAlg.IV = IV
' Create a decrytor to perform the stream transform.'
Dim encryptor As ICryptoTransform = aesAlg.CreateEncryptor()
' Create the streams used for encryption.'
Using msEncrypt As New MemoryStream()
Using csEncrypt As New CryptoStream(msEncrypt, encryptor, CryptoStreamMode.Write)
csEncrypt.Write(plainText, 0, plainText.Length)
csEncrypt.FlushFinalBlock()
End Using
encryptedData = msEncrypt.ToArray()
End Using
Finally
' Clear the RijndaelManaged object.'
If Not (aesAlg Is Nothing) Then
aesAlg.Clear()
End If
End Try
' Return the encrypted bytes from the memory stream.'
Return encryptedData
End Function