Ошибка расшифровки ASP.NET Rijndael: Длина данных для расшифровки является недопустимым - PullRequest
Новая
       21

Ошибка расшифровки ASP.NET Rijndael: Длина данных для расшифровки является недопустимым

1 голос
/ 03 декабря 2009

ОК, поэтому только что получил ключ для принятия и зашифрованную строку длиной 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**

РЕДАКТИРОВАТЬ - Окончательная, казалось бы, рабочая пара функций (см. Комментарий) для 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)

1 Ответ

9 голосов
/ 03 декабря 2009

Если вы собираетесь преобразовать его в 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)
...