PC Toledo

Código: Selecionar todos

  // Gravando o certificado 
   cCert:= hb_base64encode(hb_Memoread([D:\teste\certificado.pfx]))
   hb_MemoWrit([cert64.txt], cCert)
.
.
.
.

   //Recuperar o certificado para uso a partir de um Base64
   cCert:= hb_base64Decode(hb_Memoread([D:\teste\cert64.txt]), "11223344")
	
   BEGIN SEQUENCE WITH __BreakBlock()
      oSoap:= Win_OleCreateObject([MSXML2.ServerXMLHTTP.6.0])
      oSoap:setOption(3, cCert) // aqui busca o certificado no formato pfx, que pode ser gravado em base64
      oSoap:SetTimeouts(30000, 30000, 30000, 30000)
      oSoap:Open([POST], cUrl_Token, .F.)
      oSoap:SetRequestHeader("Content-Type", "application/x-www-form-urlencoded")

      oSoap:Send(cBody)
      oSoap:WaitForResponse(5000)

      cRetorno:= oSoap:Responsetext()
   END SEQUENCE

Código: Selecionar todos

      oSoap:setOption(3, cCert) // aqui busca o certificado no formato pfx, que pode ser gravado em base64

Código: Selecionar todos

      oSoap:SetClientCertificate([D:\teste\certificado.pfx])

Código: Selecionar todos

Method ctPegaCNCertificado() Class oCTe_SEFAZ
LOCAL oStore, oCertificados
LOCAL cSubjectName:='', cCN:=''
LOCAL mI:=0

TRY
   oStore := CRIA_OBJETO_ACTIVEX( "CAPICOM.Store" )
CATCH
END

IF oStore = Nil
   RETURN('')
ENDIF

oStore:open(IIF(::cCERT_USER_MICRO='USUARIO',_CAPICOM_CURRENT_USER_STORE,_CAPICOM_LOCAL_MACHINE_STORE),'My',_CAPICOM_STORE_OPEN_MAXIMUM_ALLOWED)
oCertificados:=oStore:Certificates()
oStore:Close()

FOR mI=1 TO oCertificados:Count()
   IF oCertificados:Item(mI):SerialNumber = ::cSerialCert
      cSubjectName := oCertificados:Item(mI):SubjectName
   ENDIF
NEXT
cCN:=''
FOR mI:=AT("CN=",cSubjectName)+3 TO LEN(cSubjectName)
   IF SUBS(cSubjectName,mI,1) == ","
      EXIT
   ENDIF
   cCN += SUBS(cSubjectName,mI,1)
NEXT
oCertificados := Nil
oStore := Nil
RETURN(cCN)

Código: Selecionar todos

TRY
   cCERT := ::ctPegaCNCertificado()
CATCH
END
IF EMPTY(cCERT)
   aRETORNO['MSG']:='Não foi possível carregar as informações do certificado.'
   RETURN(aRETORNO)
ENDIF

IF 'https' $ cService
   cUrlWS:=cService
ELSE
   cUrlWS:=::ctLinkWebService(cService)
ENDIF

IF EMPTY(cUrlWS)
   aRETORNO['MSG']:='Webservice não localizado'
   RETURN(aRETORNO)
ENDIF

TRY
   oServerWS:=CRIA_OBJETO_ACTIVEX( _MSXML2_ServerXMLHTTP )
   oServerWS:setOption( 3, 'CURRENT_USER\MY\'+cCERT )
   oServerWS:open('POST', cUrlWS, .F.)
   oServerWS:setRequestHeader('SOAPAction', cSoap )
   oServerWS:setRequestHeader('Content-Type','application/soap+xml; charset=utf-8')
CATCH
   aRETORNO['MSG']:='Não foi possível inicializar a conexão do webservice'
   RETURN(aRETORNO)
END

Código: Selecionar todos

 * Criar objeto para pegar exceção do lado do CSHARP
   oExceptionInterop = CreateObject("Unimake.Exceptions.ThrowHelper")

   Try
    * Criar objeto para trabalhar com certificado digital no INTEROP
	  oCertificado := CreateObject("Unimake.Security.Platform.CertificadoDigitalInterop")
	  
    * Carregar o certificado A1 direto do .PFX
	  oCertificado:CarregarCertificadoDigitalA1("D:\enzza\andre_api\certificado.pfx","1104535")	  
  
    * Demonstrar os dados do certificado digital
      ? "ID do Certificado....: ", oCertificado:GetThumbPrint()
      ? "Dados do proprietario: ", oCertificado:GetSubject()
      ? "Numero de Serie......: ", oCertificado:GetSerialNumber()
      ? "Validade Inicial.....: ", oCertificado:GetNotBefore()
      ? "Validade Final.......: ", oCertificado:GetNotAfter()
      ? "Certificado vencido?.: ", oCertificado:Vencido()
      ?
	  
	  Wait 

Código: Selecionar todos

Static Function fBuscaCert()
   Local lOk:= .F., oCert, oCapicomStore, cCert:= GetFile({{[Certificados], [*.pfx]}}, [Buscar Certificados], GetCurrentFolder() + [\], .F., .T. )

   // Aqui é onde salvamos no bd, arquivo etc
   cCert:= Hb_base64encode(cCert)
   MemoWrit([cert64.txt], cCert)

   //Recuperar o certificado para uso a partir de um Base64 que pode estar no bd, arquivo etc
   cCert:= Hb_base64Decode(Memoread(GetCurrentFolder() + [\] + [cert64.txt]))

   If !Hb_FileExists(cCert)
      MsgExclamation([Erro assinatura: Arquivo PFX não encontrado.], [Erro])
      Return (.F.)
   Endif
 
   If Upper(Right(cCert, 4)) # [.PFX]
      MsgExclamation([Não é um Arquivo PFX.], [Erro])
      Return (.F.)
   Endif

   If GetProperty([f_Certifica], [Text_Password], [Value]) == NIL .OR. Empty(GetProperty([f_Certifica], [Text_Password], [Value]))
      MsgExclamation([Erro assinatura: Falta senha do arquivo PFX.], [Erro])
      Return (.F.)
   Endif

   // Carregar PFX e instalar via Capicom
   oCert:= Win_OleCreateObject([CAPICOM.Certificate])
   oCert:Load(cCert, Alltrim(GetProperty([f_Certifica], [Text_Password], [Value])), 1, 0) /// aqui carrega o certificado

   If oCert == NIL .or. Empty(oCert)
      MsgExclamation([Erro Assinatura: Certificado não encontrado ou vencido.], [Erro])
      Return (.F.)
   Endif

   BEGIN SEQUENCE WITH __BreakBlock()
      oCapicomStore:= Win_OleCreateObject([CAPICOM.Store])
      oCapicomStore:Open(2, [My], 2)
      oCapicomStore:Add(oCert)  /// aqui instala no repositório automaticamente
      lOk:= .T.
   ENDSEQUENCE

   If !lOk
      MsgExclamation([Erro assinatura: Problemas no uso do certificado.], [Erro])
      Return (.F.)
   Else
      MsgInfo([Certificado Instalado com Sucesso] + hb_OsNewLine() + [Verifique Repositório do Windows], [Sucesso])
   Endif
Return (.T.)

Código: Selecionar todos

  oSoap:= Win_OleCreateObject([MSXML2.ServerXMLHTTP.6.0])