senhas

10/05/2003

2

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

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar