Chilkat HOME Android™ ASP Visual Basic VB.NET C# iOS (IPhone) Objective-C C++ C Unicode C++ Unicode C MFC Delphi DLL Delphi ActiveX FoxPro Java Perl PHP Extension PHP ActiveX Python PowerShell Ruby SQL Server VBScript
Export Private Key to PKCS8, PEM, DER, XMLDemonstrates how to export a digital certificate's private key to RSA PEM or DER, PKCS8 PEM or DER, or XML. Dim cert As New ChilkatCert ' Th LoadByCommonName method searches the Windows ' Current User Certificate Store and Local Machine Certificate ' Store for a certificate whose common name (CN) matches ' the argument: Dim success As Long success = cert.LoadByCommonName("Chilkat Software, Inc.") If (success = 0) Then MsgBox "Failed to find certificate!" Else ' Get the PrivateKey object: Dim pkey As PrivateKey Set pkey = cert.ExportPrivateKey() If (Not (pkey Is Nothing )) Then ' Export the private key to an RSA DER file: pkey.SaveRsaDerFile "pkey_rsa.der" ' Export to a PKCS8 DER file: pkey.SavePkcs8File "pkey_pkcs8.der" ' Export to an RSA PEM file: pkey.SaveRsaPemFile "pkey_rsa.pem" ' Export to a PKCS8 PEM file: pkey.SavePkcs8PemFile "pkey_pkcs8.pem" ' Export to XML: pkey.SaveXmlFile "pkey.xml" ' Get PKCS8 PEM string: Text1.Text = Text1.Text & "PKCS8 PEM Private Key:" & vbCrLf Text1.Refresh Text1.Text = Text1.Text & pkey.GetPkcs8Pem() & vbCrLf Text1.Refresh ' Get RSA PEM string: Text1.Text = Text1.Text & "RSA PEM Private Key:" & vbCrLf Text1.Refresh Text1.Text = Text1.Text & pkey.GetRsaPem() & vbCrLf Text1.Refresh Else MsgBox "No private key found!" End If End If ' The Chilkat Certificate, Certificate Store, Private Key, ' Public Key, and Key Container classes / objects are freeware. ' They are used by and included with the Chilkat Email, ' Crypt, S/MIME, and other commercial Chilkat components. |
© 2000-2013 Chilkat Software, Inc. All Rights Reserved.