Assinatura digital em registro/arquivo c/ Minigui/CAPICOM

[nilton579]

Colegas, boa noite!

Gostaria de saber se alguém tem código para estudo de assinatura digital com Harbour/Minigui utilizando CAPICOM. (visualizar dados do certificado, assinar, importar/exportar, comparar/validar).

Muito agradecido por qualquer contribuição.

[JoséQuintas]

Pra trabalhar com XML, precisa também da XML5 da Microsoft.

https://github.com/JoseQuintas/sefazclass

Importante:
A compatibilidade XHarbour costuma estragar o funcionamento de win_OleCreateObject()

[nilton579]

Quintas, boa tarde.
Não vou utilizar pra assinar XML. Minha necessidade é assinar um registro (ou um documento). Pegar as informações e métodos para gerar a assinatura digital e carimbar no registro (ou no documento).

[JoséQuintas]

No link que indiquei antes tem pra XML.

Aqui dois links, pra XML e pra documento, mas em Delphi.
Uma vez que usa Capicom, os métodos usados serão os mesmos no Harbour.

http://balaiotecnologico.blogspot.com.b ... com-e.html

http://balaiotecnologico.blogspot.com.b ... picom.html

[JoséQuintas]

Se entendi direito, seria mais simples que NFE, algo parecido com isto

Código: Selecionar todos

#define CAPICOM_RETORNA_ASSINATURA       .F.
#define CAPICOM_RETORNA_DOC_ASSINADO     .T.

FUNCTION Main()

   LOCAL oSigner, oSignedData

   oSigner     := win_OleCreateObject( "CAPICOM.Signer" )
   oSignedData := win_OleCreateObject( "CAPICOM.SignedData" )

   oSigner:Certificate := "XXXX"
   oSignedData:Content := "XXX"
   
   cSignature := oSignedData:Sign( oSigner, CAPICOM_RETORNA_ASSINATURA, CAPICOM_ENCODE_BASE64 )

   ? cSignature
   
   RETURN NIL

[nilton579]

José, obrigado. Vou estudar o conteúdo dos links.