(VB.NET UWP/WinRT) Combine Multiple PKCS12's into a Single Java KeyStore

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.

Chilkat Universal Windows Platform (UWP) / WinRT Downloads Chilkat for the Universal Windows Platform (UWP)

' 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"
Dim success As Boolean = 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