Click here to Skip to main content
11,496,146 members (649 online)
The site is currently in read-only mode for maintenance. Posting of new items will be available again shortly.
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 23-Jan-12 0:58am
Do you mean this: Digital Signatures and PDF Documents[^]?

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

—SA
  Permalink  
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 RyanDev 230
1 Sergey Alexandrovich Kryukov 114
2 Richard Deeming 100
3 OriginalGriff 89
4 Mostafa Asaduzzaman 59
0 Sergey Alexandrovich Kryukov 10,401
1 OriginalGriff 8,910
2 Sascha Lefèvre 3,899
3 Maciej Los 3,422
4 Richard Deeming 2,600


Advertise | Privacy | Mobile
Web02 | 2.8.150520.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