Parte 6 – Inserción de datos en la base de datos, y uso de datos Encriptados, Login

En este vídeo explico como se insertan datos en una base de datos MS Access.

En un modulo de Visual Basic se van a crear los sub procedimientos necesarios para hacer la consulta a la base de datos y validar el usuario. Se va a usar un script para encriptar la contraseña de la base de datos para de esta manera en caso de que alguien entre a nuestra base de datos no pueda saber cual es la contraseña, esto convierto nuestro software en algo muy seguro.

Se creo un registro en la tabla Usuarios que son los datos del administrador.

En Visual Basic, se tomo una función de la página recursosvisualbasic.com.ar para encripdar datos, esta se uso para encriptar la contraseña de los usuarios.

Esta es la función:

'---------------------------------------------------------------------
' EncryptString
' Modificado por Harvey T.
'---------------------------------------------------------------------
'El parámetro UserKey es la clave.
'El parámetro Text es el texto a encriptar o desencriptar.
'El parámetro Action indica QUE hacer, ..es decir Encriptar o desencriptar. ( El valor ENCRYPT es para encriptar y el valor DECRYPT para desencriptar)
'url: http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/269-encriptar-desencriptar.htm



Public Function EncryptString(UserKey As String, Text As String, Action As Single) As String

    Dim UserKeyX As String

    Dim Temp     As Integer

    Dim Times    As Integer

    Dim i        As Integer

    Dim j        As Integer

    Dim n        As Integer

    Dim rtn      As String

     

    '//Get UserKey characters

    n = Len(UserKey)

    ReDim UserKeyASCIIS(1 To n)

    For i = 1 To n

        UserKeyASCIIS(i) = Asc(Mid$(UserKey, i, 1))

    Next

         

    '//Get Text characters

    ReDim TextASCIIS(Len(Text)) As Integer

    For i = 1 To Len(Text)

        TextASCIIS(i) = Asc(Mid$(Text, i, 1))

    Next

     

    '//Encryption/Decryption

    If Action = ENCRYPT Then

       For i = 1 To Len(Text)

           j = IIf(j + 1 >= n, 1, j + 1)

           Temp = TextASCIIS(i) + UserKeyASCIIS(j)

           If Temp > 255 Then

              Temp = Temp - 255

           End If

           rtn = rtn + Chr$(Temp)

       Next

    ElseIf Action = DECRYPT Then

       For i = 1 To Len(Text)

           j = IIf(j + 1 >= n, 1, j + 1)

           Temp = TextASCIIS(i) - UserKeyASCIIS(j)

           If Temp < 0 Then

              Temp = Temp + 255

           End If

           rtn = rtn + Chr$(Temp)

       Next

    End If

     

    '//Return

    EncryptString = rtn

End Function

Luego en el modulo de mod_consultas se creo una función de validar Usuarios:

Function Validar_Usuario(usuario As String, password As String) As Boolean

    Dim RecorsetTemp  As New ADODB.Recordset

    Dim Sql As String

    Dim Clave As String



    Clave = EncryptString("4mkiujn4", password, 1)

   

    Sql = "Select * from tblUsuarios where usuario = '" & usuario & "' and password = '" & Clave & "'"

    RecorsetTemp.Open Sql, ConexionADO

   

    If RecorsetTemp.RecordCount > 0 Then

       Glo_NombreUsuario = RecorsetTemp("nombres_apellidos")

       Glo_IdUsuario = RecorsetTemp("IdUsuario")

       Glo_IdentifUsuario = RecorsetTemp("identificacion")

       Validar_Usuario = True

    Else

       Validar_Usuario = False

    End If

   

End Function



En el formulario de frmLogin en el evento clic del boton ingresar se coloco el siguiente código:





Private Sub cmdIngresar_Click()

    If Validar_Usuario(txtUsuario.Text, txtPassword.Text) = True Then

       frmPrincipal.Show

       Unload Me

    Else

       MsgBox "Usuario no válido", vbCritical, "Erro de Usuario"

    End If

End Sub

Se creo el formulario MDI frmPrincipal que sera la ventana principal de la aplicación.

Iconos para usar en nuestra aplicación: los puedes descargar de aquí

Siguiente Lección Parte 7 – Finalizando Login y Uso de Status Bar

Comentarios de Facebook

Deja un comentario