(PowerBuilder) Generate RSA Key and Export to PKCS1 / PKCS8

PowerBuilder example code showing how to generate an RSA public/private key and save to PKCS1 and PKCS8 format files. In a PKCS1 or PKCS8 formatted file, the key is stored in binary ASN.1 format (and ASN.1 is itself written according to DER -- Distinguished Encoding Rules). A PEM file simply contains the binary ASN.1 base64 encoded and delimited by BEGIN/END lines. PKCS1 format files are never encrypted. PKCS8 can be encrypted or unencrypted. Public keys are never encrypted (there is no need). Private keys *should* always be encrypted - unless perhaps the unencrypted private key is obtained and itself stored in some sort of secure place.

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

integer li_rc
oleobject loo_Rsa
integer li_Success
oleobject loo_PubKey
oleobject loo_PrivKey
string ls_PubKeyPem
string ls_PubKeyPkcs8Base64
string ls_PubKeyPkcs1Base64
string ls_PrivKeyPem
string ls_PrivKeyEncPem
string ls_PrivKeyPkcs1Base64
string ls_PrivKeyPkcs8Base64

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

loo_Rsa = create oleobject
// Use "Chilkat_9_5_0.Rsa" for versions of Chilkat < 10.0.0
li_rc = loo_Rsa.ConnectToNewObject("Chilkat.Rsa")
if li_rc < 0 then
    destroy loo_Rsa
    MessageBox("Error","Connecting to COM object failed")
    return
end if

// Generate a 2048-bit key.  Chilkat RSA supports
// key sizes ranging from 512 bits to 8192 bits.
li_Success = loo_Rsa.GenerateKey(2048)
if li_Success <> 1 then
    Write-Debug loo_Rsa.LastErrorText
    destroy loo_Rsa
    return
end if

// Get the public and private key parts:
loo_PubKey = loo_Rsa.ExportPublicKeyObj()
loo_PrivKey = loo_Rsa.ExportPrivateKeyObj()

// Get the public key as a PKCS8 PEM string
ls_PubKeyPem = loo_PubKey.GetPem(0)
Write-Debug ls_PubKeyPem

// Get the public key in PKCS8 format, in a Base64 encoded string.
ls_PubKeyPkcs8Base64 = loo_PubKey.GetEncoded(0,"base64")
Write-Debug ls_PubKeyPkcs8Base64

// Get the public key in PKCS1 format, in a Base64 encoded string.
ls_PubKeyPkcs1Base64 = loo_PubKey.GetEncoded(1,"base64")
Write-Debug ls_PubKeyPkcs1Base64

// Get the private key in a PKCS8 PEM string.
ls_PrivKeyPem = loo_PrivKey.GetPkcs8Pem()
Write-Debug ls_PrivKeyPem

// Get the private key in a PKCS8 encrypted PEM string.
ls_PrivKeyEncPem = loo_PrivKey.GetPkcs8EncryptedPem("myPassword")
Write-Debug ls_PrivKeyEncPem

// Get the private key in PKCS1 Base64 format
ls_PrivKeyPkcs1Base64 = loo_PrivKey.GetPkcs1ENC("base64")
Write-Debug ls_PrivKeyPkcs1Base64

// Get the private key in PKCS8 Base64 format
ls_PrivKeyPkcs8Base64 = loo_PrivKey.GetPkcs8ENC("base64")
Write-Debug ls_PrivKeyPkcs8Base64

// Save to PKCS1 / PKCS8 / PEM files...

// Save the public key to PKCS8 binary DER
li_Success = loo_PubKey.SaveDerFile(0,"pubKey_pkcs8.der")

// Save the public key to PKCS1 binary DER
li_Success = loo_PubKey.SaveDerFile("pubKey_pkcs1.der")

// Save the private key to unencrypted binary PKCS1 DER.
// Note: PKCS1 is never found in an encrypted format. 
li_Success = loo_PrivKey.SavePkcs1File("privKey_pkcs1.der")

// Save the private key to unencrypted binary PKCS8
li_Success = loo_PrivKey.SavePkcs8File("privKey_pkcs8.der")

// Save the private key to encrypted binary PKCS8
li_Success = loo_PrivKey.SavePkcs8EncryptedFile("myPassword","privKey_enc_pkcs8.der")

// Save the private key to unencrypted PKCS8 PEM
li_Success = loo_PrivKey.SavePkcs8PemFile("privKey.pem")

// Save the private key to encrypted PKCS8 PEM
li_Success = loo_PrivKey.SavePkcs8EncryptedPemFile("myPassword","privKey_enc.pem")

destroy loo_PubKey
destroy loo_PrivKey


destroy loo_Rsa