ASP.NET Rijndael解密錯誤：要解密的數據長度無效

Question

好的，所以有just got the key被接受，並有一個加密的字符串輸出，這是44個字符長，我現在無法解密（aarrgghh）：

要解密的數據的長度無效。

說完看了看四周，看不同的崗位，它看起來好像轉換爲Base64String可能是問題，但我看不出這是錯誤的 - 很多我所見過的解決方案似乎是相同的什麼我有。同樣，我真的很感謝所有幫助 - 以下提取物：

加密/解密功能

Private byteKey As Byte() = Encoding.UTF8.GetBytes("B499F4BF48242E05548D1E4C8BB26A2E") 
Private byteIV As Byte() = Encoding.UTF8.GetBytes(",%u'm&'CXSy/T7x;4") 

Private Function Rijndael(ByVal sInput As String, ByVal bEncrypt As Boolean) As String 
    ' Create an instance of encyrption algorithm. 
    Dim _rijndael As New RijndaelManaged() 
    ' Create an encryptor using key and IV - already available in byte() as byteKey and byteIV 
    Dim transform As ICryptoTransform 
    If bEncrypt Then 
     transform = _rijndael.CreateEncryptor(byteKey, byteIV) 
    Else 
     transform = _rijndael.CreateDecryptor(byteKey, byteIV) 
    End If 
    ' Create streams for input and output 
    Dim msOutput As New System.IO.MemoryStream() 
    Dim msInput As New CryptoStream(msOutput, transform, CryptoStreamMode.Write) 
    ' Feed data into the crypto stream. 
    msInput.Write(Encoding.UTF8.GetBytes(sInput), 0, Encoding.UTF8.GetBytes(sInput).Length) 
    ' Flush crypto stream. 
    msInput.FlushFinalBlock() 
    Dim byteOutput As Byte() = msOutput.ToArray 
    Return Convert.ToBase64String(byteOutput) 
End Function 

用法：

Dim sEncrypted As String = Rijndael("This is a test", True) 
Dim sDecrypted As String = Rijndael(sEncrypted, False) **This is the line where it is crashing** 

編輯 - 最後，看似工作對函數（見註釋）for ref：

Private byteKey As Byte() = Encoding.UTF8.GetBytes("B499F4BF48242E05548D1E4C8BB26A2E") 
Private byteIV As Byte() = Encoding.UTF8.GetBytes(",%u'm&'CXSy/T7x;4") 

Public Function Encrypt(ByVal sInput As String) As String 
    ' Create an instance of our encyrption algorithm. 
    Dim _rijndael As New RijndaelManaged() 
    ' Create an encryptor using our key and IV 
    Dim transform As ICryptoTransform 
    transform = _rijndael.CreateEncryptor(byteKey, byteIV) 
    ' Create the streams for input and output 
    Dim msOutput As New System.IO.MemoryStream() 
    Dim msInput As New CryptoStream(msOutput, transform, CryptoStreamMode.Write) 
    ' Feed our data into the crypto stream 
    msInput.Write(Encoding.UTF8.GetBytes(sInput), 0, Encoding.UTF8.GetBytes(sInput).Length) 
    msInput.FlushFinalBlock() 
    Return Convert.ToBase64String(msOutput.ToArray) 
End Function 

Public Function Decrypt(ByVal sInput As String) As String 
    ' Create an instance of our encyrption algorithm. 
    Dim _rijndael As New RijndaelManaged() 
    ' Create an encryptor using our key and IV 
    Dim transform As ICryptoTransform 
    transform = _rijndael.CreateDecryptor(byteKey, byteIV) 
    ' Create the streams for input and output 
    Dim msOutput As New System.IO.MemoryStream() 
    Dim msInput As New CryptoStream(msOutput, transform, CryptoStreamMode.Write) 
    ' Feed our data into the crypto stream. 
    msInput.Write(Convert.FromBase64String(sInput), 0, Convert.FromBase64String(sInput).Length) 
    msInput.FlushFinalBlock() 
    Return Encoding.UTF8.GetString(msOutput.ToArray) 
End Function 

用法

Dim sEncrypted As String = Encrypt("This is a test") 
Dim sDecrypted As String = Decrypt(sEncrypted) 

Answer 1

如果您打算將其轉換爲base64，您將不得不使用Base64對其進行解碼。目前，您正在使用輸出Base64字節數組，然後使用UTF8將其轉換回字節，從而爲您提供完全不同的值。

您應該使用Convert.FromBase64String而不是UTF8在解碼時將字符串更改爲字節，然後使用UTF8代替Base64來解釋數據。

EG：在解碼你解碼時要

msInput.Write(Convert.FromBase64String(sInput), 0, Convert.FromBase64String(sInput).Length) 

而對於回報：

Return Encoding.UTF8.GetString(byteOutput)