Verschlüsseln/Password abfrage

  • VB.NET

Es gibt 31 Antworten in diesem Thema. Der letzte Beitrag () ist von EiPott.

    VB.NET-Quellcode

    1. Imports System.Security.Cryptography
    2. Imports System.Text
    4. Public Class SimpleAESWrapper
    6. Public Function Encrypt(ByVal TextToEncrypt As String, ByVal Passphrase As String, ByRef Base64IV As String) As String
    8. Dim aes As New AesManaged
    10. ' since AESManaged defaults to a keysize of 256 bit,
    11. ' we use sha256 to create a valid key from the
    12. ' passphrase
    13. aes.Key = (New SHA256Managed).ComputeHash(Encoding.Unicode.GetBytes(Passphrase))
    14. If String.IsNullOrEmpty(Base64IV) Then
    15. ' IV is generated by AES and stored for later use in decrpytion
    16. aes.GenerateIV()
    17. Base64IV = Convert.ToBase64String(aes.IV)
    18. Else
    19. ' if we want to use a previously generated IV
    20. aes.IV = Convert.FromBase64String(Base64IV)
    21. End If
    24. Dim Plaintext() As Byte = System.Text.Encoding.Unicode.GetBytes(TextToEncrypt)
    25. Dim EncryptedText As String = ""
    27. Using ms As New System.IO.MemoryStream()
    28. Dim enc As System.Security.Cryptography.ICryptoTransform = aes.CreateEncryptor
    29. Dim cs As New System.Security.Cryptography.CryptoStream(ms, enc, Security.Cryptography.CryptoStreamMode.Write)
    30. cs.Write(Plaintext, 0, Plaintext.Length)
    31. cs.FlushFinalBlock()
    32. Dim b(ms.Length - 1) As Byte
    33. EncryptedText = Convert.ToBase64String(ms.ToArray)
    34. ms.Close()
    35. cs.Close()
    36. End Using
    37. aes.Clear()
    38. Return EncryptedText
    40. End Function
    42. Public Function Decrypt(ByVal TextToDecrypt As String, ByVal Passphrase As String, ByVal Base64IV As String) As String
    44. Dim aes As New AesManaged
    45. aes.Key = (New SHA256Managed).ComputeHash(Encoding.Unicode.GetBytes(Passphrase))
    46. aes.IV = Convert.FromBase64String(Base64IV)
    48. Dim EncryptedText() As Byte = Convert.FromBase64String(TextToDecrypt)
    49. Dim Plaintext As String = ""
    51. Using ms As New System.IO.MemoryStream(EncryptedText)
    52. Dim dec As System.Security.Cryptography.ICryptoTransform = aes.CreateDecryptor
    53. Dim cs As New System.Security.Cryptography.CryptoStream(ms, dec, Security.Cryptography.CryptoStreamMode.Read)
    54. Dim sr As New System.IO.StreamReader(cs, System.Text.Encoding.Unicode)
    55. Plaintext = sr.ReadToEnd
    56. cs.Close()
    57. End Using
    58. aes.Clear()
    59. Return Plaintext
    61. End Function
    63. Public Sub test()
    64. Dim iv As String = ""
    65. Dim secret1 As String = Encrypt("ABCD", "secret", iv)
    66. Dim secret2 As String = Encrypt("EFGH", "secret", iv)
    67. Dim plain As String = Decrypt(secret1, "secret", iv) & Decrypt(secret2, "secret", iv)
    68. If plain <> "ABCDEFGH" Then MsgBox("oops")
    69. End Sub
    71. End Class

    Hi, bei mir funktioniert das Entschlüsseln nicht. Ich mache das so:

    VB.NET-Quellcode

    1. If VistaTB1.Text = Decrypt(My.Settings.Passwort, "test", "") Then
    3. Application.Exit()
    5. Else
    7. Versuche += 1
    9. Label1.Text = "Bisher " & Versuche & " falsche Eingaben"
    11. End If


    Aber es kommt immer die Fehlermeldung:
    "Der angegenebe Initialisierungsvektor (IV) stimmt nicht mit der Blockgröße für diesen Algorithmus überein."

    Skybird schrieb:

    Das sind ja Ubisoftmethoden hier !

    Ich debugge nach jedem mal, wenn ich den Code ändere... das Programm wird nicht sichtbar und ich bekomme nur eine Meldung, dass vs-host nichtmehr geht, wenn ich den Code wieder aus Form_Load nehme, geht alles wieder.. soll ich mal mein ganzes Form_Load Ereignis schreiben? Vielleicht stimmt ja daran etwas nicht..
    LG
    Merio

    Jetzt habe ich einen Fehler:
    Spoiler anzeigen
    Der angegebene Initialisierungsvektor (IV) stimmt nicht mit der Blockgröße für diesen Algorithmus überein.

    Ich habs auf nen Button gemacht, dann bringt er den Fehler..
    LG
    Merio

    VB.NET-Quellcode

    1. Public Function Decrypt(ByVal TextToDecrypt As String, ByVal Passphrase As String, ByVal Base64IV As String) As String
    2. Dim aes As New AesManaged
    3. aes.Key = (New SHA256Managed).ComputeHash(Encoding.Unicode.GetBytes(Passphrase))
    4. aes.IV = Convert.FromBase64String(Base64IV)
    6. Dim EncryptedText() As Byte = Convert.FromBase64String(TextToDecrypt)
    7. Dim Plaintext As String = ""
    9. Using ms As New System.IO.MemoryStream(EncryptedText)
    10. Dim dec As System.Security.Cryptography.ICryptoTransform = aes.CreateDecryptor
    11. Dim cs As New System.Security.Cryptography.CryptoStream(ms, dec, Security.Cryptography.CryptoStreamMode.Read)
    12. Dim sr As New System.IO.StreamReader(cs, System.Text.Encoding.Unicode)
    13. Plaintext = sr.ReadToEnd
    14. cs.Close()
    15. End Using
    16. aes.Clear()
    17. Return Plaintext
    18. End Function




    Zeile 4
    LG
    Merio