//Exemplo



//CertificadoAssinatura is string = "‎66428db2ed4c2416d5861351ae2ceb1f"



MyCertificate is Certificate



// Open the certificate picker of Windows

MyCertificate = CertificateSelect()



// Cancelation or error

IF MyCertificate..Name = "" THEN

RETURN

END





// Checks the validity of certificat for the signature

IF MyCertificate..ValidForSignature = False THEN

Info("The selected certificate cannot be used to generate a signature.")

RETURN

END



// Retrieve the buffer containing the signature

bufSignature is Buffer

bufSignature = CertificateSignString("Character string to sign", MyCertificate)



// Retrieve the certificate found in the buffer of the signature

MyExtractedCertificate is Certificate

MyExtractedCertificate = CertificateExtract(bufSignature)



// Manage the errors

IF MyExtractedCertificate = Null THEN

RETURN

END



// Open the window for certificate properties

CertificateOpenProperties(MyExtractedCertificate)



//Interpretando o retorno

Certificado_Digital is string = MyCertificate..Name +CRLF+ MyCertificate..Issuer +CRLF+ MyCertificate..SerialNumber +CRLF+ MyCertificate..Reliability +CRLF+ MyCertificate..ValidForSignature

SerialCertificadoDigital is string = MyCertificate..SerialNumber

SerialCertificadoDigital = Replace(SerialCertificadoDigital," ","")

DataValidadeCertificadoDigital is string = DateToString(MyCertificate..StartValidityDate,"DD/MM/YYYY HH:MM:SS") +" até "+ DateToString(MyCertificate..EndValidityDate,"DD/MM/YYYY HH:MM:SS")



Hoje is DateTime = DateSys() + TimeSys()



UltimoPrazoCertificado is DateTime = MyCertificate..EndValidityDate



IF UltimoPrazoCertificado < Hoje THEN

Info("Certificado Vencido")

ELSE

nDias is int = DateDifference(Middle(Hoje,1,8),Middle(UltimoPrazoCertificado,1,8))

//info(nDias)

IF nDias < 30 THEN

Info("Providenciar a atualização do certificado faltam: "+nDias)

END

END





EDT_Certificado = Certificado_Digital



EDT_Serial = SerialCertificadoDigital



EDT_Validade = DataValidadeCertificadoDigital



ok is boolean = False



PathFile is string = fCurrentDir(fCurrentDrive()) +"\INFOSG.ini"



//Serial

ok = INIWrite("INFOSG", "CertificadoDigital", SerialCertificadoDigital, PathFile)

IF ErrorOccurred = True

Error()

END



//Data Validade

ok = INIWrite("INFOSG", "CertificadoDigitalValidade", DataValidadeCertificadoDigital, PathFile)

IF ErrorOccurred = True

Error()

END