(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

Dim rsa As New ChilkatRsa

Dim success As Long
success = rsa.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    Text1.Text = Text1.Text & rsa.LastErrorText & vbCrLf
    Exit Sub
End If

'  Generate a 1024-bit key.  Chilkat RSA supports
'  key sizes ranging from 512 bits to 4096 bits.
success = rsa.GenerateKey(1024)
If (success <> 1) Then
    Text1.Text = Text1.Text & rsa.LastErrorText & vbCrLf
    Exit Sub
End If

'  Get the private key as unencrypted XML:
Dim keyXml As String
keyXml = rsa.ExportPrivateKey()
Text1.Text = Text1.Text & keyXml & vbCrLf

'  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
    Text1.Text = Text1.Text & privKey.LastErrorText & vbCrLf
    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.