B4X Requires Chilkat v11.0.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. B4X

Dim success As Boolean = False

Dim rsa As ChilkatRsa
rsa.Initialize

'  Generate a 2048-bit key.
Dim privKey As ChilkatPrivateKey
privKey.Initialize("privKey")
success = rsa.GenKey(2048, privKey)
If success = False Then
    Log(rsa.LastErrorText)
    Return
End If


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


'  

'  We can also save the public key.
'  There is no need to encrypt public keys.
Dim pubKey As ChilkatPublicKey
pubKey.Initialize
privKey.ToPublicKey(pubKey)

path = "rsaKeys/myTestRsaPublic.pem"
'  Choose PKCS1 or PKCS8
'  We'll choose PKCS8.
Dim preferPkcs1 As Boolean = False
success = pubKey.SavePemFile(preferPkcs1, path)
If success = False Then
    Log(pubKey.LastErrorText)
    Return
End If


'  

Log("Success.")