[VB.NET] Mengetahui MD5 Dari Suatu File

Siapa bilang enksripsi MD5 sulit?, sekarang dengan VB.NET hal itu menjadi amatlah mudah!. Karena VB.NET memberikan Namespace Cryptography(System.Security.Cryptography) yang menyuguhkan berbagai object enkripsi uang bisa sobat langsung gunakan. Caranya mudah saja, jika sobat ingin menggunakan Namespace ini, sobat bisa ketikkan "Imports System.Security.Cryptography" tanpa tanda petik pada event Deklarasi seperti dibawah ini:


Nah kali ini saya akan sedikit memberi source code penggunaan enkripsi MD5. Source code dibawah ini berfungsi untuk mendapatkan kode MD5 dari suatu file. Cekidot!

Deklarasi:
1 Form
1 TextBox
1 Button

Buat sedemikian rupa seperti ini:

Tahap terakhir, masukkan source codenya:

Imports System.Security.Cryptography
Imports System.IO
Imports System.Text
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim objOpenFile As OpenFileDialog = New OpenFileDialog
        objOpenFile.Filter = "All Files (*.*)|*.*"
        If objOpenFile.ShowDialog = Windows.Forms.DialogResult.OK Then
            TextBox1.Text = objOpenFile.FileName
        Else
            Exit Sub
        End If

        Dim objStream As FileStream = New FileStream(TextBox1.Text, FileMode.Open, FileAccess.Read, FileShare.Read, 8192)

        objStream = New FileStream(TextBox1.Text, FileMode.Open, FileAccess.Read, FileShare.Read, 8192)
        Dim md5 As MD5CryptoServiceProvider = New MD5CryptoServiceProvider
        md5.ComputeHash(objStream)
        objStream.Close()

        Dim hash As Byte() = md5.Hash
        Dim buff As StringBuilder = New StringBuilder
        Dim hashByte As Byte
        For Each hashByte In hash
            buff.Append(String.Format("{0:X1}", hashByte))
        Next
        LabelHash.Text = "MD5 : " & buff.ToString()
    End Sub
End Class

Ok, simple kan. Jika sobat mengalami kendala, tinggalkan komentar beserta kendalanya. InsyaAllah saya akan bantu. Jangan Lupa Komentar Yaa..