数字签名代码和PDF文档

问题描述

请向我提供由Frank-Rem撰写的数字签名代码和PDF文件的源代码

。我迫切需要这个来实现代码。

Please provide me the source code of Digital Signatures Code and PDF Documents
written by Frank-Rem. I have urgently need of this to implement the code.

推荐答案

Dim theForm As Acrobat.CAcroPDDoc
        Dim jso As 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 Is = -1
                ListBox1.Items.Add("Estado : Sin Firma ")
            Case Is = 0
                ListBox1.Items.Add("Estado : Firma en blanco ")
            Case Is = 1
                ListBox1.Items.Add("Estado : No conoce el estado de la firma ")
            Case Is = 2
                ListBox1.Items.Add("Estado : Firma invalida ")
            Case Is = 3
                ListBox1.Items.Add("Estado : La firma es valida, pero la identidad del firmante no se pudo verificar ")
            Case Is = 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 a : " & 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)

这篇关于数字签名代码和PDF文档的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！