PowerBuilder Requires Chilkat v11.0.0+
PowerBuilder
Duplicate CSR Created by OpenSSL with Config.cnf
See more CSR Examples
Demonstrates how to duplicate a CSR created by the following commands:# Generate Private Key openssl ecparam -name secp256k1 -genkey -noout -out PrivateKey.pem #Generate CSR openssl req -new -sha256 -key PrivateKey.pem -extensions v3_req -config Config.cnf -out CSR.csr
Chilkat PowerBuilder Downloads
integer li_rc
integer li_Success
oleobject loo_SbCsr
oleobject loo_Csr0
oleobject loo_Xml0
oleobject loo_Xml
oleobject loo_Ecdsa
oleobject loo_Prng
oleobject loo_PrivKey
oleobject loo_Csr
string ls_CsrPem
li_Success = 0
// This example assumes the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
// This example duplicates the CSR created by OpenSSL with the following config file:
// oid_section = OIDs
// [ OIDs ]
// certificateTemplateName= 1.3.6.1.4.1.311.20.2
//
// [ req ]
// default_bits = 2048
// emailAddress = it@example.sa
// req_extensions = v3_req
// x509_extensions = v3_ca
// prompt = no
// default_md = sha256
// req_extensions = req_ext
// distinguished_name = dn
//
// [ v3_req ]
// basicConstraints = CA:FALSE
// keyUsage = digitalSignature, nonRepudiation, keyEncipherment
//
// [req_ext]
// certificateTemplateName = ASN1:PRINTABLESTRING:ZATCA-Code-Signing
// subjectAltName = dirName:alt_names
//
// [ dn ]
// CN =EXAMPLE-CORP # Common Name
// C=SA # Country Code e.g SA
// OU=HEAD-OFFICE # Organization Unit Name
// O=ASC # Organization Name
//
// [alt_names]
// SN=1-ASC|2-V01|3-1234567890 # EGS Serial Number 1-ABC|2-PQR|3-XYZ
// UID=312345678900003 # Organization Identifier (VAT Number)
// title=1100 # Invoice Type
// registeredAddress=Dammam # Address
// businessCategory=IT # Business Category
// The OpenSSL commands we are duplicating:
// openssl ecparam -name secp256k1 -genkey -noout -out PrivateKey.pem
// openssl req -new -sha256 -key PrivateKey.pem -extensions v3_req -config Config.cnf -out CSR.csr
// The 1st step is to actually use OpenSSL to generate a sample CSR.csr that we wish to duplicate.
// With the sample CSR.csr, we get the ExtensionRequest as XML.
// For example:
loo_SbCsr = create oleobject
li_rc = loo_SbCsr.ConnectToNewObject("Chilkat.StringBuilder")
if li_rc < 0 then
destroy loo_SbCsr
MessageBox("Error","Connecting to COM object failed")
return
end if
li_Success = loo_SbCsr.LoadFile("qa_data/csr/openssl_cnf/CSR.csr","utf-8")
if li_Success = 0 then
Write-Debug "Failed to load CSR.csr"
destroy loo_SbCsr
return
end if
loo_Csr0 = create oleobject
li_rc = loo_Csr0.ConnectToNewObject("Chilkat.Csr")
li_Success = loo_Csr0.LoadCsrPem(loo_SbCsr.GetAsString())
if li_Success = 0 then
Write-Debug loo_Csr0.LastErrorText
destroy loo_SbCsr
destroy loo_Csr0
return
end if
loo_Xml0 = create oleobject
li_rc = loo_Xml0.ConnectToNewObject("Chilkat.Xml")
li_Success = loo_Csr0.GetExtensionRequest(loo_Xml0)
if li_Success = 0 then
Write-Debug loo_Csr0.LastErrorText
destroy loo_SbCsr
destroy loo_Csr0
destroy loo_Xml0
return
end if
// Let's examine the extension request..
Write-Debug loo_Xml0.GetXml()
// <?xml version="1.0" encoding="utf-8"?>
// <set>
// <sequence>
// <sequence>
// <oid>1.3.6.1.4.1.311.20.2</oid>
// <asnOctets>
// <printable>ZATCA-Code-Signing</printable>
// </asnOctets>
// </sequence>
// <sequence>
// <oid>2.5.29.17</oid>
// <asnOctets>
// <sequence>
// <contextSpecific tag="4" constructed="1">
// <sequence>
// <set>
// <sequence>
// <oid>2.5.4.4</oid>
// <utf8>1-ASC|2-V01|3-1234567890</utf8>
// </sequence>
// </set>
// <set>
// <sequence>
// <oid>0.9.2342.19200300.100.1.1</oid>
// <utf8>312345678900003</utf8>
// </sequence>
// </set>
// <set>
// <sequence>
// <oid>2.5.4.12</oid>
// <utf8>1100</utf8>
// </sequence>
// </set>
// <set>
// <sequence>
// <oid>2.5.4.26</oid>
// <utf8>Dammam</utf8>
// </sequence>
// </set>
// <set>
// <sequence>
// <oid>2.5.4.15</oid>
// <utf8>IT</utf8>
// </sequence>
// </set>
// </sequence>
// </contextSpecific>
// </sequence>
// </asnOctets>
// </sequence>
// </sequence>
// </set>
// If you wish to generate the above XML without going through the above steps, copy the XML into
// the online tool at https://tools.chilkat.io/xmlCreate
// Here is the generated code for the above XML:
loo_Xml = create oleobject
li_rc = loo_Xml.ConnectToNewObject("Chilkat.Xml")
loo_Xml.Tag = "set"
loo_Xml.UpdateChildContent("sequence|sequence|oid","1.3.6.1.4.1.311.20.2")
loo_Xml.UpdateChildContent("sequence|sequence|asnOctets|printable","ZATCA-Code-Signing")
loo_Xml.UpdateChildContent("sequence|sequence[1]|oid","2.5.29.17")
loo_Xml.UpdateAttrAt("sequence|sequence[1]|asnOctets|sequence|contextSpecific",1,"tag","4")
loo_Xml.UpdateAttrAt("sequence|sequence[1]|asnOctets|sequence|contextSpecific",1,"constructed","1")
loo_Xml.UpdateChildContent("sequence|sequence[1]|asnOctets|sequence|contextSpecific|sequence|set|sequence|oid","2.5.4.4")
loo_Xml.UpdateChildContent("sequence|sequence[1]|asnOctets|sequence|contextSpecific|sequence|set|sequence|utf8","1-ASC|2-V01|3-1234567890")
loo_Xml.UpdateChildContent("sequence|sequence[1]|asnOctets|sequence|contextSpecific|sequence|set[1]|sequence|oid","0.9.2342.19200300.100.1.1")
loo_Xml.UpdateChildContent("sequence|sequence[1]|asnOctets|sequence|contextSpecific|sequence|set[1]|sequence|utf8","312345678900003")
loo_Xml.UpdateChildContent("sequence|sequence[1]|asnOctets|sequence|contextSpecific|sequence|set[2]|sequence|oid","2.5.4.12")
loo_Xml.UpdateChildContent("sequence|sequence[1]|asnOctets|sequence|contextSpecific|sequence|set[2]|sequence|utf8","1100")
loo_Xml.UpdateChildContent("sequence|sequence[1]|asnOctets|sequence|contextSpecific|sequence|set[3]|sequence|oid","2.5.4.26")
loo_Xml.UpdateChildContent("sequence|sequence[1]|asnOctets|sequence|contextSpecific|sequence|set[3]|sequence|utf8","Dammam")
loo_Xml.UpdateChildContent("sequence|sequence[1]|asnOctets|sequence|contextSpecific|sequence|set[4]|sequence|oid","2.5.4.15")
loo_Xml.UpdateChildContent("sequence|sequence[1]|asnOctets|sequence|contextSpecific|sequence|set[4]|sequence|utf8","IT")
// We'll need a new secp256k1 private key, so let's generate it.
loo_Ecdsa = create oleobject
li_rc = loo_Ecdsa.ConnectToNewObject("Chilkat.Ecc")
loo_Prng = create oleobject
li_rc = loo_Prng.ConnectToNewObject("Chilkat.Prng")
loo_PrivKey = create oleobject
li_rc = loo_PrivKey.ConnectToNewObject("Chilkat.PrivateKey")
li_Success = loo_Ecdsa.GenKey("secp256k1",loo_Prng,loo_PrivKey)
if li_Success = 0 then
Write-Debug loo_Ecdsa.LastErrorText
destroy loo_SbCsr
destroy loo_Csr0
destroy loo_Xml0
destroy loo_Xml
destroy loo_Ecdsa
destroy loo_Prng
destroy loo_PrivKey
return
end if
Write-Debug "Generated secp256k1 private key."
// Use a new CSR object to generate a CSR with the private key and extension request.
loo_Csr = create oleobject
li_rc = loo_Csr.ConnectToNewObject("Chilkat.Csr")
// Add the [dn] fields
// [ dn ]
// CN =EXAMPLE-CORP # Common Name
// C=SA # Country Code e.g SA
// OU=HEAD-OFFICE # Organization Unit Name
// O=ASC # Organization Name
loo_Csr.CommonName = "EXAMPLE-CORP"
loo_Csr.Country = "SA"
loo_Csr.CompanyDivision = "HEAD-OFFICE"
loo_Csr.Company = "ASC"
// Add the extension request to the CSR
loo_Csr.SetExtensionRequest(loo_Xml)
// Generate the CSR with the extension request
ls_CsrPem = loo_Csr.GenCsrPem(loo_PrivKey)
if loo_Csr.LastMethodSuccess = 0 then
Write-Debug loo_Csr.LastErrorText
destroy loo_SbCsr
destroy loo_Csr0
destroy loo_Xml0
destroy loo_Xml
destroy loo_Ecdsa
destroy loo_Prng
destroy loo_PrivKey
destroy loo_Csr
return
end if
Write-Debug ls_CsrPem
// Sample output:
// -----BEGIN CERTIFICATE REQUEST-----
// MIIBuDCCAV8CAQAwSDEVMBMGA1UEAwwMRVhBTVBMRS1DT1JQMQswCQYDVQQGEwJT
// QTEUMBIGA1UECwwLSEVBRC1PRkZJQ0UxDDAKBgNVBAoMA0FTQzBWMBAGByqGSM49
// AgEGBSuBBAAKA0IABFI5rusr76HiJcMMr1r4L0B0BOAs6azLkt/RwHoT6A0xFRRt
// tulWT40tNhx3qJ4I5ePNgMceOEtuK1kMGVTovI6ggbcwgbQGCSqGSIb3DQEJDjGB
// pjCBozAhBgkrBgEEAYI3FAIEFBMSWkFUQ0EtQ29kZS1TaWduaW5nMH4GA1UdEQR3
// MHWkczBxMSEwHwYDVQQEDBgxLUFTQ3wyLVYwMXwzLTEyMzQ1Njc4OTAxHzAdBgoJ
// kiaJk/IsZAEBDA8zMTIzNDU2Nzg5MDAwMDMxDTALBgNVBAwMBDExMDAxDzANBgNV
// BBoMBkRhbW1hbTELMAkGA1UEDwwCSVQwCgYIKoZIzj0EAwIDRwAwRAIgJnbgpSGb
// diB+0M1VTqc1GU9sFsfnOvVN/8WhWRRxQIwCIF5eH9vgMgXyoU284X8Bx3dqOJ4q
// xashGWci87POxSvT
// -----END CERTIFICATE REQUEST-----
destroy loo_SbCsr
destroy loo_Csr0
destroy loo_Xml0
destroy loo_Xml
destroy loo_Ecdsa
destroy loo_Prng
destroy loo_PrivKey
destroy loo_Csr