senhas

Question

meus projetos est�o com um grave problema, se alguem consegue abrir o meu banco de dados n�o tem nenhuma dificuldade de ver as senhas la existente.

gostaria de codificar senhas antes de enviar para o bancos de dados.

Cruz · Answer

Use a fun��o abaixo... A chamada � a mesma tanto para criptografar quanto para decriptografar, basta usar a mesma chave.

Ex.: EncriptaDecripta(edit1.text,250)

function EncriptaDecripta(S : String; Chave: Word) : String;
var
   I: Integer;
   str : String;
begin
   str := ��;
   for I := 1 to Length(S) do
   str := str + char(Not(ord(Str[I])-Chave));
   Result := str;
end;