Xbase++

Example: Crypt2.GetSignatureSigningTimeStr method

Demonstrates how to call the GetSignatureSigningTimeStr method. Xbase++

LOCAL nSuccess
LOCAL oCrypt
LOCAL nNumSigners
LOCAL i

nSuccess := 0

oCrypt := CreateObject("Chilkat.Crypt2")

nSuccess := oCrypt:VerifyP7M("qa_data/cades/CAdES-T/Signature-C-T-1.p7m", "qa_output/out.dat")
IF (nSuccess == 0)
    ? oCrypt:LastErrorText
    oCrypt:destroy()
    RETURN
ENDIF

nNumSigners := oCrypt:NumSignerCerts
? "Num Signers = " + Str(nNumSigners)

i := 0
DO WHILE i < nNumSigners
    IF (oCrypt:HasSignatureSigningTime(i) == 1)
        ? Str(i + 1) + ": " + oCrypt:GetSignatureSigningTimeStr(i)
    ELSE
        ? Str(i + 1) + ": has no signing time."
    ENDIF

    i := i + 1
ENDDO

//  Sample output:

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

oCrypt:destroy()