PureBasic

Example: Crypt2.GetSignatureSigningTimeStr method

Demonstrates how to call the GetSignatureSigningTimeStr method. PureBasic

IncludeFile "CkCrypt2.pb"

Procedure ChilkatExample()

    success.i = 0

    crypt.i = CkCrypt2::ckCreate()
    If crypt.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    success = CkCrypt2::ckVerifyP7M(crypt,"qa_data/cades/CAdES-T/Signature-C-T-1.p7m","qa_output/out.dat")
    If success = 0
        Debug CkCrypt2::ckLastErrorText(crypt)
        CkCrypt2::ckDispose(crypt)
        ProcedureReturn
    EndIf

    numSigners.i = CkCrypt2::ckNumSignerCerts(crypt)
    Debug "Num Signers = " + Str(numSigners)

    i.i = 0
    While i < numSigners
        If CkCrypt2::ckHasSignatureSigningTime(crypt,i) = 1
            Debug Str(i + 1) + ": " + CkCrypt2::ckGetSignatureSigningTimeStr(crypt,i)
        Else
            Debug Str(i + 1) + ": has no signing time."
        EndIf

        i = i + 1
    Wend

    ; Sample output:

    ; Num Signers = 1
    ; 1: Sun, 03 Dec 2013 06:57:41 GMT


    CkCrypt2::ckDispose(crypt)


    ProcedureReturn
EndProcedure