Visual Basic 6.0

Generate an RSA Key and Save to Encrypted PEM

See more RSA Examples

Demonstrates how to generate an RSA key and save to an encrypted PEM file. Visual Basic 6.0

Dim success As Long
success = 0

Dim rsa As New ChilkatRsa

' Generate a 2048-bit key.
Dim privKey As New PrivateKey
success = rsa.GenKey(2048,privKey)
If (success = 0) Then
    Debug.Print rsa.LastErrorText
    Exit Sub
End If

Dim password As String
password = "secret"
' Saving to a relative path (from the current working directory of the process).
Dim path As String
path = "rsaKeys/myTestRsaPrivate.pem"
' Encrypt the PEM using 256-bit AES encryption.
privKey.Pkcs8EncryptAlg = "aes256"
success = privKey.SavePkcs8EncryptedPemFile(password,path)
If (success = 0) Then
    Debug.Print privKey.LastErrorText
    Exit Sub
End If

' 

' We can also save the public key.
' There is no need to encrypt public keys.
Dim pubKey As New PublicKey
success = privKey.ToPublicKey(pubKey)

path = "rsaKeys/myTestRsaPublic.pem"
' Choose PKCS1 or PKCS8
' We'll choose PKCS8.
Dim preferPkcs1 As Long
preferPkcs1 = 0
success = pubKey.SavePemFile(preferPkcs1,path)
If (success = 0) Then
    Debug.Print pubKey.LastErrorText
    Exit Sub
End If

' 

Debug.Print "Success."