Page 1 of 1
Existe alguna funcion para encriptar campos numericos
Posted: Tue Sep 19, 2006 2:16 pm
by Databaselab2002
Estimados Colegas
Alguien tiene alguna funcion para encriptar campos numericos
desde ya muchisimas gracias
Fabian
Databaselab2002@yahoo.com.ar
Posted: Tue Sep 19, 2006 3:58 pm
by R.F.
Solo con el ADS Servidor Local (o Remoto) y solo opera a 32 bits
Posted: Wed Sep 20, 2006 6:43 pm
by 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
Posted: Wed Sep 20, 2006 9:16 pm
by 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).