:huh: quisiera saber el codigo para poner usuario y contraseña antes de una aplicaion en vb usando eso de la codificacion y la decodificacion espero me puedan ayudar.
gracias
Que tipo de codificacion quieres?mucha o poca medida de seguridad?
Un saludo
Puedes hacer la verificacion del password con un If ... else
En cuanto a la codificacion, puedes contruir un simple algoritmo de cifrado con el operador XOR que te sirve tanto para cifrar como para descifrar.
O si lo prefieres, busca algun code que te permita cifrar algo con mas seguridad.
mirate este:
http://foro.elhacker.net/index.php/topic,123804.0.html
Salu2
Salu2, soy nuevo en el foro pero llevo leyendo aqui desde hace un tiempo. Del mismo Visual Basic 6 puedes ver un ejemplo de Usuario y Password!! mientras esta en el modo de diseño haz click en Proyecto----))Agregar Formulario-----))Cuadro de Dialogo de inicio de sesion, y te aparecera un Formulario de inicio de sesion (creo que ya lo sabras) edita el codigo a tu conveniencia y puede ser que te sirva..
PD: Yo se que no es Codificacion y Decodificacion pero como soy nuevo en el foro queria postear :-*.
mira algo que a mi me ha servido para confundir a los usuarios, lo que hago es: si tego la BD en Acces re-nombro la extensión de MDB a DLL y con el mismo codigo de conexion fuinciona bien, aqui te dejo un ejemplo:
Dim dbInventario As Database
Dim rsUsuarios As Recordset
Set dbInventario = OpenDatabase(App.Path & "\system.dll") 'esta es la BD con la extensión cambiada
Set rsUsuarios = dbInventario.OpenRecordset("Usuarios", dbOpenDynaset) 'abrir las tablas
Set rsUsuarios = dbInventario.OpenRecordset _
("Select * FROM Usuarios " _
& "WHERE Usuario = '" & Text1.Text & "'")
If Not rsUsuarios.EOF Then
If rsUsuarios.Fields("Password") = txtPassword.Text Then
Session = rsUsuarios.Fields("Tipo")
Nombre = rsUsuarios.Fields("Nombre")
If Session = "Administrador" Then
Form1.Show
Unload Me
Else
Form8.Show
Unload Me
End If
Else
MsgBox "El Password es invalido, vuelva a intentarlo!", , "Login"
txtPassword.SetFocus
SendKeys "{Home}+{End}"
End If
Else
MsgBox "El Nombre de usuario es invalido, vuelva a intentarlo!", , "Login"
Text1.SetFocus
SendKeys "{Home}+{End}"
End If