Sign in to follow this  
Followers 0
Cleiton Fidelis

Pegar vencimento arquivo pfx

1 post in this topic

Dica ofertada por @Jackson Douglas do pandeiro

Em pergunta de @Janio Aguiar

 

Como pegar o vencimento de um certificado digital em formato .pfx

arrCertificate            = CertificateLoad( certificado.fpx, senha )
MyCertificate            = arrCertificate[4]
ConferenceDuration    is Duration    = SysDateTime() - MyCertificate.EndValidityDate
IF MyCertificate.EndValidityDate < SysDateTime() then
   INFO( "VENCIDO")
END

 

 

@Ronei Marcos Heck tambem contribuiu

sListaCertificados    is string = ""
arrCertificados        is array of Certificates
arrCertificados        = CertificateList()
nNrCertificado        is int = 0

FOR EACH Certificado OF arrCertificados

    nNrCertificado ++

    sListaCertificados += "<Certificado" + nNrCertificado + ">"
    sListaCertificados += Certificado..Name + ";"
    sListaCertificados += Upper(Replace(Certificado..ThumbPrint, " ", "")) + ";"
    sListaCertificados += Certificado..FullIssuer + ";"
    sListaCertificados += Certificado..StartValidityDate + ";"
    sListaCertificados += Certificado..EndValidityDate + ";"
    sListaCertificados += Replace(Certificado..SerialNumber, " ", "") + ";"
    sListaCertificados += Certificado..ValidForSignature
    sListaCertificados += "</Certificado" + nNrCertificado + ">"
    
END

 

 

 

 

1 person likes this

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0