Troca de senha

Delphi

01/06/2003

Fiz um pequeno programa que para rodar
solicita inicialmente uma senha pre determinada,
e tudo está funcionando muito bem. Agora gostaria
de incluir uma rotina, para que o usuário troque
esta senha por uma de sua escolha. Como devo fazer?
A rotina que usei para a senha inicial é a seguinte:

procedure Tsenha.okClick(Sender: TObject);
begin
if password.text=´0123´
then
begin
senha.hide;
Form1.show;
end
else
messagebox(0,´A senha foi digitada errada.´,nil,32);
end;

Agradeço antecipadamente qualquer ajuda,
ACarlos


Acst

Acst

Curtidas 0

Respostas

4_olho

4_olho

01/06/2003

Para permitir a troca de senha, é necessário que esta esteja EXTERNA à sua aplicação - lembre-se que a aplicação é compilada - isto significa que deve ser guardada em um arquivo que você cria, um arquivo INI ou em uma chave no Registry do Windows.

Talvez um modo simples de resolver seja escolher dentre um número finito de senhas prédeterminadas, armazenadas em uma matriz, mas isso só resolve para um único usuário e na prática não é muito válido pois a ´lista´ de senhas ficam mais expostas, a menos que estejam criptografadas.


GOSTEI 0
Henry

Henry

01/06/2003

Brother, crie uma tabela de senhas e usuarios, e ativa ela dentro do sistema, qualquer coisa me da um toque no ICQ 221075981, blz?


GOSTEI 0
Marcio.theis

Marcio.theis

01/06/2003

para ser possível isso, vc pode criar um tblususario com login, senha e nome de usuário e colocar ela dentro de sua aplicação para poder ser trocada a senha a qualquer momento, para ativá-la ela no início do sistema é um pouco mais complicado, se tiver interresse me mande um mail que terei prazer em te ajudar.


GOSTEI 0
POSTAR