|
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
(Visual FoxPro) Generate a CSR containing an Extension RequestSee more CSR ExamplesDemonstrates how to generate a CSR containing a 1.2.840.113549.1.9.14 extensionRequest. Note: This example requires Chilkat v9.5.0.91 or greater.
LOCAL loEcc LOCAL loPrng LOCAL loPrivKey LOCAL loCsr LOCAL loXml LOCAL lcCsrPem * This requires the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. * This example will generate a secp256r1 ECDSA key for the CSR. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Ecc') loEcc = CreateObject('Chilkat.Ecc') * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Prng') loPrng = CreateObject('Chilkat.Prng') loPrivKey = loEcc.GenEccKey("secp256r1",loPrng) IF (loEcc.LastMethodSuccess = 0) THEN ? "Failed to generate a new ECDSA private key." RELEASE loEcc RELEASE loPrng CANCEL ENDIF * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Csr') loCsr = CreateObject('Chilkat.Csr') * Add common CSR fields: loCsr.CommonName = "mysubdomain.mydomain.com" loCsr.Country = "GB" loCsr.State = "Yorks" loCsr.Locality = "York" loCsr.Company = "Internet Widgits Pty Ltd" loCsr.EmailAddress = "support@mydomain.com" * Add the following 1.2.840.113549.1.9.14 extensionRequest * Note: The easiest way to know the content and format of the XML to be added is to examine * a pre-existing CSR with the same desired extensionRequest. You can use Chilkat to * get the extensionRequest from an existing CSR. * * Here is a sample extension request: * <?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>334623324234325</utf8> * </sequence> * </set> * <set> * <sequence> * <oid>0.9.2342.19200300.100.1.1</oid> * <utf8>310122393500003</utf8> * </sequence> * </set> * <set> * <sequence> * <oid>2.5.4.12</oid> * <utf8>0000</utf8> * </sequence> * </set> * <set> * <sequence> * <oid>2.5.4.26</oid> * <utf8>Sample E</utf8> * </sequence> * </set> * <set> * <sequence> * <oid>2.5.4.15</oid> * <utf8>Sample Business</utf8> * </sequence> * </set> * </sequence> * </contextSpecific> * </sequence> * </asnOctets> * </sequence> * </sequence> * </set> * Use this online tool to generate code from sample XML: * Generate Code to Create XML * Here's the code to generate the above extension request. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml') loXml = CreateObject('Chilkat.Xml') loXml.Tag = "set" loXml.UpdateChildContent("sequence|sequence|oid","1.3.6.1.4.1.311.20.2") loXml.UpdateChildContent("sequence|sequence|asnOctets|printable","ZATCA-Code-Signing") loXml.UpdateChildContent("sequence|sequence[1]|oid","2.5.29.17") loXml.UpdateAttrAt("sequence|sequence[1]|asnOctets|sequence|contextSpecific",1,"tag","4") loXml.UpdateAttrAt("sequence|sequence[1]|asnOctets|sequence|contextSpecific",1,"constructed","1") loXml.UpdateChildContent("sequence|sequence[1]|asnOctets|sequence|contextSpecific|sequence|set|sequence|oid","2.5.4.4") loXml.UpdateChildContent("sequence|sequence[1]|asnOctets|sequence|contextSpecific|sequence|set|sequence|utf8","334623324234325") loXml.UpdateChildContent("sequence|sequence[1]|asnOctets|sequence|contextSpecific|sequence|set[1]|sequence|oid","0.9.2342.19200300.100.1.1") loXml.UpdateChildContent("sequence|sequence[1]|asnOctets|sequence|contextSpecific|sequence|set[1]|sequence|utf8","310122393500003") loXml.UpdateChildContent("sequence|sequence[1]|asnOctets|sequence|contextSpecific|sequence|set[2]|sequence|oid","2.5.4.12") loXml.UpdateChildContent("sequence|sequence[1]|asnOctets|sequence|contextSpecific|sequence|set[2]|sequence|utf8","0000") loXml.UpdateChildContent("sequence|sequence[1]|asnOctets|sequence|contextSpecific|sequence|set[3]|sequence|oid","2.5.4.26") loXml.UpdateChildContent("sequence|sequence[1]|asnOctets|sequence|contextSpecific|sequence|set[3]|sequence|utf8","Sample E") loXml.UpdateChildContent("sequence|sequence[1]|asnOctets|sequence|contextSpecific|sequence|set[4]|sequence|oid","2.5.4.15") loXml.UpdateChildContent("sequence|sequence[1]|asnOctets|sequence|contextSpecific|sequence|set[4]|sequence|utf8","Sample Business") * Add the extension request to the CSR loCsr.SetExtensionRequest(loXml) * Generate the CSR with the extension request lcCsrPem = loCsr.GenCsrPem(loPrivKey) IF (loCsr.LastMethodSuccess = 0) THEN ? loCsr.LastErrorText RELEASE loPrivKey RELEASE loEcc RELEASE loPrng RELEASE loCsr RELEASE loXml CANCEL ENDIF ? lcCsrPem RELEASE loPrivKey * Sample PEM output: * -----BEGIN CERTIFICATE REQUEST----- * MIICEjCCAbkCAQAwgZcxITAfBgNVBAMMGG15c3ViZG9tYWluLm15ZG9tYWluLmNv * bTELMAkGA1UEBhMCR0IxDjAMBgNVBAgMBVlvcmtzMQ0wCwYDVQQHDARZb3JrMSEw * HwYDVQQKDBhJbnRlcm5ldCBXaWRnaXRzIFB0eSBMdGQxIzAhBgkqhkiG9w0BCQEW * FHN1cHBvcnRAbXlkb21haW4uY29tMFkwEwYHKoZIzj0CAQYIKoZIzj0DAQcDQgAE * g8EVNSV0ttlM9kG2E+J3ZB9WEDYVf2QA/8idrPRUafia1CHjd1kslwZA8eP2bAcf * 2O493QAENqtW6DTHJbRz8KCBvjCBuwYJKoZIhvcNAQkOMYGtMIGqMCEGCSsGAQQB * gjcUAgQUExJaQVRDQS1Db2RlLVNpZ25pbmcwgYQGA1UdEQR9MHukeTB3MRgwFgYD * VQQEDA8zMzQ2MjMzMjQyMzQzMjUxHzAdBgoJkiaJk/IsZAEBDA8zMTAxMjIzOTM1 * MDAwMDMxDTALBgNVBAwMBDAwMDAxETAPBgNVBBoMCFNhbXBsZSBFMRgwFgYDVQQP * DA9TYW1wbGUgQnVzaW5lc3MwCgYIKoZIzj0EAwIDRwAwRAIgF7D30eSBklfo+oel * 1B0z64eJDB9MB3rCoiFZlj+mz0YCIHYI87eyqdtw2LOcAoBRhyxlBT6i28+Z/8t9 * bYsMIYvp * -----END CERTIFICATE REQUEST----- RELEASE loEcc RELEASE loPrng RELEASE loCsr RELEASE loXml |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.