(AutoIt) Load PKCS12 / PFX and Access Contents

Loads a PKCS12 / PFX file and iterates over the contents which include private keys and certificates.

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

$oPfx = ObjCreate("Chilkat.Pfx")

; Load the PKCS12 from a file
Local $bSuccess = $oPfx.LoadPfxFile("/someDir/my.p12","pfxFilePassword")
If ($bSuccess <> True) Then
    ConsoleWrite($oPfx.LastErrorText & @CRLF)
    Exit
EndIf

Local $iNumPrivateKeys = $oPfx.NumPrivateKeys

Local $oPrivKey

ConsoleWrite("Private Keys:" & @CRLF)

Local $i = 0
While $i < $iNumPrivateKeys
    $oPrivKey = $oPfx.GetPrivateKey($i)

    ; Do something with the private key ...

    $i = $i + 1
Wend

Local $oCert

Local $iNumCerts = $oPfx.NumCerts

ConsoleWrite("Certs:" & @CRLF)
$i = 0
While $i < $iNumCerts
    $oCert = $oPfx.GetCert($i)
    ConsoleWrite($oCert.SubjectDN & @CRLF)

    ; If the certificate has a private key (one of the private keys within the PFX)
    ; then it can also be obtained via the certificate object:
    If ($oCert.HasPrivateKey() = True) Then

        ConsoleWrite("Has private key!" & @CRLF)

        $oPrivKey = $oCert.ExportPrivateKey()
        ; ...

    EndIf

    $i = $i + 1
Wend