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 15.07 + Harbour 3.2, BCC 7 Windows 7
FiveWiDi
 
Posts: 860
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
karinha
 
Posts: 3629
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 15.07 + Harbour 3.2, BCC 7 Windows 7
FiveWiDi
 
Posts: 860
Joined: Mon Oct 10, 2005 2:38 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 6 guests