MD5 File Hash einer Datei ermitteln

Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

  • Hier werde ich euch zeigen, wie ihr den MD5FileHasch einer Datei ermitteln könnt.

    Quellcode

    1. Option Explicit On
    2. Imports System.IO
    3. Imports System.Net
    4. Imports System.Security.Cryptography
    7. Public Function MD5FileHash(ByVal sFile As String) As String
    8. Dim MD5 As New MD5CryptoServiceProvider
    9. Dim Hash As Byte()
    10. Dim Result As String = ""
    11. Dim Tmp As String = ""
    13. Dim FN As New FileStream(sFile, FileMode.Open, FileAccess.Read, FileShare.Read, 8192)
    14. MD5.ComputeHash(FN)
    15. FN.Close()
    17. Hash = MD5.Hash
    18. For i As Integer = 0 To Hash.Length - 1
    19. Tmp = Hex(Hash(i))
    20. If Len(Tmp) = 1 Then Tmp = "0" & Tmp
    21. Result += Tmp
    22. Next
    23. Return Result
    24. End Function
    Alles anzeigen



    Wie kann ich den Code verwenden??

    Quellcode

    1. tbOutput.Text = MD5FileHash(tbEingang.Text)



    Viel Spaß weiterhin mit dem Code

    7.580 mal gelesen