B4X

Add Trusted Certificate to JKS

See more Java KeyStore (JKS) Examples

Adds a trusted certificate to a Java keystore file. B4X

Dim success As Boolean = False

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

Dim jks As ChilkatJavaKeyStore
jks.Initialize

Dim jksPassword As String = "secret"
Dim jksPath As String = "/myJksTrustedCerts/cacerts.jks"

'  Load the Java keystore from a file.
success = jks.LoadFile(jksPassword, jksPath)
If success <> True Then
    Log(jks.LastErrorText)
    Return
End If


Dim cert As ChilkatCert
cert.Initialize("cert")

'  The cert's LoadFrommFile method can load a certificate from
'  virtually any format.  It will automatically determine the format
'  and load appropriately.
success = cert.LoadFromFile("/certFiles/myNewTrustedCert.pem")
If success <> True Then
    Log(cert.LastErrorText)
    Return
End If


'  The alias can be anything.  It's basically just a label 
'  used within the JKS associated with the entry.  It should
'  be unique among aliases within the JKS file.
Dim alias As String = "habanero"

success = jks.AddTrustedCert(cert, alias)
If success <> True Then
    Log(jks.LastErrorText)
    Return
End If


'  Write the JKS containing the new certificate.
success = jks.ToFile(jksPassword, jksPath)
If success <> True Then
    Log(jks.LastErrorText)
    Return
End If


Log("Added a trusted certificate to the JKS.")