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

Popular posts from this blog

how to devide a circle into equal parts

"Could not fill because there are not enough opaque source pixels" - not solved by any other thread

Why can't I change the billing info for my account?