Encriptar campo numérico; Cómo?

Encriptar campo numérico; Cómo?

Postby FiveWiDi » Wed Jan 10, 2018 1:11 pm

Hola todos,

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

¿Cómo los encriptarían ustedes?

Muchas gracias,
Un Saludo
Carlos G.

FiveWin 24.02 + Harbour 3.2.0dev (r2403071241), BCC 7.7 Windows 10
FiveWiDi
 
Posts: 1048
Joined: Mon Oct 10, 2005 2:38 pm

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

Postby karinha » Wed Jan 10, 2018 2:09 pm

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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7154
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

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

Postby FiveWiDi » Wed Jan 10, 2018 4:54 pm

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.
Un Saludo
Carlos G.

FiveWin 24.02 + Harbour 3.2.0dev (r2403071241), BCC 7.7 Windows 10
FiveWiDi
 
Posts: 1048
Joined: Mon Oct 10, 2005 2:38 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 13 guests