(Lianja) Generate an RSA Key and Save to Encrypted PEM

See more RSA Examples

Chilkat Lianja Extension Download Chilkat Lianja Extension

loRsa = createobject("CkRsa")

// Generate a 2048-bit key.
llSuccess = loRsa.GenerateKey(2048)
if (llSuccess = .F.) then
    ? loRsa.LastErrorText
    release loRsa
    return
endif

loPrivKey = loRsa.ExportPrivateKeyObj()
lcPassword = "secret"
// Saving to a relative path (from the current working directory of the process).
lcPath = "rsaKeys/myTestRsaPrivate.pem"
// Encrypt the PEM using 256-bit AES encryption.
loPrivKey.Pkcs8EncryptAlg = "aes256"
llSuccess = loPrivKey.SavePkcs8EncryptedPemFile(lcPassword,lcPath)
if (llSuccess = .F.) then
    ? loPrivKey.LastErrorText
    release loRsa
    return
endif

release loPrivKey

// 

// We can also save the public key.
// There is no need to encrypt public keys.
loPubKey = loRsa.ExportPublicKeyObj()
lcPath = "rsaKeys/myTestRsaPublic.pem"
// Choose PKCS1 or PKCS8
// We'll choose PKCS8.
llPreferPkcs1 = .F.
llSuccess = loPubKey.SavePemFile(llPreferPkcs1,lcPath)
if (llSuccess = .F.) then
    ? loPubKey.LastErrorText
    release loRsa
    return
endif

release loPubKey

// 

? "Success."


release loRsa