B4X Requires Chilkat v11.0.0+

Renew a DigiCert Certificate from an EST-enabled profile

See more Certificates Examples

Demonstrates how to renew a certificate from an EST-enabled profile in DigiCert​​®​​ Trust Lifecycle Manager. (The certificate must be within the renewal window configured in the certificate profile. The CSR must have same Subject DN values as the original certificate.) B4X

Dim success As Boolean = False

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

'  The example below duplicates the following OpenSSL commands:
'  
'  # Name of certificate as argument 1
'  
'  # Make new key
'  openssl ecparam -name prime256v1 -genkey -noout -out ${1}.key.pem
'  
'  # Make csr
'  openssl req -new -sha256 -key ${1}.key.pem -out ${1}.p10.csr -subj "/CN=${1}"
'  
'  # Request new cert
'  curl -v --cacert data/ca.pem --cert data/${1}.pem --key data/${1}.key.pem 
'      --data-binary @${1}.p10.csr -o ${1}.p7.b64 -H "Content-Type: application/pkcs10" https://clientauth.demo.one.digicert.com/.well-known/est/IOT/simplereenroll
'  
'  # Convert to PEM
'  openssl base64 -d -in ${1}.p7.b64 | openssl pkcs7 -inform DER -outform PEM -print_certs -out ${1}.pem

'  ------------------------------------------------------------------------------------------------------------------

'  Create a Fortuna PRNG and seed it with system entropy.
'  This will be our source of random data for generating the ECC private key.
Dim fortuna As ChilkatPrng
fortuna.Initialize
Dim entropy As String = fortuna.GetEntropy(32, "base64")
success = fortuna.AddEntropy(entropy, "base64")

Dim ec As ChilkatEcc
ec.Initialize

'  Generate a random EC private key on the prime256v1 curve.
Dim privKey As ChilkatPrivateKey
privKey.Initialize("privKey")
success = ec.GenKey("prime256v1", fortuna, privKey)
If success <> True Then
    Log(ec.LastErrorText)
    Return
End If


'  Create the CSR object and set properties.
Dim csr As ChilkatCsr
csr.Initialize

'  Specify your CN
csr.CommonName = "mysubdomain.mydomain.com"

'  Create the CSR using the private key.
Dim bdCsr As ChilkatBinData
bdCsr.Initialize
success = csr.GenCsrBd(privKey, bdCsr)
If success = False Then
    Log(csr.LastErrorText)
    Return
End If


'  Save the private key and CSR to files.
privKey.SavePkcs8EncryptedPemFile("password", "c:/temp/qa_output/ec_privkey.pem")

bdCsr.WriteFile("c:/temp/qa_output/csr.pem")

'  ----------------------------------------------------------------------
'  Now do the CURL request to POST the CSR and get the new certificate.

Dim http As ChilkatHttp
http.Initialize("http")

Dim tlsClientCert As ChilkatCert
tlsClientCert.Initialize("tlsClientCert")
success = tlsClientCert.LoadFromFile("data/myTlsClientCert.pem")
If success = False Then
    Log(tlsClientCert.LastErrorText)
    Return
End If


Dim bdTlsClientCertPrivKey As ChilkatBinData
bdTlsClientCertPrivKey.Initialize
success = bdTlsClientCertPrivKey.LoadFile("data/myTlsClientCert.key.pem")
If success = False Then
    Log("Failed to load data/myTlsClientCert.key.pem")
    Return
End If


Dim tlsClientCertPrivKey As ChilkatPrivateKey
tlsClientCertPrivKey.Initialize("tlsClientCertPrivKey")
success = tlsClientCertPrivKey.LoadAnyFormat(bdTlsClientCertPrivKey, "")
If success = False Then
    Log(tlsClientCertPrivKey.LastErrorText)
    Return
End If


success = tlsClientCert.SetPrivateKey(tlsClientCertPrivKey)
If success = False Then
    Log(tlsClientCert.LastErrorText)
    Return
End If


http.SetSslClientCert(tlsClientCert)

http.RequireSslCertVerify = True

'  The body of the HTTP request contains the binary CSR.
Dim resp As ChilkatHttpResponse
resp.Initialize
Dim url As String = "https://clientauth.demo.one.digicert.com/.well-known/est/IOT/simplereenroll"
success = http.HttpBd("POST", url, bdCsr, "application/pkcs10", resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


If resp.StatusCode <> 200 Then
    Log("response status code = " & resp.StatusCode)
    Log(resp.BodyStr)
    Log("Failed")
    Return
End If


'  The response is the Base64 DER of the new certificate.
Dim myNewCert As ChilkatCert
myNewCert.Initialize("myNewCert")
success = myNewCert.LoadFromBase64(resp.BodyStr)
If success = False Then
    Log(myNewCert.LastErrorText)
    Log("Cert data = " & resp.BodyStr)
    Log("Failed.")
    Return
End If


success = myNewCert.SaveToFile("c:/temp/qa_output/myNewCert.cer")
If success = False Then
    Log(myNewCert.LastErrorText)
    Log("Failed.")
    Return
End If


Log("Success.")