こんにちは、次のエラーが表示されます。文字間のパディングが無効で削除できないか、パディングが無効で削除できません。
コードは次のとおりです。
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
私を助けてください