(PureBasic) Convert to DER encoded X.509 Certificate (.cer, .crt)
Loads a digital certificate from any format and saves to a binary DER encoded X.509 Certificate (.cer, .crt).
IncludeFile "CkCert.pb"
Procedure ChilkatExample()
cert.i = CkCert::ckCreate()
If cert.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
success.i
; LoadFromFile will load virtually any certificate format file.
; It will auto-recognize the format and load appropiately.
; In this case, load a PEM format certificate and convert to DER.
success = CkCert::ckLoadFromFile(cert,"/Users/chilkat/testData/pem/chilkat.pem")
If success <> 1
Debug CkCert::ckLastErrorText(cert)
CkCert::ckDispose(cert)
ProcedureReturn
EndIf
success = CkCert::ckExportCertDerFile(cert,"chilkat.der")
If success <> 1
Debug CkCert::ckLastErrorText(cert)
CkCert::ckDispose(cert)
ProcedureReturn
EndIf
Debug "Converted certificate from PEM to DER format."
CkCert::ckDispose(cert)
ProcedureReturn
EndProcedure
|