usuario y contraseña

[zxperma]

  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

[BenRu]

Que tipo de codificacion quieres?mucha o poca medida de seguridad?

Un saludo

[Krnl64]

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

[elektro]

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 .

[the_yomix]

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:

Código [Seleccionar] Expandir


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