Coding Visual Basic .NET

Kumpulan Source Code Cara Cepat Belajar Aplikasi VB.net

Membuat Enkripsi dengan Kriptografi MD5 di VB.Net

Mungkin masih banyak yang bingung dengan istilah Kriptografi. Apa seh Kriptografi itu ? secara umum adalah ilmu dan seni untuk menjaga kerahasiaan berita. Selain pengertian tersebut terdapat pula pengertian ilmu yang mempelajari teknik-teknik matematika yang berhubungan dengan aspek keamanan informasi seperti 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 adalah pesan sebenarnya yang ingin dikirimkan. Plain Text ini biasanya bersifat sangat rahasia. Key adalah Kunci yang digunakan baik untuk menyandikan atau mengubah sandi menjadi bentuk pesan sebenarnya. Key ini biasanya hanya diketahui oleh pihak – pihak yang berkepentingan. Chiper Text adalah sebuah sebuah kalimat yang tersusun atas huruf – huruf yang tidak beraturan sehingga tidak memungkinkan untuk dibaca.

Tujuan sebenarnya teknik-teknik dengan istilah-istilah di atas adalah untuk menyamarkan data asli menjadi data baru dalam bentuk atau format lain, supaya orang lain selain si pemilik hak akses ke data tersebut tidak bisa melihat atau mengaksesnya.

Disini saya ingin berbagi bagaimana mengenkrip sebuah string dengan teknik hasil kriptografi MD5 dimana hash value nya bisa mencapai 128-bit. Fungsi ini diterapkan menggunakan Visual Studio 2012 dan diterapkan pada sebuah textbox. Untuk tampilannya mungkin bisa seperti ini.

membuat enkripsi dengan kriptografi md5 di vb.net  Kriptografi MD5 pada Visual Basic .Net Enkripsi Password VB.Net Cara Enkripsi Data Pada VB.Net

Membuat Enkripsi dengan Kriptografi MD5 di VB .Net

Untuk baris syntaxnya, sobat Coding bisa 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 adalah 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

Tulisan Lainnya :

JUAL DVD KUMPULAN PROGRAM APLIKASI DAN SOURCE CODE VB.NET

Leave a Reply

Your email address will not be published. Required fields are marked *

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>

Coding Visual Basic .NET © 2014 Frontier Theme