user22579796
user22579796

Reputation:

how to make decryption of HashPassword BCrypt in VB.NET

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

Answers (0)

Related Questions