md5 Codeaus *.dll Datei auslesen und konvertiern

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von ChaosBernd.

    md5 Codeaus *.dll Datei auslesen und konvertiern

    Hallo Com,

    ich arbeite gerade an einem Programm,und nun bin ich beim "Registrieren,Anmelden und Passwort vergessen".
    Also beim Registrieren Frage ich ich nach Name,Passwort und Sicherheitswort.Passwort und Sicherheitswort werden mithlife von dem Code hier in einen md5 Code umgewandelt und in einen *.dll Datei gespeichert(Bild siehe Anhang).

    Mein Code zum verschlüsseln:

    VB.NET-Quellcode

    1. Imports System.Security.Cryptography
    2. Imports System.IO
    3. Imports System.Text
    4. Public Class Form3
    5. Inherits System.Windows.Forms.Form
    9. Private Declare Ansi Function GetPrivateProfileString Lib "kernel32.dll" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Int32, ByVal lpFileName As String) As Int32
    10. Private Declare Ansi Function WritePrivateProfileString Lib "kernel32.dll" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpString As String, ByVal lpFileName As String) As Int32
    12. Public Function INI_ReadValueFromFile(ByVal strSection As String, ByVal strKey As String, ByVal strDefault As String, ByVal strFile As String) As String
    13. 'Funktion zum Lesen
    14. 'strSection = Sektion in der INI-Datei
    15. 'strKey = Name des Schlüssels
    16. 'strDefault = Standardwert, wird zurückgegeben, wenn der Wert in der INI-Datei nicht gefunden wurde
    17. 'strFile = Vollständiger Pfad zur INI-Datei
    18. Dim strTemp As String = Space(1024), lLength As Integer
    19. lLength = GetPrivateProfileString(strSection, strKey, strDefault, strTemp, strTemp.Length, strFile)
    20. Return (strTemp.Substring(0, lLength))
    21. End Function
    23. Public Function INI_WriteValueToFile(ByVal strSection As String, ByVal strKey As String, ByVal strValue As String, ByVal strFile As String) As Boolean
    24. 'Funktion zum Schreiben
    25. 'strSection = Sektion in der INI-Datei
    26. 'strKey = Name des Schlüssels
    27. 'strValue = Wert, der geschrieben werden soll
    28. 'strFile = Vollständiger Pfad zur INI-Datei
    29. Return (Not (WritePrivateProfileString(strSection, strKey, strValue, strFile) = 0))
    30. End Function
    32. Private Sub Form1_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
    33. 'Einstellungen speichern
    34. INI_WriteValueToFile(TextBox1.Text, "Name", TextBox1.Text, ".\Einstellungen.dll")
    35. INI_WriteValueToFile(TextBox1.Text, "Passwort", TextBox4.Text, ".\Einstellungen.dll")
    36. INI_WriteValueToFile(TextBox1.Text, "Sicherheitswort", TextBox5.Text, ".\Einstellungen.dll")
    37. INI_WriteValueToFile(TextBox1.Text, "Redakteur", RadioButton1.Checked, ".\Einstellungen.dll")
    38. INI_WriteValueToFile(TextBox1.Text, "Supporter", RadioButton2.Checked, ".\Einstellungen.dll")
    39. End Sub


    Und mein Code zum auslesen der NICHT Funktioniert:

    VB.NET-Quellcode

    1. Imports System.Security.Cryptography
    2. Imports System.IO
    3. Imports System.Text
    4. Public Class Form5
    5. Inherits System.Windows.Forms.Form
    7. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    9. Dim suchwort As String
    10. suchwort = TextBox1.Text
    12. For Each Zeile As String In System.IO.File.ReadAllLines(".\Einstellungen.dll")
    13. If Zeile.Contains(suchwort) Then
    14. Dim rd As New RijndaelManaged
    15. Dim rijndaelIvLength As Integer = 16
    16. Dim md5 As New MD5CryptoServiceProvider
    17. Dim key() As Byte = md5.ComputeHash(Encoding.UTF8.GetBytes(TextBox2.Text))
    19. md5.Clear()
    20. Dim encdata() As Byte = Convert.FromBase64String(TextBox2.Text)
    21. Dim ms As New MemoryStream(encdata)
    22. Dim iv(15) As Byte
    24. ms.Read(iv, 0, rijndaelIvLength)
    25. rd.IV = iv
    26. rd.Key = key
    28. Dim cs As New CryptoStream(ms, rd.CreateDecryptor, CryptoStreamMode.Read)
    30. Dim data(ms.Length - rijndaelIvLength) As Byte
    31. Dim i As Integer = cs.Read(data, 0, data.Length)
    33. MsgBox(System.Text.Encoding.UTF8.GetString(data, 0, i))
    34. cs.Close()
    35. rd.Clear()
    36. Exit For
    37. End If
    38. Next
    40. End Sub
    41. End Class


    Was mach ich Falsch.
    Ich hab 3seit 3 Stunden in Google und hier gesucht,hab alles mögliche probiert.Ich komm aber nicht weiter. :( ;( :S :cursing:

    grüße peti03100
    Bilder

    • EinstellungenDLL.jpg

      16,66 kB, 503×442, 181 mal angesehen

    Da gibts ne menge, beispiele:
    SHA - XXX (XXX ist glaube ich mal das charset)
    Base64
    Base128
    Rot13
    etc.
    Das sind die , die mir so spontan einfallen.
    Aber zu dem würde ich bei Base64 zwei oder 3 chars mittendrin rein nehmen.

    Aber wenn du bei dem aller sicherstem MD5 bleiben willst:
    Speichere mit z.b. md5(string)
    und prüfe mit md5(string)

    :), so läufts bei vielen websites auch so!! :)
    Viel glück!

    oder hier bei Dr. Peter Fleischer steht auch eine schöne Lösung

    edit:
    sorry falscher Link. habe ihn nicht mehr.
    aber hier der Codeausschnitt
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Dateien Laden Verschlüsseln und dann Speichern
    2. Option Explicit On
    3. Option Infer On
    4. Option Strict On
    6. Imports System.Xml.Serialization
    7. Imports System.IO
    8. Imports System.Security.Cryptography
    10. Module Module1
    12. Sub Main()
    13. Try
    14. '
    15. ' Teil 1 Datei verschlüsseln und ablegen
    16. '
    17. Using fs As New FileStream("c:\temp\x1.x", FileMode.Open)
    18. ' verschlüsseln
    19. SaveEncrypted("c:\temp\x2.x", fs)
    20. End Using
    21. '
    22. ' Teil 2 Datei wieder entschlüsseln
    23. '
    24. Using fs As New FileStream("c:\temp\x3.x", FileMode.Create)
    25. ' entschlüsseln
    26. LoadEncrypted("c:\temp\x2.x", fs)
    27. End Using
    28. '
    29. Console.WriteLine("Vorgang abgeschlossen")
    30. Catch ex As Exception
    31. Console.WriteLine(ex.Message)
    32. End Try
    33. '
    34. Console.ReadLine()
    35. End Sub
    37. ''' <summary>
    38. ''' Schlüssel für Ver- und Entschlüsselung
    39. ''' </summary>
    40. ''' <remarks></remarks>
    41. Dim desKey() As Byte = {1, 2, 3, 4, 5, 6, 7, 8}
    42. Dim desIV() As Byte = {1, 2, 3, 4, 5, 6, 7, 9}
    44. ''' <summary>
    45. ''' XML-Datenstrom verschlüsseln und in Datei ablegen
    46. ''' </summary>
    47. ''' <param name="filename">Dateiname für Ablage</param>
    48. ''' <param name="str">IO-Stream (z.B. MemoryStream) mit Daten</param>
    49. ''' <remarks></remarks>
    50. Private Sub SaveEncrypted(ByVal filename As String, ByVal str As Stream)
    51. Dim fout As FileStream = Nothing
    52. Dim encStream As CryptoStream = Nothing
    53. Try
    54. 'Create the file streams to handle the output files.
    55. fout = New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Write)
    56. fout.SetLength(0)
    57. 'Create variables to help with read and write.
    58. Dim bin(99) As Byte 'This is intermediate storage for the encryption.
    59. Dim rdlen As Long = 0 'This is the total number of bytes written.
    60. Dim totlen As Long = str.Length 'Total length of the input file.
    61. Dim lng As Integer ' This is the number of bytes to be written at a time.
    62. 'Creates the default implementation, which is RijndaelManaged.
    63. Dim des As New DESCryptoServiceProvider
    64. encStream = New CryptoStream(fout, des.CreateEncryptor(desKey, desIV), CryptoStreamMode.Write)
    65. 'Read from the input file, then encrypt and write to the output file.
    66. str.Position = 0
    67. While rdlen < totlen
    68. lng = str.Read(bin, 0, bin.GetUpperBound(0))
    69. encStream.Write(bin, 0, lng)
    70. rdlen = Convert.ToInt32(rdlen + lng)
    71. End While
    72. Catch ex As Exception
    73. MsgBox(ex.Message)
    74. Finally
    75. If encStream IsNot Nothing Then encStream.Dispose()
    76. If fout IsNot Nothing Then fout.Close()
    77. End Try
    78. End Sub
    80. ''' <summary>
    81. ''' XML-Datenstrom aus Datei laden und entschlüsseln
    82. ''' </summary>
    83. ''' <param name="filename">Dateiname zum Einlesen</param>
    84. ''' <param name="str">IO-Stream (z.B. MemoryStream) mit Daten</param>
    85. ''' <remarks></remarks>
    86. Private Sub LoadEncrypted(ByVal filename As String, ByVal str As Stream)
    87. Dim fin As System.IO.FileStream = Nothing
    88. Dim decStream As CryptoStream = Nothing
    89. Try
    90. fin = New FileStream(filename, FileMode.Open, FileAccess.Read)
    91. 'Create variables to help with read and write.
    92. Dim bin(10000) As Byte ' This is intermediate storage for the encryption.
    93. Dim rdlen As Long = 0 'This is the total number of bytes written.
    94. Dim totlen As Long = fin.Length 'Total length of the input file.
    95. Dim lng As Integer ' This is the number of bytes to be written at a time.
    96. 'Creates the default implementation, which is RijndaelManaged.
    97. Dim des As New DESCryptoServiceProvider
    98. decStream = New CryptoStream(fin, des.CreateDecryptor(desKey, desIV), CryptoStreamMode.Read)
    99. 'Read from the input file, then encrypt and write to the output file.
    100. lng = decStream.Read(bin, 0, bin.GetUpperBound(0) + 1)
    101. While lng > 0
    102. str.Write(bin, 0, lng)
    103. rdlen = Convert.ToInt32(rdlen + lng)
    104. lng = decStream.Read(bin, 0, bin.GetUpperBound(0) + 1)
    105. End While
    106. Catch ex As Exception
    107. MsgBox(ex.Message)
    108. Finally
    109. If decStream IsNot Nothing Then decStream.Dispose()
    110. If fin IsNot Nothing Then fin.Dispose()
    111. End Try
    112. End Sub
    114. End Module

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „ChaosBernd“ ()

Facebook
Telefonspende