topic-35124

Board index FiveWin para Harbour/xHarbour Encriptar campo numérico; Cómo?

FiveWiDi

Posts: 1445

Joined: Mon Oct 10, 2005 02:38 PM

Encriptar campo numérico; Cómo?
Posted: Wed Jan 10, 2018 01: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 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

karinha

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Encriptar campo numérico; Cómo?
Posted: Wed Jan 10, 2018 02:09 PM

Talvéz:

Code (fw): Select all Collapse

   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

FiveWiDi

Posts: 1445

Joined: Mon Oct 10, 2005 02:38 PM

Re: Encriptar campo numérico; Cómo?
Posted: Wed Jan 10, 2018 04:54 PM

karinha wrote:Talvéz:

Code (fw): Select all Collapse

   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 25.12 + Harbour 3.2.0dev (r2502110321), BCC 7.7 Windows 11 Home

FiveTech Support Forums

Continue the discussion