Click here to Skip to main content
11,705,052 members (50,729 online)
Rate this: bad
good
Please Sign up or sign in to vote.
See more: security
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.
Posted 22-Jan-12 23:58pm
Rate this: bad
good
Please Sign up or sign in to vote.

Solution 1

Do you mean this: Digital Signatures and PDF Documents[^]?

Is so, I would advise to address to the author.

—SA
  Permalink  
Rate this: bad
good
Please Sign up or sign in to vote.

Solution 2

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)
  Permalink  

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

  Print Answers RSS
0 Sergey Alexandrovich Kryukov 609
1 OriginalGriff 439
2 Andy Lanng 215
3 CPallini 202
4 F-ES Sitecore 160
0 OriginalGriff 8,958
1 Sergey Alexandrovich Kryukov 8,276
2 CPallini 5,189
3 Maciej Los 4,726
4 Mika Wendelius 3,606


Advertise | Privacy | Mobile
Web02 | 2.8.150819.1 | Last Updated 21 Jun 2013
Copyright © CodeProject, 1999-2015
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100