Criptografia

Delphi

09/11/2003

Caros Colegas;

Vi uma tabela de um programa , que não tem código fonte , mas que o programa foi feito em delphi, e tem um cadastro de senhas , os usuários que cadastram uma senha, blz , é inserido na tabela , só que se eu abrir a tabela de senhas pelo Database Desktop ou SQLExplor , os registros cadastrados no campo Senha estão com caracteres malucos ! Ou seja, os dados contidos no Campo Senha da tabela de Senhas foram criptografados assim que inseridos na tabela . Como fasso para fazer isto?


Agradeceria muito ....

Obrigado


Tiagojmilam

Tiagojmilam

Curtidas 0

Respostas

Edilcimar

Edilcimar

09/11/2003

existem diversas maneiras uma delas é somar a cada caracter um valor para criptografar, ou somar um valor mais a posição do caracter na palavra ou utilizando um XOR com uma palavra padrão


GOSTEI 0
Tiagojmilam

Tiagojmilam

09/11/2003

Alguém poderia detalhar mais , pois sou iniciante em delphi !!!


GOSTEI 0
Edilcimar

Edilcimar

09/11/2003

maneira fácil
temp := ´´;
novasenha := ´´;
senha := ´senha´;
for i = 1 to lenght(senha) do
begin
temp := chr(ord(senha[I] + 1 + I);
novasenha := novasenha + temp;
end


GOSTEI 0
Tiagojmilam

Tiagojmilam

09/11/2003

Você poderia me mandar um exemplo de como criptografar todos os campos Senha da minha tabela de senhas ?



Obrigado ..... :wink:


GOSTEI 0
Cirilo

Cirilo

09/11/2003

veja um componente para criptografia

www.veloso.kit.net/pacotecjv.html


GOSTEI 0
POSTAR