Contoh Program ENKRIPSI dan DESKRIPSI dengan Visual Basic 2008

Program Sederhana Enkripsi dan Dekripsi Dengan VB.NET 2008

Assalamu'alaikum......
berikut cara membuat program Enkripsi & Dekripsi dengan Visual Basic NET 2008, kali aja banyak diantara kalian yang lagi butuh kodingan ini. Yup langsung saja ke TKP.

Pertama, kita desain dulu form aplikasinya, sebagai contoh bisa di lihat pada gambar dibawah ini :

Gbr 1 Sumber Koleksi Pribadi

 Properti yang saya setting pada form diatas adalah
Label1 : Ganti properti TEXT dengan Password
Label2 : Ganti properti TEXT dengan Enkripsi
Label3 : Ganti properti TEXT dengan Dekripsi

TextBox1 : Ganti properti NAME dengan txtPass
TextBox2 : Ganti properti NAME dengan txtEnkripsi
TextBox2 : Ganti properti NAME dengan txtDeskripsi

Button1 : Ganti properti NAME dengan btnProses & Properti TEXT dengan Proses
Button1 : Ganti properti NAME dengan btnRefresh & Properti TEXT dengan Refresh

Kedua, kita diharuskan untuk menambahkan Reference ke dalam VB.NET kita, yaitu "system.security" caranya klik Project - Add Reference - pada tampilan dibawah pilih "system.security" - klik OK

Gbr 2 Sumber Koleksi Pribadi

Ketiga, masuk ke kodingannya nih kawan, hehehehe ane copas dari Projectnya langsung nih

 'Masukkan bagian ini wajib banget kalau ga ntr fungsi Enkrip & Dekrip ga jalan
Imports System.Security.Cryptography
Imports System.Text

'Bagian Form Class kawan
Public Class Form1

    Sub BERSIH()
        txtPass.Focus()
        txtPass.Clear()
        txtEnkripsi.Clear()
        txtDeskripsi.Clear()
        txtEnkripsi.Enabled = False
        txtDeskripsi.Enabled = False
    End Sub

'Proses Enkripsi & Dekripsi di atur pada dua SUB dibawah ini
#Region "Enkripsi_Dekripsi_md5"
    'Ini adalah sub untuk enkripsi karakterk dengan MD5
    Sub ENKRIPSI()
        Dim DES As New TripleDESCryptoServiceProvider()
        Dim hashMD5 As New MD5CryptoServiceProvider()

        DES.Key = hashMD5.ComputeHash(System.Text.ASCIIEncoding.ASCII.GetBytes(txtPass.Text))
        DES.Mode = CipherMode.ECB
        Dim DESEncrypt As ICryptoTransform = DES.CreateEncryptor()
        Dim Buffer As Byte() = System.Text.ASCIIEncoding.ASCII.GetBytes(txtPass.Text)
        txtEnkripsi.Text = Convert.ToBase64String(DESEncrypt.TransformFinalBlock(Buffer, 0, Buffer.Length))
    End Sub

    'Ini adalah sub Dekripsi dengan MD5
    Sub DEKRIPSI()
        Dim DES As New TripleDESCryptoServiceProvider()
        Dim hashMD5 As New MD5CryptoServiceProvider()

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

#End Region

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call BERSIH()
    End Sub

    Private Sub btnProses_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnProses.Click
        Call ENKRIPSI()
        Call DEKRIPSI()
    End Sub

    Private Sub btnRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRefresh.Click
        Call BERSIH()
    End Sub
End Class

Keempat, Project siap di jalankan, seharusnya hasilnya akan seperti dibawah. Pada saat TextBox Password di isi dengan karakter dan di klik Button Proses maka proses Enkripsi dan Dekripsi akan dilakukan.

Gbr Sumber Koleksi Pribadi

Demikian artikel ini saya buat, semoga bermanfaat bagi teman2 semua, Amin..... dilain kesempatan Insya Allah saya akan coba buat implementasi dari proses Enkripsi dan Dekripsi ke Form Login, Insya Allah.......... contoh Project yang sudah jadi bisa di download disini

Wassalamu'alaikum....