Criptografia de senha em tabela paradox

Question

Boa tarde a todos.Estou desenvolvendo uma aplica��o em paradox e estou com um problema. Tenho o login do sistema onde o usu�rio entra com o seu nome de usu�rio em um edit e a senha em um maskedit. As ...

Rjun · Answer

D� uma pesquisada por CRIPTOGRAFIA com a ferramenta de pesquisa do Forum.Veja se esse [url=//forum.clubedelphi.net/viewtopic.php?t=78011&highlight=criptografia]t�pico[/url] ajuda....

Pro-luck · Answer

No Evento OnKeyPress do campo que dever� ser criptografado, utilizo o seguinte c�digo:

procedure TSenhaUsuario_.SenhaUsuarioKeyPress(Sender: TObject;
var Key: Char);
Var K: Integer;
begin
K := Ord(Key);
K := K+3;
Key := Chr(K);
end;

Assim, por exemplo se vc digita como senha a palavra GATO, o sistema armazenar� a palavra JDWR. Ou seja, G+3= J / A+3=D / T+3=W e O+3=R.
N�o esque�a de ativar o KeyPreview do formul�rio.

Espero ter ajudado.

F�rum Criptografia de senha em tabela paradox #330251