Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3/4 Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(DataFlex) Export Digital Certificate's Public KeyThe ExportPublicKey method can be called to get a certificate's public key. It can then be saved to any of a number of formats: (1) OpenSSL DER, (2) OpenSSL PEM, (3) RSA DER, (4) XML.
Use ChilkatAx-9.5.0-win32.pkg Procedure Test Handle hoCert Boolean iSuccess Variant vPubkey Handle hoPubkey String sTemp1 Boolean bTemp1 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/chilkat.cer" To iSuccess If (iSuccess <> True) Begin Get ComLastErrorText Of hoCert To sTemp1 Showln sTemp1 Procedure_Return End // Get the public key: Get ComExportPublicKey Of hoCert To vPubkey If (IsComObject(vPubkey)) Begin Get Create (RefClass(cComChilkatPublicKey)) To hoPubkey Set pvComObject Of hoPubkey To vPubkey End Get ComLastMethodSuccess Of hoCert To bTemp1 If (bTemp1 = False) Begin Get ComLastErrorText Of hoCert To sTemp1 Showln sTemp1 Procedure_Return End // Save to various formats: Get ComSaveOpenSslDerFile Of hoPubkey "/Users/chilkat/testData/pubkeys/chilkat_openSsl.der" To iSuccess If (iSuccess <> True) Begin Get ComLastErrorText Of hoPubkey To sTemp1 Showln sTemp1 Send Destroy of hoPubkey Procedure_Return End Get ComSaveOpenSslPemFile Of hoPubkey "/Users/chilkat/testData/pubkeys/chilkat_openSsl.pem" To iSuccess If (iSuccess <> True) Begin Get ComLastErrorText Of hoPubkey To sTemp1 Showln sTemp1 Send Destroy of hoPubkey Procedure_Return End Get ComSaveRsaDerFile Of hoPubkey "/Users/chilkat/testData/pubkeys/chilkat_rsa.der" To iSuccess If (iSuccess <> True) Begin Get ComLastErrorText Of hoPubkey To sTemp1 Showln sTemp1 Send Destroy of hoPubkey Procedure_Return End Get ComSaveXmlFile Of hoPubkey "/Users/chilkat/testData/pubkeys/chilkat.xml" To iSuccess If (iSuccess <> True) Begin Get ComLastErrorText Of hoPubkey To sTemp1 Showln sTemp1 Send Destroy of hoPubkey Procedure_Return End Send Destroy of hoPubkey Showln "Public key exported to all file formats." End_Procedure |
© 2000-2019 Chilkat Software, Inc. All Rights Reserved.