(PureBasic) Get Certificate Valid To/From Dates

Demonstrates how to get the certificate "valid from" and "valid to" dates.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkCert.pb"
IncludeFile "CkDateTime.pb"
IncludeFile "CkDtObj.pb"

Procedure ChilkatExample()

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

    success.i = CkCert::ckLoadFromFile(cert,"qa_data/certs/testCert.cer")
    If success <> 1
        Debug CkCert::ckLastErrorText(cert)
        CkCert::ckDispose(cert)
        ProcedureReturn
    EndIf

    ; Get the certificate valid-from date/time
    ckdt.i = CkCert::ckGetValidFromDt(cert)
    ; Get the local timestamp string.
    Debug "Valid from: " + CkDateTime::ckGetAsTimestamp(ckdt,1)
    ; Valid from: 2017-03-17T19:00:00-05:00

    ; Now get the date/time as another object where we can get the individual numeric date parts.
    dt.i = CkDateTime::ckGetDtObj(ckdt,1)
    Debug Str(CkDtObj::ckDay(dt)) + "/" + Str(CkDtObj::ckMonth(dt)) + "/" + Str(CkDtObj::ckYear(dt)) + "  " + Str(CkDtObj::ckHour(dt)) + ":" + Str(CkDtObj::ckMinute(dt))
    CkDtObj::ckDispose(dt)

    CkDateTime::ckDispose(ckdt)

    ; Get the certificate valid-to date/time
    ckdt = CkCert::ckGetValidToDt(cert)
    Debug "Valid to: " + CkDateTime::ckGetAsTimestamp(ckdt,1)
    ; Valid to: 2020-03-18T18:59:59-05:00
    dt = CkDateTime::ckGetDtObj(ckdt,1)
    Debug Str(CkDtObj::ckDay(dt)) + "/" + Str(CkDtObj::ckMonth(dt)) + "/" + Str(CkDtObj::ckYear(dt)) + "  " + Str(CkDtObj::ckHour(dt)) + ":" + Str(CkDtObj::ckMinute(dt))
    CkDtObj::ckDispose(dt)

    CkDateTime::ckDispose(ckdt)



    CkCert::ckDispose(cert)


    ProcedureReturn
EndProcedure