Sistema de recuperacion de cuenta

Estado
Cerrado para nuevas respuestas.

Sentey

Newbie Lvl 3
hola, hice un TH antes pero me equivoque, ya que mi ao tiene sistema de cuentas con pregunta y respuesta secreta, asique si me pueden decir un sistema de recu de cuenta que funcione con pregunta y respuesta secreta estaria de 10 ;D! gracias
 

-GanjaH^

Semper Widia Staff
Es fácil :p, hace un boton en el conectar de recu password del account, y le pones de código algo así:

Código:
dim Account        as string
dim Question       as string
dim VerAccount   as string
dim VerQuestion  as string
 
Account  = inputbox("Ingrese la cuenta","RecuPwd")
VerAccount=getvar(app.path & "\Cuentas\" & Account & ".cuenta", "INIT", "Name")
DarPwd=getvar(app.path & "\Cuentas\" & Account & ".cuenta", "INIT", "Password")
 
if Account  <> VerAccount then
msgbox "Cuenta inexistente",vbcritical
exit sub
end if
 
Question = InputBox("Pregunta: " & varPreguntaIndex & "  ", " RecuPwd")
VerQuestion  =getvar(app.path & "\Cuentas\" & Account & ".cuenta", "INIT", "Respuesta_Secreta")
 
if Question <> VerQuestion then
msgbox "Respuesta incorrecta.",vbcritical
exit sub
 
else
 
msgbox DarPwd
 
end if
Ahí lo tenes maso menos xD, adaptalo a tu código, y si lo queres mas lindo ponelo en form :p
 

Sentey

Newbie Lvl 3
-GanjaH^ dijo:
Es fácil :p, hace un boton en el conectar de recu password del account, y le pones de código algo así:

Código:
 
dim Account        as string
dim Question       as string
dim VerAccount   as string
dim VerQuestion  as string
 
Account  = inputbox("Ingrese la cuenta","RecuPwd")
VerAccount=getvar(app.path & "\Cuentas\" & Account & ".cuenta", "INIT", "Name")
DarPwd=getvar(app.path & "\Cuentas\" & Account & ".cuenta", "INIT", "Password")
 
if Account  <> VerAccount then
msgbox "Cuenta inexistente",vbcritical
exit sub
end if
 
Question = InputBox("Pregunta: " & varPreguntaIndex & "  ", " RecuPwd")
VerQuestion  =getvar(app.path & "\Cuentas\" & Account & ".cuenta", "INIT", "Respuesta_Secreta")
 
if Question <> VerQuestion then
msgbox "Respuesta incorrecta.",vbcritical
exit sub
 
else
 
msgbox DarPwd
 
end if
Ahí lo tenes maso menos xD, adaptalo a tu código, y si lo queres mas lindo ponelo en form :p
Cuando compilo el ao me tira variable no definida y me marca esto
Código:
DarPwd =
 

-GanjaH^

Semper Widia Staff
Sentey dijo:
-GanjaH^ dijo:
Es fácil :p, hace un boton en el conectar de recu password del account, y le pones de código algo así:

Código:
 
dim Account        as string
dim Question       as string
dim VerAccount   as string
dim VerQuestion  as string
dim DarPwd        as string
Account  = inputbox("Ingrese la cuenta","RecuPwd")
VerAccount=getvar(app.path & "\Cuentas\" & Account & ".cuenta", "INIT", "Name")
DarPwd=getvar(app.path & "\Cuentas\" & Account & ".cuenta", "INIT", "Password")
 
if Account  <> VerAccount then
msgbox "Cuenta inexistente",vbcritical
exit sub
end if
 
Question = InputBox("Pregunta: " & varPreguntaIndex & "  ", " RecuPwd")
VerQuestion  =getvar(app.path & "\Cuentas\" & Account & ".cuenta", "INIT", "Respuesta_Secreta")
 
if Question <> VerQuestion then
msgbox "Respuesta incorrecta.",vbcritical
exit sub
 
else
 
msgbox DarPwd
 
end if
Ahí lo tenes maso menos xD, adaptalo a tu código, y si lo queres mas lindo ponelo en form :p
Cuando compilo el ao me tira variable no definida y me marca esto
Código:
DarPwd =
sería así...

Código:
dim Account        as string
dim Question       as string
dim VerAccount   as string
dim VerQuestion  as string
dim DarPwd        as string
Account  = inputbox("Ingrese la cuenta","RecuPwd")
VerAccount=getvar(app.path & "\Cuentas\" & Account & ".cuenta", "INIT", "Name")
DarPwd=getvar(app.path & "\Cuentas\" & Account & ".cuenta", "INIT", "Password")
 
if Account  <> VerAccount then
msgbox "Cuenta inexistente",vbcritical
exit sub
end if
 
Question = InputBox("Pregunta: " & varPreguntaIndex & "  ", " RecuPwd")
VerQuestion  =getvar(app.path & "\Cuentas\" & Account & ".cuenta", "INIT", "Respuesta_Secreta")
 
if Question <> VerQuestion then
msgbox "Respuesta incorrecta.",vbcritical
exit sub
 
else
 
msgbox DarPwd
 
end if
Igualmente, si no lo adaptas a tu código, no te va a andar ..
 

Sentey

Newbie Lvl 3
Sentey dijo:
-GanjaH^ dijo:
Es fácil :p, hace un boton en el conectar de recu password del account, y le pones de código algo así:

Código:
 
dim Account        as string
dim Question       as string
dim VerAccount   as string
dim VerQuestion  as string
 
Account  = inputbox("Ingrese la cuenta","RecuPwd")
VerAccount=getvar(app.path & "\Cuentas\" & Account & ".cuenta", "INIT", "Name")
DarPwd=getvar(app.path & "\Cuentas\" & Account & ".cuenta", "INIT", "Password")
 
if Account  <> VerAccount then
msgbox "Cuenta inexistente",vbcritical
exit sub
end if
 
Question = InputBox("Pregunta: " & varPreguntaIndex & "  ", " RecuPwd")
VerQuestion  =getvar(app.path & "\Cuentas\" & Account & ".cuenta", "INIT", "Respuesta_Secreta")
 
if Question <> VerQuestion then
msgbox "Respuesta incorrecta.",vbcritical
exit sub
 
else
 
msgbox DarPwd
 
end if
Ahí lo tenes maso menos xD, adaptalo a tu código, y si lo queres mas lindo ponelo en form :p
me dice cuenta inexistente :S
 

Midraks

Creador de AOWeb
Ex-Staff
Sentey dijo:
Sentey dijo:
-GanjaH^ dijo:
Es fácil :p, hace un boton en el conectar de recu password del account, y le pones de código algo así:

Código:
 
dim Account        as string
dim Question       as string
dim VerAccount   as string
dim VerQuestion  as string
 
Account  = inputbox("Ingrese la cuenta","RecuPwd")
VerAccount=getvar(app.path & "\Cuentas\" & Account & ".cuenta", "INIT", "Name")
DarPwd=getvar(app.path & "\Cuentas\" & Account & ".cuenta", "INIT", "Password")
 
if Account  <> VerAccount then
msgbox "Cuenta inexistente",vbcritical
exit sub
end if
 
Question = InputBox("Pregunta: " & varPreguntaIndex & "  ", " RecuPwd")
VerQuestion  =getvar(app.path & "\Cuentas\" & Account & ".cuenta", "INIT", "Respuesta_Secreta")
 
if Question <> VerQuestion then
msgbox "Respuesta incorrecta.",vbcritical
exit sub
 
else
 
msgbox DarPwd
 
end if
Ahí lo tenes maso menos xD, adaptalo a tu código, y si lo queres mas lindo ponelo en form :p
me dice cuenta inexistente :S
Por que el código no es así..., el te dio un ejemplo de como lo podes hacer. Te tiro un ejemplo de como es:

Vos tenes que mandar un paquete desde el cliente hacia el servidor poniendo tu pregunta y respuesta y el servidor se fija si son correctas te manda la pass de lo contrario dice que está mal.
 

-GanjaH^

Semper Widia Staff
Claro lée lo que te dije Midraks.. las variables para corroborar las declaras como publicas en el módulo de declaraciones, y ahí mandas el paquete al servidor, y cuando toman valor, se fija si es correcto o no ..
 
Estado
Cerrado para nuevas respuestas.
Arriba