CERTIFICADO DIGITAL

NOBODY 13/10/2012 10:08:43
#411987
Como selecionar o certificado digital e pegar a validade instalado na maquina.

Obrigado Galera.
MARCELO.TREZE 16/10/2012 11:24:23
#412130 Resposta escolhida
não testei mas seria bom você testar ai.


Sobre a validade do certificado, você e outros usuário de Visual Basic 6, podem
fazer o seguinte:

1) Instalar a CAPICOM 2
2) Em Project/References, referenciar (marcar) a opção CAPICOM v2.1 Type Library
3) Usar o seguinte código para ter acesso à data de validade do certificado:

On Error Resume Next


Dim Stor As New Store
Dim Cert As Certificate
Dim Certs As New Certificates
Dim CForNext As Integer


[txt-color=#007100][ô]Apagar informações que já existam, sobre certificado digital[/txt-color]
Me.txtCERTIFICADO.Text = [Ô][Ô]


[ô]Abrir o store
Stor.Open


[txt-color=#007100][ô]Limpa a lista de certificados instalados e adicionar os
[ô]certificados existentes na lista[/txt-color]
Certs.Clear
For CForNext = 1 To Stor.Certificates.Count
Certs.Add Stor.Certificates.Item(CForNext)
Next CForNext


[txt-color=#007100][ô]Escolher o certificado (aqui deixo a opção de escolher o
[ô]certificado
[ô]Apenas como exemplo. O certificado poderia ser selecionado, sem
[ô]a caixa de seleção
[ô]de certificados (repositório do windows) informando diretamente
[ô]o índice do certificado[/txt-color]
[txt-color=#007100][ô]como 0 ou 1...[/txt-color]
Set Certs = Certs.Select([Ô]LaRoche[Ô], [Ô]Selecione o Certificado
Digital.[Ô], False)


[txt-color=#007100][ô]Exibir mensagem com data de validade do certificado[/txt-color]

[txt-color=#007100][ô]Pegar o texto do certificado que é usado para assinatura[/txt-color]
For Each Cert In Certs
[ô]Me.txtCERTIFICADO.Text = Cert.SubjectName
MsgBox ([Ô]Nome do cliente:[Ô] &
Cert.GetInfo(CAPICOM_CERT_INFO_SUBJECT_SIMPLE_NAME))
MsgBox ([Ô]e-Mail do cliente:[Ô] &
Cert.GetInfo(CAPICOM_CERT_INFO_SUBJECT_EMAIL_NAME))
MsgBox ([Ô]Dados do Certificado (que fica no
UniNFeConfig.XML:[Ô] & Cert.IssuerName)
MsgBox ([Ô]Data de criação do certificado:[Ô] &
Cert.ValidFromDate)
MsgBox ([Ô]Certificado válido até:[Ô] & Cert.ValidToDate)
Next


fonte:http://br.dir.groups.yahoo.com/group/uninfe/message/19753
Tópico encerrado , respostas não são mais permitidas
Voltar