Como Crear Una como quien diria "Un Login"

[Zinc]

Buenas Tardes a todos..queria saber como hago para ponerle a un programa q yo cree un login antes de q entre el programa como podria hacer.? Desde ya gracias

[Cicklow]

ok suponiendo que tu formulario principal es forminicial.frm
lo que haces es:

2 opciones:

1° opcion:
1-crear un formulario de nombre frmlogin.frm
2-colokas dos kampos de texto (txtusr, y txtpwl) al campo txtpwl le pones en la propiedad maskpasswd (o algo asi) *, osea para que muestre * cuando vos tecleas algo, luego colokas un boton (btnaceptar)
3- en el evento click del boton pones:

Código [Seleccionar] Expandir


' el pwl esta de esa manera como para despistar
usr = "admin" : pwl = "admin":pwl1="007"
IF txtUsr !="" And txtPwl !="" THEN
IF txtUsr = usr AND txtPwl = (pwl & pwl1) THEN
   formincial.Show
ELSE
   msgbox "Error en los datos ingresados"
   end  'salimos
END IF
END IF
' para que funcione esto lo que hacesmos es modificar las propiedades del proyecto, y le decimos que el formulario que se inicia primero es frmlogin.frm


2° opcion
1- agregamos un modulo y ponemos

Código [Seleccionar] Expandir


Sub Main()
Usr = inputbox("Nombre de usuario")
Pwl = inputbox("Password")

Usr0 = "admin"
Pwl0 = "admin": Pwl1 = "007"
If Usr = Usr0 AND Pwl = (Pwl0 & Pwl1) Then
  frminicial.show
Else
  End ' Salimos
End if
End Sub


Espero que te sirva saluds!!

[Robokop]

Otra forma es creando una condicion para 2 terminos
ejemplo:

Private Sub Command1_Click()
If Text1.Text = "manuel" And Text2.Text = "manuel" Then
MsgBox "bienvenido"
Else
MsgBox "eres un ratero hijo de @@@@@@@@@@"
End If

End Sub

[BenRu]

EL programa que ha puesto Robokop, lo puede crackear hasta un ciego xD

No creo que esto sea un login muy seguro, ademas, lo suyo seria tener algun sitio donde se guarden los datos, por si se quiere modificar.

Un saludo

[Cicklow]

es por eso que uso varias variables separadas!!!

[Robokop]

EL programa que ha puesto Robokop, lo puede crackear hasta un ciego xD

Si lo se ,pero lo puse de esta forma porque no creo que su programa vaya a ser de uso publico porque en ese caso tendria que crear una BD para almacenar los datos y contraseñas

[cobra_90]

yo tmb kise crear un login pero la vdd esk este codigo esta mal y nose pork no funciona los login se guardan en 2 tablas en una base de datos a ver si me pueden ayudar es una copea k le envie a un amigo....





'wey la base de datos esta ponla en (mis documentos)
Private Sub Command1_Click()
Dim a As Integer
For a = 1 To 6
If ax1.Text = txtUsuario.Text Then 'esta condicion no me la cumple  me muestra el form2 pork???
   If ax2.Text = txtContraseña.Text Then
   Form2.Show
   MsgBox "paco"
   End If
Else
ab.rsa1.MoveNext
ab.rsa2.MoveNext ' quiero si la condicion si se cumple las 2 pues ya no tome en cuenta el for nose komo aserlo
' lo de ab.rsa1.movenext y el otro son para k mueva los dos registro y no compare el mismo con el bucle

End If
Next
End Sub
' nose pork no funcionaa
'en el form 1 los 2 textbox con numeros son los de la base de datos con los k los compara la base de datos solo tiene  ese registro

[BenRu]

EL programa que ha puesto Robokop, lo puede crackear hasta un ciego xD

Si lo se ,pero lo puse de esta forma porque no creo que su programa vaya a ser de uso publico porque en ese caso tendria que crear una BD para almacenar los datos y contraseñas

No hace falta crear una bd para un programa seguro...existen Crackmes, que debes introducir user y pass, y es practicamante imposible de saltarlos.

[Robokop]

XD, Si lo se pero me referia a una BD para muchos usuarios y contraseñas no para unos cuantos ,puse el programa de esa forma porque creo conveniente enseñar de la forma mas simplificada la programacion para que luego con los ejemplos ellos puedan crear un programa mas elaborado

[juanjoxx]

my buena lo q dices ... pero haber si esto te ayuda ....
este es un pequeño cod espero q te surva  

para Grabar el pass y el ID
Private Sub Command1_Click()
Dim ruta As String
Dim i As Integer
ruta = "c:\log.log"
i = FreeFile()
Open ruta For Output As #i
Print #i, TxtID.Text
Print #i, txtpass.Text
Close #i
End Sub

Para Abrir
Private Sub Command2_Click()
Dim ruta, Var1, Var2  As String
Dim i As Integer
ruta = "c:\log.log"
i = FreeFile()
Open ruta For Input As #i
Line Input #i, Var1
Line Input #i, Var2
Close i
If (Var1 = TxtID.Text) And (Var2 = txtpass.Text) Then
   MsgBox "ok"
Else
MsgBox "El Pass Ingresado es Incorrecto", vbQuestion, "Error"
End If
End Sub

si quieres q el pass y el Id este biien protegida te recomiendo q lo encriptes al momento de guardar y al momento de abrir desencriptarlo
este es otro lick de info...
http://foro.elhacker.net/index.php/topic,117713.0.html