BG personal blog Approfondimenti tecnici sul mondo informatico – By Gabriele Besta

'Importo i Namespace necessari
Imports System.IO
Imports System.Security.Cryptography
Imports System.Text
 
    Public Function genera_hash(ByVal file_path As String, _
                                ByVal tipo_hash As String) As String
        Dim buffer() As Byte = Nothing
        'Imposto il path del file di cui voglio
        'genera il valore di has e la modalità
        'di apertura in solo lettura
        Dim file As New FileStream(file_path, _
                                   FileMode.Open, _
                                   FileAccess.Read, _
                                   FileShare.Read, 8192)
 
        If tipo_hash = "md5" Then
            'genera il valore hash md5
            Dim md5 As New MD5CryptoServiceProvider()
            md5.ComputeHash(file)
            buffer = md5.Hash
        ElseIf tipo_hash = "sha1" Then
            'genera il valore hash SHA-1
            Dim sha1 As New SHA1CryptoServiceProvider()
            sha1.ComputeHash(file)
            buffer = sha1.Hash
        End If
 
        'ricordarsi di chiudere lo stream del file
        file.Close()
 
        'converto l'hash del file in una stringa
        Dim hash As New StringBuilder(buffer.Length)
        For i As Integer = 0 To buffer.Length - 1
            hash.Append(buffer(i).ToString("X2"))
        Next
 
        'la funziona ritorna l'hash del file in formato
        'stringa tutta minuscola
        Return hash.ToString.ToLower
    End Function
 
'Esempio di utilizzo della funzione, è necessario
'specifare 2 parametri:
'1 il path del file di cui voglio generare il valore di hash
'2 il tipo di hash: md5 o sha1
'la funzione restitutisce una stringa di testo che
'in questo caso mostro in un msgbox
MsgBox(genera_hash("C:\file_qualunque.txt", "md5"))