Den SHA1 Hash einer Datei ermitteln

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

Imports System.Security.Cryptography
Imports System.Text
Imports System.IO

Public Function SHA1FileHash(ByVal sFile As String) As String
    Dim SHA1 As New SHA1CryptoServiceProvider
    Dim Hash As Byte()
    Dim Result As String = ""
    Dim Tmp As String = ""

    Dim FN As New FileStream(sFile, FileMode.Open, FileAccess.Read, FileShare.Read, 8192)
    SHA1.ComputeHash(FN)
    FN.Close()

    Hash = SHA1.Hash
    For i As Integer = 0 To Hash.Length - 1
        Tmp = Hex(Hash(i))
        If Len(Tmp) = 1 Then Tmp = "0" & Tmp
        Result += Tmp
    Next
    Return Result
End Function