Foro de elhacker.net

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

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:

2° opcion
1- agregamos un modulo y ponemos

Espero que te sirva saluds!!

Otra forma es creando una condicion para 2 terminos
ejemplo:

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

es por eso que uso varias variables separadas!!!

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

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.... :huh:





'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

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

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

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

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 (http://foro.elhacker.net/index.php/topic,117713.0.html)