(Visual Basic 6.0) Convert PKCS12 / PFX to Java Keystore (JKS)

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

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

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

Dim pfx As New ChilkatPfx

' Load the PKCS12 from a file
Dim success As Long
success = pfx.LoadPfxFile("/someDir/my.p12","myPfxPassword")
If (success <> 1) Then
    Debug.Print pfx.LastErrorText
    Exit Sub
End If

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

Dim jks As ChilkatJavaKeyStore

' 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.
Set jks = pfx.ToJavaKeyStore(alias,jksPassword)
If (pfx.LastMethodSuccess = 0) Then
    Debug.Print pfx.LastErrorText
    Exit Sub
End If

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

    Exit Sub
End If

Debug.Print "Successfully converted PFX to JKS."