(PureBasic) Load Java KeyStore and Access Contents

Loads a Java keystore file and iterates over the contents. A Java keystore (.jks) file can contain one or more trusted root certificate entries and/or one or more private key entries. Each private key entry includes an associated certificate chain.

Chilkat PureBasic Module Download Chilkat PureBasic Module

IncludeFile "CkCert.pb"
IncludeFile "CkJavaKeyStore.pb"
IncludeFile "CkCertChain.pb"
IncludeFile "CkPrivateKey.pb"

Procedure ChilkatExample()

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

    jks.i = CkJavaKeyStore::ckCreate()
    If jks.i = 0
        Debug "Failed to create object."
        ProcedureReturn
    EndIf

    ; Load the Java keystore from a file.  The JKS file password is used
    ; to verify the keyed digest that is found at the very end of the keystore.
    ; It verifies there has been no tampering with the file.
    success.i = CkJavaKeyStore::ckLoadFile(jks,"jksFilePassword","/someDir/keyStore.jks")
    If success <> 1
        Debug CkJavaKeyStore::ckLastErrorText(jks)
        CkJavaKeyStore::ckDispose(jks)
        ProcedureReturn
    EndIf

    ; Find out how many of each type of entry:
    numTrustedCerts.i = CkJavaKeyStore::ckNumTrustedCerts(jks)
    numPrivateKeys.i = CkJavaKeyStore::ckNumPrivateKeys(jks)

    cert.i
    alias.s

    i.i

    ; For each trusted certificate, access it by getting
    ; it as a cert object.  Also get the alias associated with the certificate.
    Debug "Trusted Certs:"
    i = 0
    While i < numTrustedCerts
        cert = CkJavaKeyStore::ckGetTrustedCert(jks,i)
        Debug CkJavaKeyStore::ckGetTrustedCertAlias(jks,i) + ": " + CkCert::ckSubjectDN(cert)
        CkCert::ckDispose(cert)

        i = i + 1
    Wend

    privKey.i
    certChain.i

    ; For each private key entry, get the private key and
    ; the associated certificate chain.
    ; Each private key is password protected.  Usually it is the same
    ; password as used for the keyed digest of the entire JKS.  
    ; However, this does not have to be.  The password is passed
    ; here to handle the possibility of each private key requiring
    ; a different password.
    Debug "Private Keys:"
    i = 0
    While i < numPrivateKeys
        privKey = CkJavaKeyStore::ckGetPrivateKey(jks,"jksFilePassword",i)
        Debug CkJavaKeyStore::ckGetPrivateKeyAlias(jks,i)
        certChain = CkJavaKeyStore::ckGetCertChain(jks,i)

        ; The 1st certificate in the chain is the one associated with the private key.
        cert = CkCertChain::ckGetCert(certChain,0)
        Debug CkCert::ckSubjectDN(cert)

        CkCert::ckDispose(cert)

        CkCertChain::ckDispose(certChain)

        CkPrivateKey::ckDispose(privKey)

        i = i + 1
    Wend


    CkJavaKeyStore::ckDispose(jks)


    ProcedureReturn
EndProcedure