Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(Go) Renew a DigiCert Certificate from an EST-enabled profileDemonstrates 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.)
// 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. fortuna := chilkat.NewPrng() entropy := fortuna.GetEntropy(32,"base64") success := fortuna.AddEntropy(*entropy,"base64") ec := chilkat.NewEcc() // Generate a random EC private key on the prime256v1 curve. privKey := ec.GenEccKey("prime256v1",fortuna) if ec.LastMethodSuccess() != true { fmt.Println(ec.LastErrorText()) fortuna.DisposePrng() ec.DisposeEcc() return } // Create the CSR object and set properties. csr := chilkat.NewCsr() // Specify your CN csr.SetCommonName("mysubdomain.mydomain.com") // Create the CSR using the private key. bdCsr := chilkat.NewBinData() success = csr.GenCsrBd(privKey,bdCsr) if success == false { fmt.Println(csr.LastErrorText()) privKey.DisposePrivateKey() fortuna.DisposePrng() ec.DisposeEcc() csr.DisposeCsr() bdCsr.DisposeBinData() return } // Save the private key and CSR to files. privKey.SavePkcs8EncryptedPemFile("password","c:/temp/qa_output/ec_privkey.pem") privKey.DisposePrivateKey() bdCsr.WriteFile("c:/temp/qa_output/csr.pem") // ---------------------------------------------------------------------- // Now do the CURL request to POST the CSR and get the new certificate. http := chilkat.NewHttp() tlsClientCert := chilkat.NewCert() success = tlsClientCert.LoadFromFile("data/myTlsClientCert.pem") if success == false { fmt.Println(tlsClientCert.LastErrorText()) fortuna.DisposePrng() ec.DisposeEcc() csr.DisposeCsr() bdCsr.DisposeBinData() http.DisposeHttp() tlsClientCert.DisposeCert() return } bdTlsClientCertPrivKey := chilkat.NewBinData() success = bdTlsClientCertPrivKey.LoadFile("data/myTlsClientCert.key.pem") if success == false { fmt.Println("Failed to load data/myTlsClientCert.key.pem") fortuna.DisposePrng() ec.DisposeEcc() csr.DisposeCsr() bdCsr.DisposeBinData() http.DisposeHttp() tlsClientCert.DisposeCert() bdTlsClientCertPrivKey.DisposeBinData() return } tlsClientCertPrivKey := chilkat.NewPrivateKey() success = tlsClientCertPrivKey.LoadAnyFormat(bdTlsClientCertPrivKey,"") if success == false { fmt.Println(tlsClientCertPrivKey.LastErrorText()) fortuna.DisposePrng() ec.DisposeEcc() csr.DisposeCsr() bdCsr.DisposeBinData() http.DisposeHttp() tlsClientCert.DisposeCert() bdTlsClientCertPrivKey.DisposeBinData() tlsClientCertPrivKey.DisposePrivateKey() return } success = tlsClientCert.SetPrivateKey(tlsClientCertPrivKey) if success == false { fmt.Println(tlsClientCert.LastErrorText()) fortuna.DisposePrng() ec.DisposeEcc() csr.DisposeCsr() bdCsr.DisposeBinData() http.DisposeHttp() tlsClientCert.DisposeCert() bdTlsClientCertPrivKey.DisposeBinData() tlsClientCertPrivKey.DisposePrivateKey() return } http.SetSslClientCert(tlsClientCert) http.SetRequireSslCertVerify(true) // The body of the HTTP request contains the binary CSR. resp := http.PBinaryBd("POST","https://clientauth.demo.one.digicert.com/.well-known/est/IOT/simplereenroll",bdCsr,"application/pkcs10",false,false) if http.LastMethodSuccess() == false { fmt.Println(http.LastErrorText()) fortuna.DisposePrng() ec.DisposeEcc() csr.DisposeCsr() bdCsr.DisposeBinData() http.DisposeHttp() tlsClientCert.DisposeCert() bdTlsClientCertPrivKey.DisposeBinData() tlsClientCertPrivKey.DisposePrivateKey() return } if resp.StatusCode() != 200 { fmt.Println("response status code = ", resp.StatusCode()) fmt.Println(resp.BodyStr()) fmt.Println("Failed") resp.DisposeHttpResponse() fortuna.DisposePrng() ec.DisposeEcc() csr.DisposeCsr() bdCsr.DisposeBinData() http.DisposeHttp() tlsClientCert.DisposeCert() bdTlsClientCertPrivKey.DisposeBinData() tlsClientCertPrivKey.DisposePrivateKey() return } // The response is the Base64 DER of the new certificate. myNewCert := chilkat.NewCert() success = myNewCert.LoadFromBase64(resp.BodyStr()) if success == false { fmt.Println(myNewCert.LastErrorText()) fmt.Println("Cert data = ", resp.BodyStr()) fmt.Println("Failed.") resp.DisposeHttpResponse() fortuna.DisposePrng() ec.DisposeEcc() csr.DisposeCsr() bdCsr.DisposeBinData() http.DisposeHttp() tlsClientCert.DisposeCert() bdTlsClientCertPrivKey.DisposeBinData() tlsClientCertPrivKey.DisposePrivateKey() myNewCert.DisposeCert() return } resp.DisposeHttpResponse() success = myNewCert.SaveToFile("c:/temp/qa_output/myNewCert.cer") if success == false { fmt.Println(myNewCert.LastErrorText()) fmt.Println("Failed.") fortuna.DisposePrng() ec.DisposeEcc() csr.DisposeCsr() bdCsr.DisposeBinData() http.DisposeHttp() tlsClientCert.DisposeCert() bdTlsClientCertPrivKey.DisposeBinData() tlsClientCertPrivKey.DisposePrivateKey() myNewCert.DisposeCert() return } fmt.Println("Success.") fortuna.DisposePrng() ec.DisposeEcc() csr.DisposeCsr() bdCsr.DisposeBinData() http.DisposeHttp() tlsClientCert.DisposeCert() bdTlsClientCertPrivKey.DisposeBinData() tlsClientCertPrivKey.DisposePrivateKey() myNewCert.DisposeCert() |
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.