Membuat Enkripsi Dengan Kriptografi Md5 Di Vb.Net

Mungkin masih banyak yang resah dengan istilah Kriptografi. Apa seh Kriptografi itu ? secara umum ialah ilmu dan seni untuk menjaga kerahasiaan berita. Selain pengertian tersebut terdapat pula pengertian ilmu yang mempelajari teknik-teknik matematika yang bekerjasama dengan aspek keamanan informasi ibarat kerahasiaan data, keabsahan data, integritas data, serta autentikasi data.

Dalam Kriptografi ini, dikenal 3 macam istilah penting yaitu, Plain Text, Key, dan Chiper Text. Plain Text ialah pesan gotong royong yang ingin dikirimkan. Plain Text ini biasanya bersifat sangat rahasia. Key ialah Kunci yang dipakai baik untuk menyandikan atau mengubah sandi menjadi bentuk pesan sebenarnya. Key ini biasanya hanya diketahui oleh pihak – pihak yang berkepentingan. Chiper Text ialah sebuah sebuah kalimat yang tersusun atas abjad – abjad yang tidak beraturan sehingga tidak memungkinkan untuk dibaca.

Tujuan gotong royong teknik-teknik dengan istilah-istilah di atas ialah untuk menyamarkan data orisinil menjadi data gres dalam bentuk atau format lain, semoga orang lain selain si pemilik hak kanal ke data tersebut tidak sanggup melihat atau mengaksesnya.

Disini aku ingin menyebarkan bagaimana mengenkrip sebuah string dengan teknik hasil kriptografi MD5 dimana hash value nya sanggup mencapai 128-bit. Fungsi ini diterapkan memakai Visual Studio 2012 dan diterapkan pada sebuah textbox. Untuk tampilannya mungkin sanggup ibarat ini.

Membuat Enkripsi dengan Kriptografi MD5 di VB .Net

Untuk baris syntaxnya, sahabat Coding sanggup lihat sebagai berikut :

Public Class Enkripsi
Private Sub Enkripsi_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox2.ReadOnly = True
TextBox1.Select()
End Sub
Public Function computeHash(ByVal textToHash As String) As String
‘//dibawah ini ialah sebuah fungsi untuk mengenkripsi text dengan metode MD5
Dim MD5 As New System.Security.Cryptography.MD5CryptoServiceProvider()
Dim Bytes() As Byte = MD5.ComputeHash(System.Text.Encoding.ASCII.GetBytes(textToHash))
Dim s As String = Nothing
For Each by As Byte In Bytes
s += by.ToString(“x2″)
Next
Return s
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox2.Text = computeHash(TextBox1.Text)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
TextBox1.Clear()
TextBox2.Clear()
TextBox1.Select()
End Sub
End Class

Sumber http://aprianicw041.blogspot.com