Chilkat • HOME • Android™ • Classic ASP • C • C++ • C# • Mono C# • .NET Core C# • C# UWP/WinRT • DataFlex • Delphi ActiveX • Delphi DLL • Visual FoxPro • Java • Lianja • MFC • Objective-C • Perl • PHP ActiveX • PHP Extension • PowerBuilder • PowerShell • PureBasic • CkPython • Chilkat2-Python • Ruby • SQL Server • Swift 2 • Swift 3,4,5... • Tcl • Unicode C • Unicode C++ • Visual Basic 6.0 • VB.NET • VB.NET UWP/WinRT • VBScript • Xojo Plugin • Node.js • Excel • Go
(Excel) Get Certificate CRL Distribution PointsDemonstrates how to get a certificate's CRL Distribution Points extension data (assuming it exists). In the vast majority of cases, there will be one CRL Distribution Point. Note: This example requires Chilkat v9.5.0.76 or greater.
Dim cert As Chilkat.Cert Set cert = Chilkat.NewCert success = cert.LoadFromFile("qa_data/certs/test_haswdt.cer") If (success <> True) Then Debug.Print cert.LastErrorText Exit Sub End If ' Get the CRL Distribution Points extension, which is at OID 2.5.29.31 extensionXmlStr = cert.GetExtensionAsXml("2.5.29.31") If (cert.LastMethodSuccess = False) Then Debug.Print "Certificate does not have the CDP extension." Exit Sub End If Dim xml As Chilkat.Xml Set xml = Chilkat.NewXml success = xml.LoadXml(extensionXmlStr) ' See what we have.. Debug.Print xml.GetXml() ' We should get XML like this: ' <?xml version="1.0" encoding="utf-8" ?> ' <sequence> ' <sequence> ' <contextSpecific tag="0" constructed="1"> ' <contextSpecific tag="0" constructed="1"> ' <contextSpecific tag="6" constructed="0">aHR0cDovL2NybC5jb21vZG9jYS5jb20vQ09NT0RPUlNBQ2xpZW50QXV0aGVudGljYXRpb25hbmRTZWN1 ' cmVFbWFpbENBLmNybA==</contextSpecific> ' </contextSpecific> ' </contextSpecific> ' </sequence> ' </sequence> ' ' Assuming there is one CRL Distribution Point... Dim sbDistPoint As Chilkat.StringBuilder Set sbDistPoint = Chilkat.NewStringBuilder success = xml.GetChildContentSb("sequence|contextSpecific|contextSpecific|contextSpecific",sbDistPoint) If (success = True) Then success = sbDistPoint.Decode("base64","utf-8") Debug.Print "CRL Distribution Point: "; sbDistPoint.GetAsString() End If ' Sample output: ' CRL Distribution Point: http://crl.comodoca.com/COMODORSAClientAuthenticationandSecureEmailCA.crl |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.