(Visual Basic 6.0) Generate RSA Key and Export to Encrypted PEM

Visual Basic 6.0 sample showing how to generate an RSA key and export to encrypted PEM.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim rsa As New ChilkatRsa

' Generate a 1024-bit key.  Chilkat RSA supports
' key sizes ranging from 512 bits to 4096 bits.
Dim success As Long
success = rsa.GenerateKey(1024)
If (success <> 1) Then
    Debug.Print rsa.LastErrorText
    Exit Sub
End If

' Get the private key as unencrypted XML:
Dim keyXml As String
keyXml = rsa.ExportPrivateKey()
Debug.Print keyXml

' To encrypt the key -- meaning to get the key in
' an encrypted PEM format -- load it into a PrivateKey object,
' and then export to encrypted PEM:
Dim privKey As New PrivateKey

success = privKey.LoadXml(keyXml)
If (success <> 1) Then
    Debug.Print privKey.LastErrorText
    Exit Sub
End If

Dim strEncPem As String

strEncPem = privKey.GetPkcs8EncryptedPem("myPassword")

' You now have the private key in an encrypted format,
' which may be (for example) saved to a database