B4X

Example: Crypt2.GetSignatureSigningTimeStr method

Demonstrates how to call the GetSignatureSigningTimeStr method. B4X

Dim success As Boolean = False

Dim crypt As ChilkatCrypt2
crypt.Initialize("crypt")

success = crypt.VerifyP7M("qa_data/cades/CAdES-T/Signature-C-T-1.p7m", "qa_output/out.dat")
If success = False Then
    Log(crypt.LastErrorText)
    Return
End If


Dim numSigners As Int = crypt.NumSignerCerts
Log("Num Signers = " & numSigners)

Dim i As Int = 0
Do While i < numSigners
    If crypt.HasSignatureSigningTime(i) = True Then
        Log((i + 1) & ": " & crypt.GetSignatureSigningTimeStr(i))
    Else
        Log((i + 1) & ": has no signing time.")
    End If

    i = i + 1
Loop

'  Sample output:

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