Cara mendapatkan MD5 File dengan vb.net - Seperti judul diatas, pada kesempatan kali ini tutor yang akan kita pelajari adalah bagaimana cara mendapatkan MD5 sebuah file. Apa sih gunanya mencari atau mendapatkan MD5 dari sebuah file? Nah, buat para pembuat anti virus MD5 itu sangat mempengaruhi, dalam arti dengan mendapatkan MD5 sebuah file kita bisa mengetahui indentitas file tersebut, bisa dikatakan MD5 itu sebuah Informasi bahwa data Md5 ini adalah file ini. Contoh, sebuah file di deteksi atau terdeteksi sebagai virus oleh anti virus, dasar logikanya bahwa anti virus sudah mengenali file tersebut sebagai virus dengan menetapkan MD5 file tersebut. Jadi MD5 adalah data dan bisa disebut informasi dari file itu. Nah, bagaimana cara mendapatkannya, monggo kita praktekin sekarang.
Berikut cara mendapatkan MD5 File dengan vb.net :
Bahan-bahan :
1 Button
2 TextBox
untuk tampilannya bisa dilihat diatas
Langkah-langkahnya :
- Buka Microsoft Visual Studio 2008 / 2010
- Buat New Project lalu pilih Windows Form Applikasi
- Beri nama suka-suka kalian
- Setelah keluar 1 Form di project kita
- Add bahan-bahan component di toolbox seperti diatas
- Beri nama pada masing-masing component dan atur posisi suka-suka sobat
- Klik kanan pada form project, lalu pilih "View code", lalu pastekan kode berikut :
' Get MD5 sebuah file
Public Function MD5C_File(ByVal filepath As String) As String
Using readfile As New System.IO.FileStream(filepath, IO.FileMode.Open, IO.FileAccess.Read)
Using md5 As New System.Security.Cryptography.MD5CryptoServiceProvider
Dim hash() As Byte = md5.ComputeHash(readfile)
Return ByteArrayToString(hash)
End Using
End Using
End Function
' convert byte array menjadi hex string
Private Function ByteArrayToString(ByVal arrInput() As Byte) As String
Dim subfile As New System.Text.StringBuilder(arrInput.Length * 2)
For i As Integer = 0 To arrInput.Length - 1
subfile.Append(arrInput(i).ToString("X2"))
Next
Return subfile.ToString().ToLower
End Function
- Kembali ke Form1, dan klik 2x pada Button1 dan pastekan kode berikut :
Dim OFD As New OpenFileDialog
If OFD.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
TextBox1.Text = OFD.FileName
TextBox2.Text = MD5C_File(OFD.FileName)
Button1.Enabled = True
End If
- Lalu save dan build atau play debuger.
- Dan kita coba dengan browse ke file yang ingin di cari MD5 nya.
Bagaimana sobat, udah pahamkan..?
Cukup mudah bukan sob, sekarang silahkan kreasikan suka-suka kalian.
Selamat mencoba, semoga bermanfaat.
