VB.NET
VB.NET
Create EBICS Signature (XMLDSIG)
See more EBICS Examples
Demonstrates how to create an EBICS signature. (EBICS is the Electronic Banking Internet Communication Standard)Chilkat VB.NET Downloads
Dim success As Boolean = False
' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
' This is the sample XML to be signed:
' <?xml version="1.0" encoding="UTF-8"?>
' <ebicsRequest
' xmlns="urn:org:ebics:H005"
' xmlns:ds="http://www.w3.org/2000/09/xmldsig#"
' xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
' xsi:schemaLocation="urn:org:ebics:H005 ebics_request_H005.xsd"
' Version="H005" Revision="1">
' <header authenticate="true">
' <static>
' <HostID>EBIXHOST</HostID>
' <Nonce>BDA2312973890654FAC9879A89794E65</Nonce>
' <Timestamp>2005-01-30T15:30:45.123Z</Timestamp>
' <PartnerID>CUSTM001</PartnerID>
' <UserID>USR100</UserID>
' <Product Language="en" InstituteID="Institute ID">Product Identifier</Product>
' <OrderDetails>
' <AdminOrderType>BTU</AdminOrderType>
' <BTUOrderParams>
' <Service>
' <ServiceName>SCT</ServiceName>
' <MsgName>pain.001</MsgName>
' </Service>
' </BTUOrderParams>
' </OrderDetails>
' <BankPubKeyDigests>
' <Authentication Version="X002" Algorithm="http://www.w3.org/2001/04/xmlenc#sha256">1H/rQr2Axe9hYTV2n/tCp+3UIQQ=</Authentication>
' <Encryption Version="E002" Algorithm="http://www.w3.org/2001/04/xmlenc#sha256">2lwiueWOIER823jSoiOkjl+woeI=</Encryption>
' </BankPubKeyDigests>
' <SecurityMedium>0000</SecurityMedium>
' <NumSegments>2</NumSegments>
' </static>
' <mutable>
' <TransactionPhase>Initialisation</TransactionPhase>
' </mutable>
' </header>
' <body>
' <PreValidation authenticate="true">
' <DataDigest SignatureVersion="A006"> MTIzNDU2Nzg5MDEyMzQ1Njc4OTAxMjM0NTY3ODkwMTI=</DataDigest>
' </PreValidation>
' <DataTransfer>
' <DataEncryptionInfo authenticate="true">
' <EncryptionPubKeyDigest Version="E002" Algorithm="http://www.w3.org/2001/04/xmlenc#sha256">..here hash value of the public bank key for encryption..</EncryptionPubKeyDigest>
' <TransactionKey>EIGI4En6KEB6ArEzw+iq4N1wm6EptcyxXxStA...</TransactionKey>
' <HostID>EBIXHOST</HostID>
' </DataEncryptionInfo>
' <SignatureData authenticate="true">n6KEB6ArEzw+iq4N1wm6EptcyxXxStAO...</SignatureData>
' <DataDigest SignatureVersion="A006"> MTIzNDU2Nzg5MDEyMzQ1Njc4OTAxMjM0NTY3ODkwMTI=</DataDigest>
' </DataTransfer>
' </body>
' </ebicsRequest>
' Load the above XML from a file.
Dim sbXml As New Chilkat.StringBuilder
success = sbXml.LoadFile("qa_data/xml_dsig/ebics/fileToSign.xml","utf-8")
If (success = False) Then
Debug.WriteLine("Failed to load XML input file.")
Exit Sub
End If
Dim gen As New Chilkat.XmlDSigGen
' We're going to insert the signature between the </header> and the <body>
gen.SigLocation = "ebicsRequest|header"
' Set the SigLocationMod = 1 to insert *after* the SigLocation
gen.SigLocationMod = 1
' We wish to use "ds" for the namespace..
gen.SigNamespacePrefix = "ds"
gen.SigNamespaceUri = "http://www.w3.org/2000/09/xmldsig#"
' Specify canonicalization and hash algorithms
gen.SignedInfoCanonAlg = "C14N"
gen.SignedInfoDigestMethod = "sha256"
' Add the reference.
' For EBICS signatures, we pass the special keyword "EBICS" in the 1st argument.
' This tells Chilkat to create the reference using URI="#xpointer(//*[@authenticate='true'])"
gen.AddSameDocRef("EBICS","sha256","C14N","","")
' Provide our certificate + private key. (PFX password is test123)
' (You'll use your own certificate, which can be loaded from many different sources by Chilkat, including smart cards.)
Dim cert As New Chilkat.Cert
success = cert.LoadPfxFile("qa_data/pfx/cert_test123.pfx","test123")
If (success = False) Then
Debug.WriteLine(cert.LastErrorText)
Exit Sub
End If
success = gen.SetX509Cert(cert,True)
If (success = False) Then
Debug.WriteLine(gen.LastErrorText)
Exit Sub
End If
' We don't want a KeyInfo to be included.
gen.KeyInfoType = "None"
' Request an indented signature for readability.
' This can be removed after debugging (for a more compact signature).
gen.Behaviors = "IndentedSignature"
' Sign the XML.
success = gen.CreateXmlDSigSb(sbXml)
If (success = False) Then
Debug.WriteLine(gen.LastErrorText)
Exit Sub
End If
' This is the XML with the EBICS signature added:
' <?xml version="1.0" encoding="UTF-8"?>
' <ebicsRequest
' xmlns="urn:org:ebics:H005"
' xmlns:ds="http://www.w3.org/2000/09/xmldsig#"
' xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
' xsi:schemaLocation="urn:org:ebics:H005 ebics_request_H005.xsd"
' Version="H005" Revision="1">
' <header authenticate="true">
' <static>
' <HostID>EBIXHOST</HostID>
' <Nonce>BDA2312973890654FAC9879A89794E65</Nonce>
' <Timestamp>2005-01-30T15:30:45.123Z</Timestamp>
' <PartnerID>CUSTM001</PartnerID>
' <UserID>USR100</UserID>
' <Product Language="en" InstituteID="Institute ID">Product Identifier</Product>
' <OrderDetails>
' <AdminOrderType>BTU</AdminOrderType>
' <BTUOrderParams>
' <Service>
' <ServiceName>SCT</ServiceName>
' <MsgName>pain.001</MsgName>
' </Service>
' </BTUOrderParams>
' </OrderDetails>
' <BankPubKeyDigests>
' <Authentication Version="X002" Algorithm="http://www.w3.org/2001/04/xmlenc#sha256">1H/rQr2Axe9hYTV2n/tCp+3UIQQ=</Authentication>
' <Encryption Version="E002" Algorithm="http://www.w3.org/2001/04/xmlenc#sha256">2lwiueWOIER823jSoiOkjl+woeI=</Encryption>
' </BankPubKeyDigests>
' <SecurityMedium>0000</SecurityMedium>
' <NumSegments>2</NumSegments>
' </static>
' <mutable>
' <TransactionPhase>Initialisation</TransactionPhase>
' </mutable>
' </header><AuthSignature xmlns:ds="http://www.w3.org/2000/09/xmldsig#">
' <ds:SignedInfo>
' <ds:CanonicalizationMethod Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/>
' <ds:SignatureMethod Algorithm="http://www.w3.org/2001/04/xmldsig-more#rsa-sha256"/>
' <ds:Reference URI="#xpointer(//*[@authenticate='true'])">
' <ds:Transforms>
' <ds:Transform Algorithm="http://www.w3.org/TR/2001/REC-xml-c14n-20010315"/>
' </ds:Transforms>
' <ds:DigestMethod Algorithm="http://www.w3.org/2001/04/xmlenc#sha256"/>
' <ds:DigestValue>jjLD90BedcIVxFENHse6pOnRubVUlHpKjXUF5BUd00k=</ds:DigestValue>
' </ds:Reference>
' </ds:SignedInfo>
' <ds:SignatureValue>TlVgCXGf+3kKZ4LLwqxKoMaDZSBdiDRcGpdKB+tFZ7MZse9jDqtCai7PxcvRLC7yRGRj3XWrAB6IVqXh6tXGqiAtRfa7XjezvJTmUdMEJ3hTEgKqm7cKjjZX5C+lN5XTJghOy0X1bZBl/NBJu/aqY9s8PKsD5Cpm8bFkl2ReBBTCTSF5CRK3XZr+fvWuUX2sFrFS5UDXG8/cmhaKHT15LBOJgYuLYr80dtL251Jy20rIJ5KK8xUz9gpexE61Y/ml6mUPLm8YgdACRdNvCOPRLjCqYwFbnfgaVO6MtSRG819rWyNtBhqVxdzbntiV1UobKbwFiJ1LMMHF0NCo2LGLCw==</ds:SignatureValue>
' </AuthSignature>
' <body>
' <PreValidation authenticate="true">
' <DataDigest SignatureVersion="A006"> MTIzNDU2Nzg5MDEyMzQ1Njc4OTAxMjM0NTY3ODkwMTI=</DataDigest>
' </PreValidation>
' <DataTransfer>
' <DataEncryptionInfo authenticate="true">
' <EncryptionPubKeyDigest Version="E002" Algorithm="http://www.w3.org/2001/04/xmlenc#sha256">..here hash value of the public bank key for encryption..</EncryptionPubKeyDigest>
' <TransactionKey>EIGI4En6KEB6ArEzw+iq4N1wm6EptcyxXxStA...</TransactionKey>
' <HostID>EBIXHOST</HostID>
' </DataEncryptionInfo>
' <SignatureData authenticate="true">n6KEB6ArEzw+iq4N1wm6EptcyxXxStAO...</SignatureData>
' <DataDigest SignatureVersion="A006"> MTIzNDU2Nzg5MDEyMzQ1Njc4OTAxMjM0NTY3ODkwMTI=</DataDigest>
' </DataTransfer>
' </body>
' </ebicsRequest>
Debug.WriteLine("Here's the EBICS signed XML:")
Debug.WriteLine(sbXml.GetAsString())
Debug.WriteLine("----")
' Verify the signature we just produced...
Dim verifier As New Chilkat.XmlDSig
success = verifier.LoadSignatureSb(sbXml)
If (success = False) Then
Debug.WriteLine(verifier.LastErrorText)
Exit Sub
End If
' The signature has no KeyInfo, so we must externally provide the key.
Dim pubKey As New Chilkat.PublicKey
cert.GetPublicKey(pubKey)
success = verifier.SetPublicKey(pubKey)
If (success = False) Then
Debug.WriteLine(verifier.LastErrorText)
Exit Sub
End If
success = verifier.VerifySignature(True)
If (success = False) Then
Debug.WriteLine(verifier.LastErrorText)
Exit Sub
End If
Debug.WriteLine("EBICS signature verified.")