Export Private Key to PKCS8, PEM, DER, XML

Demonstrates how to export a digital certificate's private key to RSA PEM or DER, PKCS8 PEM or DER, or XML.

Download Chilkat .NET for 2.0 Framework

Download Chilkat .NET for 1.0 / 1.1 Framework

Dim cert As New Chilkat.Cert()

'  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 Boolean
success = cert.LoadByCommonName("Chilkat Software, Inc.")
If (success = false) Then
    MsgBox("Failed to find certificate!")
Else

    '  Get the PrivateKey object:
    Dim pkey As Chilkat.PrivateKey

    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:
        TextBox1.Text = TextBox1.Text & "PKCS8 PEM Private Key:" & vbCrLf
        TextBox1.Refresh()
        TextBox1.Text = TextBox1.Text & pkey.GetPkcs8Pem() & vbCrLf
        TextBox1.Refresh()

        '  Get RSA PEM string:
        TextBox1.Text = TextBox1.Text & "RSA PEM Private Key:" & vbCrLf
        TextBox1.Refresh()
        TextBox1.Text = TextBox1.Text & pkey.GetRsaPem() & vbCrLf
        TextBox1.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.