Gerando MD5sum no VB.NET

Veja o passo a passo de como gerar o MD5sum no VB.NET

Crie uma classe chamada “VerificarMD5sum” e realize a importação das classes abaixo.

Imports System.Security.Cryptography
Imports System.IO

Agora iremos criar uma função para ler os bytes e retornar os dados em uma string.

Private Function PrintByteArray(ByVal array() As Byte) As String
    Dim hex_value As String = ""
    Dim i As Integer
    For i = 0 To array.Length - 1
        hex_value += array(i).ToString("X2")
    Next i
    Return hex_value.ToLower
End Function

Em seguida adicione uma função para ler o arquivo e gerar a soma MD5.

Public Function GetMD5sum(ByVal file_name As String) As String
    Dim hash_hex As String
    If File.Exists(file_name) Then
        Dim hash = MD5.Create()
        Dim hashValue() As Byte
        Dim fileStream As FileStream = File.OpenRead(file_name)
        fileStream.Position = 0
        hashValue = hash.ComputeHash(fileStream)
        hash_hex = PrintByteArray(hashValue)
        fileStream.Close()
    Else
        hash_hex = ""
    End If

    Return hash_hex
End Function

Agora iremos chamar a classe em um formulário e utilizar um label para obter o retorno.

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim MD5sum As New VerificarMD5sum()
    Label1.Text = MD5sum.GetMD5sum("localdoarquivo") 
End Sub

Substitua “localdoarquivo” pela localização do arquivo que deseja verificar o MD5sum.

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *