|
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
(Classic ASP) Binary Certificate Extension DataSee more Certificates ExamplesDemonstrates how to binary certificate extension data by OID. The GetExtensionBd method is added in Chilkat v9.5.0.96.
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Cert") set cert = Server.CreateObject("Chilkat.Cert") success = cert.LoadFromFile("qa_data/certs/testCert.cer") If (success = 0) Then Response.Write "<pre>" & Server.HTMLEncode( cert.LastErrorText) & "</pre>" Response.End End If ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.BinData") set bd = Server.CreateObject("Chilkat.BinData") ' The particular certificate in this test contains the following extensions oid = "1.2.250.1.71.1.2.5" success = cert.GetExtensionBd(oid,bd) If (success = 1) Then Response.Write "<pre>" & Server.HTMLEncode( oid & ": " & bd.GetEncoded("hex_lower")) & "</pre>" End If oid = "1.2.250.1.71.1.2.2" success = cert.GetExtensionBd(oid,bd) If (success = 1) Then Response.Write "<pre>" & Server.HTMLEncode( oid & ": " & bd.GetEncoded("hex_lower")) & "</pre>" End If oid = "1.2.250.1.71.1.2.3" success = cert.GetExtensionBd(oid,bd) If (success = 1) Then Response.Write "<pre>" & Server.HTMLEncode( oid & ": " & bd.GetEncoded("hex_lower")) & "</pre>" End If oid = "1.2.250.1.71.1.2.7" success = cert.GetExtensionBd(oid,bd) If (success = 1) Then Response.Write "<pre>" & Server.HTMLEncode( oid & ": " & bd.GetEncoded("hex_lower")) & "</pre>" End If oid = "1.2.250.1.71.4.2.5" success = cert.GetExtensionBd(oid,bd) If (success = 1) Then Response.Write "<pre>" & Server.HTMLEncode( oid & ": " & bd.GetEncoded("hex_lower")) & "</pre>" End If ' Sample output: ' 1.2.250.1.71.1.2.5: 040180 ' 1.2.250.1.71.1.2.2: 020100 ' 1.2.250.1.71.1.2.3: 1315383032353030303030312f32393030303539313432 ' 1.2.250.1.71.1.2.7: 02010a ' 1.2.250.1.71.4.2.5: 30060c04534d3236 ' The above binary values are actually ASN.1 ' You can get the ASN.1 decoed by calling GetExtensionAsXml to get it in XML format, ' and then you extract the values from the XML. oid = "1.2.250.1.71.1.2.5" strXml = cert.GetExtensionAsXml(oid) If (cert.LastMethodSuccess = 1) Then Response.Write "<pre>" & Server.HTMLEncode( oid & ": " & strXml) & "</pre>" End If oid = "1.2.250.1.71.1.2.2" strXml = cert.GetExtensionAsXml(oid) If (cert.LastMethodSuccess = 1) Then Response.Write "<pre>" & Server.HTMLEncode( oid & ": " & strXml) & "</pre>" End If oid = "1.2.250.1.71.1.2.3" strXml = cert.GetExtensionAsXml(oid) If (cert.LastMethodSuccess = 1) Then Response.Write "<pre>" & Server.HTMLEncode( oid & ": " & strXml) & "</pre>" End If oid = "1.2.250.1.71.1.2.7" strXml = cert.GetExtensionAsXml(oid) If (cert.LastMethodSuccess = 1) Then Response.Write "<pre>" & Server.HTMLEncode( oid & ": " & strXml) & "</pre>" End If oid = "1.2.250.1.71.4.2.5" strXml = cert.GetExtensionAsXml(oid) If (cert.LastMethodSuccess = 1) Then Response.Write "<pre>" & Server.HTMLEncode( oid & ": " & strXml) & "</pre>" End If ' Sample output: ' 1.2.250.1.71.1.2.5: <octets>gA==</octets> ' 1.2.250.1.71.1.2.2: <int>00</int> ' 1.2.250.1.71.1.2.3: <printable>8025000001/2900059142</printable> ' 1.2.250.1.71.1.2.7: <int>0A</int> ' 1.2.250.1.71.4.2.5: <sequence><utf8>SM26</utf8></sequence> ' "gA==" is the base64 encoded byte values ' "0A" is hex for decimal 1 %> </body> </html> |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.