senhas

10/05/2003

1

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.


Responder

Posts

10/05/2003

Cruz

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;



Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira