Tcl

Get Certificate Valid To/From Dates

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

load ./chilkat.dll

set success 0

set cert [new_CkCert]

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

# Get the certificate valid-from date/time
set ckdt [new_CkDateTime]

CkDateTime_SetFromRfc822 $ckdt [CkCert_validFromStr $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.
set dt [new_CkDtObj]

CkDateTime_ToDtObj $ckdt 1 $dt

puts [CkDtObj_get_Day $dt]/[CkDtObj_get_Month $dt]/[CkDtObj_get_Year $dt]  [CkDtObj_get_Hour $dt]:[CkDtObj_get_Minute $dt]

# Get the certificate valid-to date/time
CkDateTime_SetFromRfc822 $ckdt [CkCert_validToStr $cert]

puts "Valid to: [CkDateTime_getAsTimestamp $ckdt 1]"
# Valid to: 2020-03-18T18:59:59-05:00new DtObj dt;
CkDateTime_ToDtObj $ckdt 1 $dt

puts [CkDtObj_get_Day $dt]/[CkDtObj_get_Month $dt]/[CkDtObj_get_Year $dt]  [CkDtObj_get_Hour $dt]:[CkDtObj_get_Minute $dt]

delete_CkCert $cert
delete_CkDateTime $ckdt
delete_CkDtObj $dt