Madriva

Mumpung belum ngantuk neh gan, ane pengen bagi-bagi trik bagi agan-agan yang seneng ama VB .Net. Jika sebelumnya ane mengulas tentang Login Form Tanpa Database dan juga Menggunakan Database, kali ini ane pengen ngejajal ama yang namanya Login Form menggunakan BCrypt, cukup aman lah bagi kita-kita yang masih pemula di bidang programming, karena username dan juga password yang tersimpan sudah di hash terlebih dahulu dengan nilai salt 10.

Untuk membuat form ini, terlebih dahulu kita buat desain dari form tersebut, komponen dan juga propertinya bisa dilihat pada tabel di bawah ini :

Sehingga desain akhir form akan terlihat seperti ini nih gan :


Listing kode secara keseluruhan terlihat seperti di bawah ini, tinggal disesuaikan saja yah.. ;)
Public Class fLogin Private Sub bLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLogin.Click 'di sini kita akan mendeklarasikan beberapa username dan juga password yang sudah di hash Dim user1 As String = "$2a$10$d5lOnA0vOJvvYH5JKUbZyeaINYEhIN0JWXV4IUlRFbFz08KGGq1BK" 'rhyfahmad Dim Pass As String = "$2a$10$irp1nRDWYZoiy7aIFLah.eosEiH6rco0ovPGNqPKrSCnWPhdnPK8a" 'madriva Dim user2 As String = tUser.Text Dim pass2 As String = tPass.Text 'Check User Dim success2 As Boolean = DevOne.Security.Cryptography.BCrypt.BCryptHelper.CheckPassword(user2, user1) 'Check Password Dim success1 As Boolean = DevOne.Security.Cryptography.BCrypt.BCryptHelper.CheckPassword(pass2, Pass) If (tUser.TextLength <= 0) Or (tPass.TextLength <= 0) Then MessageBox.Show("Username atau Password salah!", "Login Form", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) ElseIf (tUser.TextLength > 0) And (tPass.TextLength > 0) Then If success2 And success1 Then MessageBox.Show("Selamat, anda berhasil Login!", "Aplikasi", MessageBoxButtons.OK, MessageBoxIcon.Information) Else MessageBox.Show("Username atau Password salah!", "Login Form", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) End If End If End Sub Private Sub bCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bCancel.Click If MessageBox.Show("Apakah anda yakin ingin keluar?", "Login Form", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then Application.Exit() End If End Sub End Class

Jika terjadi Error, silahkan tinggalkan komentar, tapi postingan ini saya buat sendiri kodenya, dengan sebisanya tentunya.. hehe..
username Login Form : rhyfahmad
password Login Form : madriva