Programm absturz bei Rijndael Decrypt

  • VB.NET

Es gibt 47 Antworten in diesem Thema. Der letzte Beitrag () ist von KenJy_L4F.

    Programm absturz bei Rijndael Decrypt

    Hallo ForumUser,

    habe ein Script im Netz gefunden um Text zu chiffrieren und dechiffrieren.
    Es funktioniert wunderbar.. auch in meiner abgeänderten Variante für mein eigenes Scrippt.
    Jedoch gibt es einen Fehler (auch im Original Scrippt) bei dem ich selber nicht weiß wie man ihn beheben kann.

    Deshalb hier das Original:
    man benötigt
    2 Buttons
    3 Textboxen

    in Textbox 2 wird der Schlüssel zum chiffrieren und dechiffrieren eingetragen

    VB.NET-Quellcode

    1. Imports System.Security.Cryptography
    2. Imports System.IO
    3. Imports System.Text
    5. Public Class Form1
    7. Inherits System.Windows.Forms.Form
    9. ' Encrypt using stream (binary)
    10. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    14. Dim rd As New RijndaelManaged
    16. Dim md5 As New MD5CryptoServiceProvider
    17. Dim key() As Byte = md5.ComputeHash(Encoding.UTF8.GetBytes(TextBox2.Text))
    19. md5.Clear()
    20. rd.Key = key
    21. rd.GenerateIV()
    23. Dim iv() As Byte = rd.IV
    24. Dim ms As New MemoryStream
    26. ms.Write(iv, 0, iv.Length)
    28. Dim cs As New CryptoStream(ms, rd.CreateEncryptor, CryptoStreamMode.Write)
    29. Dim data() As Byte = System.Text.Encoding.UTF8.GetBytes("abcdefghijk")
    31. cs.Write(data, 0, data.Length)
    32. cs.FlushFinalBlock()
    34. Dim encdata() As Byte = ms.ToArray()
    35. TextBox3.Text = Convert.ToBase64String(encdata)
    36. My.Settings.Data = Convert.ToBase64String(encdata)
    37. cs.Close()
    38. rd.Clear()
    39. TextBox1.Text = ""
    40. My.Settings.Save()
    42. End Sub
    44. ' Decrypt using stream (binary)
    45. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    46. Dim rd As New RijndaelManaged
    47. Dim rijndaelIvLength As Integer = 16
    48. Dim md5 As New MD5CryptoServiceProvider
    49. Dim key() As Byte = md5.ComputeHash(Encoding.UTF8.GetBytes(TextBox2.Text))
    51. md5.Clear()
    53. Dim encdata() As Byte = Convert.FromBase64String(My.Settings.Data)
    54. Dim ms As New MemoryStream(encdata)
    55. Dim iv(15) As Byte
    57. ms.Read(iv, 0, rijndaelIvLength)
    58. rd.IV = iv
    59. rd.Key = key
    61. Dim cs As New CryptoStream(ms, rd.CreateDecryptor, CryptoStreamMode.Read)
    63. Dim data(ms.Length - rijndaelIvLength) As Byte
    64. Dim i As Integer = cs.Read(data, 0, data.Length)
    66. TextBox1.Text = System.Text.Encoding.UTF8.GetString(data, 0, i)
    67. cs.Close()
    68. rd.Clear()
    69. End Sub
    70. End Class


    Funktioniert einwandfrei! ABER chiffriert man den im scrippt vorgegeben String mit der TextBox2 zb mit "hallo" und dechiffriert ihn wieder aber nun trägt man in die Textbox2 irrtümlichweise nur "hall" ein, so wird das scrippt abgebrochen.. anstelle dessen wäre aber eine MsgBox sinnvoll und ein zurücksetzen der Textbox2 logisch.. jedoch wie verhindere ich diesen Abruch? Zustande kommt dieser Fehler weil die lenght des eingegeben Sclüssels nicht korrekt ist. Wie kann ich das aber verhindern? Bzw wenn das so geschieht einen vorzeitigen Abbruch bewirken bevor sich das Scrippt aufhängt??

    Grüße
    OttoVB

    In welcher Zeile kommt welcher Fehler?
    Oder muss ich die Krypto-DLL saugen?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    danke für die schnellen Antworten.. ich würde gern auf Pico sein Argument eingehen.

    Das Chiffrieren funktioniert einwandfrei und soll/kann auch so bleiben!

    Der Fehler ist ja beim dechiffrieren. Beim Decrypt steht doch der Hash vor dem dechiffrieren.
    Oder wie meinst du? kannst du das im obigen scrippt mal veranschaulichen?
    Für mein scrippt müsste ich sowieso ein haufen ändern da es um eine reihe von settings und eingaben bzw ausgaben geht.

    grüße
    OttoVB

    Beispiel :)

    Bei falschem Passwort, kommt halt entweder Müll raus oder das Ganze crashed. Kommt auf die Verwendete Methode an. Wobei der Crash (die Exception) das bessere der beiden ist, da man diese dann gezielt abfangen kann.
    SWYgeW91IGNhbiByZWFkIHRoaXMsIHlvdSdyZSBhIGdlZWsgOkQ=

    Weil einfach, einfach zu einfach ist! :D

    RodFromGermany schrieb:

    In welcher Zeile kommt welcher Fehler?
    Oder muss ich die Krypto-DLL saugen?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    VB.NET-Quellcode

    1. Public Class Form1
    2. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    3. Using rd As New RijndaelManaged
    4. Dim rijndaelIvLength As Integer = 16
    5. Using md5 As New MD5CryptoServiceProvider
    6. Dim key() As Byte = md5.ComputeHash(Encoding.UTF8.GetBytes(TextBox2.Text))
    7. md5.Clear()
    8. Dim encdata() As Byte = Convert.FromBase64String(my.settings.data)
    9. Dim ms As New MemoryStream(encdata)
    10. Dim iv(15) As Byte
    11. ms.Read(iv, 0, rijndaelIvLength)
    12. rd.IV = iv
    13. rd.Key = key
    14. Dim cs As New CryptoStream(ms, rd.CreateDecryptor, CryptoStreamMode.Read)
    15. Dim data(ms.Length - rijndaelIvLength) As Byte
    16. Dim i As Integer = cs.Read(data, 0, data.Length)
    17. Try
    18. TextBox1.Text = System.Text.Encoding.UTF8.GetString(data, 0, i)
    19. cs.Close()
    20. Catch ex As System.Security.Cryptography.CryptographicException
    21. MsgBox("Wrong Passphrase!")
    22. Finally
    23. rd.Clear()
    24. End Try
    25. End Using
    26. End Using
    27. End Sub
    28. End Class


    Aber bei deinem Code gibts noch mehr Dinge, die verbessert werden können.
    z.B.: Statt dem direkten Zugriff auf die TextBoxen könnte man eine Funktion daraus machen.

    Ich hab dir den Link ja nicht zum abschreiben, sondern zum ansehen gepostet
    SWYgeW91IGNhbiByZWFkIHRoaXMsIHlvdSdyZSBhIGdlZWsgOkQ=

    Weil einfach, einfach zu einfach ist! :D

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „BiedermannS“ ()

    Danke dafür.

    Nun hab ihc mich an deinem Scrippt versucht, ist ja Grundlegend nichts anderes bis auf dieException Wightspace / Null Abfrage und wirklich der Teil der überprüft ob die strings die gleichen sind..
    Jedoch verstehe ich nicht,
    an welcher stelle ich nun den Text ins Scrippt bringe.. das Password aus der Textbox einführe und an welcher stelle ich die Ausgabe entnehmen soll... :S


    würde die zb den Textbox per:

    Dim textboxtex as sstring
    textboxtext = Textbox1.Text

    aber wo übergebe ich das?

    und wo is der Text der chiffriert werden soll ebenso der der dechiffrierft wurde..

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „OttoVB“ ()

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports Microsoft.VisualBasic
    3. Imports System.Security.Cryptography
    4. Imports System.IO
    5. Imports System.Text
    7. Public Class Form1
    8. ' Encrypt using stream (binary)
    9. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    11. Dim EncryptedString as String = Crypto.Encrypt(TextBox1.Text,TextBox2.Text) 'Das verschlüsseln
    13. TextBox3.Text = EncryptedString
    14. My.Settings.Data = EncryptedString
    15. My.Settings.Save()
    16. End Sub
    18. ' Decrypt using stream (binary)
    19. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    21. TextBox1.Text = Crypto.Decrypt(TextBox3.Text, TextBox2.Text) 'das entschlüsseln
    23. End Sub
    24. End Class
    26. 'Klasse zum Ver- und Entschlüsseln
    27. Public Class Crypto
    28. Public Shared Function Encrypt(ByVal Text As String, ByVal Password As String) As String
    29. 'Löst eine Exception aus wenn der eingegebene Text bzw das Passwort leer ist oder aus nur Whitespaces besteht
    30. If IsNullOrWhiteSpace(Text) Then
    31. If IsNothing(Text) Then
    32. Throw New ArgumentNullException("Text")
    33. Else
    34. Throw New ArgumentException("Argument cannot be empty or whitespace.", "Text")
    35. End If
    36. Exit Function
    37. End If
    38. If IsNullOrWhiteSpace(Password) Then
    39. If IsNothing(Password) Then
    40. Throw New ArgumentNullException("Password")
    41. Else
    42. Throw New ArgumentException("Argument cannot be empty or whitespace.", "Password")
    43. End If
    44. Exit Function
    45. End If
    47. Dim encdata() As Byte 'Hier wird der verschlüsselte Text gespeichert
    49. Using rd As New RijndaelManaged 'Stellt den Rijndael-Algorihmus zur Verfügung
    51. Using md5 As New MD5CryptoServiceProvider 'Dient zum berechnen eines MD5-Hashes
    53. Dim key() As Byte = md5.ComputeHash(Encoding.UTF8.GetBytes(Password)) 'Das Passwort wird in ein Byte-Array zerlegt gehasht und dann im Array Key gespeichert
    55. md5.Clear() 'Leert den MD5CryptoProvider
    57. rd.Key = key 'Speichert den Key für die Verwendung mit dem Rijndael-Algorithmus
    59. rd.GenerateIV() 'Hier wird der Initialisierungsvektor berechnet, der für de Verschlüsselung benötigt wird
    62. Dim ms As New MemoryStream 'Hier wird ein neuer MemoryStream erstellt
    63. ms.Write(rd.IV, 0, rd.IV.Length) 'und der Initialisierungsvektor hineingeschrieben (die ersten 16 Byte)
    65. Using cs As New CryptoStream(ms, rd.CreateEncryptor, CryptoStreamMode.Write) 'Nun wird ein neuer Cryptostream aus rd erstellt, welcher in den MemoryStream schreibt
    67. Dim data() As Byte = System.Text.Encoding.UTF8.GetBytes(Text) 'Der Text wird auch in ein Bytearray zerlegt
    68. cs.Write(data, 0, data.Length) 'und in den CryptoStream geschrieben
    69. cs.FlushFinalBlock() 'Garantiert, dass der schreibvorgang abgeschlossen wird
    71. encdata = ms.ToArray() 'Hier wird der zugrundeliegende MemoryStream in ein ByteArray geschrieben
    72. cs.Close() 'Schließen und leeren der nicht mehr gebrauchten Instanzen
    73. rd.Clear()
    74. End Using
    75. End Using
    76. End Using
    77. Return Convert.ToBase64String(encdata) 'Nun wird der Base64 String der Daten zurück gegeben
    78. End Function
    80. Public Shared Function Decrypt(ByVal Text As String, ByVal Password As String) As String
    81. 'Löst eine Exception aus wenn der eingegebene Text bzw das Passwort leer ist oder aus nur Whitespaces besteht
    82. If IsNullOrWhiteSpace(Text) Then
    83. If IsNothing(Text) Then
    84. Throw New ArgumentNullException("Text")
    85. Else
    86. Throw New ArgumentException("Argument cannot be empty or whitespace!", "Text")
    87. End If
    88. Exit Function
    89. End If
    90. If IsNullOrWhiteSpace(Password) Then
    91. If IsNothing(Password) Then
    92. Throw New ArgumentNullException("Password")
    93. Else
    94. Throw New ArgumentException("Argument cannot be empty or whitespace!", "Password")
    95. End If
    96. Exit Function
    97. End If
    99. Dim data() As Byte 'Hier wird der entschlüsselte Text gespeichert
    100. Dim i As Integer
    101. Using rd As New RijndaelManaged 'Stellt den Rijndael-Algorihmus zur Verfügung
    102. Dim rijndaelIvLength As Integer = 16 'Die Anzahl der Bytes des Initialisierungsvektor
    103. Using md5 As New MD5CryptoServiceProvider 'Dient zum berechnen eines MD5-Hashes
    104. Dim key() As Byte = md5.ComputeHash(Encoding.UTF8.GetBytes(Password)) 'Das Passwort wird in ein Byte-Array zerlegt gehasht und dann im Array Key gespeichert
    105. md5.Clear() 'Leert den MD5CryptoProvider
    106. Dim encdata() As Byte = Convert.FromBase64String(Text) 'Wandelt den Base64-String des verschlüsselten Textes in ein Byte Array und speichert dies in encdata
    107. Using ms As New MemoryStream(encdata) 'Öffnet das ByteArray in einem MemoryStream
    108. Dim iv(15) As Byte
    109. ms.Read(iv, 0, rijndaelIvLength) 'Hier wird der Initialisierungsvektor aus dem Memorystream gelesen (die ersten 16 Byte, siehe Verschlüsselung)
    110. rd.IV = iv
    111. rd.Key = key 'Hier wird der Key für die weitere Verwendung in der aktuellen Instanz von RijndaelManaged gespeichert
    112. Dim cs As New CryptoStream(ms, rd.CreateDecryptor, CryptoStreamMode.Read) 'Nun wird ein neuer Cryptostream aus rd erstellt, welcher aus dem MemoryStream liest
    113. ReDim data(Convert.ToInt32(ms.Length) - Convert.ToInt32(rijndaelIvLength)) 'Hier wird die Größe des Byte Arrays für den entschlüsselten Text festgelegt und dieses neu dimensioniert
    114. Try
    115. i = cs.Read(data, 0, data.Length) 'Hier wird der Klartext ausgelesen
    116. cs.Close() 'Schließen und leeren der nicht mehr gebrauchten Instanzen
    117. Catch ex As System.Security.Cryptography.CryptographicException
    118. MsgBox("Wrong Passphrase!")
    119. Finally
    120. rd.Clear()
    121. End Try
    122. End Using
    123. End Using
    124. End Using
    125. Return System.Text.Encoding.UTF8.GetString(data, 0, i) 'Zum Schluss wird das Byte Array zu einem String umgewandelt
    126. End Function
    128. Private Shared Function IsNullOrWhiteSpace(ByVal s As String) As Boolean
    129. Dim retval As Boolean = True
    130. If Not String.IsNullOrEmpty(s) Then
    131. For Each c As Char In s
    132. If Not Char.IsWhiteSpace(c) Then
    133. retval = False
    134. End If
    135. Next
    136. End If
    137. Return retval
    138. End Function
    139. End Class


    P.S.: Das ist vb.net und kein Script. :)
    SWYgeW91IGNhbiByZWFkIHRoaXMsIHlvdSdyZSBhIGdlZWsgOkQ=

    Weil einfach, einfach zu einfach ist! :D

    Danke,

    habe es jetzt mal ausprobiert..
    Funktioniert in der Konstelation. Jedoch hab ich noch ne Frage zu den Exceptions in der Whitespace / kein Text abfrage:

    was macht jeweils das If in der unteren schleife (else verstehe ich)?

    Ich möchte anstelle der Argument Exception lieber eine Normale MsgBox mit der Fehlermeldung erhalten, wie kann ich das lösen?
    folgendes is nicht des Rätsels lösung.. dazu erstell ich vor der Exception nur eine MsgBox :thumbdown:

    VB.NET-Quellcode

    1. If IsNullOrWhiteSpace(Text) Then
    2. If IsNothing(Text) Then
    3. Throw New ArgumentNullException(CStr(MsgBox("Wrong Text!")))
    4. Else
    5. Throw New ArgumentException(CStr(MsgBox("Wrong Text!")))
    6. End If
    7. Exit Function
    8. End If

    Er wirft verschiedene Exceptions, je nach dem, ob der Text "" oder " " ist.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ja macht sinn aber ich verstehe den Unterschied nicht.. da für beide Ausnahmen der gleiche Fehler angezeigt wird.

    Aber was mich eher interessiert, kann ich anstelle der Exceptions und dessen aufgerufener AusnahmeForm eine eigene MsgBox verwenden, in der die Ausnahme formuliuert wird??? Mich stört nämlich beim auftreten des Fehlers diese hässliche msgbox der Exception und das man da weiter und abbruch drücken kann.. möchte lieber nur ein Ok haben, und Text darüber was passiert ist und nicht das gedöhns das überhaut ein Fehler aufgetreten ist und das Programm gestoppt oder fortgesetzt werden kann.. das Programm soll weiter laufen wenn der Fehler aufgetreten ist. Ich möchte das Programm nämlich wieder zurücksetzen in dem die Textbox mit dem Fehler geleert wird und eine erneute eingabe nötig ist.

    Ich seh gerade:

    OttoVB schrieb:

    VB.NET-Quellcode

    1. Throw New ArgumentNullException(CStr(MsgBox("Wrong Text!")))
    Welcher Depp hat da als Argument der Exception eine MessageBox reingeschrieben?
    Entweder

    VB.NET-Quellcode

    1. MsgBox("Wrong Text!")
    2. Return False
    oder

    VB.NET-Quellcode

    1. Throw New ArgumentNullException("Wrong Text!")
    Nicht beides.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    OttoVB schrieb:

    Ich möchte das Programm nämlich wieder zurücksetzen in dem die Textbox mit dem Fehler geleert wird und eine erneute eingabe nötig ist.


    VB.NET-Quellcode

    1. Option Strict On
    2. Imports Microsoft.VisualBasic
    3. Imports System.Security.Cryptography
    4. Imports System.IO
    5. Imports System.Text
    7. Public Class Form1
    8. ' Encrypt using stream (binary)
    9. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    11. Dim EncryptedString as String = Crypto.Encrypt(TextBox1.Text,TextBox2.Text) 'Das verschlüsseln
    13. TextBox3.Text = EncryptedString
    14. My.Settings.Data = EncryptedString
    15. My.Settings.Save()
    16. End Sub
    18. ' Decrypt using stream (binary)
    19. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    20. Try
    21. TextBox1.Text = Crypto.Decrypt(TextBox3.Text, TextBox2.Text) 'das entschlüsseln
    22. catch ex as System.Security.Cryptography.CryptographicException
    23. Msgbox(ex.message)
    24. textbox2.text = string.empty
    25. end try
    26. End Sub
    27. End Class
    29. 'Klasse zum Ver- und Entschlüsseln
    30. Public Class Crypto
    31. Public Shared Function Encrypt(ByVal Text As String, ByVal Password As String) As String
    32. 'Löst eine Exception aus wenn der eingegebene Text bzw das Passwort leer ist oder aus nur Whitespaces besteht
    33. If IsNullOrWhiteSpace(Text) Then
    34. If IsNothing(Text) Then
    35. Throw New ArgumentNullException("Text")
    36. Else
    37. Throw New ArgumentException("Argument cannot be empty or whitespace.", "Text")
    38. End If
    39. Exit Function
    40. End If
    41. If IsNullOrWhiteSpace(Password) Then
    42. If IsNothing(Password) Then
    43. Throw New ArgumentNullException("Password")
    44. Else
    45. Throw New ArgumentException("Argument cannot be empty or whitespace.", "Password")
    46. End If
    47. Exit Function
    48. End If
    50. Dim encdata() As Byte 'Hier wird der verschlüsselte Text gespeichert
    52. Using rd As New RijndaelManaged 'Stellt den Rijndael-Algorihmus zur Verfügung
    54. Using md5 As New MD5CryptoServiceProvider 'Dient zum berechnen eines MD5-Hashes
    56. Dim key() As Byte = md5.ComputeHash(Encoding.UTF8.GetBytes(Password)) 'Das Passwort wird in ein Byte-Array zerlegt gehasht und dann im Array Key gespeichert
    58. md5.Clear() 'Leert den MD5CryptoProvider
    60. rd.Key = key 'Speichert den Key für die Verwendung mit dem Rijndael-Algorithmus
    62. rd.GenerateIV() 'Hier wird der Initialisierungsvektor berechnet, der für de Verschlüsselung benötigt wird
    65. Dim ms As New MemoryStream 'Hier wird ein neuer MemoryStream erstellt
    66. ms.Write(rd.IV, 0, rd.IV.Length) 'und der Initialisierungsvektor hineingeschrieben (die ersten 16 Byte)
    68. Using cs As New CryptoStream(ms, rd.CreateEncryptor, CryptoStreamMode.Write) 'Nun wird ein neuer Cryptostream aus rd erstellt, welcher in den MemoryStream schreibt
    70. Dim data() As Byte = System.Text.Encoding.UTF8.GetBytes(Text) 'Der Text wird auch in ein Bytearray zerlegt
    71. cs.Write(data, 0, data.Length) 'und in den CryptoStream geschrieben
    72. cs.FlushFinalBlock() 'Garantiert, dass der schreibvorgang abgeschlossen wird
    74. encdata = ms.ToArray() 'Hier wird der zugrundeliegende MemoryStream in ein ByteArray geschrieben
    75. cs.Close() 'Schließen und leeren der nicht mehr gebrauchten Instanzen
    76. rd.Clear()
    77. End Using
    78. End Using
    79. End Using
    80. Return Convert.ToBase64String(encdata) 'Nun wird der Base64 String der Daten zurück gegeben
    81. End Function
    83. Public Shared Function Decrypt(ByVal Text As String, ByVal Password As String) As String
    84. 'Löst eine Exception aus wenn der eingegebene Text bzw das Passwort leer ist oder aus nur Whitespaces besteht
    85. If IsNullOrWhiteSpace(Text) Then
    86. If IsNothing(Text) Then
    87. Throw New ArgumentNullException("Text")
    88. Else
    89. Throw New ArgumentException("Argument cannot be empty or whitespace!", "Text")
    90. End If
    91. Exit Function
    92. End If
    93. If IsNullOrWhiteSpace(Password) Then
    94. If IsNothing(Password) Then
    95. Throw New ArgumentNullException("Password")
    96. Else
    97. Throw New ArgumentException("Argument cannot be empty or whitespace!", "Password")
    98. End If
    99. Exit Function
    100. End If
    102. Dim data() As Byte 'Hier wird der entschlüsselte Text gespeichert
    103. Dim i As Integer
    104. Using rd As New RijndaelManaged 'Stellt den Rijndael-Algorihmus zur Verfügung
    105. Dim rijndaelIvLength As Integer = 16 'Die Anzahl der Bytes des Initialisierungsvektor
    106. Using md5 As New MD5CryptoServiceProvider 'Dient zum berechnen eines MD5-Hashes
    107. Dim key() As Byte = md5.ComputeHash(Encoding.UTF8.GetBytes(Password)) 'Das Passwort wird in ein Byte-Array zerlegt gehasht und dann im Array Key gespeichert
    108. md5.Clear() 'Leert den MD5CryptoProvider
    109. Dim encdata() As Byte = Convert.FromBase64String(Text) 'Wandelt den Base64-String des verschlüsselten Textes in ein Byte Array und speichert dies in encdata
    110. Using ms As New MemoryStream(encdata) 'Öffnet das ByteArray in einem MemoryStream
    111. Dim iv(15) As Byte
    112. ms.Read(iv, 0, rijndaelIvLength) 'Hier wird der Initialisierungsvektor aus dem Memorystream gelesen (die ersten 16 Byte, siehe Verschlüsselung)
    113. rd.IV = iv
    114. rd.Key = key 'Hier wird der Key für die weitere Verwendung in der aktuellen Instanz von RijndaelManaged gespeichert
    115. Dim cs As New CryptoStream(ms, rd.CreateDecryptor, CryptoStreamMode.Read) 'Nun wird ein neuer Cryptostream aus rd erstellt, welcher aus dem MemoryStream liest
    116. ReDim data(Convert.ToInt32(ms.Length) - Convert.ToInt32(rijndaelIvLength)) 'Hier wird die Größe des Byte Arrays für den entschlüsselten Text festgelegt und dieses neu dimensioniert
    117. Try
    118. i = cs.Read(data, 0, data.Length) 'Hier wird der Klartext ausgelesen
    119. cs.Close() 'Schließen und leeren der nicht mehr gebrauchten Instanzen
    120. Catch ex As System.Security.Cryptography.CryptographicException
    121. Throw New System.Security.Cryptography.CryptographicException("Wrong Passphrase!")
    122. Finally
    123. rd.Clear()
    124. End Try
    125. End Using
    126. End Using
    127. End Using
    128. Return System.Text.Encoding.UTF8.GetString(data, 0, i) 'Zum Schluss wird das Byte Array zu einem String umgewandelt
    129. End Function
    131. Private Shared Function IsNullOrWhiteSpace(ByVal s As String) As Boolean
    132. Dim retval As Boolean = True
    133. If Not String.IsNullOrEmpty(s) Then
    134. For Each c As Char In s
    135. If Not Char.IsWhiteSpace(c) Then
    136. retval = False
    137. End If
    138. Next
    139. End If
    140. Return retval
    141. End Function
    142. End Class
    SWYgeW91IGNhbiByZWFkIHRoaXMsIHlvdSdyZSBhIGdlZWsgOkQ=

    Weil einfach, einfach zu einfach ist! :D

    hey leute,

    nein soweit bin ich auch schon gekommen,

    es geht nicht um die Passphrase abfrage ( um die auch) aber eigentlich meinte ich den Speicher Prozess der Eingabe, sorry wenn ihch das nich deutlich ausgedrückt habe. Ich meine die Exception Nachrichten vom Programm beim Schreiben der Settings. Quasi wenn ich die Eingabe mache und der Text der Textbox1.Text oder der Text der Textbox2.Text (Passwort) nicht richtig ist also nichts oder leerzeichen enthält. Dann soll anstelle der Exception eine Textbox erscheinen anstelle der ExceptionForm mit der man Abbruch oder Scrippt Fortführen wählen kann.. an der etappe scheitert es.. ich komme mit der NullorWhitespace abfrage iwie nicht zurecht. :rolleyes:

    VB.NET-Quellcode

    1. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    2. Try
    3. TextBox1.Text = Crypto.Decrypt(TextBox3.Text, TextBox2.Text) 'das entschlüsseln
    4. catch ex as System.Security.Cryptography.CryptographicException
    5. Msgbox(ex.message)
    6. textbox2.text = string.empty
    7. end try
    8. End Sub


    Das Try bewirkt, das alles was zwischen try un catch auf ausnahmen überwacht wird. Tritt eine Ausnahme auf, so wird der code zwischen catch und end try ausgeführt.

    Hier ein guter Artikel zum Thema Exceptions: codeproject.com/Articles/9538/…ing-Best-Practices-in-NET
    SWYgeW91IGNhbiByZWFkIHRoaXMsIHlvdSdyZSBhIGdlZWsgOkQ=

    Weil einfach, einfach zu einfach ist! :D

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „BiedermannS“ ()

Facebook
Telefonspende