B4X

Convert PKCS12 / PFX to Java KeyStore

See more Java KeyStore (JKS) Examples

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

Dim success As Boolean = False

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

Dim jks As ChilkatJavaKeyStore
jks.Initialize

Dim pfx As ChilkatPfx
pfx.Initialize

Dim pfxPassword As String = "secret"

'  Load a PKCS12 from a file.
success = pfx.LoadPfxFile("/someDir/my.p12", pfxPassword)
If success <> True Then
    Log(pfx.LastErrorText)
    Return
End If


Dim alias As String = "someAlias"
Dim jksPassword As String = "jksSecret"

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


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