(Excel) Convert PKCS12 / PFX to Java Keystore (JKS)

Loads a PKCS12 / PFX file and saves it to a Java keystore (JKS) file.

Download Excel Class Modules Chilkat Excel Class Modules

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

Dim pfx As Chilkat.Pfx
Set pfx = Chilkat.NewPfx

' Load the PKCS12 from a file

success = pfx.LoadPfxFile("/someDir/my.p12","myPfxPassword")
If (success <> True) Then
    Debug.Print pfx.LastErrorText
    Exit Sub
End If


jksPassword = "myJksPassword"

alias = "firstPrivateKeyAlias"

' Convert to a Java keystore object.
' The jksPassword is the password to be used for the JKS private key entries. 
' It may be the same as the PFX password, but can also be different if desired.
Set jks = pfx.ToJavaKeyStore(alias,jksPassword)
If (pfx.LastMethodSuccess = False) Then
    Debug.Print pfx.LastErrorText
    Exit Sub
End If

' Save the Java keystore to a file.
success = jks.ToFile(jksPassword,"/myKeystores/my.jks")
If (success <> True) Then
    Debug.Print jks.LastErrorText

    Exit Sub
End If

Debug.Print "Successfully converted PFX to JKS."