Como Criptografar um registro numérico

Gilberto M Silva · Mensagem por **Gilberto M Silva** » 02 Set 2011 19:57

como criptografar um registro numerico em um DBF, por exemplo:
var1:=valor
get var1 pict "@e 9,999.99"
read
*criptografa var1
replace valor with (var1 criptografado)

Mensagem por **alxsts** » 02 Set 2011 20:16

Olá!

Creio que uma boa prática seria converter todos os campos para string antes de criptografar.

Gilberto M Silva · Mensagem por **Gilberto M Silva** » 02 Set 2011 20:48

Olha, tentei fazer isso mais não está gravando nada no registro, fica vazio, estou fazendo assim:
var1:= valor(nome do registro na tabela DBF)
get var1 pict "@r 9,999.99"
read
var2:= crypt(strzero(var1))
replace valor witn val(var2)

mais não grava nada, ja tentei gravar num campo string tambem não gravou

Mensagem por **alxsts** » 03 Set 2011 13:09

Olá Gilberto.

Os dados encriptados tem que estar gravados no DBF como string. Se você tentar transformar uma string que contenha caracteres através da função Val(), não vai retornar nada mesmo.

O teu programa terá que ter a inteligência de pegar um registro gravado no DBF, com os campos encriptados no formato string e saber decodificar cada um para o tipo de dados adequado.