[HaBo]

Public Sub Entschlüsseln_AES()
    Dim str7 As String = Me.FromBase64(Me.skey)
    Dim str5 As String = Me.FromBase64(Me.salt)
    Dim str6 As String = Me.FromBase64(Me.salt2)
    Dim sPassword As String = (str5 & str7 & str6)
    Dim sText As String = Me.DecryptData(sPassword, "passwort.dll")
    Dim str2 As String = Me.FromBase64(sText)
    Dim str3 As String = Me.FromBase64(str2)
    Dim s As String = Me.FromBase64(str3)
    Dim managed As New RijndaelManaged
    Dim count As Integer = &H10
    Dim str8 As String = Me.FromBase64(Me.skey2)
    Dim str11 As String = (str5 & str8 & str6)
    Dim provider As New MD5CryptoServiceProvider
    Dim buffer4 As Byte() = provider.ComputeHash(Encoding.UTF8.GetBytes(str11))
    provider.Clear
    Dim stream2 As New MemoryStream(Convert.FromBase64String(s))
    Dim buffer3 As Byte() = New Byte(&H10  - 1) {}
    stream2.Read(buffer3, 0, count)
    managed.IV = buffer3
    managed.Key = buffer4
    Dim stream As New CryptoStream(stream2, managed.CreateDecryptor, CryptoStreamMode.Read)
    Dim buffer As Byte() = New Byte(((CInt(stream2.Length) - count) + 1)  - 1) {}
    Dim num As Integer = stream.Read(buffer, 0, buffer.Length)
    s = Encoding.UTF8.GetString(buffer, 0, num)
    stream.Close
    managed.Clear
    Dim str As String = Me.FromBase64(s)
    If (Me.TextBox1.Text = str) Then
        MessageBox.Show("Richtig!!!")
    Else
        MessageBox.Show("Falsch!!!")
    End If
End Sub

Public Function DecryptData(ByVal sPassword As String, ByVal sFile As String) As String
    Dim str As String
    Dim managed As New RijndaelManaged
    Dim count As Integer = &H10
    Dim provider As New MD5CryptoServiceProvider
    Dim buffer4 As Byte() = provider.ComputeHash(Encoding.UTF8.GetBytes(sPassword))
    provider.Clear
    Dim stream2 As New MemoryStream(MyProject.Computer.FileSystem.ReadAllBytes(sFile))
    Dim buffer3 As Byte() = New Byte(&H10  - 1) {}
    stream2.Read(buffer3, 0, count)
    managed.IV = buffer3
    managed.Key = buffer4
    Dim stream As New CryptoStream(stream2, managed.CreateDecryptor, CryptoStreamMode.Read)
    Dim buffer As Byte() = New Byte(((CInt(stream2.Length) - count) + 1)  - 1) {}
    Dim num As Integer = stream.Read(buffer, 0, buffer.Length)
    Return Encoding.UTF8.GetString(buffer, 0, num)
    stream.Close
    managed.Clear
    Return str
End Function