B4X Requires Chilkat v11.0.0+

Convert PKCS12 / PFX to Java Keystore (JKS)

See more PFX/P12 Examples

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

Dim success As Boolean = False

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

Dim pfx As ChilkatPfx
pfx.Initialize

'  Load the PKCS12 from a file
success = pfx.LoadPfxFile("/someDir/my.p12", "myPfxPassword")
If success = False Then
    Log(pfx.LastErrorText)
    Return
End If


Dim jksPassword As String = "myJksPassword"
Dim alias As String = "firstPrivateKeyAlias"

Dim jks As ChilkatJavaKeyStore
jks.Initialize

'  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.
success = pfx.ToJksObj(alias, jksPassword, jks)
If success = False Then
    Log(pfx.LastErrorText)
    Return
End If


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

    Return
End If


Log("Successfully converted PFX to JKS.")