Visual Basic 6.0

Convert PKCS12 / PFX to Java KeyStore

See more Java KeyStore (JKS) Examples

Converts a PKCS12 / PFX file to a Java keystore (JKS) file. Visual Basic 6.0

Dim success As Long
success = 0

' 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

Dim pfxPassword As String
pfxPassword = "secret"

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

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

' Add the PKCS12 to the empty Java keystore object:
success = jks.AddPfx(pfx,alias,jksPassword)
If (success <> 1) Then
    Debug.Print jks.LastErrorText
    Exit Sub
End If

' 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 converted PKCS12 to JKS"
End If