Existe alguna funcion para encriptar campos numericos

[Databaselab2002]

Estimados Colegas

Alguien tiene alguna funcion para encriptar campos numericos

desde ya muchisimas gracias
Fabian
Databaselab2002@yahoo.com.ar

[R.F.]

Solo con el ADS Servidor Local (o Remoto) y solo opera a 32 bits

[Willi Quintana]

A ver como va esto,,, (lo hacia años atras)
Function Num2ChrC(nValor)
local nEntero, nDecimal, cNumero, cNumCrpt

nEntero := INT(nValor)
nDecimal := FRAC(nValor)

cNumero := STRZERO(nEntero, 14) // quedaria +- asi 00000000034567
cNumero := cNumero + ALLTRIM(STR(nDecimal))

cNumCrpt := ENCRYPT(cNumero)

Return(cNumCrpt)

// la idea es que a la parte entera del numero, la coviertas en una cadena de longitud fija, en este caso 14 caracteres, concatenas la parte fraccionaria,,,
para desencriptar, algo asi:

Function ChrC2Num(cNumCrpt)
local cEntero, cDecimal, cNumero, nNumero

cNumero := DECRYPT(cNumCrpt)
cEntero := SUBSTR(cNumero,1,14)
cDecimal := SUBSTR(cNumero,15,5)
cNumero := cEntero + "." + cDecimal
nNumero := VAL(cNumero)
Return(nNumero)

// bueno, esto lo hice de volada,, asi que deben haber errores,,, pero la idea esta alli....

Salu2
Willi

[Antonio Linares]

Willi,

La idea sería hacer una función que a partir de un número proporcione otro número que es el resultado de encriptar el primero. Asi el resultado podría salvarse en la base de datos (como número).