(Tcl) Get Certificate Valid To/From Dates

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

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

set cert [new_CkCert]

set success [CkCert_LoadFromFile $cert "qa_data/certs/testCert.cer"]
if {$success != 1} then {
    puts [CkCert_lastErrorText $cert]
    delete_CkCert $cert
    exit
}

# Get the certificate valid-from date/time
# ckdt is a CkDateTime
set ckdt [CkCert_GetValidFromDt $cert]
# Get the local timestamp string.
puts "Valid from: [CkDateTime_getAsTimestamp $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 is a CkDtObj
set dt [CkDateTime_GetDtObj $ckdt 1]
puts [CkDtObj_get_Day $dt]/[CkDtObj_get_Month $dt]/[CkDtObj_get_Year $dt]  [CkDtObj_get_Hour $dt]:[CkDtObj_get_Minute $dt]
delete_CkDtObj $dt

delete_CkDateTime $ckdt

# Get the certificate valid-to date/time
set ckdt [CkCert_GetValidToDt $cert]
puts "Valid to: [CkDateTime_getAsTimestamp $ckdt 1]"
# Valid to: 2020-03-18T18:59:59-05:00
set dt [CkDateTime_GetDtObj $ckdt 1]
puts [CkDtObj_get_Day $dt]/[CkDtObj_get_Month $dt]/[CkDtObj_get_Year $dt]  [CkDtObj_get_Hour $dt]:[CkDtObj_get_Minute $dt]
delete_CkDtObj $dt

delete_CkDateTime $ckdt


delete_CkCert $cert