(Visual Basic 6.0) 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 ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

Dim jks As New ChilkatJavaKeyStore

Dim pfx As New ChilkatPfx

' 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
jksPassword = "jksSecret"

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

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

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

alias = "alias2"
success = jks.AddPfx(pfx,alias,jksPassword)
If (success <> 1) Then
    Debug.Print 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 <> 1) Then
    Debug.Print jks.LastErrorText
Else
    Debug.Print "Successfully combined multiple PKCS12's into a single JKS"
End If