0

I have this code which displays a login form, i want to encrypt the password before it stores into the sql database and should also be able to verify the pwd when a user logs in.
Please help me, it'll be very greateful of you, Thank you.

Private Sub Login_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Login.Click

    Try

        If constring.State = ConnectionState.Open Then
            constring.Close()
        End If
        constring.Open()

        Dim MainMenu As New MDIParent1
        Dim result As String
        Dim CMD As New SqlCommand
        CMD.Connection = constring


        CMD.CommandText = "Exec validatelogin '" & txtuserid.Text & "','" & txtpwd.Text & "'"
        Dim ad As New SqlDataAdapter(CMD)
        Dim dt As New DataTable

        result = CMD.ExecuteScalar
        ad.Fill(dt)
        MsgBox(result, MsgBoxStyle.Exclamation)


        If result = "True" And CheckBox1.CheckState = 0 Then

            MainMenu.Show()
            Me.Dispose(False)

        Else
            MsgBox("Username or Password appears to be wrong")

        End If


        constring.Close()
    Catch ex As Exception
        MsgBox(ex.Message, MsgBoxStyle.ApplicationModal)
    End Try


End Sub


Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged

    Dim result As String
    Dim CMD As New SqlCommand
    CMD.Connection = constring

    Try
        If constring.State = ConnectionState.Open Then
            constring.Close()
        End If
        constring.Open()


        If CheckBox1.CheckState = 1 Then
            CMD.CommandText = "Exec validatelogin '" & txtuserid.Text & "','" & txtpwd.Text & "'"
            Dim ad As New SqlDataAdapter(CMD)
            Dim dt As New DataTable

            result = CMD.ExecuteScalar
            ad.Fill(dt)

            If result = "True" Then
                Height = 655
                Width = 466

            Else
                MsgBox("Username or Password appears to be wrong")
            End If

        ElseIf CheckBox1.CheckState = 0 Then
            Height = 289
            Width = 462

        End If

        constring.Close()

    Catch ex As Exception
        MsgBox(ex.Message, MsgBoxStyle.ApplicationModal)
    End Try


End Sub


Private Sub btnSave_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click

    Try

        Dim sqlparameter(2) As Object
        sqlparameter(0) = txtuserid.Text
        sqlparameter(1) = txtoldpwd.Text
        sqlparameter(2) = txtnewpwd.Text


        While CheckBox1.CheckState = 1
            If constring.State = ConnectionState.Open Then
                constring.Close()
            End If

            constring.Open()
            Dim CMD As New SqlCommand
            CMD.Connection = constring
            Dim commandstring As String = " '"
            Dim msg As String
            Dim ad As New SqlDataAdapter
            Dim dt As New DataTable



            For Each Str As String In sqlparameter
                commandstring &= Str & "','"
            Next

            If String.IsNullOrEmpty(txtuserid.Text) OrElse String.IsNullOrEmpty(txtpwd.Text) OrElse String.IsNullOrEmpty(txtoldpwd.Text) OrElse String.IsNullOrEmpty(txtnewpwd.Text) Then

                MsgBox("All fields need to be filled")
                Exit Sub

            End If

            commandstring = Mid(commandstring, 1, (Len(commandstring) - 2))

            CMD.CommandText = "Exec updatelog " & commandstring
            msg = CMD.ExecuteScalar()
            'ad.Fill(dt)


            If txtoldpwd.Text = txtpwd.Text Then
                MsgBox("password changed")
                Exit Sub
            Else
                MsgBox("password is mismatched")
                Exit Sub
            End If
            constring.Close()

        End While

    Catch ex As Exception
        MsgBox(ex.Message, MsgBoxStyle.ApplicationModal)


    End Try


End Sub
2
Contributors
1
Reply
2
Views
5 Years
Discussion Span
Last Post by Reverend Jim
This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.