Cripitografia

[Rodrigo Miss 1]

Ola galera, fiz uma funcao pra incriptografar o nome dos usuarios e senha....ate ai td bm ele salva os dodos incriptados na tabela e no hora de logar eu faço a desincriptacao normal;;.;o problema eh qdo vo exibir o nome do usuario numa db grid.... ele ta apracendo incriptado;;;como eu faço pra desincriptar os registros pra mostrar desincriptado na grid??????

[marcio.theis 3]

Cria um campo Calculada, no OnCalcField faz a descriptografação das informações... e apresenta este novo campo...

[Rodrigo Miss 1]

Putz... agora o bixo pego kra...kra... teria como você me da maiores detalhes sobre issu... ainda so leigo msm nessa parte,,, hehehdesde ja brigado kra

[Ivolnei 0]

Qual banco você está usando?

[Rodrigo Miss 1]

To usando o Access com conexao ADO

[Rodrigo Miss 1]

Up! rs!

[marcio.theis 3]

UP pq ?

[Rodrigo Miss 1]

é q ainda naum consegui resolver o problema kra....naum consegui entender mto bm ...

[marcio.theis 3]

Mas faz o esquema de criar um campo calculado e fazer a descriptografia no OnCalcField... Neste post -> http://forum.imasters.com.br/index.php?s=&...st&p=661903 fala como criar o campo calculado...

[Rodrigo Miss 1]

Ola! Bom Dia Marcio !

 

Fiz da forma q você flw... soh q a funcao q eu uso pra cryptografar gera caracteres como por ex: "^ - # %"

 

e no caso qdo vo fazer uma consulta SQL usando a instrucao LIKE ele naum pesquisa corretamente...

 

 

 

procedure TfrmUsuarios.txtPesquisaOnChange(Sender: TObject);varConsulta: string;beginConsulta:= Decrypta(txtConsulta.Text);qryUsuarios.Close;qryUsuarios.SQL.Clear;qryUsuarios.SQL.Add('Select * from USUARIOS WHERE NOME LIKE '%'' + Consulta + '%''');qryUsuarios.Open;end;

[marcio.theis 3]

Acho q o seu primeiro sinal de % esta no lugar errado, tenta assim para ver se muda alguma coisa:

 

procedure TfrmUsuarios.txtPesquisaOnChange(Sender: TObject);varConsulta: string;beginConsulta:= Decrypta(txtConsulta.Text);qryUsuarios.Close;qryUsuarios.SQL.Clear;qryUsuarios.SQL.Add('Select * from USUARIOS WHERE NOME LIKE ''%' + Consulta + '%''');qryUsuarios.Open;end;

[Rodrigo Miss 1]

Opah kra,,,, hehe,, akilo ali foi um erro meu de digitacao... mais eu fiz assim:

 

qryUsuarios.SQL.Add('Select * from USUARIOS WHERE NOME LIKE ''%' + Consulta + '%''');

 

o interessante eh o seguinte eu vi no banco cadastrei um usuario como "TESTE"

a Cryptografia dessa palavra naum envolve nenhum caracter como ^$#% por ex....

 

nesse caso ele consulta corretamente....

 

axo q o problema ta como os caracteres especiais...

 

teria alguma ideia??

[marcio.theis 3]

Bom... um tanto complicado apontar onde pode estar o problema, mas tente rodar passo-a-passo ou dar um ShowMessage na variavel Consulta e compare se o valor é idêntico ao cadastrado no BD, e tb não pode ser problema do tipo de o usuário ter sido cadastrado com caixa alta e você estar permitindo consultar em caixa baixa ? Faz um teste com estas situações...

[Rodrigo Miss 1]

Ok! vou verificar e t digo no q deu...

 

Mais enquanto issu me tira mais uma duvida faz o favor kra....

 

qdo eu mando a seguinte instrucao:

 

qry.SQL.Add('Select * from TESTE WHERE NOME = ' + '''' + Consulta + '''');

 

pq a variavel Consulta esta entre '''' ,,, naum bastaria informar :

 

qry.SQL.Add('Select * from TESTE WHERE NOME = ' + ' + Consulta + ');

 

Com apenas uma aspa simples ja q a instrucao SQL pede uma aspa simples ou dupla no caso de uma string??

[marcio.theis 3]

No caso se estiver usando Parameters você poderá fazer algo do tipo, só que irá mudar um pouco, mas passando o SQL diretamente vai precisar ser assim mesmo, pois o seu comando SQL precisa de aspas, e para passar a string para dentro da qry tb consome aspas, por isto que precisa passar todas estas aspas...

[Rodrigo Miss 1]

Veja Marcio:

 

dei um ShowMessage na variavel Consulta q fiko: "EXSE^PX"													   Decryptado:  RODRIGO

qdo eu procuro por "RODR" ele axa certinho

agora qdo eu digito "RODRI" ele ja c borra td... justamente no I q eh igual a ^...

 

teria mais alguma sugestao?

[marcio.theis 3]

Pode realmente ser alguma coisa nesta sua função de criptografia, pois utilizo da mesma forma que você, criptografo o valor, guardo no BD e depois para consultar, primeiro ele faz a criptografação e consulta... Faz um teste removendo o like e usando o = na instrução SQL, para ver se ele encontra...

[Rodrigo Miss 1]

Sim kra... eu ja fiz essa usando = no lugar de like e deu certinho????so q precisava q fosse usando like!Teria alguma modo seu de cryptografia q desse pra mim usar,,, mudando umas coisas????