Jorge,
Se nao me engano nao tem como desencriptar.
O codigo usado eh o MD5. Nao ha como reverter.
O que pode ser feito eh atribuir um usuario e senha ja conhecidos e
exibi-los para o usuario.
Ou seja, cancelar o registro e inserir um outro (bem conhecido) feito
pelo sistema.
Obrigado
MuriloCunha
On 16/08/2010 15:49, Jorge Ericsson wrote:
> Olá pessoal,
>
> Alguém pode me ajudar com o problema de como decriptar a senha do usuário
> usando o compoente UserControl ?
>
> Preciso criar uma rotina onde ao excluir um registro do cadastro de membros
> ele teste a senha do usuário e caso não seja o ADMINISTRADOR não poderá
> excluir.
>
> Tentei o procedimento abaixo, mas não deu certo, alguém pode me ajudar.
>
> procedure TfrmMembros.btnExcluirClick(Sender: TObject);
> *var vPermissaoSenha: string;
> begin
> if SolicitarPermissao('Solicitar Permissão', 'Informe a senha do
> Administrador:', vPermissaoSenha) = True then
> begin
> frmPrincipal.vSenha := Decrypt(frmPrincipal.vSenha,
> frmPrincipal.UCPrincipal.EncryptKey);
> if (UpperCase(vPermissaoSenha) = frmPrincipal.vSenha) and
> (frmPrincipal.vUsuario = 'ADMIN') then
> begin
> activecontrol := nil;
> dm.membros.Delete;
> end;
> end;
> end;*
>
> Att,
>
> Jorge Ericsson S. Pinheiro
> Ericsson Sistemas e Soluções
> (61) 3244-4748 / 8592-9960 / 9227-4785
> http://www.jericsson.com.br
> jericsson...@gmail.com
> jericsson...@jericsson.com.br
> skype:jericsson
> Brasília - DF
>
>
> [As partes desta mensagem que não continham texto foram removidas]
>
>
>
> ------------------------------------
>
