如何处理CryptographicException:“要解密的数据长度无效”?

时间:2018-06-20 19:17:14

标签: vb.net cryptography

我正在与docs.micrsoft.com上的Walkthrough: Ecrypting and Decrypting Strings in Visual Basic一起编码。代码如下:

Imports System.Security.Cryptography

Public NotInheritable Class Simple3Des

    Private TripleDes As New TripleDESCryptoServiceProvider


    Sub New(ByVal key As String)
        ' Initialize the crypto provider.
        TripleDes.Key = TruncateHash(key, TripleDes.KeySize \ 8)
        TripleDes.IV = TruncateHash("", TripleDes.BlockSize \ 8)
    End Sub


    Private Function TruncateHash(ByVal key As String, ByVal length As Integer) As Byte()

        Dim sha1 As New SHA1CryptoServiceProvider

        ' Hash the key.
        Dim keyBytes() As Byte = System.Text.Encoding.Unicode.GetBytes(key)
        Dim hash() As Byte = sha1.ComputeHash(keyBytes)

        ' Truncate or pad the hash.
        ReDim Preserve hash(length - 1)
        Return hash

    End Function


    Public Function EncryptData(ByVal plaintext As String) As String

        ' Convert the plaintext string to a byte array.
        Dim plaintextBytes() As Byte = System.Text.Encoding.Unicode.GetBytes(plaintext)

        ' Create the stream.
        Dim ms As New System.IO.MemoryStream

        ' Create the encoder to write to the stream.
        Dim encStream As New CryptoStream(ms, TripleDes.CreateDecryptor(), System.Security.Cryptography.CryptoStreamMode.Write)

        ' Use the crypto stream to write the byte array to the stream.
        encStream.Write(plaintextBytes, 0, plaintextBytes.Length)
        encStream.FlushFinalBlock()

        ' Convert the encrypted stream to a printable string.
        Return Convert.ToBase64String(ms.ToArray)

    End Function


    Public Function DecryptData(ByVal encryptedtext As String) As String

        ' Convert the encrypted text string to a byte array.
        Dim encryptedBytes() As Byte = Convert.FromBase64String(encryptedtext)

        ' Create the stream.
        Dim ms As New System.IO.MemoryStream
        ' Create the decoder to write to the stream.
        Dim decStream As New CryptoStream(ms, TripleDes.CreateDecryptor(), System.Security.Cryptography.CryptoStreamMode.Write)

        ' Use the crypto stream to write the byte array to the stream.
        decStream.Write(encryptedBytes, 0, encryptedBytes.Length)
        decStream.FlushFinalBlock()

        ' Convert the plaintext stream to a string.
        Return System.Text.Encoding.Unicode.GetString(ms.ToArray)

    End Function

End Class

运行应用程序时,出现错误:

  

类型的未处理异常

     

mscorlib.dll中发生了'System.Security.Cryptography.CryptographicException'

     

其他信息:要解密的数据长度无效。

错误发生在TruncateHash()行的ReDim Preserve hash(length - 1)

我已经在SO和其他论坛中搜索了此错误。不过,在将我发现的修复程序应用于此代码时,我遇到了麻烦。

1 个答案:

答案 0 :(得分:1)

您在EncryptData函数中有复制/粘贴错误。您应该呼叫TrippleDes.CreateEncryptor而不是TrippleDes.CreateDecryptor

解密器需要对齐的加密数据块,并导致异常。

您的错误发生在此行

encStream.FlushFinalBlock()

而不是声明的

ReDim Preserve hash(length - 1)