(DataFlex) Load PEM Format Certificate (.pem)
Loads a PEM format digital certificate and fetches information about the cert.
Use ChilkatAx-win32.pkg
Procedure Test
Handle hoCert
Boolean iSuccess
String sTemp1
Get Create (RefClass(cComChilkatCert)) To hoCert
If (Not(IsComObjectCreated(hoCert))) Begin
Send CreateComObject of hoCert
End
// LoadFromFile will load virtually any certificate format file.
// It will auto-recognize the format and load appropiately.
Get ComLoadFromFile Of hoCert "/Users/chilkat/testData/cer/cert.pem" To iSuccess
If (iSuccess <> True) Begin
Get ComLastErrorText Of hoCert To sTemp1
Showln sTemp1
Procedure_Return
End
// DN = "Distinguished Name"
Get ComSubjectDN Of hoCert To sTemp1
Showln "SubjectDN:" sTemp1
Get ComSubjectCN Of hoCert To sTemp1
Showln "Common Name:" sTemp1
Get ComIssuerCN Of hoCert To sTemp1
Showln "Issuer Common Name:" sTemp1
Get ComSerialNumber Of hoCert To sTemp1
Showln "Serial Number:" sTemp1
End_Procedure
|