Imports System.Data
Imports System.Data.SqlClient
Partial Class Login : Inherits System.Web.UI.Page
    Dim Link As New Sql
    Dim Sql As SqlCommand
    Dim Ler As SqlDataReader
    Dim i As Boolean
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.TextBox1.Focus()
    End Sub
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim tipo As String = ""
        Dim Nom As String = ""
        Dim ie As String = ""
        Sql = New SqlCommand("select * from usuario", Link.Con)
        Dim ide As New HH84.HH84
        ' se ocupa el algorito MD5 para cifrar el password
        ' y asi esta guardado en la base de datos algo parecido a esto: e99008846853ff3b725c27315e469fbc
 
        dim pass = ide.GenerarHash(Me.TextBox2.Text)
 
        Try
            Link.Con.Open()
        Catch ex As Exception
            Me.Label3.Text = "Error: " & ex.Message
            Me.Label3.Visible = True
        End Try
        Try
            Ler = Sql.ExecuteReader
            While Ler.Read
			'texbox1 es el usuario
			'texbox2 es la contraseña
                If Ler(1).Equals(Me.TextBox1.Text) And Ler(2).Equals(pass) Then
                    Nom = Ler(3)
                    ie = Ler(0)
                    tipo = Ler(7)
                    i = True
                Else
                    Me.Label1.Visible = True
                    Me.Label1.Text = "Su Usuario o password es Invalida"
                End If
            End While
        Catch ex As Exception
            Me.Label3.Text = "Error: " & ex.Message
            Me.Label3.Visible = True
        End Try
 
        Try
            Link.Con.Close()
        Catch ex As Exception
            Me.Label3.Text = "Error: " & ex.Message
            Me.Label3.Visible = True
        End Try
 
        If i = True Then
            Session("ie") = ie
            If tipo = "Administrador" Then
                Session("tipo") = "Administrador"
                Session("Login") = True
                Session("Nom") = Nom
                Session("estado") = "OnLine"
                Response.Redirect("Principal.aspx")
            ElseIf tipo = "Gestor" Then
                Session("tipo") = "Gestor"
                Session("Login") = True
                Session("Nom") = Nom
                Session("estado") = "OnLine"
                Response.Redirect("Gestor.aspx")
            ElseIf tipo = "Comite" Then
                Session("tipo") = "Comite"
                Session("Nom") = Nom
                Session("estado") = "OnLine"
                Session("Login") = True
                Response.Redirect("Comite.aspx")
            ElseIf tipo = "Entrevistador" Then
                Session("tipo") = "Entrevistador"
                Session("Nom") = Nom
                Session("estado") = "OnLine"
                Session("Login") = True
                Response.Redirect("Entrevistas.aspx")
            Else
                Me.Label1.Visible = True
                Me.Label1.Text = "Su Usuario o password es Invalida"
            End If
        End If
    End Sub
End Class

If nom.Equals("") Or ape.Equals("") Or tel.Equals("") Or mail.Equals("") Or user.Equals("") Or pass.Equals("") Or tipo.Equals("Seleccione uno") Then
            Me.Label5.Visible = True
            Me.Label5.Text = " Campos  Obligatorios"
        Else
            Sql = New SqlCommand("SELECT * FROM usuario WHERE usuario = '" & user & "'", Link.Con)
            Link.Con.Open()
            Cad = Sql.ExecuteReader
            While Cad.Read
                Me.Label6.Text = Cad(1)
            End While
            Link.Con.Close()
            If Me.Label6.Text <> "" Then
                Me.Label5.Visible = True
                Me.Label5.Text = " El Usuario ya Existe "
                Me.Label6.Text = ""
            Else
                Try
                    pass = add.GenerarHash(Me.TextBox6.Text)
                Catch ex As Exception
                    Me.Label2.Text = "error al generar pass"
                End Try
                Try
                    Link.Con.Open()
                Catch ex As Exception
                    Me.Label2.Text = "error al abrir la conexion"
                End Try
                Sql = New SqlCommand("insert into usuario values('" & user & "','" & pass & "','" & nom & "','" & ape & "','" & tel & "','" & mail & "','" & tipo & "')", Link.Con)
 
                Try
                    Sql.ExecuteNonQuery()
                Catch ex As Exception
 
                End Try