how to make decryption of HashPassword BCrypt in VB.NET

89 Views Asked by At

how to make decryption of HashPassword BCrypt in VB.NET?.

the problem is If the user forgets the password then I can do decryption from HashPassword stored in the database or is there any other solution please guide me.

Thanks

Public Class frmLoginRegister
    Private uService As New UserService()
    Private Sub BtnLogin_Click(sender As Object, e As EventArgs) Handles BtnLogin.Click
        'add dapper logics here 
        Dim users = uService.GetDTOUsersByUsername(txtUsername.Text)
        Dim verified As Boolean = BCrypt.Net.BCrypt.Verify(txtPassword.Text, users.Password)
        If users.Username = txtUsername.Text AndAlso verified Then
            Program.Userinformation = users
            MessageBox.Show("Successfull, Welcome " & users.RoleName)
            Me.ShowInTaskbar = False
            Me.Hide()
            Call (New FrmMain()).ShowDialog()
            Environment.Exit(0)
        Else
            MessageBox.Show("Invalid Login details")
        End If
    End Sub
    Private Sub BtnRegister_Click(sender As Object, e As EventArgs) Handles BtnRegister.Click
        'check if username exists
        Dim user = uService.GetUserByUsername(txtUsername.Text)
        If user IsNot Nothing Then
            MessageBox.Show("User already exists")
            Return
        End If
        'insert new record
        uService.InserUser(New Users() With {
            .Username = txtUsername.Text,
            .Password = BCrypt.Net.BCrypt.HashPassword(txtPassword.Text),
             .RoleID = CInt(txtRoleID.Text)
        })
        'show success message
        MessageBox.Show("User successfully added")
    End Sub
End Class
0

There are 0 best solutions below