Lianja

Example: Crypt2.GetSignatureSigningTimeStr method

Demonstrates how to call the GetSignatureSigningTimeStr method. Lianja

llSuccess = .F.

loCrypt = createobject("CkCrypt2")

llSuccess = loCrypt.VerifyP7M("qa_data/cades/CAdES-T/Signature-C-T-1.p7m","qa_output/out.dat")
if (llSuccess = .F.) then
    ? loCrypt.LastErrorText
    release loCrypt
    return
endif

lnNumSigners = loCrypt.NumSignerCerts
? "Num Signers = " + str(lnNumSigners)

i = 0
do while i < lnNumSigners
    if (loCrypt.HasSignatureSigningTime(i) = .T.) then
        ? str(i + 1) + ": " + loCrypt.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


release loCrypt