AutoIt

Add Private Key and Certificate to a PEM

See more PEM Examples

Demonstrates how to add certificates and private keys to a PEM. AutoIt

Local $bSuccess = False

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

; The Chilkat PEM class was introduced in v9.5.0.49.  
; It requires the bundle to be unlocked, as shown above.
$oPem = ObjCreate("Chilkat.Pem")

; Add the private key found in alice.key to this PEM.
; 
$oPrivKey = ObjCreate("Chilkat.PrivateKey")

$bSuccess = $oPrivKey.LoadAnyFormatFile("qa_data/alice.key","")
If ($bSuccess <> True) Then
    ConsoleWrite($oPrivKey.LastErrorText & @CRLF)
    Exit
EndIf

; Add it to the PEM:
$bSuccess = $oPem.AddPrivateKey($oPrivKey)

; Add the certificate found in alice.crt to this PEM.
; 
$oCert = ObjCreate("Chilkat.Cert")

$bSuccess = $oCert.LoadFromFile("qa_data/alice.crt")
If ($bSuccess <> True) Then
    ConsoleWrite($oCert.LastErrorText & @CRLF)
    Exit
EndIf

; Add it to the PEM:
Local $bIncludeCertChain = False
$bSuccess = $oPem.AddCert($oCert,$bIncludeCertChain)

; Write the PEM containing the private key and certificate.
; The private key will be output in PKCS8 encrypted form.
; Certificates are never encrypted.

; This is the password that will be required to open and access the private key
; from the PEM we're about to write..
Local $sPassword = "secret"
Local $bExtendedAttrs = False
Local $bNoKeys = False
Local $bNoCerts = False
Local $bNoCaCerts = False
Local $sEncryptAlg = "aes128"

Local $sPemStr = $oPem.ToPemEx($bExtendedAttrs,$bNoKeys,$bNoCerts,$bNoCaCerts,$sEncryptAlg,$sPassword)
ConsoleWrite($sPemStr & @CRLF)