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
(VB.NET UWP/WinRT) Subject Alternative Name for ICP Brasil CertsDemonstrates how to access the multiple names contained in the Subject Alternative Name of a certificate. This example is for an ICP Brasil certificate. For more information, see http://oidref.com/2.16.76.1.3
Dim cert As New Chilkat.Cert Dim success As Boolean = cert.LoadFromFile("qa_data/certs/testIcpBrasil.cer") If (success = False) Then Debug.WriteLine(cert.LastErrorText) Exit Sub End If ' If the cert's Subject Alternative Name contains multiple values, each specified by an OID, ' then the Rfc822Name property returns XML. Dim subjectAltNameXml As String = cert.Rfc822Name Debug.WriteLine(subjectAltNameXml) ' Here's a sample of the subjectAltNameXml: ' <SubjectAltName> ' <name type="oid" oid="2.16.76.1.3.4">290999653223955019700000000000000000000150424SRJUXPTS</name> ' <name type="oid" oid="2.16.76.1.3.2">JOAO SILVA</name> ' <name type="oid" oid="2.16.76.1.3.3">02408939000115</name> ' <name type="oid" oid="2.16.76.1.3.7">000000000000</name> ' </SubjectAltName> ' The XML can be parsed like this: Dim xml As New Chilkat.Xml xml.LoadXml(subjectAltNameXml) Dim oid As String Dim name As String Dim i As Integer = 0 Dim count_i As Integer = xml.NumChildrenHavingTag("name") While i < count_i xml.I = i oid = xml.ChilkatPath("name[i]|(oid)") name = xml.GetChildContent("name[i]") Debug.WriteLine(oid & ": " & name) i = i + 1 End While |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.