(Excel) Convert PKCS12 / PFX to Java KeyStore

Converts a PKCS12 / PFX file to a Java keystore (JKS) file.

Download Excel Class Modules Chilkat Excel Class Modules

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

Dim jks As Chilkat.JavaKeyStore
Set jks = Chilkat.NewJavaKeyStore

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


pfxPassword = "secret"

' Load a PKCS12 from a file.

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


alias = "someAlias"

jksPassword = "jksSecret"

' Add the PKCS12 to the empty Java keystore object:
success = jks.AddPfx(pfx,alias,jksPassword)
If (success <> True) Then
    Debug.Print jks.LastErrorText
    Exit Sub
End If

' Write the Java keystore to a file:
success = jks.ToFile(jksPassword,"/jksFiles/my.jks")
If (success <> True) Then
    Debug.Print jks.LastErrorText
Else
    Debug.Print "Successfully converted PKCS12 to JKS"
End If