Membuat Enkripsi dan Dekripsi dengan VB.NET

G usah panjang lebar, disini saya akan share sedikit tutorial yang mungkin bermanfaat.langsung aja buat desain form seperti berikut :

keterangan :

yang diperlukan :

• 3 buah label
• 3 buah textbox
• dan 1 button

ganti 3 buah label menjadi :
label 1 => Password (Ganti properti di textnya)
label 2 => Enkripsi (Ganti properti di textnya)
label 3 => Dekripsi (Ganti properti di textnya(

ganti 3 buah textbox menjadi :
textbox1 => txtpswd (ganti properti di namanya)
textbox2 => txtenkrip (ganti properti di namanya)
textbox3 => txtdekrip (ganti properti di namanya)

terakhir, ganti 1 button menjadi :
button1 => Convert (ganti properti textnya)


sebelum ke koding, tambahkan library "system.security" terlebih
dahulu. karena jika kita tidak menambahkan. kita tidak bisa memakai
fungsi enkripsi dan dekripsi di dalamnya, caranya :

klik project => add reference => kemudian akan tampil seperti ini :

kemudian pilih "system.security",

kalau sudah selesai semua, kita langsung ke koding ya :D, hihi

let's try :)
=======================================================================

Koding :

Imports System.Security.Cryptography
Imports System.Text

Public Class Form1

#Region "md5"
Sub enkripsi()
Dim DES As New TripleDESCryptoServiceProvider()
Dim hashMD5 As New MD5CryptoServiceProvider()

DES.Key = hashMD5.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(txtpswd.Text))
DES.Mode = CipherMode.ECB
Dim DESEncrypt As ICryptoTransform = DES.CreateEncryptor()
Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(txtpswd.Text)
txtenkrip.Text = Convert.ToBase64String(DESEncrypt.TransformFinalBlock(Buffer, 0, Buffer.Length))
End Sub
Sub dekripsi()
Dim DES As New TripleDESCryptoServiceProvider()
Dim hashMD5 As New MD5CryptoServiceProvider()

DES.Key = hashMD5.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(txtpswd.Text))
DES.Mode = CipherMode.ECB
Dim DESDecrypt As ICryptoTransform = DES.CreateDecryptor()
Dim Buffer As Byte() = Convert.FromBase64String(txtenkrip.Text)
txtdekrip.Text = System.Text.ASCIIEncoding.ASCII.GetString(DESDecrypt.TransformFinalBlock(Buffer, 0, Buffer.Length))
End Sub
#End Region

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
enkripsi()
dekripsi()
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.BackColor = Color.Beige
Me.StartPosition = FormStartPosition.CenterScreen
End Sub

Private Sub txtpswd_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtpswd.KeyPress
If e.KeyChar = Chr(13) Then
Button1.Focus()
End If
End Sub
End Class

=======================================================================

cara menjalankannya :

ketik apa saja di teks password, kemudian klik "CONVERT".
jika berhasil akan seperti ini :


kalau saya menuliskan "enkripsi dan dekripsi", di textbox enkrip adalah hasil
dari textbox password yang terinkripsi dengan hash md5, kemudian di dekripsikan
kembali menjadi karakter sebenarnya di textbox dekripsi.

semoga bermanfaat y ;) ....