|
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
(PowerBuilder) Duplicate CSR Created by OpenSSL with Config.cnfSee more CSR ExamplesDemonstrates 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
integer li_rc oleobject loo_SbCsr integer li_Success oleobject loo_Csr0 oleobject loo_Xml0 oleobject loo_Xml oleobject loo_Ecdsa oleobject loo_Prng oleobject loo_PrivKey oleobject loo_Csr string ls_CsrPem // 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_9_5_0.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_9_5_0.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_9_5_0.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_9_5_0.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_9_5_0.Ecc") loo_Prng = create oleobject li_rc = loo_Prng.ConnectToNewObject("Chilkat_9_5_0.Prng") loo_PrivKey = loo_Ecdsa.GenEccKey("secp256k1",loo_Prng) if loo_Ecdsa.LastMethodSuccess = 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 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_9_5_0.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_PrivKey destroy loo_SbCsr destroy loo_Csr0 destroy loo_Xml0 destroy loo_Xml destroy loo_Ecdsa destroy loo_Prng destroy loo_Csr return end if Write-Debug ls_CsrPem destroy loo_PrivKey // 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_Csr |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.