Visual Basic 6.0

Convert PKCS12 / PFX to Java Keystore (JKS)

See more PFX/P12 Examples

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

Dim success As Long
success = 0

' 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
success = pfx.LoadPfxFile("/someDir/my.p12","myPfxPassword")
If (success = 0) Then
    Debug.Print pfx.LastErrorText
    Exit Sub
End If

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

Dim jks As New 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.
success = pfx.ToJksObj(alias,jksPassword,jks)
If (success = 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."