Fehler beim Entschlüsseln eines Textes

[rexen]

Hallo bin neu hier im Forum

ich habe ne Ver und entschlüsselung gefunden aber wenn ich die nutzen will erhalte ich einen Fehler.

Vorher mache ich das

Imports System.Security.Cryptography
Imports System.Text
Imports System.IO

Quellcode Verschlüsseln

Private Function encryptmessage(ByVal message As String) As String
        Dim rd As New RijndaelManaged
        Dim md5 As New MD5CryptoServiceProvider
        Dim key() As Byte = md5.ComputeHash(Encoding.UTF8.GetBytes("**********"))

        md5.Clear()
        rd.Key = key
        rd.GenerateIV()

        Dim iv() As Byte = rd.IV
        Dim ms As New MemoryStream

        Dim cs As New CryptoStream(ms, rd.CreateEncryptor, CryptoStreamMode.Write)
        Dim data() As Byte = System.Text.Encoding.UTF8.GetBytes(message)

        cs.Write(data, 0, data.Length)
        cs.FlushFinalBlock()

        Dim encdata() As Byte = ms.ToArray

        cs.Close()
        rd.Clear()
        Return Convert.ToBase64String(encdata)

    End Function

Quellcode Entschlüsseln

  Private Function decryptmessage(ByVal incommingmessage As String) As String
        Dim rd As New RijndaelManaged
        Dim RijndaelovLength As Integer = 16
        Dim md5 As New MD5CryptoServiceProvider
        Dim key() As Byte = md5.ComputeHash(Encoding.UTF8.GetBytes("****************"))

        md5.Clear()

        Dim encdata() As Byte = Convert.FromBase64String(incommingmessage)
        Dim ms As New MemoryStream(encdata)
        Dim iv(15) As Byte

        ms.Read(iv, 0, RijndaelovLength)
        rd.IV = iv
        rd.Key = key

        Dim cs As New CryptoStream(ms, rd.CreateDecryptor, CryptoStreamMode.Read)
        Dim data(ms.Length - RijndaelovLength) As Byte
        Dim i As Integer = cs.Read(data, 0, data.Length)

        Return System.Text.Encoding.UTF8.GetString(data, 0, i)

    End Function

der Fehler lautet "Padding is invalid and cannot be removed."

Dieser Tritt beim Entschlüsseln auf in der Zeile

 Dim i As Integer = cs.Read(data, 0, data.Length)

Weis einer was ich da ändern muss das das geht

gruss
rexen

 

[DrSoong]

Du verwendest VB.NET, aufgrund der veränderten Syntax im Vergleich zu den älteren VB-Varianten (bis VB6) gibts daher ein eigenes .NET-Forum.

Stell die Frage doch bitte dort noch einmal.


Der Doc!

 

[rexen]

weis jemand die lösung

 

[Dario Linsky]

Hi,

ich hab zwar keine Lösung für dich, aber vielleicht ist hier was passendes für dich dabei? http://forums.microsoft.com/MSDN/ShowPost.aspx?PostID=227571&SiteID=1

Grüße, D.