|
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
(Visual FoxPro) 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.
LOCAL loCert LOCAL lnSuccess LOCAL loBd LOCAL lcOid LOCAL lcStrXml * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Cert') loCert = CreateObject('Chilkat.Cert') lnSuccess = loCert.LoadFromFile("qa_data/certs/testCert.cer") IF (lnSuccess = 0) THEN ? loCert.LastErrorText RELEASE loCert CANCEL ENDIF * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData') loBd = CreateObject('Chilkat.BinData') * The particular certificate in this test contains the following extensions lcOid = "1.2.250.1.71.1.2.5" lnSuccess = loCert.GetExtensionBd(lcOid,loBd) IF (lnSuccess = 1) THEN ? lcOid + ": " + loBd.GetEncoded("hex_lower") ENDIF lcOid = "1.2.250.1.71.1.2.2" lnSuccess = loCert.GetExtensionBd(lcOid,loBd) IF (lnSuccess = 1) THEN ? lcOid + ": " + loBd.GetEncoded("hex_lower") ENDIF lcOid = "1.2.250.1.71.1.2.3" lnSuccess = loCert.GetExtensionBd(lcOid,loBd) IF (lnSuccess = 1) THEN ? lcOid + ": " + loBd.GetEncoded("hex_lower") ENDIF lcOid = "1.2.250.1.71.1.2.7" lnSuccess = loCert.GetExtensionBd(lcOid,loBd) IF (lnSuccess = 1) THEN ? lcOid + ": " + loBd.GetEncoded("hex_lower") ENDIF lcOid = "1.2.250.1.71.4.2.5" lnSuccess = loCert.GetExtensionBd(lcOid,loBd) IF (lnSuccess = 1) THEN ? lcOid + ": " + loBd.GetEncoded("hex_lower") ENDIF * 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. lcOid = "1.2.250.1.71.1.2.5" lcStrXml = loCert.GetExtensionAsXml(lcOid) IF (loCert.LastMethodSuccess = 1) THEN ? lcOid + ": " + lcStrXml ENDIF lcOid = "1.2.250.1.71.1.2.2" lcStrXml = loCert.GetExtensionAsXml(lcOid) IF (loCert.LastMethodSuccess = 1) THEN ? lcOid + ": " + lcStrXml ENDIF lcOid = "1.2.250.1.71.1.2.3" lcStrXml = loCert.GetExtensionAsXml(lcOid) IF (loCert.LastMethodSuccess = 1) THEN ? lcOid + ": " + lcStrXml ENDIF lcOid = "1.2.250.1.71.1.2.7" lcStrXml = loCert.GetExtensionAsXml(lcOid) IF (loCert.LastMethodSuccess = 1) THEN ? lcOid + ": " + lcStrXml ENDIF lcOid = "1.2.250.1.71.4.2.5" lcStrXml = loCert.GetExtensionAsXml(lcOid) IF (loCert.LastMethodSuccess = 1) THEN ? lcOid + ": " + lcStrXml ENDIF * 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 RELEASE loCert RELEASE loBd |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.