IMPORT xml
MAIN
DEFINE x509 xml.CryptoX509
DEFINE key xml.CryptoKey
DEFINE doc xml.DomDocument
LET x509 = xml.CryptoX509.Create()
TRY
CALL x509.loadPEM("RSA1024Certificate.crt");
CATCH
DISPLAY "Unable to load certificate :",STATUS
EXIT PROGRAM
END TRY
TRY
CALL x509.setFeature("X509SubjectName",TRUE)
LET doc = x509.save()
CALL doc.setFeature("format-pretty-print",TRUE)
CALL doc.save("RSAX509SubjectName.xml")
CATCH
DISPLAY "Unable to save certificate :",STATUS
END TRY
END MAIN
Note: All certificates in PEM format were created with
the OpenSSL tool.