Cara buat login dengan MD5 di Visual Basic. Net

13 December 2020 05:06 2369 View


Hallo semuanya dikesempatan kali ini saya akan menjelaskan bagaiman cara membuat login dengan MD5 (Message-Digest algorithm 5) di Visual Basic. Net. Intinya user atau pengguna aplikasi yang kita buat tidak bisa atau tidak berhak masuk ke dalam sistem kalau tidak memiliki login yang sudah tersimpan di database teman-teman miliki. Sekarang teman-teman buat project (Penamaan Project Bebas).

Buat Koneksi dan Buat Tabel

Sebelumnya teman-teman harus buat koneksi terlebih dahulu, jika teman-teman belum tau cara membuat dapat dilihat disini Cara buat koneksi vb.net MySQL setalah membuat koneksi. Nah sekarang buat nama tabel tbl_user di dalam database yang kalian buat.   berikut ini struktur tabel user login.

CREATE TABLE `tbl_user` (
`KD_USER` varchar(15) NOT NULL,
`USER_NAME` varchar(30) NOT NULL,
`PASSWORD` varchar(30) NOT NULL,
`STATUS` varchar(20) NOT NULL,
PRIMARY KEY (`KD_USER`)
) ENGINE=InnoDB DEFAULT CHARSET=latin1;

Design Form Login

Buat form dengan nama frm_login setelah buat form sekarang kita akan membuat design form login seperti gambar bawah ini.

LOGIN VB NET

Nah setelah design siap teman-teman buat. sekarang double klik form anda lalu masukan coding dibawah ini di form_load.

Fungsi coding dibawah untuk memanggil koneksi yang teman-teman buat.

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

Setelah panggil koneksi sekarang coba import terlebih dahulu coding dibawah ini di atas class fom_login. Fungsi dari coding ini untuk memanggil  ODBC Koneksi dan Security Cryptography.

Imports System.Data.Odbc
Imports System.Security.Cryptography

Function dibawah ini berfungsi untuk menerapkan Hash Cryptography MD5. Agar setiap user yang memiliki login di luar hash MD5 sistem akan menolak.

  Public Shared Function MD5DELISMAN(ByVal strToHash As String) As String
        Dim MD5HULU As New System.Security.Cryptography.MD5CryptoServiceProvider()
        Dim bytesToHash() As Byte = System.Text.Encoding.ASCII.GetBytes(strToHash)
        bytesToHash = MD5HULU.ComputeHash(bytesToHash)
        Dim strResult As String = ""
        Dim b As Byte
        For Each b In bytesToHash
            strResult += b.ToString("x2")
        Next
        Return strResult
    End Function

Sekarang kita akan membuat coding di button login (btnlogin) caranya double klik button login lalu copy coding dibawah ini 

Try
            If txtusername.Text = "" Or txtusername.Text = "" Then
                MsgBox("Harap Masukan User Nama dan Password Anda", MsgBoxStyle.Critical, "Pesan")
                Exit Sub
            End If
            Call KONEKSIDB()
            CMD = New OdbcCommand("SELECT * FROM tbl_user WHERE KD_USER ='" & txtusername.Text & "' and PASSWORD='" & (MD5DELISMAN(txtPassword.Text)) & "'", Konek)
            DR = CMD.ExecuteReader
            DR.Read()
          If DR.HasRows Then
                frmHalamanUtama.Show()
                Me.Hide()
            ElseIf Not DR.HasRows Then
              MsgBox("User dan Password Tidak ditemukan di database", MsgBoxStyle.Information, "Salah")
                Exit Sub
            End If
        Catch ex As Exception
            MsgBox("Terjadi Kesalahan Login / Login Ilegal", vbExclamation, "Pesan")
End Try

Sekarang kita akan buat coding di button tutup dengan cara double klik lalu masukan coding dibawah ini

       Me.Close()

Lalu buat 1 lagi form dengan nama frmHalamanUtama dimana form ini berfungsi untuk mengarahkan user/pengguna jika berhasil login.  setelah mengikuti tahap diatas coba teman-teman jelankan aplikasi yang teman-teman buat.  Jika teman-teman masih bingun melatakan codingnya karna terpisah pisah teman-teman bisa lihat coding full dibawah ini.

Imports System.Data.Odbc
Imports System.Security.Cryptography

Public Class frmLogin
    Private Sub btnTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTutup.Click
        Me.Close()
    End Sub
    Public Shared Function MD5DELISMAN(ByVal strToHash As String) As String
        Dim MD5HULU As New System.Security.Cryptography.MD5CryptoServiceProvider()
        Dim bytesToHash() As Byte = System.Text.Encoding.ASCII.GetBytes(strToHash)
        bytesToHash = MD5HULU.ComputeHash(bytesToHash)
        Dim strResult As String = ""
        Dim b As Byte
        For Each b In bytesToHash
            strResult += b.ToString("x2")
        Next
        Return strResult
    End Function
    Private Sub frmLookScreem_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call KONEKSIDB()
    End Sub
    Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
        Try
            If txtusername.Text = "" Or txtusername.Text = "" Then
                MsgBox("Harap Masukan User Nama dan Password Anda", MsgBoxStyle.Critical, "Pesan")
                Exit Sub
            End If
            Call KONEKSIDB()
            CMD = New OdbcCommand("SELECT * FROM tbl_user WHERE KD_USER ='" & txtusername.Text & "' and PASSWORD='" & (MD5DELISMAN(txtPassword.Text)) & "'", Konek)
            DR = CMD.ExecuteReader
            DR.Read()
            If DR.HasRows Then
             
                frmHalamanUtama.Show()
                Me.Hide()
            ElseIf Not DR.HasRows Then
                MsgBox("User dan Password Tidak ditemukan di database", MsgBoxStyle.Information, "USER SALAH")
                Exit Sub
            End If
        Catch ex As Exception
            MsgBox("Terjadi Kesalahan Login / Login Ilegal", vbExclamation, "Pesan")
        End Try
    End Sub

End Class

Ok teman-teman sekian dulu tutorial kali ini mohon maaf jika ada salah dalam penulisan maupun tata bahasa. jika masih bingun bisa langsung di tanya di kolom komentar. Terimakasih


Delisman Hulu

Admin


Rekomondasi
Komentar

Harap berkomentar yang berkaitan dengan topik. Terimakasih