Página 1 de 1
Assinatura digital em registro/arquivo c/ Minigui/CAPICOM
Enviado: 10 Mar 2017 18:48
por 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.
Assinatura digital em registro/arquivo c/ Minigui/CAPICOM
Enviado: 10 Mar 2017 19:25
por 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()
Assinatura digital em registro/arquivo c/ Minigui/CAPICOM
Enviado: 11 Mar 2017 13:02
por 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).
Assinatura digital em registro/arquivo c/ Minigui/CAPICOM
Enviado: 13 Mar 2017 21:35
por 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
Assinatura digital em registro/arquivo c/ Minigui/CAPICOM
Enviado: 13 Mar 2017 21:58
por 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
Assinatura digital em registro/arquivo c/ Minigui/CAPICOM
Enviado: 14 Mar 2017 07:43
por nilton579
José, obrigado. Vou estudar o conteúdo dos links.