Vb.Net: Enkripsi Dengan Bytes Dan Md5

Membahas tentang enkripsi biasanya ga jauh-jauh dari masalah security. Enkripsi biasanya digunakan untuk data login. Contoh berikut ini menjelaskan proses enkripsi dimana string diubah terlebih dahulu ke format array bytes baru kemudian dienkripsi dengan MD5. Biar bisa lihat hasil nya kita bikin dulu UI nya: Proses yang akan dibuat adalah saat kita memasukan teks ke TextBox1 kemudian klik Button 1, hasil enkripsi akan ditampilkan di Label1. Code nya: Imports System.Security.Cryptography Imports System.Text Public Class frmEncrypt     'konversi data string --> bytes     Function Convert2ByteArray( ByVal strInput As String ) As Byte ()         Dim encoder As New UTF8Encoding()         Dim md5Hasher As New MD5CryptoServiceProvider         Return md5Hasher.ComputeHash(Encoder.GetBytes(strInput))     End Function     'Encrypt text     Function Encrypt_Data( ByVal strToEncrypt As String ) As String         Dim objMD5 As MD5CryptoServiceProvider         Dim strEncrypted As String         objMD5 = New MD5CryptoServiceProvider         strEncrypted = BitConverter.ToString(objMD5.ComputeHash( _                        Convert2ByteArray(strToEncrypt)))         Return strEncrypted     End Function     Private Sub frmEncrypt_Load( ByVal sender As System.Object, _         ByVal e As System.EventArgs) Handles MyBase.Load         Button1.Text = "Encrypt"         Label1.Text = String .Empty     End Sub     Private Sub Button1_Click( ByVal sender As System.Object, _         ByVal e As System.EventArgs) Handles Button1.Click         Label1.Text = Encrypt_Data(TextBox1.Text)     End Sub End Class Okay, lets try to run... Click here if you like this article.
Sumber http://rani-irsan.blogspot.com