Page 1 of 1

Encriptar campo numérico; Cómo?

PostPosted: Wed Jan 10, 2018 1:11 pm
by FiveWiDi
Hola todos,

Tengo unas DBF que tienen algunos campos numéricos (normalmente sin decimales).

¿Cómo los encriptarían ustedes?

Muchas gracias,

Re: Encriptar campo numérico; Cómo?

PostPosted: Wed Jan 10, 2018 2:09 pm
by karinha
Talvéz:

Code: Select all  Expand view

   nRetCLAVE := ( DbEmpresa:cAlias )->NCGCCLAVE  // numerico

   nSequencial := ( nRetCLAVE ) * 3 + 87654321

   cCLAVE := STR( nSequencial )

   cCampoClave := ENCRYPT( ALLTRIM( cCLAVE ), "*+-." )


   ? cCampoClave

   TRABAREG(0)
   REPLACE SEQUENCIA WITH cCampoClave
   DESTRABA(0)
 


Saludos.

Re: Encriptar campo numérico; Cómo?

PostPosted: Wed Jan 10, 2018 4:54 pm
by FiveWiDi
karinha wrote:Talvéz:

Code: Select all  Expand view

   nRetCLAVE := ( DbEmpresa:cAlias )->NCGCCLAVE  // numerico

   nSequencial := ( nRetCLAVE ) * 3 + 87654321

   cCLAVE := STR( nSequencial )

   cCampoClave := ENCRYPT( ALLTRIM( cCLAVE ), "*+-." )


   ? cCampoClave

   TRABAREG(0)
   REPLACE SEQUENCIA WITH cCampoClave
   DESTRABA(0)
 


Saludos.


Muchas gracias Karinha,

Es simple, pero no se me había ocurrido, me servirá; haré algo parecido.
Gracias de nuevo.