0

こんにちは、次のエラーが表示されます。文字間のパディングが無効で削除できないか、パディングが無効で削除できません。

コードは次のとおりです。

Public Shared Function Decrypt(ByVal Text As String) As String
    Dim inputBytes As Byte() = Convert.FromBase64String(Text)
    Dim resultBytes As Byte() = New Byte(inputBytes.Length + 1) {}
    Dim DecryptedText As String = [String].Empty
    Dim Cripto As New RijndaelManaged()

    Using ms As New MemoryStream(inputBytes)
        Using objCryptoStream As New CryptoStream(ms, Cripto.CreateDecryptor(_key, _iv), CryptoStreamMode.Read)
            Using sr As New StreamReader(objCryptoStream, True)
                DecryptedText= sr.ReadToEnd()
            End Using
        End Using
    End Using

    Return DecryptedText
End Function

私を助けてください

4

0 に答える 0