|
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) Sign with BinarySecurityTokenDemonstrates creating an XML signature using a BinarySecurityToken.
LOCAL lnSuccess LOCAL loCert LOCAL loXml LOCAL loDt LOCAL loBdCert LOCAL loKeyInfoXml LOCAL loGen LOCAL loSbXml * This example requires the Chilkat API to have been previously unlocked. * See Global Unlock Sample for sample code. * ------------------------------------------------------------------------- * Load a cert + private key from a PFX. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Cert') loCert = CreateObject('Chilkat.Cert') lnSuccess = loCert.LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123") IF (lnSuccess <> 1) THEN ? loCert.LastErrorText RELEASE loCert CANCEL ENDIF * ------------------------------------------------------------------------- * Create the XML that is to be signed. * * The XML we're creating can be found at Sample Pre-Signed XML with BinarySecurityToken * The online tool at http://tools.chilkat.io/xmlCreate.cshtml can be used to generate the following XML creation code. * * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml') loXml = CreateObject('Chilkat.Xml') loXml.Tag = "S:Envelope" loXml.AddAttribute("xmlns:S","http://www.w3.org/2003/05/soap-envelope") loXml.AddAttribute("xmlns:wsse11","http://docs.oasis-open.org/wss/oasis-wss-wssecurity-secext-1.1.xsd") loXml.AddAttribute("xmlns:wsse","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-secext-1.0.xsd") loXml.AddAttribute("xmlns:wsu","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd") loXml.AddAttribute("xmlns:xs","http://www.w3.org/2001/XMLSchema") loXml.AddAttribute("xmlns:ds","http://www.w3.org/2000/09/xmldsig#") loXml.AddAttribute("xmlns:exc14n","http://www.w3.org/2001/10/xml-exc-c14n#") loXml.UpdateAttrAt("S:Header|To",1,"xmlns","http://www.w3.org/2005/08/addressing") loXml.UpdateAttrAt("S:Header|To",1,"wsu:Id","_5002") loXml.UpdateChildContent("S:Header|To","https://XXXXXXXXX") loXml.UpdateAttrAt("S:Header|Action",1,"xmlns","http://www.w3.org/2005/08/addressing") loXml.UpdateAttrAt("S:Header|Action",1,"xmlns:S","http://www.w3.org/2003/05/soap-envelope") loXml.UpdateAttrAt("S:Header|Action",1,"S:mustUnderstand","true") loXml.UpdateChildContent("S:Header|Action","http://docs.oasis-open.org/ws-sx/ws-trust/200512/RST/Issue") loXml.UpdateAttrAt("S:Header|ReplyTo",1,"xmlns","http://www.w3.org/2005/08/addressing") loXml.UpdateChildContent("S:Header|ReplyTo|Address","http://www.w3.org/2005/08/addressing/anonymous") loXml.UpdateAttrAt("S:Header|FaultTo",1,"xmlns","http://www.w3.org/2005/08/addressing") loXml.UpdateChildContent("S:Header|FaultTo|Address","http://www.w3.org/2005/08/addressing/anonymous") loXml.UpdateAttrAt("S:Header|MessageID",1,"xmlns","http://www.w3.org/2005/08/addressing") loXml.UpdateChildContent("S:Header|MessageID","uuid:e9033251-4ff0-4618-8baf-4952ab5fd207") loXml.UpdateAttrAt("S:Header|wsse:Security",1,"S:mustUnderstand","true") loXml.UpdateAttrAt("S:Header|wsse:Security|wsu:Timestamp",1,"xmlns:ns17","http://docs.oasis-open.org/ws-sx/ws-secureconversation/200512") loXml.UpdateAttrAt("S:Header|wsse:Security|wsu:Timestamp",1,"xmlns:ns16","http://schemas.xmlsoap.org/soap/envelope/") loXml.UpdateAttrAt("S:Header|wsse:Security|wsu:Timestamp",1,"wsu:Id","_1") * Get the current date/time in timestamp format, such as "2018-05-23T02:38:27Z" * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.CkDateTime') loDt = CreateObject('Chilkat.CkDateTime') loDt.SetFromCurrentSystemTime() loXml.UpdateChildContent("S:Header|wsse:Security|wsu:Timestamp|wsu:Created",loDt.GetAsTimestamp(0)) * Add 5 minutes. loDt.AddSeconds(300) loXml.UpdateChildContent("S:Header|wsse:Security|wsu:Timestamp|wsu:Expires",loDt.GetAsTimestamp(0)) loXml.UpdateAttrAt("S:Header|wsse:Security|wsse:BinarySecurityToken",1,"xmlns:ns17","http://docs.oasis-open.org/ws-sx/ws-secureconversation/200512") loXml.UpdateAttrAt("S:Header|wsse:Security|wsse:BinarySecurityToken",1,"xmlns:ns16","http://schemas.xmlsoap.org/soap/envelope/") loXml.UpdateAttrAt("S:Header|wsse:Security|wsse:BinarySecurityToken",1,"ValueType","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-x509-token-profile-1.0#X509v3") loXml.UpdateAttrAt("S:Header|wsse:Security|wsse:BinarySecurityToken",1,"EncodingType","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-soap-message-security-1.0#Base64Binary") loXml.UpdateAttrAt("S:Header|wsse:Security|wsse:BinarySecurityToken",1,"wsu:Id","uuid_43470044-78b4-4b23-926a-b7f590d24cb8") * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.BinData') loBdCert = CreateObject('Chilkat.BinData') loCert.ExportCertDerBd(loBdCert) * Get the cert as base64 on one line. loXml.UpdateChildContent("S:Header|wsse:Security|wsse:BinarySecurityToken",loBdCert.GetEncoded("base64")) loXml.UpdateAttrAt("S:Body|RequestSecurityToken",1,"xmlns","http://docs.oasis-open.org/ws-sx/ws-trust/200512") loXml.UpdateChildContent("S:Body|RequestSecurityToken|RequestType","http://docs.oasis-open.org/ws-sx/ws-trust/200512/Issue") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|wsp:AppliesTo",1,"xmlns:wsp","http://schemas.xmlsoap.org/ws/2004/09/policy") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|wsp:AppliesTo|EndpointReference:EndpointReference",1,"xmlns:EndpointReference","http://www.w3.org/2005/08/addressing") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|wsp:AppliesTo|EndpointReference:EndpointReference",1,"xmlns","http://www.w3.org/2005/08/addressing") loXml.UpdateChildContent("S:Body|RequestSecurityToken|wsp:AppliesTo|EndpointReference:EndpointReference|Address","https://XXXXXXXXX/services") loXml.UpdateChildContent("S:Body|RequestSecurityToken|TokenType","http://docs.oasis-open.org/wss/oasis-wss-saml-token-profile-1.1#SAMLV2.0") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Claims",1,"xmlns:i","http://schemas.xmlsoap.org/ws/2005/05/identity") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Claims",1,"Dialect","http://schemas.xmlsoap.org/ws/2005/05/identity") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Claims|i:ClaimType",1,"Optional","false") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Claims|i:ClaimType",1,"Uri","http://XXXXXXXXX/2008/06/identity/claims/abn") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Claims|i:ClaimType[1]",1,"Optional","false") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Claims|i:ClaimType[1]",1,"Uri","http://XXXXXXXXX/2008/06/identity/claims/commonname") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Claims|i:ClaimType[2]",1,"Optional","false") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Claims|i:ClaimType[2]",1,"Uri","http://XXXXXXXXX/2008/06/identity/claims/credentialtype") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Claims|i:ClaimType[3]",1,"Optional","false") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Claims|i:ClaimType[3]",1,"Uri","http://XXXXXXXXX/2008/06/identity/claims/samlsubjectid") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Claims|i:ClaimType[4]",1,"Optional","false") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Claims|i:ClaimType[4]",1,"Uri","http://XXXXXXXXX/2008/06/identity/claims/fingerprint") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Claims|i:ClaimType[5]",1,"Optional","true") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Claims|i:ClaimType[5]",1,"Uri","http://XXXXXXXXX/2008/06/identity/claims/sbr_personid") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Claims|i:ClaimType[6]",1,"Optional","true") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Claims|i:ClaimType[6]",1,"Uri","http://XXXXXXXXX/2008/06/identity/claims/givennames") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Claims|i:ClaimType[7]",1,"Optional","true") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Claims|i:ClaimType[7]",1,"Uri","http://schemas.xmlsoap.org/ws/2005/05/identity/claims/surname") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Claims|i:ClaimType[8]",1,"Optional","true") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Claims|i:ClaimType[8]",1,"Uri","http://schemas.xmlsoap.org/ws/2005/05/identity/claims/emailaddress") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Claims|i:ClaimType[9]",1,"Optional","true") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Claims|i:ClaimType[9]",1,"Uri","http://XXXXXXXXX/2008/06/identity/claims/credentialadministrator") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Claims|i:ClaimType[10]",1,"Optional","true") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Claims|i:ClaimType[10]",1,"Uri","http://XXXXXXXXX/2008/06/identity/claims/stalecrlminutes") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Claims|i:ClaimType[11]",1,"Optional","true") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Claims|i:ClaimType[11]",1,"Uri","http://XXXXXXXXX/2008/06/identity/claims/subjectdn") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Claims|i:ClaimType[12]",1,"Optional","true") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Claims|i:ClaimType[12]",1,"Uri","http://XXXXXXXXX/2008/06/identity/claims/issuerdn") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Claims|i:ClaimType[13]",1,"Optional","true") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Claims|i:ClaimType[13]",1,"Uri","http://XXXXXXXXX/2008/06/identity/claims/notafterdate") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Claims|i:ClaimType[14]",1,"Optional","true") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Claims|i:ClaimType[14]",1,"Uri","http://XXXXXXXXX/2008/06/identity/claims/certificateserialnumber") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Claims|i:ClaimType[15]",1,"Optional","true") loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Claims|i:ClaimType[15]",1,"Uri","http://XXXXXXXXX/2008/06/identity/claims/previoussubject") loDt.SetFromCurrentSystemTime() loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Lifetime|wsu:Created",1,"xmlns:wsu","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd") loXml.UpdateChildContent("S:Body|RequestSecurityToken|Lifetime|wsu:Created",loDt.GetAsTimestamp(0)) * Add 40 minutes. loDt.AddSeconds(2400) loXml.UpdateAttrAt("S:Body|RequestSecurityToken|Lifetime|wsu:Expires",1,"xmlns:wsu","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-wssecurity-utility-1.0.xsd") loXml.UpdateChildContent("S:Body|RequestSecurityToken|Lifetime|wsu:Expires",loDt.GetAsTimestamp(0)) loXml.UpdateChildContent("S:Body|RequestSecurityToken|KeyType","http://docs.oasis-open.org/ws-sx/ws-trust/200512/SymmetricKey") loXml.UpdateChildContent("S:Body|RequestSecurityToken|KeySize","512") * Examine the pre-signed XML * println xml.GetXml(); * Build the custom KeyInfo XML we'll use: * * <wsse:SecurityTokenReference> * <wsse:Reference URI="#uuid_43470044-78b4-4b23-926a-b7f590d24cb8" ValueType="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-x509-token-profile-1.0#X509v3" /></wsse:SecurityTokenReference> * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.Xml') loKeyInfoXml = CreateObject('Chilkat.Xml') loKeyInfoXml.Tag = "wsse:SecurityTokenReference" loKeyInfoXml.UpdateAttrAt("wsse:Reference",1,"URI","#uuid_43470044-78b4-4b23-926a-b7f590d24cb8") loKeyInfoXml.UpdateAttrAt("wsse:Reference",1,"ValueType","http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-x509-token-profile-1.0#X509v3") * ------------------------------------------------------------------------- * Setup the XML Digital Signature Generator and add the XML Signature. * * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.XmlDSigGen') loGen = CreateObject('Chilkat.XmlDSigGen') loGen.SigLocation = "S:Envelope|S:Header|wsse:Security" loGen.SignedInfoPrefixList = "wsse S" loGen.AddSameDocRef("_1","sha1","EXCL_C14N","wsu wsse S","") loGen.AddSameDocRef("_5002","sha1","EXCL_C14N","S","") loGen.KeyInfoType = "Custom" loKeyInfoXml.EmitXmlDecl = 0 loGen.CustomKeyInfoXml = loKeyInfoXml.GetXml() * Specify the cert for signing (which has a private key because it was loaded from a PFX) loGen.SetX509Cert(loCert,1) * Indicated we want an indented signature for easier human reading. loGen.Behaviors = "IndentedSignature" * Sign the XML.. * For versions of Chilkat < 10.0.0, use CreateObject('Chilkat_9_5_0.StringBuilder') loSbXml = CreateObject('Chilkat.StringBuilder') loXml.GetXmlSb(loSbXml) lnSuccess = loGen.CreateXmlDSigSb(loSbXml) IF (lnSuccess <> 1) THEN ? loGen.LastErrorText RELEASE loCert RELEASE loXml RELEASE loDt RELEASE loBdCert RELEASE loKeyInfoXml RELEASE loGen RELEASE loSbXml CANCEL ENDIF * Examine the signed XML ? loSbXml.GetAsString() * The resulting signature (extracted from the surrounding XML) looks something like this: * <ds:Signature xmlns:ds="http://www.w3.org/2000/09/xmldsig#"> * <ds:SignedInfo> * <ds:CanonicalizationMethod Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#"> * <ec:InclusiveNamespaces xmlns:ec="http://www.w3.org/2001/10/xml-exc-c14n#" PrefixList="wsse S" /> * </ds:CanonicalizationMethod> * <ds:SignatureMethod Algorithm="http://www.w3.org/2001/04/xmldsig-more#rsa-sha256" /> * <ds:Reference URI="#_1"> * <ds:Transforms> * <ds:Transform Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#"> * <ec:InclusiveNamespaces xmlns:ec="http://www.w3.org/2001/10/xml-exc-c14n#" PrefixList="wsu wsse S" /> * </ds:Transform> * </ds:Transforms> * <ds:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" /> * <ds:DigestValue>VAJMC/L/BDvml7Qv5CBMePbKDE8=</ds:DigestValue> * </ds:Reference> * <ds:Reference URI="#_5002"> * <ds:Transforms> * <ds:Transform Algorithm="http://www.w3.org/2001/10/xml-exc-c14n#"> * <ec:InclusiveNamespaces xmlns:ec="http://www.w3.org/2001/10/xml-exc-c14n#" PrefixList="S" /> * </ds:Transform> * </ds:Transforms> * <ds:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" /> * <ds:DigestValue>sW/QFsk6kGv1dzeu0H9Qc/2kvAQ=</ds:DigestValue> * </ds:Reference> * </ds:SignedInfo> * <ds:SignatureValue>....</ds:SignatureValue> * <ds:KeyInfo> * <wsse:SecurityTokenReference> * <wsse:Reference URI="#uuid_43470044-78b4-4b23-926a-b7f590d24cb8" ValueType="http://docs.oasis-open.org/wss/2004/01/oasis-200401-wss-x509-token-profile-1.0#X509v3" /> * </wsse:SecurityTokenReference> * </ds:KeyInfo> * </ds:Signature> * RELEASE loCert RELEASE loXml RELEASE loDt RELEASE loBdCert RELEASE loKeyInfoXml RELEASE loGen RELEASE loSbXml |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.