PC Toledo

... copies
* _HMG_SYSDATA [ 377 ] -> _hmg_printer_collate
* _HMG_SYSDATA [ 378 ] -> _hmg_printer_preview
* _HMG_SYSDATA [ 379 ] -> _hmg_printer_timestamp
* _HMG_SYSDATA [ 380 ] -> _hmg_printer_PageCount
* _HMG_SYSDATA [ 381 ] -> Active Picture Alignment
* _HMG_SYSDATA [ 382 ] -> Grid Column ...

... demais pra verificar, ou bloqueia por conta disso.

No meu teste de EXE assinado, o teste de capicom diz que não está assinado caso não exista timestamp (pelo menos aqui na origem).
O timestamp só é feito se a assinatura puder ser validada.

Nenhum problema até agora, e usando certificado ...

... CAPICOM.Signer" )
oSigner:Certificate := CAPICOMCertificado( "JPA TECNOLOGIA LTDA" )
oSignedCode:Sign( oSigner )
nStatus := 1
oSignedCode:TimeStamp( "http://timestamp.digicert.com" )
nStatus := 2
ENDSEQUENCE
IF nStatus < 1
ShowAlert( "Can't sign. Not installed CAPICOM and/or EXE not ...

Então.....
Isso resolve a parte da "nossa" máquina.

Gera o certificado.
assina mas não deixa fazer o timestamp.

Exportei sem a chave particular, gera o .cer
Instalando em root
assina e faz time stamp.

Agora é testar no cliente.
Capicom vai deixar instalar automático.
Mas em root só administrador.

Explicando:

Pra fazer timestamp, o certificado é validado, mas não existe autoridade pra isso.
A saída é instalar como autoridade, em Root e não em My.

Se no cliente acontecer a mesma coisa, seria instalar em My ou em Root.
Mas em Root, só com direitos de administrador.

Dá pra fazer isso usando ...

Continuo fazendo testes.
Resolvido timestamp.

1) Já que dá trabalho, gerando certificado com validade de 10 anos

2) Instalado em autoridades confiáveis, assim dá pra fazer timestamp

Resta confirmar no destinatário.
Tenho rotina de instalar certificado, fazer testes disso, talvez de instalar em ...

O negócio é mais complicado do que parece.

Timestamp não é um simples carimbo de data e hora.
É feita a validação da assinatura e só depois é aplicado o carimbo.
Com certificado grátis, válido só pra máquina, o timestamp da internet acusa certificado inválido.

Dependendo do programa verificador, se ...

Tem outras opções, sempre tento os abaixo, quando uma falha tento o proximo em seguida nessa mesma ordem ai,
Local aLINKASS:={'http://timestamp.digicert.com',;
'http://timestamp.comodoca.com/authenticode',;
'http://timestamp.verisign.com/scripts/timstamp.dll',;
'http://timestamp.globalsign.com ...

... CAPICOM.Signer" )
oSigner:Certificate := CAPICOMCertificado( "JPA Tecnologia Ltda SN" )
oSignedCode:Sign( oSigner )
oSignedCode:TimeStamp( "http://timestamp.digicert.com" )
lOk := .T.
ENDSEQUENCE
IF ! lOk
ShowAlert( "Not installed CAPICOM and/or EXE not signed" )
ENDIF

RETURN ...

... CAPICOM.Signer" )
oSigner:Certificate := CAPICOMCertificado( "JPA Tecnologia Ltda SN" )
oSignedCode:Sign( oSigner )
oSignedCode:TimeStamp( "http://timestamp.digicert.com" )
lOk := .T.
ENDSEQUENCE
IF ! lOk
ShowAlert( "Not installed CAPICOM and/or EXE not signed" )
ENDIF

RETURN ...

... win_OleCreateObject( "CAPICOM.Signer" )
oSigner:Certificate := CAPICOMCertificado( "Jose Quintas" )
oSignedCode:Sign( oSigner )
oSignedCode:TimeStamp( "http://timestamp.digicert.com" )
lOk := .T.
ENDSEQUENCE
IF ! lOk
ShowAlert( "Not installed CAPICOM and/or EXE not signed" )
ENDIF

RETURN ...

... HB_BOOL hb_timeStrGetUTC( const char * szTime,
int * piHour, int * piMinutes,
int * piSeconds, int * piMSec,
int * piUTCOffset );
HB_BOOL hb_timeStampStrGetUTC( const char * szDateTime,
int * piYear, int * piMonth,
int * piDay, int * piHour,
int * piMinutes, int * piSeconds,
int * piMSec ...

Olá!
Primeira do Eric Lendvai (SQLMIX)
Agora podemos usa @ Timestamp -> campo DATA HORA do DBF para SQL e vice versa.

Atualização para QT 6.

2024-12-19 10:24 UTC+0100 Aleksander Czajczynski (hb fki.pl)
* contrib/rddsql/sqlbase.c
% cleanup unnecessary braces

* ChangeLog.txt
+ missing entry from ...

Olá!

Toquei neste assunto em 06 Set 2023 22:50.

Para quem tiver interesse em se aprofundar no assunto: MySQL TimeStamp: bug no ano 2038 (2K38)

... hb_jsonDecode(mJson, @mHash)

If mHash <> nil

If Len( mHash ) > 0
AAdd(aActiveState, {;
HGet(mHash, 'remote_ip'),;
HGet(mHash, 'timestamp');
})
Else
AAdd(aActiveState, {;
'',;
'';
})
Endif

Else
AAdd(aActiveState, {;
'',;
'';
})
Endif
/*
Begin Sequence
aActiveState ...