PEGAR A DATA DE VENCIMENTO DO CERTIFICADO DIGITAL

AMELINHACODE 14/11/2022 23:13:05
#500792
Boa noite pessoal, existe uma forma no vb6 de consulta a validade do certificado digital....

Tenho uma tabela chama Empresas, nela possui todos os dados da empresa
SELECT  *, CertificadoDigital FROM empresa


o campo CertificadoDigital possui o numero do certificado... nesse caso "2910F2886F652B15"

Gostaria de consulta a data de validade do certificado "2910F2886F652B15" via codigo do vb6

Como faria isso?
NILSONTRES 17/11/2022 01:36:07
#500799
Em .net é tranquilo isso, em vb6 não sei, um conselho, voce me parece jovem, começou o aprendizado de forma errada, migre o mais rápido possível para vb.net ou c#.
AMELINHACODE 18/11/2022 00:22:09
#500801
Citação:

:
Em .net é tranquilo isso, em vb6 não sei, um conselho, voce me parece jovem, começou o aprendizado de forma errada, migre o mais rápido possível para vb.net ou c#.



Então o veredito é esse? não conseguirei via vb6?
KERPLUNK 18/11/2022 01:22:26
#500802
Muito, mas MUUUUUUITO dificilmente vai conseguir com VB6. E mesmo que consiga, vai ser tão trabalhoso e tão ineficiente que não chega a valer à pena.
LUIS2014 18/11/2022 09:21:56
#500804
Em Project/References, referenciar opção CAPICOM v2.1 Type Library

o código abaixo retorna a validade do certificado, só adaptar conforme sua necessidade.

      Dim Cert        As Certificate
    Dim Stor        As New Store
    Dim Certs       As New Certificates
    Dim CForNext    As Integer
    
    Stor.Open
    Certs.Clear
    
    For CForNext = 1 To Stor.Certificates.Count
        Certs.Add Stor.Certificates.Item(CForNext)
    Next CForNext
    
    For Each Cert In Certs
        
        MsgBox ("Certificado válido até:" & Cert.ValidToDate)
        
    Next
LUIS2014 18/11/2022 10:00:52
#500806
Citação:

:
LUIS2014,
Isso é .Net.


.Net? Me explique então como que eu uso por anos esse código no meu sistema em VB6?

NILSONTRES 18/11/2022 10:04:31
#500807
LUIS2014,
Citação:

Net? Me explique então como que eu uso esse código no meu sistema em VB6?


Viajei, desculpe.
LUIS2014 18/11/2022 10:14:17
#500808
Citação:

:
LUIS2014,
Net? Me explique então como que eu uso esse código no meu sistema em VB6?
Viajei, desculpe.


paga um churrasco que ta tudo certo. kkkk
NILSONTRES 18/11/2022 12:03:25
#500809
LUIS2014,
Citação:

paga um churrasco que ta tudo certo. kkkk



Churras esta muito caro, pode ser Pizza ?.
AMELINHACODE 24/11/2022 21:39:23
#500817
Citação:

:
Em Project/References, referenciar opção CAPICOM v2.1 Type Library

o código abaixo retorna a validade do certificado, só adaptar conforme sua necessidade.

      Dim Cert        As Certificate
    Dim Stor        As New Store
    Dim Certs       As New Certificates
    Dim CForNext    As Integer
    
    Stor.Open
    Certs.Clear
    
    For CForNext = 1 To Stor.Certificates.Count
        Certs.Add Stor.Certificates.Item(CForNext)
    Next CForNext
    
    For Each Cert In Certs
        
        MsgBox ("Certificado válido até:" & Cert.ValidToDate)
        
    Next



Não encontrei "CAPICOM v2.1 Type Library" em References
LUIS2014 25/11/2022 09:14:35
#500819
segue
Página 1 de 2 [12 registro(s)]
Faça seu login para responder
Voltar