(Tcl) Generate CSR with Uncommon Fields

See more CSR Examples

Demonstrates how to generate a new RSA key and a Certificate Signing Request (CSR) for this:

csr.common.name=Admin forInformation-MainShop
csr.serial.number=1-XYZ|2-2.0|3-999695
csr.organization.identifier=990099994100099
csr.organization.unit.name=9999910000
csr.organization.name=9999910000
csr.country.name=SA
csr.invoice.type=1100
csr.location.address=King Fahed Road
csr.industry.business.category=MainOffice

Chilkat Tcl Extension Downloads Chilkat Tcl Extension Downloads

load ./chilkat.dll

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

# First generate an RSA private key.
set rsa [new_CkRsa]

# Generate a random 2048-bit RSA key.
set success [CkRsa_GenerateKey $rsa 2048]
if {$success != 1} then {
    puts [CkRsa_lastErrorText $rsa]
    delete_CkRsa $rsa
    exit
}

# Get the private key
# privKey is a CkPrivateKey
set privKey [CkRsa_ExportPrivateKeyObj $rsa]

# Create the CSR object and set properties.
set csr [new_CkCsr]

CkCsr_put_CommonName $csr "Admin forInformation-MainShop"

# Country Name (2 letter code)
CkCsr_put_Country $csr "SA"

# Organization Name (eg, company)
CkCsr_put_Company $csr "9999910000"

# Organizational Unit Name (eg, secion/division)
CkCsr_put_CompanyDivision $csr "9999910000"

# See https://www.alvestrand.no/objectid/2.5.4.html for OIDs for the following fields:

# csr.serial.number=1-XYZ|2-2.0|3-999695
# 2.5.4.5 - id-at-serialNumber 
CkCsr_SetSubjectField $csr "2.5.4.5" "1-XYZ|2-2.0|3-999695" "UTF8String"

# csr.organization.identifier=990099994100099
# 2.5.4.45 - id-at-uniqueIdentifier   Don't know if this is correct.
CkCsr_SetSubjectField $csr "2.5.4.45" "1100" "UTF8String"

# csr.invoice.type=1100
# Don't know what this OID would be...
CkCsr_SetSubjectField $csr "2.5.4.99" "1100" "UTF8String"

# csr.location.address=King Fahed Road
# 2.5.4.9 - id-at-streetAddress 
CkCsr_SetSubjectField $csr "2.5.4.9" "King Fahed Road" "UTF8String"

# csr.industry.business.category=MainOffice
# 2.5.4.15 - id-at-businessCategory 
CkCsr_SetSubjectField $csr "2.5.4.15" "MainOffice" "UTF8String"

# Create the CSR using the private key.
set pemStr [CkCsr_genCsrPem $csr $privKey]
if {[CkCsr_get_LastMethodSuccess $csr] != 1} then {
    puts [CkCsr_lastErrorText $csr]
    delete_CkPrivateKey $privKey

    delete_CkRsa $rsa
    delete_CkCsr $csr
    exit
}

# Save the private key and CSR to a files.
CkPrivateKey_SavePkcs8EncryptedPemFile $privKey "password" "qa_output/privKey1.pem"
delete_CkPrivateKey $privKey

set fac [new_CkFileAccess]

CkFileAccess_WriteEntireTextFile $fac "qa_output/csr1.pem" $pemStr "utf-8" 0

# Show the CSR.
puts "$pemStr"

# Sample output:
# The CSR PEM can be checked here:
# https://www.networking4all.com/en/support/tools/csr+check/
# Copy-and-paste the PEM into the online CSR Decoding / CSR Verification form

# 	-----BEGIN CERTIFICATE REQUEST-----
# 	MIIC6jCCAdICAQAwgaQxITAfBgNVBAMMGG15c3ViZG9tYWluLm15ZG9tYWluLmNv
# ...
# ...
# 	hJnYCvjzFz4O9VtT+JtP9ldRHWV3KpZ8ne3AjD+F
# 	-----END CERTIFICATE REQUEST-----

delete_CkRsa $rsa
delete_CkCsr $csr
delete_CkFileAccess $fac