接收“输入不是完整的块”；错误，尝试了我在谷歌上能找到的一切。 .NET 中的 Rjindael 加密

Question

早上好，我正在尝试使用 System.Security.Cryptography.RjindaelManaged 进行基本加密。我用谷歌搜索了这个错误，但找不到问题所在，或者我做错了什么。我想做的就是加密一个字符串，然后解密一个字符串。

以下是我的代码，任何帮助将不胜感激。

Imports System.Security.Cryptography
Imports System.Text
Public rj As New RijndaelManaged
    Try
        rj.Padding = PaddingMode.None
        rj.GenerateKey()
        rj.GenerateIV()
        Dim curProvider As New AesCryptoServiceProvider
        Dim curEncryptor As ICryptoTransform
        Dim memEncStream As New MemoryStream
        Dim cryptoEncStream As CryptoStream
        curEncryptor = curProvider.CreateEncryptor(rj.Key, rj.IV)
        cryptoEncStream = New CryptoStream(memEncStream, curEncryptor, CryptoStreamMode.Write)
        Dim startingBytes() As Byte = Encoding.ASCII.GetBytes("This is a test")
        Debug.Print("before length: " & startingBytes.Length)
        Debug.Print("before text: " & Encoding.ASCII.GetString(startingBytes))
        EcryptoEncStream.Write(startingBytes, 0, startingBytes.Length)
        cryptoEncStream.FlushFinalBlock()
        memEncStream.Position = 0
        Dim theBytes(memEncStream.Length) As Byte
        memEncStream.Read(theBytes, 0, memEncStream.Length)
        memEncStream.Flush()
        memEncStream.Close()
        cryptoEncStream.Close()
        Debug.Print("How long? " & theBytes.Length)
        Debug.Print("Data: " & Encoding.ASCII.GetString(theBytes))
        Dim curDecryptor As ICryptoTransform
        curDecryptor = curProvider.CreateDecryptor(rj.Key, rj.IV)
        Dim memDecStream As New MemoryStream
        Dim cryptoDecStream As CryptoStream
        curDecryptor = curProvider.CreateDecryptor(rj.Key, rj.IV)
        cryptoDecStream = New CryptoStream(memDecStream, curDecryptor, CryptoStreamMode.Write)
        Dim endingBytes() As Byte = theBytes
        Debug.Print("before length: " & theBytes.Length)
        Debug.Print("before text: " & Encoding.ASCII.GetString(theBytes))
        cryptoDecStream.Write(theBytes, 0, theBytes.Length)
        cryptoDecStream.FlushFinalBlock()
        memDecStream.Position = 0
        Dim endBytes(memDecStream.Length) As Byte
        memDecStream.Read(theBytes, 0, memDecStream.Length)
        memDecStream.Flush()
        memDecStream.Close()
        cryptoEncStream.Close()
        Debug.Print("How long? " & endBytes.Length)
        Debug.Print("Data: " & Encoding.ASCII.GetString(endBytes))
    Catch ex As Exception
        Debug.Print(ex.ToString)
    End Try

Answer 1

您已覆盖 PaddingMode 并将其设置为 None。为什么？将 PaddingMode 保留为其默认值 PaddingMode.PKCS7，除非您有充分的理由更改它并且您了解分组密码中的填充。

Answer 2

问题似乎出在您传递给解密流的数据长度。如果您将 theBytes 的声明从： 更改为

Dim theBytes(memEncStream.Length) As Byte

：

Dim theBytes(memEncStream.Length - 1) As Byte

那么它运行良好（至少对我来说是这样）。我根本不是VB向导，但我认为数组声明比给定大小长一个字节（我认为是0到N）。将额外的字节传递给解密流后，它就不起作用了。

我相信您很快就会看到它，但是您打印的最终解密文本不太正确。它正在打印 theBytes 而不是 endBytes。