Página 1 de 1
função cripto em xharbour
Enviado: 28 Dez 2009 11:58
por lapinhazzz
Bom Dia a Todos.
Alguém conhece algum comando ou função no xharbrou que faça criptrografar um dbf ou seja o campo password com 16 de tamanho.
E depois a função ou o comando para descriptrografar..
Cumprimentos a Todos e Boas Festas e Feliz Ano Novo
Lapinhazzz
Re: função cripto em xharbour
Enviado: 28 Dez 2009 18:43
por Itamar M. Lins Jr.
...que faça criptrografar um dbf...
Olha, isso não é aconselhavel porque vai ter que descriptografar todo o DBF quando for trabalhar com ele.
...seja o campo password com 16 de tamanho.
Pode usar esse recurso.
Código: Selecionar todos
PROCEDURE Main
LOCAL cText := "Hello world"
LOCAL cKey := "xHarbour"
LOCAL cCipher
cCipher := HB_Crypt( cText, cKey )
? cCipher
? HB_Decrypt( cCipher, cKey )
RETURN
Saudações,
Itamar M. Lins Jr.
Ps: tem também as funções do RDD da SIX.
Re: função cripto em xharbour
Enviado: 29 Dez 2009 09:02
por lapinhazzz
Bom Dia
Obrigado Itamar, Valeu
Lapinhazzz
Re: função cripto em xharbour
Enviado: 09 Jan 2010 16:52
por lapinhazzz
Amigo do forum tenho um problema
o codigo que voce me deu com uma pequena alteração nao funciona
Código: Selecionar todos
PROCEDURE Main
LOCAL cText := "Hello world"
LOCAL cKey := "xHarbour"
LOCAL cCipher
use xxxx
cCipher := HB_Crypt( cText, cKey )
replace secre with cCipher
? cCipher
? HB_Decrypt( secre, cKey )
RETURN
Mas não funciona
Me post aqui hei-de fazer com o campo secre do ficheiro xxxx.
obrigado
lapinhazzz
Re: função cripto em xharbour
Enviado: 09 Jan 2010 19:46
por alaminojunior
O que o colega poderia fazer e aliás é o mais aconselhável, é não guardar o password mesmo criptografado no campo, e sim o seu hash.
No meu caso, eu pego a senha digitada que é uma string com 6 posições e gero o seu md5. Note que a senha continua sendo 6 posições, porém o campo no dbf possui as 32 posições do hash md5.
E não precisa ficar criptografando ou descriptografando, apenas submeta o que foi digitado à função e depois compare.
Existem outros como crc32 e etc...
Re: função cripto em xharbour
Enviado: 26 Jan 2010 09:37
por lapinhazzz
Para descompilar com a função que me deram aqui vai a dica para decryptar.
Para criptar é fazer o inverso
Código: Selecionar todos
LOCAL cKey := "lapinha26889"
LOCAL acesso
LOCAL acessokey
set cursor off
USE XXXX
TENT:=1
COLUNA:=32
INTRO:=0
codi:=""
digi:=0
FLAG:=1
acessokey=rtrim(secre)
acesso=HB_Decrypt( acessokey, ckey )
ACESSO:=RTRIM(ACESSO)
Reparem que o rtrim remove os brancos da direita senão não funciona
Obrigado a todos
Espero que esta dica sirva.
Lapinhzzz