How to read digital certificate from pdf document in vb.net
dim theform acrobat.cacropddoc
dim jso object
theform = createobject("acroexch.pddoc")
theform.open("c:\temp\maru\declaracionjurada.pdf")
jso = theform.getjsobject
'verifica que la firma sea valida
dim signatureone = jso.getfield("signature2")
dim ostate = signatureone.signaturevalidate()
select case ostate
case = -1
listbox1.items.add("estado : sin firma ")
case = 0
listbox1.items.add("estado : firma en blanco ")
case = 1
listbox1.items.add("estado : no conoce el estado de la firma ")
case = 2
listbox1.items.add("estado : firma invalida ")
case = 3
listbox1.items.add("estado : la firma es valida, pero la identidad del firmante no se pudo verificar ")
case = 4
listbox1.items.add("estado : firma e identidad son validas ")
end select
'extrae la info del firmante, nombre y fecha de la firma
dim signatureinformation = signatureone.signatureinfo
listbox1.items.add("firmante " & signatureinformation.name)
listbox1.items.add("fecha " & signatureinformation.date)
'extrae la info del certificado
dim signaturecertificate = signatureinformation.certificates
listbox1.items.add("emitido : " & signaturecertificate(0).subjectdn.serialnumber)
listbox1.items.add("numero de serie : " & signaturecertificate(0).serialnumber)
listbox1.items.add("valido desde : " & signaturecertificate(0).validitystart)
listbox1.items.add("valido hasta : " & signaturecertificate(0).validityend)
listbox1.items.add("para : " & signaturecertificate(0).subjectdn.o)
listbox1.items.add("tipo : " & signaturecertificate(0).subjectdn.ou)
listbox1.items.add("emitido por : " & signaturecertificate(0).issuerdn.cn)
dim theform acrobat.cacropddoc
dim jso object
theform = createobject("acroexch.pddoc")
theform.open("c:\temp\maru\declaracionjurada.pdf")
jso = theform.getjsobject
'verifica que la firma sea valida
dim signatureone = jso.getfield("signature2")
dim ostate = signatureone.signaturevalidate()
select case ostate
case = -1
listbox1.items.add("estado : sin firma ")
case = 0
listbox1.items.add("estado : firma en blanco ")
case = 1
listbox1.items.add("estado : no conoce el estado de la firma ")
case = 2
listbox1.items.add("estado : firma invalida ")
case = 3
listbox1.items.add("estado : la firma es valida, pero la identidad del firmante no se pudo verificar ")
case = 4
listbox1.items.add("estado : firma e identidad son validas ")
end select
'extrae la info del firmante, nombre y fecha de la firma
dim signatureinformation = signatureone.signatureinfo
listbox1.items.add("firmante " & signatureinformation.name)
listbox1.items.add("fecha " & signatureinformation.date)
'extrae la info del certificado
dim signaturecertificate = signatureinformation.certificates
listbox1.items.add("emitido : " & signaturecertificate(0).subjectdn.serialnumber)
listbox1.items.add("numero de serie : " & signaturecertificate(0).serialnumber)
listbox1.items.add("valido desde : " & signaturecertificate(0).validitystart)
listbox1.items.add("valido hasta : " & signaturecertificate(0).validityend)
listbox1.items.add("para : " & signaturecertificate(0).subjectdn.o)
listbox1.items.add("tipo : " & signaturecertificate(0).subjectdn.ou)
listbox1.items.add("emitido por : " & signaturecertificate(0).issuerdn.cn)
thanks posting, question, suggestion, useful sample code, what?
More discussions in Acrobat SDK
adobe
Comments
Post a Comment