Reputation:
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
Upvotes: 0
Views: 131