Enkripsi Text pada VB .NET 2010

Bagi Anda yang sedang membuat program menggunakan VB .NET 2010 apalagi yang menyangkut koneksi ke database entah itu database lokal ataupun database server. Tentu saja Anda akan membuat tabel user untuk login ke dalam aplikasi yang Anda buat, oleh karena itu diperlukan password yang terenkripsi agar lebih aman.

Jika Anda tidak melakukan enkripsi bisa saja orang yang tidak bertanggung jawab membuka database dan menggunakan password user yang tidak terenkripsi untuk login maka secara otomatis akan dapat masuk ke dalam aplikasi Anda. Namun, jika password yang user yang sudah terenkripsi digunakan secara otomatis tidak akan dapat login ke dalam aplikasi.

OK, langsung saja ke contoh penggunaannya.

1. Jalankan aplikasi Visual Studio 2010 Anda.
2. Buat Project baru dengan cara klik menu File --> New Project.
3. Setelah itu pilih Visual Basic --> .NET Framework 2.0 --> Windows Forms Application --> Klik OK. Lihat gambar.

4. Pada Form yang aktif tambahkan 2 Textbox dan 3 Button.
5. Atur Properties masing-masing Textboxt dengan Name=txtSource dan Name=txtHasil.
6. Atur Properties masing-masing Button dengan Name=btMD5 dan Caption=MD5, Name=btSHA1 dan Caption=SHA1, serta Name=btSHA384 dan Caption=SHA384.
7. Atur posisi Component seperti gambar di paling atas.
8. Klik 2x (Double click) Form yang aktif dan di atas Public Class Form1 (Form1 = nama form) copy paste kode di bawah ini.

Imports Microsoft.VisualBasic
Imports System.Text
Imports System.Security.Cryptography
Imports System.IO

9. Kemudian di bawah Public Class Form1 (Form1 = nama form) copy paste kode di bawah ini.

Enum HashMethod
     MD5
     SHA1
     SHA384
End Enum

Function EnkripsiText(ByVal source As String, ByVal algorithm As HashMethod) As String
        Dim hashAlgorithm As HashAlgorithm = Nothing
        Select Case algorithm
            Case HashMethod.MD5
                hashAlgorithm = New MD5CryptoServiceProvider
            Case HashMethod.SHA1
                hashAlgorithm = New SHA1CryptoServiceProvider
            Case HashMethod.SHA384
                hashAlgorithm = New SHA384Managed
            Case Else
                MsgBox("Error Algorithm", vbCritical, "Error")
        End Select

        Dim byteValue() As Byte = Encoding.UTF8.GetBytes(source)
        Dim hashValue() As Byte = hashAlgorithm.ComputeHash(byteValue)
        Return Convert.ToBase64String(hashValue)
End Function

10. Setelah itu klik Button MD5 dan pada Private Sub btMD5_Click(...) copy paste kode di bawah ini.

If txtSource.Text <> "" Then txtHasil.Text = EnkripsiText(txtSource.Text, HashMethod.MD5)

11. Setelah itu klik Button MD5 dan pada Private Sub btSHA1_Click(...) copy paste kode di bawah ini.

If txtSource.Text <> "" Then txtHasil.Text = EnkripsiText(txtSource.Text, HashMethod.SHA1)

12. Setelah itu klik Button MD5 dan pada Private Sub btSHA384_Click(...) copy paste kode di bawah ini.

If txtSource.Text <> "" Then txtHasil.Text = EnkripsiText(txtSource.Text, HashMethod.SHA384)

13. Sekarang jalankan programnya dengan menekan F5 pada keyboard dan lihat hasilnya.

Enkripsi dengan MD5

Enkripsi dengan SHA1

Enkripsi dengan SHA384

Silakan yang ingin mendownload contohnya dapat melalui tombol download di bawah ini.
Selesai, selamat mencoba dan terima kasih.