VB.NET

Combine Multiple PKCS12's into a Single Java KeyStore

See more Java KeyStore (JKS) Examples

Combines multiple PKCS12's into a single Java KeyStore (JKS) file. To combine multiple PKCS12 files into a single JKS, simply load each PKCS12 into a PFX object, add it to the Java keystore object via the AddPfx method, and then finally write the Java keystore at the very end. VB.NET

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 New Chilkat.JavaKeyStore

Dim pfx As New Chilkat.Pfx

' Combines several PKCS12's into a single JKS.
' Simply load each, add it to the keystore, and then 
' save at the very end.

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

' Add the 1st PFX...
pfxPassword = "secret1"
success = pfx.LoadPfxFile("/someDir/file1.p12",pfxPassword)
If (success <> True) Then
    Debug.WriteLine(pfx.LastErrorText)
    Exit Sub
End If


alias = "alias1"
success = jks.AddPfx(pfx,alias,jksPassword)
If (success <> True) Then
    Debug.WriteLine(jks.LastErrorText)
    Exit Sub
End If


' Add the 2nd PFX...
pfxPassword = "secret2"
success = pfx.LoadPfxFile("/someDir/file2.p12",pfxPassword)
If (success <> True) Then
    Debug.WriteLine(pfx.LastErrorText)
    Exit Sub
End If


alias = "alias2"
success = jks.AddPfx(pfx,alias,jksPassword)
If (success <> True) Then
    Debug.WriteLine(jks.LastErrorText)
    Exit Sub
End If


' We can continue adding as many PFX's as desired...

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