Librerias de Sentinel para Harbour/xHarbour

[Antonio Linares]

Tiene alguien las librerías para usar Sentinel desde Harbour/xharbour ?

gracias!

[karinha]

Master, que hace Sentinel? Para que sirve? Gracias, saludos.

[pablovidal]

Espero que te sirva esto...

Code: Select all  Expand view

#define SP_UPDCMD_CHANGE_DEVICE_TIME       0x21

Function SNGetHora( hHeader, aData )
Return( SFNTGetDeviceInfo( hHeader, @aData ) == 0 )

Function SNGetString( )
Return Nil

//-------------------------------------------------------------------------------------------------------
#pragma BEGINDUMP
#include <hbapi.h>

#include "SentinelKeys.h"         /*  Header file for the Sentinel Keys client library  */
#include "SentinelKeysLicense.h"  /*  Header file for this License  */

//-------------------------------------------------------------
// Obtiene la licencia
//-------------------------------------------------------------
HB_FUNC( SFNTGETLICENSE )
{
  SP_HANDLE license ;
  hb_retnl( SFNTGetLicense( DEVELOPERID, SOFTWARE_KEY, LICENSEID, 32, &license ) ) ;
  hb_stornl( ( LONG ) license, 1 );
}


//-------------------------------------------------------------
// Lee un string desde  la llave
//-------------------------------------------------------------
HB_FUNC( SFNTREADSTRING )
{
   SP_BYTE value[ 256 ];
   SP_DWORD length = hb_parnl( 4 );

   hb_retnl( ( LONG ) SFNTReadString( ( SP_HANDLE ) hb_parnl( 1 ), ( SP_DWORD ) hb_parnl( 2 ), value, length ) );
   hb_storc( value, 3 );
   hb_xfree( value );
}

//-------------------------------------------------------------
// Lee un string desde  la llave
//-------------------------------------------------------------
HB_FUNC( GETDATETIME )
{

 SP_DEVICE_INFO deviceInfo;
 hb_retnl( SFNTGetDeviceInfo( ( SP_HANDLE ) hb_parnl( 1 ), &deviceInfo ) ) ;

 hb_stornl( ( LONG ) deviceInfo.timeValue.year      , 2, 1 );
 hb_stornl( ( LONG ) deviceInfo.timeValue.month     , 2, 2 );
 hb_stornl( ( LONG ) deviceInfo.timeValue.dayOfMonth, 2, 3 );
 hb_stornl( ( LONG ) deviceInfo.timeValue.hour      , 2, 4 );
 hb_stornl( ( LONG ) deviceInfo.timeValue.minute    , 2, 5 );
 hb_stornl( ( LONG ) deviceInfo.timeValue.second    , 2, 6 );
}

//-------------------------------------------------------------
// Lee un string desde  la llave
//-------------------------------------------------------------
HB_FUNC( SFNTGETDEVICEINFO )
{
   SPP_DEVICE_INFO deviceInfo;

   hb_retnl( SFNTGetDeviceInfo( ( SP_HANDLE ) hb_parnl( 1 ), deviceInfo ) ) ;

   hb_stornl( deviceInfo->timeValue.year      , 2, 1 );
   hb_stornl( deviceInfo->timeValue.month     , 2, 2 );
   hb_stornl( deviceInfo->timeValue.dayOfMonth, 2, 3 );
   hb_stornl( deviceInfo->timeValue.hour      , 2, 4 );
   hb_stornl( deviceInfo->timeValue.minute    , 2, 5 );
   hb_stornl( deviceInfo->timeValue.second    , 2, 6 );
}

#pragma ENDDUMP

 

[Antonio Linares]

Pablo,

Muchas gracias!

Es para Gustavo Moreno y para cualquier usuario al que le pueda servir

[ruben Dario]

Saludos.

Pregunta por Curiosidad, para que sirven estas librerias,

[Antonio Linares]

Por lo que tengo entendido es para protección anti copias de los EXEs.

[HunterEC]

Pablo:

¿ Me podrías contactar a través de mensaje de texto para envíarte mi dirección de correo electrónico y de esta manera hacerte unas preguntas de candados Sentinel ? Gracias !

[pablovidal]

Enviame un correo pabloalbertovidal arroba gmail punto com

[HunterEC]

Pablo:

Te envié correo. Gracias.