Criptografia no Delphi.

Question

A pergunta �: Como guardar informa��es criptografadas no banco? Uso Ib6. Ou seja, eu criei, com ajuda de um livro, uma forma de criptografar textos de um memo, edit e etc... S� q, quando eu posto no b...

Daaneto · Answer

Algo que � interessante de se pensar � que se voc� tiver uma fun��o que gere uma senha �nica para um valor dado, voc� poderia armazenar esta senha normalmente no banco de dados, qualquer que seja ele.

Para saber se o usu�rio digitou a senha correta, seria aplicado o algoritmo que gera a senha � string fornecida e comparado o resultado com a senha armazenada no banco.

Se forem iguais, estar� correta a senha, sen�o....

Espero n�o ter complicado demais.

Werlon Goulart · Answer

Ai vai uma rotina pra criptografar usando XOR.

Um Abra�o
Werlon Goulart

//Criptografa e Descriptografa Textos (Senhas).

function Encrypt( Senha:String ): String;
Const
Chave : String = �Jesus�;
Var
x,y : Integer;
NovaSenha : String;
begin
for x := 1 to Length( Chave ) do begin
NovaSenha := ��;
for y := 1 to Length( Senha ) do
NovaSenha := NovaSenha + chr( (Ord(Chave[x]) xor Ord(Senha[y])));
Senha := NovaSenha;
end;
result := Senha;
end;

Cebikyn · Answer

S� um detalhe:Criptografia usando XOR � uma das mais f�ceis de serem quebradas......

Werlon Goulart · Answer

� verdade, concordo com vc, pois o metodo � conhecido de todos...

Mas o quanto a criptografia do seu sistema � importante ??? Se vc esta ocultando dados super secretos use criptografia de 1024 bits, se esta apenas tentando dificultar (NENHUM metodo � 100� seguro...) a entrada no seu sistema pode usar o XOR que � facil de implementar e manter.

No mais se seus dados forem t�o importantes e secretos assim pense em adotar rotinas bem mais poderosas q uma simples criptografacao de senhas de acesso dos usuarios do banco (Firewall e tudo mais.)

Um abra�o
Werlon Goulart

Imstaff · Answer

A solu��o fazer o oposto que voc� est� fazendo, ou seja, postar os dados criptografados. Para recuperar voc� usa o algor�timo �invertido� para descriptografar os dados que voc� quiser.

Paulo · Answer

A quest�o n�o � uma criptografia muito complexa, mas sim se o usu�rio abrir o banco pelo IBConsole, e ler as tabelas, ele n�o possa entender nada, pois os dados devem estar criptografados dentro das tabelas, ele s� ser� poss�vel ler atrav�s da aplica��o, � isso o q eu quero. Vou tentar usar pelo m�todo XOR, para ver se � isto o q eu quero, mesmo assim agrade�o a todas. Eu vi isso numa tabela em paradox, pois qdo eu abri o DataBase Desktop, estava assim as tabelas:
$@3�;*&�?&:3&6 e etc.. e � isso q eu quero.

Werlon Goulart · Answer

Esta rotina funciona indo e vindo... quer dizer serve pra criptografar e Descriptografar... Tudo numa mesma rotina...

Altere a chave �Jesus� pra uma de seu gosto.... Mas teste antes de usar a chave nova definitivamente.... Algumas com numeros e caracteres especiais podem apresentar problemas.

Um Abra�o
Werlon Goulart

//Criptografa e Descriptografa Textos (Senhas).

function Encrypt( Senha:String ): String;
Const
Chave : String = �Jesus�;
Var
x,y : Integer;
NovaSenha : String;
begin
for x := 1 to Length( Chave ) do begin
NovaSenha := ��;
for y := 1 to Length( Senha ) do
NovaSenha := NovaSenha + chr( (Ord(Chave[x]) xor Ord(Senha[y])));
Senha := NovaSenha;
end;
result := Senha;
end;

Lipsil · Answer

Oi!como que seria feito para dar um showmessage no formcreate mostrando como ficaria esta senha?Valew...

Rodolpho123 · Answer

Bem, lendo algumas mensagens acima, vi uma parte que �nenhum m�todo � eficaz na criptografia�. Bem, pelo menos eu entendi assim, mas existe um m�todo que, teoricamente � IMPOSS�VEL de ser descoberta, a cripitografia de Vernan, que utiliza uma chave e um operador OR, que, em outras palavras, � REALMENTE IMPOSS�VEL DE SER DESCOBERTA. No momento, sn�o sei tudo sobre esta t�cnica, mas vou estudar mais e repassar para os amigos do f�rum....
Valeu!!!

F�rum Criptografia no Delphi. #172762