MD5 zu String und umgekehrt!

  • VB.NET
  • .NET (FX) 1.0–2.0

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von ~blaze~.

    MD5 zu String und umgekehrt!

    Moin!
    Wie kann ich einen MD5 Hash in ein String zurück setzen.
    Habe bereits gegoogelt ohne erfolg!
    by

    VB.NET-Quellcode

    1. Imports System.Text
    2. Imports System.Security.Cryptography
    4. Public Class Form1
    6. Public Function GetMD5FromString(ByVal sText As String) As String
    7. ' MD5-Hash eines Strings ermitteln
    8. ' Der String-Inhalt muss hierbei als Byte-Array
    9. ' übergeben werden. Hierzu verweden wir einfach
    10. ' System.Text.Encoding-Klasse
    11. Dim MD5 As New MD5CryptoServiceProvider
    12. MD5.ComputeHash(System.Text.Encoding.Default.GetBytes(sText))
    14. ' als Ergebnis erhalten wir wieder ein Byte-Array,
    15. ' das mittels der BitConverter-Klasse zurück in
    16. ' einen String konvertiert wird.
    17. Return BitConverter.ToString(MD5.Hash)
    18. End Function
    20. Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    21. ' "47-6A-55-33-99-8C-2B-31-C8-1C-2D-56-A2-5B-83-A7"
    22. Me.Text = GetMD5FromString("HalloWelt")
    23. ' MD5 in String umwandeln...?
    25. End Sub
    26. End Class
    Visual Basic.NET 8o
    MS-SQL     8o

    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!

    @An alle
    Vielen Dank, für eure schnelle Antwort!
    Ich habe nun eine ähniche Lösung gefunden!
    Hier für euch alle:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Public Function Encode(str As String) As String
    4. Return Convert.ToBase64String(System.Text.Encoding.UTF8.GetBytes(str))
    5. End Function
    6. Public Function Decode(str As String) As String
    7. Return System.Text.Encoding.UTF8.GetString(Convert.FromBase64String(str))
    8. End Function
    10. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    11. Dim s As String = "HalloWelt!"
    12. Me.Label2.Text = Encode(s) ' verschlüßeln...
    13. Me.Label1.Text = Decode(Me.Label2.Text) ' entschlüßeln
    14. End Sub
    16. End Class
    Visual Basic.NET 8o
    MS-SQL     8o

    hmm Base64 ist kein Md5 Hash, das sollte dir klar sein :)
    und Base64 ist auch keine Verschlüsslung :)
    MFG 0x426c61636b4e6574776f726b426974
    InOffical VB-Paradise IRC-Server
    webchat.freenode.net/
    Channel : ##vbparadise

    Hi
    bitte unbedingt die Suchfunktion benutzen. Es kann nicht sein, dass ein Thema innerhalb weniger Tage mehrmals gefragt wird. Und wie immer: Hashes sind Einwegfunktionen. Außerdem: Stell dir vor, ein String hat die Länge 100 Buchstaben (entspricht im Normalfall in der Codierung Unicode 200 Bytes). Stell dir nun vor, du erhältst nach Anwendung einer Funktion eine Ausgabe von z.B. 16 Bytes. Wenn es nicht um Kompression geht (auch da wird's nicht unbedingt möglich sein), wie hast du vor, alle 200 Bytes in 16 zu verpacken und trotzdem noch unterscheiden zu können? Verhält sich analog zu folgendem Modell: Du hast 17 Kugeln und 16 Urnen und möchtest in jede Urne nicht mehr als eine Urne legen, aber alle Kugeln verteilen. Das wird nicht funktionieren. Analog verhält es sich zum Md5. Du kannst nicht 200 Bytes, in denen völlig voneinander verschiedene Daten gespeichert werden sollen (du hast für jede Stelle 255 mögliche Werte, wenn man's genau nimmt, wegen Unicode weniger, aber selbst, wenn man 255^100 nimmt, kommt eine immens große Zahl an möglichen Eingaben raus und es sind mehr als 255^100 mögliche Eingaben) auf 16 Bytes reduzieren oder wieviel Md5 auch immer verwendet. Es wird immer Kollisionen geben, d.h. verschiedene Eingaben führen zu einem gleichen Ergebnis.

    Allerdings aufpassen: Je nachdem, was du bezweckst ist Base64 unangebracht. Wenn es dir um Sicherheit geht, ist es völlig fehl am Platz.

    Gruß
    ~blaze~

Facebook