Programa con clave de ingreso

[ToR0]

Hola necesito el codigo para que cuando se cargue el form pida una clave que tengo que hacer? gracias

[VirucKingX]

es la forma mas facil que se me ocurre

Private Sub Command1_Click()
 If Text1.Text = "viruckingx" Then
    Form2.Show
 Else
   MsgBox "No dijiste la palabra mágica xD", vbCritical, "Ingreso"
      End If
 End Sub

claro el form2 seria el form principal y el 1 solo seria el mensaje

Bye

[Korpex]

Protegiendo un pelín la contraseña ... jejeje

Const claveencriptad a = "coc"       ' El resultado de la encriptacion de "ama"
Private Sub Form_Load()
    If dEncrypt(InputBox("Password de acceso")) = claveencriptad a Then
        MsgBox "Contraseña aceptada"
    Else
        MsgBox "comprate un mono"
    End If
End Sub

Function dEncrypt(datos As String)
    For x = 1 To Len(datos)
        encriptados = encriptados & Chr(Asc(Mid(datos, x, 1)) + 2)
    Next
    dEncrypt = encriptados
End Function


Esto es una idea... yo uso una encriptacion irreversible hecha por mí... esta es reversible.. es MUY sencilla como veis xD ni debería llamarse encriptacion jeje.
La idea es tener la contraseña encriptada en una constante.. y encriptando lo que te meta el usuario.. encriptarlo y comparar los resultados..


krpx.

[47]

yo tngo un mini proyecto, en el q el form de acceso t pide usuario y contraseña y lod datos se encriptan con el algoritmo MD5, opcion de modificar datos igual simple cualquier info me mandas un MP y te paso el link

saludos

=)

47

[700esoj]

Private Sub command1_click()
If len(triM(text1.text)) = 0 Then
text1.text.Set Focus

ElseIf Len(trim(text2.text)) = 0 Then
text2.text.Set Focus

ElseIf text2 = "AGPS" then

Unload Me

Else

MsgBox "The password is wrong/la clave esta incorrecta"
text2.text.Set Start = 0
Text2.text:SelLength = Len(trim(text2.text))
text2.text.Set Focus
end if
End sub

[xinlu]

Si eres un poco vago, solo tienes que añadir un form y en vez de coger el standard agregarle uno del tipo login, lo modificas a tu gusto y listo, aunque me gusta más la manera de Korpex...

PD: esto sólo aparece con Visual Basic 6.O

[Cheatmaster]

Bueno ami lo que me gustia es que en el mensaje de cuando da error salga un icono ( x ) en la barra como lo llamo al icono para q salga ?
es decir quedaria:
______________ ________
l[ICONO] Error                [ x]l
lcontraseña incorrecta         l
l              aceptar                 l
------------------------------------

[xinlu]

Dejó un post ranefi en otro foro:


Para ver este enlace Registrate o Inicia Sesion

http://foro.hackerselite.net/index.php?topic=1027.0

Aunque la idea ke dio es como crear una dll, te puede servir.