数字签名和PDF文档

问题描述：

亲爱的所有

请提供此链接代码

Dear All

Pleae provide the this link code

Digital Signatures and PDF Documents

谢谢

Santosh Singh

Thanks
Santosh Singh

答

请点击这里：http://bit.ly/zVa4fu [ ^ ]。

请删除您的电子邮件（更改您的CodeProject ID），除非您喜欢垃圾邮件。

-SA

Please click here: http://bit.ly/zVa4fu[^].

Please remove your e-mail (change your CodeProject ID) unless you like spam.

—SA

Quote：

Dim theForm作为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（Sign ature2）

Dim oState = signatureOne.SignatureValidate（）

选择案例oState

案例是= - 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）

结束选择

'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）

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文档

相关推荐