Clipper On Line • Ver Tópico - Assinatura digital em registro/arquivo c/ Minigui/CAPICOM

Assinatura digital em registro/arquivo c/ Minigui/CAPICOM

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Assinatura digital em registro/arquivo c/ Minigui/CAPICOM

Mensagempor nilton579 » 10 Mar 2017 18:48

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.
Avatar de usuário

nilton579
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 31
Data de registro: 05 Fev 2008 19:23
Cidade/Estado: MANAUS
Curtiu: 4 vezes
Mens.Curtidas: 0 vez

Assinatura digital em registro/arquivo c/ Minigui/CAPICOM

Mensagempor JoséQuintas » 10 Mar 2017 19:25

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()
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Assinatura digital em registro/arquivo c/ Minigui/CAPICOM

Mensagempor nilton579 » 11 Mar 2017 13:02

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).
Clenilton Alencar
Minigui Extended 18.06 -> 19.04
BRMake 2.05
Borland C++
Avatar de usuário

nilton579
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 31
Data de registro: 05 Fev 2008 19:23
Cidade/Estado: MANAUS
Curtiu: 4 vezes
Mens.Curtidas: 0 vez

Assinatura digital em registro/arquivo c/ Minigui/CAPICOM

Mensagempor JoséQuintas » 13 Mar 2017 21:35

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.br/2012/07/assinando-documentos-xml-com-capicom-e.html

http://balaiotecnologico.blogspot.com.br/2009/07/assinando-documentos-com-capicom.html
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Assinatura digital em registro/arquivo c/ Minigui/CAPICOM

Mensagempor JoséQuintas » 13 Mar 2017 21:58

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

#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
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18014
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Assinatura digital em registro/arquivo c/ Minigui/CAPICOM

Mensagempor nilton579 » 14 Mar 2017 07:43

José, obrigado. Vou estudar o conteúdo dos links.
Clenilton Alencar
Minigui Extended 18.06 -> 19.04
BRMake 2.05
Borland C++
Avatar de usuário

nilton579
Usuário Nível 1

Usuário Nível 1
 
Mensagens: 31
Data de registro: 05 Fev 2008 19:23
Cidade/Estado: MANAUS
Curtiu: 4 vezes
Mens.Curtidas: 0 vez




Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 9 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro