[firebase-br] Manutenção de senhas pelo próprio usuário
Marcilio Soares
marciliosoares em yahoo.com.br
Seg Out 17 23:18:56 -03 2005
Vai na plalheta delphi e procura no Interbase Admin o componente
IBSecurity.
O resto e problema do componente.
Lembre-se se o cara logou entao pode trocar a senha dele. Caso contrario vc
deixa isso a criterio de um usario a sua escolha(sugestao... ok ?)
Espero que ajude !
No meu exemplo o IBSecurity se chama ibadmin
Faz como ta no exemplo abaixo...
msg.Visible:=true;msg.Caption:='Trocando senha...';
dm.ibadmin.ServerName :=dm.ipservidor;
dm.ibadmin.Params.Clear;
dm.ibadmin.LoginPrompt := False;
dm.ibadmin.Params.Add('user_name=sysdba');
dm.ibadmin.Params.Add('password=masterkey');
dm.ibadmin.SecurityAction:=ActionModifyUser;
dm.ibadmin.Active:=true;
dm.ibadmin.UserID :=0;
dm.ibadmin.GroupID :=0;
dm.ibadmin.firstName:=trim(novousuario.Text);
dm.ibadmin.UserName:=trim(novousuario.Text);
dm.ibadmin.Password:=senha.text;
try
dm.ibadmin.ModifyUser;dm.ibadmin.Active:=false;
application.ProcessMessages;
carregausuarios;
msg.Visible:=true;msg.Caption:='Senha troca com sucesso!';
except on e:exception do
begin
dm.ibadmin.DeleteUser;dm.ibadmin.Active:=false;
msg.Visible:=false;
showmessage('Erro ao criar usuário.'+#13 + e.Message);
end
end;
"Anticlei Scheid" <cleischeid em yahoo.com.br> wrote
in message news:001601c5d36f$e43d4b60$d275fea9 em athlon...
Boa noite pessoal!
Preciso implementar manutenção de senhas do banco pelo próprio usuário,
mas como não sou capaz de decriptografar a senha que está gravada no
security.fdb não vejo como poder fazer isso.
Alguém tem alguma idéia?
Uso Delphi 6 + dbExpress.
Obrigado
______________________________________________
FireBase-BR (www.firebase.com.br) - Hospedado em www.bavs.com.br
Para editar sua configuração na lista, use o endereço
http://mail.firebase.com.br/mailman/listinfo/lista_firebase.com.br
Para consultar mensagens antigas: http://firebase.com.br/pesquisa
Mais detalhes sobre a lista de discussão lista