Sobre Criptografia...

Question

Pessoal estou com uma d�vida tenho um campo criptografado numa tabela e uso DbEdit... na hora de setar o valor n�o sei que evento ou usar, ou seja o usu�rio ir� entrar no DBEdit com a senha normal e depois irei criptograf�-la no banco... seria o before post?

Massuda · Answer

Eu acho que poderia ser nos eventos OnGetText e OnSetText do TField associado ao campo; no OnGetText voc� descriptografa enquanto no OnSetText voc� criptografa a senha....

Bruno Belchior · Answer

[quote:b11f8712b6=�Massuda�]Eu acho que poderia ser nos eventos OnGetText e OnSetText do TField associado ao campo; no OnGetText voc� descriptografa enquanto no OnSetText voc� criptografa a senha.[/quote:b11f8712b6]Sim no OnGetText a senha � descriptografada mas no OnSetText o [b:b11f8712b6]Text[/b:b11f8712b6] � uma constante......

Massuda · Answer

[quote:52b023095c=�brunovicenteb�]....mas no OnSetText o [b:52b023095c]Text[/b:52b023095c] � uma constante...[/quote:52b023095c]Isso � verdade, mas n�o importa. O que voc� deve fazer � criptografar a string em Text e armazenar o resultado no campo da tabela. Algo assim:[code:1:52b023095c]procedure TSeuFormSenhaSetText.(Sender: TField; const Text: String);begin  Sender.Value := FuncaoSecretaDeCriptografia(Text);end;[/code:1:52b023095c]Text � constante porque � o valor que voc� deve processar. Note que Text ser� armazenado no campo pela VCL apenas se n�o existir um tratador para o evento OnSetText (experimente fazer um tratador de evento OnSetText que n�o faz nada... nada ser� armazenado na tabela)....

Bruno Belchior · Answer

Massuda, consegui resolver meu problema utilizando toda a regra de neg�cios na classe em vez dos eventos do DataSet... Mas entendi sua coloca��o quando disse que Text � o valor a ser processado... obrigado...

F�rum Sobre Criptografia... #281468