MD5-Hash erstellen

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Samus Aran.

    MD5-Hash erstellen

    Hi, ich möchte von z.B. "VB-Paradise" den MD5-Hash machen.

    Dies versuche ich so:

    VB.NET-Quellcode

    1. Imports System.Security.Cryptography
    2. Imports System.Text
    3. Imports System
    4. Imports System.IO
    5. Imports System.Net
    7. Public Class Form1
    8. Shared string1 As String
    10. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    11. Try
    12. Dim request As HttpWebRequest = DirectCast(WebRequest.Create("http://datei.auf/server"), HttpWebRequest)
    13. Dim response As HttpWebResponse = DirectCast(request.GetResponse(), HttpWebResponse)
    14. Dim reader As StreamReader = New StreamReader(response.GetResponseStream())
    15. string1 = reader.ReadToEnd()
    16. If Not response Is Nothing Then response.Close()
    17. MsgBox(string1) 'um zu prüfen ob es der richtige hash ist, ja es ist immer der richtige also richtig gelesen
    18. Catch
    19. End Try
    20. End Sub
    22. Private Function GenerateHash(ByVal SourceText As String) As String
    23. Dim Ue As New UnicodeEncoding()
    24. Dim ByteSourceText() As Byte = Ue.GetBytes(SourceText)
    25. Dim Md5 As New MD5CryptoServiceProvider()
    26. Dim ByteHash() As Byte = Md5.ComputeHash(ByteSourceText)
    27. Return Convert.ToBase64String(ByteHash)
    28. End Function


    Dann versuche ich, die Funktion per buttonklcik auszuführen:

    VB.NET-Quellcode

    1. MsgBox(GenerateHash(TextBox1.Text))


    leider steht in der msgbox kein hash, sondern
    +Y+YKeZbd8lKhEHD00iK0g==
    warum? und wie krieg ichs wieder weg?

    mfg serials
    | Keine Fragen per PN oder Skype.

    VB.NET-Quellcode

    1. Dim data() As Byte = System.Text.Encoding.UTF8.GetBytes("VB-Paradise")
    2. Dim md5 As New System.Security.Cryptography.MD5CryptoServiceProvider()
    3. Dim result As Byte() = md5.ComputeHash(data)
    Gruß, Agent Smith 8-)

    activeFlags = (lazy OR weary)

    Lemgo-Verschwörung | Mathematics | VB-Paradise in blau

    schonmal vielen dank, aber es klaptt immer noch nicht.

    der code in der function:

    VB.NET-Quellcode

    1. Private Function GenerateHash(ByVal SourceText As String) As String
    2. Dim data() As Byte = Encoding.UTF8.GetBytes(SourceText)
    3. Dim Md5 As New MD5CryptoServiceProvider()
    4. Dim result As Byte() = Md5.ComputeHash(data)
    5. Return Convert.ToBase64String(data)
    6. End Function


    Ergebnis in der MsgBox:
    YXJuaWtvZnJvbW5lcGFsc2thdGVib2FyZHNjcnlwdA==
    Ich verstehe das nicht ?( ?(
    | Keine Fragen per PN oder Skype.

    klappt auch nicht

    ich benutze jetzt:

    VB.NET-Quellcode

    1. Private Function ComputeMD5(ByVal str As String, _
    2. ByVal encoding As Encoding) As String
    4. Dim input As Byte() = encoding.GetBytes(str)
    5. Dim hash As Byte() = (New MD5CryptoServiceProvider()).ComputeHash(input)
    7. Return encoding.GetString(hash)
    8. End Function


    und zum aufrufen:

    VB.NET-Quellcode

    1. MsgBox(ComputeMD5(TextBox1.Text, Encoding.ASCII))


    jetzt kommen in der msgbox ein paar vierecke(nicht darstellbare zeichen), klammern und sonstiger schund.

    der code mag mich nicht :D
    | Keine Fragen per PN oder Skype.

    VB.NET-Quellcode

    1. Private Function MD5CON(ByVal ConvertedHash As String) As String
    2. Dim Res As String = ""
    3. Try
    4. Dim MD5 As New MD5CryptoServiceProvider
    5. Dim Data As Byte()
    6. Dim Result As Byte()
    7. Dim Tmp As String = ""
    9. Data = Encoding.ASCII.GetBytes(ConvertedHash)
    10. Result = MD5.ComputeHash(Data)
    11. For i As Integer = 0 To Result.Length - 1
    12. Tmp = Hex(Result(i))
    13. If Len(Tmp) = 1 Then Tmp = "0" & Tmp
    14. Res += Tmp
    15. Next
    16. Catch ex As Exception
    17. MsgBox("Hash konne nicht erstellt werden.", MsgBoxStyle.Critical)
    18. Res = ""
    19. End Try
    21. Return Res
    22. End Function


    Ich benutze die Funktion von mir und die funkt einwandfrei :D

Facebook
Telefonspende