Hacer nobre de usuario y contraseña

[piojoman]

Lo unico que puedo decirte es que si recien comenzas empieces por Access y no por MySQL que es mas potente pero mas jodido, además para access (DAO) VB posee el control data que te permite comunicarte de una forma muy sencilla y casi sin código.
Ahora, para las contraseñas, te digo que cualquiera que entre a la base de datos podrá averiguar los password y sería un problema, se podría poner contraseña a la BD (una solución fácil de implementar, pero no tanto de manejar), la manera ideal y segura sería declarar los campos de la BD correspondiente a la Contraseña como Número (Longint o Single). En la parte del codigo realizar algun algoritmo para la incriptacion, es muy fácil hacer uno sencillo: EJ.

'----------------------------------------------------------------------------------
'-- Lo que hacemos es convertir letra por letra en números de la tabla de valores
'-- de Windows y le restamos a ese número 50 unidades para que queden todos entre
'-- valores de dos cifras, cuando descifremos leemos los numero de a dos y le
'-- sumamos 50 unidades y convertimos a ese numero en letra
'----------------------------------------------------------------------------------
Dim Cadena As String, Posicion As Byte
Dim Resultado As String
Private Sub Command1_Click()
Cifrado.Caption = "" 'Vacia las cadenas
DesCifrado.Caption = "" 'Vacias las cadenas
Cadena = Text1.Text
Posicion = 1
Do While Posicion <= Len(Cadena)
Resultado = Mid(Cadena, Posicion, 1)
Cifrado.Caption = Cifrado.Caption & (AscW(Resultado) - 50)
Posicion = Posicion + 1
Loop
End Sub
Private Sub Command2_Click()
DesCifrado.Caption = "" 'Vacia las cadenas
If IsNumeric(Cifrado.Caption) Then
Cadena = Cifrado.Caption
Posicion = 1
Do While Posicion <= Len(Cadena) 'Se repite hasta la ultima letra
Resultado = Mid(Cadena, Posicion, 2) 'Lee de a dos letras
DesCifrado = DesCifrado & Chr(Resultado + 50) 'Al resultado le sumamos 50 y convertimos a letras
Posicion = Posicion + 2 'Avanzamos para leer los dos proximos numeros
Loop
End If
End Sub
------------------------------------------------------------
Se necesitan Dos Label llamados (Cifrado y descifrados) un TextBox y dos Botones CommandButton

Caundo tengas los Números Ej: 10480523 (La cant. de Num serán PAR) los guardaras en la base de datos, y luego con el metodo de DesIncriptacion(Command2) haces el metodo inverso comparandolo con los números almacenados en la BD.

Bye!!!