├── .gitmodules
├── LICENSE
├── include
    ├── dvim_brix_crypto-js-develop_VB.asp
    ├── dvim_brix_crypto-js-master_VB.asp
    ├── dvim_json_douglascrockford_JSON-js_JS.asp
    ├── dvim_apiRedsysWs_VB.asp
    └── dvim_apiRedsys_VB.asp
├── InotificacionSIS.wsdl
├── ejemploRecepcionaPet.asp
├── ejemploGeneraPet.asp
├── .gitignore
├── ejemploSOAP.asp
└── README.md


/.gitmodules:
--------------------------------------------------------------------------------
 1 | [submodule "include/douglascrockford_JSON-js"]
 2 | 	path = include/douglascrockford_JSON-js
 3 | 	url = https://github.com/douglascrockford/JSON-js
 4 | [submodule "include/brix_crypto-js-master-3.1.6"]
 5 | 	path = include/brix_crypto-js-master-3.1.6
 6 | 	url = https://github.com/brix/crypto-js
 7 | [submodule "include/brix_crypto-js-develop-3.1.6"]
 8 | 	path = include/brix_crypto-js-develop-3.1.6
 9 | 	url = https://github.com/brix/crypto-js
10 | 


--------------------------------------------------------------------------------
/LICENSE:
--------------------------------------------------------------------------------
 1 | Copyright (c) 2016, DE VEGA ICT MANAGEMENT
 2 | All rights reserved.
 3 | 
 4 | Redistribution and use in source and binary forms, with or without
 5 | modification, are permitted provided that the following conditions are met:
 6 | 
 7 | * Redistributions of source code must retain the above copyright notice, this
 8 |   list of conditions and the following disclaimer.
 9 | 
10 | * Redistributions in binary form must reproduce the above copyright notice,
11 |   this list of conditions and the following disclaimer in the documentation
12 |   and/or other materials provided with the distribution.
13 | 
14 | * Neither the name of redsysHMAC256_API_ASP nor the names of its
15 |   contributors may be used to endorse or promote products derived from
16 |   this software without specific prior written permission.
17 | 
18 | THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
19 | AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
20 | IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
21 | DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE LIABLE
22 | FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
23 | DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
24 | SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
25 | CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
26 | OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
27 | OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
28 | 


--------------------------------------------------------------------------------
/include/dvim_brix_crypto-js-develop_VB.asp:
--------------------------------------------------------------------------------
 1 | <script language="vbscript" runat="server">
 2 | '
 3 | '	Copyright (c) 2016, DE VEGA ICT MANAGEMENT, SLU, CIF B66216300
 4 | '
 5 | </script>
 6 | 
 7 | <script type="text/javascript" language="javascript" runat="server" src="./brix_crypto-js-develop-3.1.6/src/core.js"></script>
 8 | <script type="text/javascript" language="javascript" runat="server" src="./brix_crypto-js-develop-3.1.6/src/enc-base64.js"></script>
 9 | <script type="text/javascript" language="javascript" runat="server" src="./brix_crypto-js-develop-3.1.6/src/md5.js"></script>
10 | <script type="text/javascript" language="javascript" runat="server" src="./brix_crypto-js-develop-3.1.6/src/evpkdf.js"></script>
11 | <script type="text/javascript" language="javascript" runat="server" src="./brix_crypto-js-develop-3.1.6/src/cipher-core.js"></script>
12 | <script type="text/javascript" language="javascript" runat="server" src="./brix_crypto-js-develop-3.1.6/src/tripledes.js"></script>
13 | <script type="text/javascript" language="javascript" runat="server" src="./brix_crypto-js-develop-3.1.6/src/sha256.js"></script>
14 | <script type="text/javascript" language="javascript" runat="server" src="./brix_crypto-js-develop-3.1.6/src/hmac.js"></script>
15 | <script type="text/javascript" language="javascript" runat="server" src="./brix_crypto-js-develop-3.1.6/src/pad-zeropadding.js"></script>
16 | <script language="vbscript" runat="server">
17 | 	Class Encrypt_Cfg
18 | 		public iv
19 | 		public mode
20 | 		public padding
21 | 		Function hasOwnProperty(name)
22 | 			hasOwnProperty = (name="iv" or name="mode" or name="padding")
23 | 		End Function
24 | 	End Class
25 | </script>
26 | 


--------------------------------------------------------------------------------
/include/dvim_brix_crypto-js-master_VB.asp:
--------------------------------------------------------------------------------
 1 | <script language="vbscript" runat="server">
 2 | '
 3 | '	Copyright (c) 2016, DE VEGA ICT MANAGEMENT, SLU, CIF B66216300
 4 | '
 5 | </script>
 6 | 
 7 | <script type="text/javascript" language="javascript" runat="server" src="./brix_crypto-js-master-3.1.6/core.js"></script>
 8 | <script type="text/javascript" language="javascript" runat="server" src="./brix_crypto-js-master-3.1.6/enc-base64.js"></script>
 9 | <script type="text/javascript" language="javascript" runat="server" src="./brix_crypto-js-master-3.1.6/md5.js"></script>
10 | <script type="text/javascript" language="javascript" runat="server" src="./brix_crypto-js-master-3.1.6/evpkdf.js"></script>
11 | <script type="text/javascript" language="javascript" runat="server" src="./brix_crypto-js-master-3.1.6/cipher-core.js"></script>
12 | <script type="text/javascript" language="javascript" runat="server" src="./brix_crypto-js-master-3.1.6/tripledes.js"></script>
13 | <script type="text/javascript" language="javascript" runat="server" src="./brix_crypto-js-master-3.1.6/sha256.js"></script>
14 | <script type="text/javascript" language="javascript" runat="server" src="./brix_crypto-js-master-3.1.6/hmac.js"></script>
15 | <script type="text/javascript" language="javascript" runat="server" src="./brix_crypto-js-master-3.1.6/pad-zeropadding.js"></script>
16 | <script type="text/javascript" language="javascript" runat="server">
17 | 	var CryptoJS; //Hay que declararla para que esté al alcance de VBScript 
18 | </script>
19 | <script language="vbscript" runat="server">
20 | 	Class Encrypt_Cfg
21 | 		public iv
22 | 		public mode
23 | 		public padding
24 | 		Function hasOwnProperty(name)
25 | 			hasOwnProperty = (name="iv" or name="mode" or name="padding")
26 | 		End Function
27 | 	End Class
28 | </script>
29 | 


--------------------------------------------------------------------------------
/include/dvim_json_douglascrockford_JSON-js_JS.asp:
--------------------------------------------------------------------------------
 1 | <script type="text/javascript" language="javascript" runat="server">
 2 | /*
 3 | 	Copyright (c) 2016, DE VEGA ICT MANAGEMENT, SLU, CIF B66216300
 4 | */
 5 | </script>
 6 | 
 7 | <script src="./douglascrockford_JSON-js/json_parse.js" type="text/javascript" language="javascript" runat="server"></script>
 8 | <script type="text/javascript" language="javascript" runat="server">
 9 | 	if (typeof JSON !== 'object') {
10 | 		JSON = {};
11 | 	}
12 | 	(function () {
13 | 		// Sobreescribimos el método parse original por el que no utiliza "eval"
14 | 		JSON.parse = json_parse;
15 | 
16 | 		JSON.replacer = function (key, value) {
17 | 			// En caso que value sea un Dictionary, lo reemplazamos por un Array asociativo
18 | 			if (value && typeof value === 'object'  &&
19 | 				typeof value.Keys === 'unknown') {
20 | 				var ret = {};
21 | 				var keys = (new VBArray(value.Keys())).toArray();
22 | 				for (var k in keys)
23 | 					ret[keys[k]] = value.Item(keys[k]);
24 | 				return ret;
25 | 			}
26 | 			else {
27 | 				//return encodeURI(value);
28 | 				return value;
29 | 			}
30 | 		};
31 | 		JSON.reviver = function (key, value) {
32 | 			// En caso que value sea un Array asociativo, devolvemos un Dictionary 
33 | 			if (value && typeof value === 'object'
34 | 				&& Object.prototype.toString.apply(value) === '[object Object]'
35 | 				) {
36 | 				var ret = new ActiveXObject("Scripting.Dictionary");
37 | 				ret.CompareMode = 1;
38 | 				for (var k in value)
39 | 					ret.Item(k)=value[k];
40 | 				return ret;
41 | 			}
42 | 			else {
43 | 				return decodeURIComponent(value);
44 | 			}
45 | 		};
46 | 	}());
47 | </script>
48 | <script src="./douglascrockford_JSON-js/json2.js" type="text/javascript" language="javascript" runat="server"></script>


--------------------------------------------------------------------------------
/InotificacionSIS.wsdl:
--------------------------------------------------------------------------------
 1 | <?xml version="1.0" encoding="utf-8" ?>
 2 | <definitions name="InotificacionSIS"
 3 | targetNamespace="https://sis.SERMEPA.es/sis/InotificacionSIS.wsdl" xmlns:xs="http://www.w3.org/2001/XMLSchema" xmlns:tns="https://sis.SERMEPA.es/sis/InotificacionSIS.wsdl" xmlns:soapenc="http://schemas.xmlsoap.org/soap/encoding/" xmlns:soap="http://schemas.xmlsoap.org/wsdl/soap/" xmlns="http://schemas.xmlsoap.org/wsdl/">
 4 | <message name="procesaNotificacionSISRequest">
 5 |   <part name="XML" type="xs:string"/>
 6 | </message>
 7 | <message name="procesaNotificacionSISResponse">
 8 |   <part name="return" type="xs:string"/>
 9 | </message>
10 | <portType name="InotificacionSISPortType">
11 |   <operation name="procesaNotificacionSIS">
12 |     <input message="tns:procesaNotificacionSISRequest"/>
13 |     <output message="tns:procesaNotificacionSISResponse"/>
14 |   </operation>
15 | </portType>
16 | <binding name="InotificacionSISBinding" type="tns:InotificacionSISPortType">
17 |   <soap:binding style="rpc" transport="http://schemas.xmlsoap.org/soap/http"/>
18 |   <operation name="procesaNotificacionSIS">
19 |     <soap:operation
20 |     soapAction="urn:InotificacionSIS#procesaNotificacionSIS" style="rpc"/>
21 |     <input>
22 |       <soap:body use="encoded"
23 |       encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="InotificacionSIS"/>
24 |     </input>
25 |     <output>
26 |       <soap:body use="encoded"
27 |       encodingStyle="http://schemas.xmlsoap.org/soap/encoding/" namespace="InotificacionSIS"/>
28 |     </output>
29 |   </operation>
30 | </binding>
31 | <service name="InotificacionSISService">
32 |   <port name="InotificacionSIS" binding="tns:InotificacionSISBinding">
33 |     <soap:address location="ejemploSOAP.asp"/>
34 |   </port>
35 | </service>
36 | </definitions>


--------------------------------------------------------------------------------
/ejemploRecepcionaPet.asp:
--------------------------------------------------------------------------------
 1 | <%@ language="vbscript" codepage="65001"%>
 2 | <script language="vbscript" runat="server">
 3 | '
 4 | '	Copyright (c) 2016, DE VEGA ICT MANAGEMENT, SLU, CIF B66216300
 5 | '
 6 | </script>
 7 | 
 8 | 
 9 | <!-- #include file="./include/dvim_apiRedsys_VB.asp" -->
10 | 
11 | <html lang="es">
12 | <head>
13 | 	<title>Ejemplo de Recepción de Respuesta a Petición (URL OK, KO)</title>
14 | </head>
15 | <body>
16 | <%
17 | 	Response.CharSet = "utf-8"
18 | 
19 | 	' Se crea Objeto
20 | 	Dim miObj 
21 | 	Set miObj = new RedsysAPI
22 | 
23 | 	If (Request.Form.Count>0 or Request.QueryString.Count>0) Then'//URL DE RESP. ONLINE
24 | 		Dim version, datos, signatureRecibida					
25 | 		version = Request("Ds_SignatureVersion")
26 | 		datos = Request("Ds_MerchantParameters")
27 | 		signatureRecibida = Request("Ds_Signature")
28 | 
29 | 		Dim kc, firma
30 | 		kc = "Mk9m98IfEblmPfrpsawt7BmxObt98Jev" 'Clave recuperada de CANALES
31 | 		firma = miObj.createMerchantSignatureNotif(kc,datos)
32 | 
33 | 		If (firma = signatureRecibida) Then
34 | 			Response.Write "FIRMA OK<br/>"
35 | 		Else
36 | 			Response.Write "FIRMA KO<br/>"
37 | 		End If
38 | 		Response.Write "Ds_Date=" & miObj.getParameter("Ds_Date") & "<br/>"
39 | 		Response.Write "Ds_Hour=" & miObj.getParameter("Ds_Hour") & "<br/>"
40 | 		Response.Write "Ds_Order=" & miObj.getParameter("Ds_Order") & "<br/>"
41 | 		Response.Write "Ds_SecurePayment=" & miObj.getParameter("Ds_SecurePayment") & "<br/>"
42 | 		Response.Write "Ds_Amount=" & miObj.getParameter("Ds_Amount") & "<br/>"
43 | 		Response.Write "Ds_Currency=" & miObj.getParameter("Ds_Currency") & "<br/>"
44 | 		Response.Write "Ds_MerchantCode=" & miObj.getParameter("Ds_MerchantCode") & "<br/>"
45 | 		Response.Write "Ds_Terminal=" & miObj.getParameter("Ds_Terminal") & "<br/>"
46 | 		Response.Write "Ds_Response=" & miObj.getParameter("Ds_Response") & "<br/>"
47 | 		Response.Write "Ds_TransactionType=" & miObj.getParameter("Ds_TransactionType") & "<br/>"
48 | 		Response.Write "Ds_MerchantData=" & miObj.getParameter("Ds_MerchantData") & "<br/>"
49 | 		Response.Write "Ds_AuthorisationCode=" & miObj.getParameter("Ds_AuthorisationCode") & "<br/>"
50 | 		Response.Write "Ds_ConsumerLanguage=" & miObj.getParameter("Ds_ConsumerLanguage") & "<br/>"
51 | 
52 | 	End If
53 | 
54 | %>
55 | </body> 
56 | </html> 


--------------------------------------------------------------------------------
/ejemploGeneraPet.asp:
--------------------------------------------------------------------------------
 1 | <%@ language="vbscript" codepage="65001"%>
 2 | <script language="vbscript" runat="server">
 3 | '
 4 | '	Copyright (c) 2016, DE VEGA ICT MANAGEMENT, SLU, CIF B66216300
 5 | '
 6 | </script>
 7 | 
 8 | 
 9 | <!-- #include file="./include/dvim_apiRedsys_VB.asp" -->
10 | 
11 | <html lang="es">
12 | <head>
13 | 	<title>Ejemplo de Generación de Petición</title>
14 | </head>
15 | <body>
16 | <% 
17 | 	Response.CharSet = "utf-8"
18 | 
19 | 	' Se crea Objeto
20 | 	Dim miObj 
21 | 	Set miObj = new RedsysAPI
22 | 		
23 | 	' Valores de entrada
24 | 	Dim fuc,terminal,moneda,trans,url,urlOKKO,id,amount
25 | 	fuc="999008881"
26 | 	terminal="871"
27 | 	moneda="978"
28 | 	trans="0"
29 | 	amount="145"
30 | 	id="ped" & time() 'no acepta +,&,€,"
31 | 	url="" 'Colocar la URL completa de ejemploSOAP.asp (debe ser accesible desde RedSys, por tanto no puede ser localhost)
32 | 	urlOKKO="" 'Colocar la URL completa de ejemploRecepcionaPet.asp (puede ser localhost para pruebas)
33 | 	
34 | 	' Se Rellenan los campos
35 | 	call miObj.setParameter("DS_MERCHANT_AMOUNT",amount)
36 | 	call miObj.setParameter("DS_MERCHANT_ORDER",CStr(id))
37 | 	call miObj.setParameter("DS_MERCHANT_MERCHANTCODE",fuc)
38 | 	call miObj.setParameter("DS_MERCHANT_CURRENCY",moneda)
39 | 	call miObj.setParameter("DS_MERCHANT_TRANSACTIONTYPE",trans)
40 | 	call miObj.setParameter("DS_MERCHANT_TERMINAL",terminal)
41 | 	call miObj.setParameter("DS_MERCHANT_MERCHANTURL",url)
42 | 	call miObj.setParameter("DS_MERCHANT_URLOK",urlOKKO)	
43 | 	call miObj.setParameter("DS_MERCHANT_URLKO",urlOKKO)
44 | 
45 | 	' Datos de configuración
46 | 	Dim version
47 | 	version="HMAC_SHA256_V1"
48 | 	kc = "Mk9m98IfEblmPfrpsawt7BmxObt98Jev" 'Clave recuperada de CANALES
49 | 	' Se generan los parámetros de la petición
50 | 	Dim params,signature
51 | 	params = miObj.createMerchantParameters()
52 | 	signature = miObj.createMerchantSignature(kc)
53 | 
54 | 	Dim postURL
55 | 	postURL = "https://sis-d.redsys.es/sis/realizarPago"  'URL DE DESARROLLO CON HTTPS
56 | 	'postURL = "http://sis-d.redsys.es/sis/realizarPago" 'URL DE DESARROLLO
57 | 	'postURL = "https://sis-t.redsys.es:25443/sis/realizarPago"  'URL DE PRUEBAS, USAR CON LOS DATOS DE VUESTRO COMERCIO
58 | 	'postURL = "https://sis.redsys.es/sis/realizarPago"  'URL DE PRODUCCION, USAR CON LOS DATOS DE VUESTRO COMERCIO
59 | 
60 | 	 
61 | %>
62 | <form name="frm" action="<%=postURL%>" method="POST" target="_blank">
63 | Ds_Merchant_SignatureVersion <input type="text" name="Ds_SignatureVersion" value="<%=version%>"/><br/>
64 | Ds_Merchant_MerchantParameters <input type="text" name="Ds_MerchantParameters" value="<%=params%>"/><br/>
65 | Ds_Merchant_Signature <input type="text" name="Ds_Signature" value="<%=signature%>"/><br/>
66 | <input type="submit" value="Enviar" >
67 | </form>
68 | 
69 | </body>
70 | </html>
71 | 


--------------------------------------------------------------------------------
/.gitignore:
--------------------------------------------------------------------------------
  1 | ## Ignore Visual Studio temporary files, build results, and
  2 | ## files generated by popular Visual Studio add-ons.
  3 | 
  4 | # User-specific files
  5 | *.suo
  6 | *.user
  7 | *.userosscache
  8 | *.sln.docstates
  9 | 
 10 | # User-specific files (MonoDevelop/Xamarin Studio)
 11 | *.userprefs
 12 | 
 13 | # Build results
 14 | [Dd]ebug/
 15 | [Dd]ebugPublic/
 16 | [Rr]elease/
 17 | [Rr]eleases/
 18 | x64/
 19 | x86/
 20 | bld/
 21 | [Bb]in/
 22 | [Oo]bj/
 23 | 
 24 | # Visual Studio 2015 cache/options directory
 25 | .vs/
 26 | # Uncomment if you have tasks that create the project's static files in wwwroot
 27 | #wwwroot/
 28 | 
 29 | # MSTest test Results
 30 | [Tt]est[Rr]esult*/
 31 | [Bb]uild[Ll]og.*
 32 | 
 33 | # NUNIT
 34 | *.VisualState.xml
 35 | TestResult.xml
 36 | 
 37 | # Build Results of an ATL Project
 38 | [Dd]ebugPS/
 39 | [Rr]eleasePS/
 40 | dlldata.c
 41 | 
 42 | # DNX
 43 | project.lock.json
 44 | artifacts/
 45 | 
 46 | *_i.c
 47 | *_p.c
 48 | *_i.h
 49 | *.ilk
 50 | *.meta
 51 | *.obj
 52 | *.pch
 53 | *.pdb
 54 | *.pgc
 55 | *.pgd
 56 | *.rsp
 57 | *.sbr
 58 | *.tlb
 59 | *.tli
 60 | *.tlh
 61 | *.tmp
 62 | *.tmp_proj
 63 | *.log
 64 | *.vspscc
 65 | *.vssscc
 66 | .builds
 67 | *.pidb
 68 | *.svclog
 69 | *.scc
 70 | 
 71 | # Chutzpah Test files
 72 | _Chutzpah*
 73 | 
 74 | # Visual C++ cache files
 75 | ipch/
 76 | *.aps
 77 | *.ncb
 78 | *.opendb
 79 | *.opensdf
 80 | *.sdf
 81 | *.cachefile
 82 | 
 83 | # Visual Studio profiler
 84 | *.psess
 85 | *.vsp
 86 | *.vspx
 87 | *.sap
 88 | 
 89 | # TFS 2012 Local Workspace
 90 | $tf/
 91 | 
 92 | # Guidance Automation Toolkit
 93 | *.gpState
 94 | 
 95 | # ReSharper is a .NET coding add-in
 96 | _ReSharper*/
 97 | *.[Rr]e[Ss]harper
 98 | *.DotSettings.user
 99 | 
100 | # JustCode is a .NET coding add-in
101 | .JustCode
102 | 
103 | # TeamCity is a build add-in
104 | _TeamCity*
105 | 
106 | # DotCover is a Code Coverage Tool
107 | *.dotCover
108 | 
109 | # NCrunch
110 | _NCrunch_*
111 | .*crunch*.local.xml
112 | nCrunchTemp_*
113 | 
114 | # MightyMoose
115 | *.mm.*
116 | AutoTest.Net/
117 | 
118 | # Web workbench (sass)
119 | .sass-cache/
120 | 
121 | # Installshield output folder
122 | [Ee]xpress/
123 | 
124 | # DocProject is a documentation generator add-in
125 | DocProject/buildhelp/
126 | DocProject/Help/*.HxT
127 | DocProject/Help/*.HxC
128 | DocProject/Help/*.hhc
129 | DocProject/Help/*.hhk
130 | DocProject/Help/*.hhp
131 | DocProject/Help/Html2
132 | DocProject/Help/html
133 | 
134 | # Click-Once directory
135 | publish/
136 | 
137 | # Publish Web Output
138 | *.[Pp]ublish.xml
139 | *.azurePubxml
140 | # TODO: Comment the next line if you want to checkin your web deploy settings 
141 | # but database connection strings (with potential passwords) will be unencrypted
142 | *.pubxml
143 | *.publishproj
144 | 
145 | # NuGet Packages
146 | *.nupkg
147 | # The packages folder can be ignored because of Package Restore
148 | **/packages/*
149 | # except build/, which is used as an MSBuild target.
150 | !**/packages/build/
151 | # Uncomment if necessary however generally it will be regenerated when needed
152 | #!**/packages/repositories.config
153 | # NuGet v3's project.json files produces more ignoreable files
154 | *.nuget.props
155 | *.nuget.targets
156 | 
157 | # Microsoft Azure Build Output
158 | csx/
159 | *.build.csdef
160 | 
161 | # Microsoft Azure Emulator
162 | ecf/
163 | rcf/
164 | 
165 | # Microsoft Azure ApplicationInsights config file
166 | ApplicationInsights.config
167 | 
168 | # Windows Store app package directory
169 | AppPackages/
170 | BundleArtifacts/
171 | 
172 | # Visual Studio cache files
173 | # files ending in .cache can be ignored
174 | *.[Cc]ache
175 | # but keep track of directories ending in .cache
176 | !*.[Cc]ache/
177 | 
178 | # Others
179 | ClientBin/
180 | ~$*
181 | *~
182 | *.dbmdl
183 | *.dbproj.schemaview
184 | *.pfx
185 | *.publishsettings
186 | node_modules/
187 | orleans.codegen.cs
188 | 
189 | # RIA/Silverlight projects
190 | Generated_Code/
191 | 
192 | # Backup & report files from converting an old project file
193 | # to a newer Visual Studio version. Backup files are not needed,
194 | # because we have git ;-)
195 | _UpgradeReport_Files/
196 | Backup*/
197 | UpgradeLog*.XML
198 | UpgradeLog*.htm
199 | 
200 | # SQL Server files
201 | *.mdf
202 | *.ldf
203 | 
204 | # Business Intelligence projects
205 | *.rdl.data
206 | *.bim.layout
207 | *.bim_*.settings
208 | 
209 | # Microsoft Fakes
210 | FakesAssemblies/
211 | 
212 | # GhostDoc plugin setting file
213 | *.GhostDoc.xml
214 | 
215 | # Node.js Tools for Visual Studio
216 | .ntvs_analysis.dat
217 | 
218 | # Visual Studio 6 build log
219 | *.plg
220 | 
221 | # Visual Studio 6 workspace options file
222 | *.opt
223 | 
224 | # Visual Studio LightSwitch build output
225 | **/*.HTMLClient/GeneratedArtifacts
226 | **/*.DesktopClient/GeneratedArtifacts
227 | **/*.DesktopClient/ModelManifest.xml
228 | **/*.Server/GeneratedArtifacts
229 | **/*.Server/ModelManifest.xml
230 | _Pvt_Extensions
231 | 
232 | # Paket dependency manager
233 | .paket/paket.exe
234 | 
235 | # FAKE - F# Make
236 | .fake/
237 | /.project
238 | 


--------------------------------------------------------------------------------
/ejemploSOAP.asp:
--------------------------------------------------------------------------------
  1 | <%@ language="vbscript" codepage="65001"%>
  2 | <script language="vbscript" runat="server">
  3 | '
  4 | '	Copyright (c) 2016, DE VEGA ICT MANAGEMENT, SLU, CIF B66216300
  5 | '
  6 | </script>
  7 | 
  8 | 
  9 | <!-- #include file="./include/dvim_apiRedsys_VB.asp" -->
 10 | 
 11 | <% 
 12 | 	Response.CharSet = "utf-8"
 13 | 	Response.ContentType = "text/xml"
 14 | 
 15 | 	If (Request("wsdl").Count>0) Then
 16 | 		Server.Transfer "InotificacionSIS.wsdl"
 17 | 		Response.End
 18 | 	End If
 19 | 
 20 | 	Dim reqSize, content
 21 | 	reqSize=Request.TotalBytes
 22 | 	content = Request.BinaryRead(reqSize)
 23 | 
 24 | 	Dim sSOAPOut
 25 | 	sSOAPOut = procesaNotificacionSIS(content)
 26 | 	Response.Write sSOAPOut
 27 | 
 28 | 	' notificacionSIS_request es Byte() con el NotificacionSIS SOAP Request
 29 | 	' devuelve strNotificacionSIS_response (utf8)String'
 30 | 	Function procesaNotificacionSIS(ByVal notificacionSIS)
 31 | 		' Se crea Objeto
 32 | 		Dim miObj
 33 | 		Set miObj = new RedsysAPI
 34 | 		' Obtenemos el String UTF8 del notificacionSIS
 35 | 		Dim strInput
 36 | 		strInput = miObj.ConvertToUtf8String(notificacionSIS)
 37 | 		If (Len(strInput)>0) Then
 38 | 			' Extraemos el SOAP envelope
 39 | 			Dim xmlMessage
 40 | 			xmlMessage = extractSOAPEnvelope(strInput)
 41 | 			Dim signatureRecibida
 42 | 			signatureRecibida = miObj.getSignatureNotifSOAP(xmlMessage)
 43 | 			Dim kc, firma
 44 | 			kc = "Mk9m98IfEblmPfrpsawt7BmxObt98Jev" 'Clave recuperada de CANALES
 45 | 			firma = miObj.createMerchantSignatureNotifSOAPRequest(kc,xmlMessage) 'TODO: encodedMessage o de xmlMessage ?'
 46 | 			Dim res
 47 | 			res = "KO"
 48 | 			If (firma = signatureRecibida) Then 
 49 | 				'Aquí deberíais verificar los parámetros recibidos, pe 
 50 | 				'Ds_Card_Country -> miObj.getParameter("Card_Country"), 
 51 | 				'Ds_Response -> miObj.getParameter("Response"), 
 52 | 				'Ds_AuthorisationCode -> miObj.getParameter("AuthorisationCode"), etc.
 53 | 				res = "OK"
 54 | 			End If
 55 | 			Dim numPedido
 56 | 			numPedido = miObj.getParameter("Order") 'Ds_Order
 57 | 			Dim xmlResp 
 58 | 			xmlResp = "<Response Ds_Version='0.0'><Ds_Response_Merchant>" & res & "</Ds_Response_Merchant></Response>"
 59 | 			Dim xmlSign
 60 | 			xmlSign = "<Signature>" & miObj.createMerchantSignatureNotifSOAPResponse(kc,xmlResp,numPedido) & "</Signature>"
 61 | 			Dim xmlMessageResponse
 62 | 			xmlMessageResponse = "<Message>" & xmlResp & xmlSign & "</Message>"
 63 | 			procesaNotificacionSIS=generateSOAPEnvelope(xmlMessageResponse)
 64 | 		Else
 65 | 			'TODO: generar el SOAP error correspondiente
 66 | 			procesaNotificacionSIS=generateSOAPEnvelope("")
 67 | 		End If
 68 | 	End Function
 69 | 
 70 | 	'Función básica para generar el envoltorio SOAP al mensaje de respuesta
 71 | 	Function generateSOAPEnvelope(xmlMessageResponse)
 72 | 		Dim encodedMessage
 73 | 		encodedMessage = XML1_encode (xmlMessageResponse)
 74 | 		generateSOAPEnvelope = "" & _
 75 | "<soapenv:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soapenv=""http://schemas.xmlsoap.org/soap/envelope/"" xmlns:inot=""InotificacionSIS"">" & _
 76 | "<soapenv:Header/>" & _
 77 | "<soapenv:Body>" & _
 78 | "<inot:procesaNotificacionSISResponse soapenv:encodingStyle=""http://schemas.xmlsoap.org/soap/encoding/"">" & _
 79 | "<return xsi:type=""xsd:string"">" & encodedMessage & "</return>" & _
 80 | "</inot:procesaNotificacionSISResponse>" & _
 81 | "</soapenv:Body>" & _
 82 | "</soapenv:Envelope>"
 83 | 	End Function
 84 | 
 85 | 		'Función básica para eliminar el envoltorio SOAP al mensaje de solicitud
 86 | 	Function extractSOAPEnvelope(strSOAPRequest)
 87 | 		Dim posXMLIni, posXMLFin, posXMLIniEnd, encodedXMLContent
 88 | 		posXMLIni = InStr(strSOAPRequest, "<XML")
 89 | 		posXMLFin = InStr(strSOAPRequest, "</XML>")
 90 | 		encodedXMLContent = Mid(strSOAPRequest,posXMLIni,posXMLFin-posXMLIni)
 91 | 		posXMLIniEnd = InStr(encodedXMLContent, ">")
 92 | 		encodedXMLContent = Mid(encodedXMLContent, posXMLIniEnd+1)
 93 | 		extractSOAPEnvelope = XML1_decode(encodedXMLContent)
 94 | 	End Function
 95 | 	
 96 | 	Function XML1_decode(encodedXML)
 97 | 		Dim decodedXML
 98 | 		decodedXML=encodedXML
 99 | 		'Tabla corresponsdiente a PHP get_html_translation_table(HTML_ENTITIES, ENT_QUOTES | ENT_XML1)
100 | 		decodedXML=Replace(decodedXML,"&quot;","""")
101 | 		decodedXML=Replace(decodedXML,"&apos;","'")
102 | 		decodedXML=Replace(decodedXML,"&lt;","<")
103 | 		decodedXML=Replace(decodedXML,"&gt;",">")
104 | 		decodedXML=Replace(decodedXML,"&amp;","&")
105 | 		XML1_decode = decodedXML
106 | 	End Function
107 | 	Function XML1_encode(decodedXML)
108 | 		Dim encodedXML
109 | 		encodedXML=decodedXML
110 | 		'Tabla corresponsdiente a PHP get_html_translation_table(HTML_ENTITIES, ENT_QUOTES | ENT_XML1)
111 | 		encodedXML=Replace(encodedXML,"&","&amp;")
112 | 		encodedXML=Replace(encodedXML,"""","&quot;")
113 | 		encodedXML=Replace(encodedXML,"'","&apos;")
114 | 		encodedXML=Replace(encodedXML,"<","&lt;")
115 | 		encodedXML=Replace(encodedXML,">","&gt;")
116 | 		XML1_encode = encodedXML
117 | 	End Function
118 | 	
119 | %>
120 | 


--------------------------------------------------------------------------------
/README.md:
--------------------------------------------------------------------------------
 1 | # redsysHMAC256_API_ASP ![Analytics](https://ga-beacon.appspot.com/UA-47703369-4/redsysHMAC256_API_ASP?pixel&useReferrer)
 2 | 
 3 | Librerías de Ayuda (APIs) para integrar la pasarela de pago (TPV Virtual) Redsys en tiendas web virtuales que hayan sido desarrolladas bajo ASP Clásico, teniendo en cuenta el cambio del uso del algoritmo SHA1 por 3DES y HMAC-SHA256, que son más robustos (Ver https://canales.redsys.es/canales/ayuda/migracionSHA256.html)
 4 | 
 5 | 
 6 | Este API es un portado de las clases `RedSys` y `RedSysWs` implementadas en las API PHP que proporciona RedSys en su página http://www.redsys.es/wps/portal/redsys/publica/areadeserviciosweb/descargaDeDocumentacionYEjecutables. Por favor leer detenidamente las condiciones de uso de RedSys que podéis encontar en el enlace anterior, clicando en "Ver condiciones de uso" (no hay enlace directo).
 7 | 
 8 | ## Dependencias
 9 | 
10 | Para la implementación de las funciones HMAC-SHA256, 3DES y el manejo de los encoding Utf8, Base64 y Hex hemos utilizado la librería javascript https://github.com/brix/crypto-js de Evan Vosberg y Jeff Mott (@brix), para la que hemos creado librerías ASP que facilitan el acceso desde ASP Clásico en lenguaje VBScript ([dvim_brix_crypto-js-master_VB.asp](dvim_brix_crypto-js-master_VB.asp) o [dvim_brix_crypto-js-develop_VB.asp](dvim_brix_crypto-js-develop_VB.asp) según se utilize el branch [master](https://github.com/brix/crypto-js/tree/master) o [develop](https://github.com/brix/crypto-js/tree/develop) de https://github.com/brix/crypto-js. Esta librería está bajo licencia [MIT](http://opensource.org/licenses/MIT).
11 | 
12 | Para la implementación de JSON hemos utilizado la librería javascript https://github.com/douglascrockford/JSON-js de Douglas Crockford (@douglascrockford), en particular los ficheros [json2.js](https://github.com/douglascrockford/JSON-js/blob/master/json2.js) y [json_parse.js](https://github.com/douglascrockford/JSON-js/blob/master/json_parse.js), éste ultimo para usar una implementación de `parse` que no utilice `eval`. Hemos creado una librería ASP que facilita el acceso desde ASP Clásico en lenguaje VBScript, que además fuerza el uso de la implementación de `parse` de [json_parse.js](https://github.com/douglascrockford/JSON-js/blob/master/json_parse.js), y que implementa los métodos `replacer` y `reviver` (para gestionar el caso en que el `value` es un Dictionary). Esta librería es de Dominio Público, como se puede observar en el encabezado de cada fichero.
13 | 
14 | ## Documentación
15 | Para la utilización de estas APIs podéis seguir las indicaciones dadas por ResSys en su página https://canales.redsys.es/canales/ayuda/migracionSHA256.html, y en particular para el caso de PHP.
16 | ###Conexion Redirección
17 | Para la migración de comercios existentes, descargar la [Guia de migración a HMAC SHA256 - conexion por redirección](https://canales.redsys.es/canales/ayuda/documentacion/Guia%20migracion%20a%20HMAC%20SHA256%20-%20conexion%20por%20redireccion.pdf).
18 | Para el caso de nuevos comercios, descargar el [Manual integración para conexión por Redirección](https://canales.redsys.es/canales/ayuda/documentacion/Manual%20integracion%20para%20conexion%20por%20Redireccion.pdf)
19 | ###Conexion WebService
20 | Para la migración de comercios existentes, descargar la [Guia de migración a HMAC SHA256 - conexión por Web Service](https://canales.redsys.es/canales/ayuda/documentacion/Guia%20migracion%20a%20HMAC%20SHA256%20-%20conexion%20por%20Web%20Service.pdf).
21 | Para el caso de nuevos comercios, descargar el [Manual de integración para conexión por Web Service](https://canales.redsys.es/canales/ayuda/documentacion/Manual%20integracion%20para%20conexion%20por%20Web%20Service.pdf)
22 | 
23 | ## Ficheros incluídos
24 | * [include/dvim_apiRedsys_VB.asp](include/dvim_apiRedsys_VB.asp): Portado de `apiRedsys.php`, más algunas funciones de ayuda.
25 | * [include/dvim_apiRedsysWs_VB.asp](include/dvim_apiRedsysWs_VB.asp): Portado de `apiRedsysWs.php`.
26 | * [include/dvim_brix_crypto-js-develop_VB.asp](include/dvim_brix_crypto-js-develop_VB.asp): Para facilitar el acceso desde ASP Clásico en lenguaje VBScript a la librería https://github.com/brix/crypto-js en caso de utilizar el branch [develop](https://github.com/brix/crypto-js/tree/develop).
27 | * [include/dvim_brix_crypto-js-master_VB.asp](include/dvim_brix_crypto-js-master_VB.asp): Para facilitar el acceso desde ASP Clásico en lenguaje VBScript a la librería https://github.com/brix/crypto-js en caso de utilizar el branch [master](https://github.com/brix/crypto-js/tree/master).
28 | * [include/dvim_json_douglascrockford_JSON-js_JS.asp](include/dvim_json_douglascrockford_JSON-js_JS.asp): Para facilitar el acceso desde ASP Clásico en lenguaje VBScript a la librería https://github.com/douglascrockford/JSON-js.
29 | * [include/brix_crypto-js-develop-3.1.6/](include/brix_crypto-js-develop-3.1.6): Carpeta donde colocar el branch [develop](https://github.com/brix/crypto-js/tree/develop), del que sólo son necesarios el fichero [LICENSE](https://github.com/brix/crypto-js/blob/develop/LICENSE) y la carpeta [src](https://github.com/brix/crypto-js/tree/develop/src).
30 | * [include/brix_crypto-js-master-3.1.6/](include/brix_crypto-js-master-3.1.6): Carpeta donde colocar el branch [develop](https://github.com/brix/crypto-js/tree/develop), del que sólo son necesarios los ficheros [LICENSE](https://github.com/brix/crypto-js/blob/master/LICENSE) y los ficheros `.js` de la raíz.
31 | * [include/douglascrockford_JSON-js/](include/douglascrockford_JSON-js): Carpeta donde colocar los ficheros [json2.js](https://github.com/douglascrockford/JSON-js/blob/master/json2.js) y [json_parse.js](https://github.com/douglascrockford/JSON-js/blob/master/json_parse.js).
32 | * [ejemploGeneraPet.asp](ejemploGeneraPet.asp): Ejemplo de generación de petición con redirección a RedSys.
33 | * [ejemploRecepcionaPet.asp](ejemploRecepcionaPet.asp): Ejemplo de recepción de notificación desde RedSys.
34 | * [ejemploSOAP.asp](ejemploSOAP.asp): Ejemplo básico de recepción de notificación SOAP desde RedSys. Para la implementación de SOAP se sugiere el uso de librerías que implementen la validación WSDL y que generen y validen los encabezados SOAP.
35 | 
36 | ## Licencia de uso
37 | `New BSD` también llamada `BSD 3-clause`, ver [LICENSE](LICENSE).
38 | 
39 | ## Soporte y contacto
40 | Si necesitáis soporte en la migración de vuestra tienda en ASP Clásico, no dudad en contactarnos en el +34931767617 o enviando un email a migracionSHA256@ictmanagement.es.
41 | 
42 | 


--------------------------------------------------------------------------------
/include/dvim_apiRedsysWs_VB.asp:
--------------------------------------------------------------------------------
  1 | <script language="vbscript" runat="server">
  2 | '
  3 | '	Copyright (c) 2016, DE VEGA ICT MANAGEMENT, SLU, CIF B66216300
  4 | '
  5 | </script>
  6 | 
  7 | <!-- #include file="./dvim_brix_crypto-js-master_VB.asp" -->
  8 | 
  9 | <!-- #include file="./dvim_json_douglascrockford_JSON-js_JS.asp" -->
 10 | 
 11 | <script language="vbscript" runat="server">
 12 | 
 13 | 	Class RedsysAPIWs
 14 | 
 15 | 		'/******  Array de DatosEntrada ******/
 16 | 		Private vars_pay
 17 | 		Private  objJSON
 18 | 
 19 | 		Private Sub Initialize()
 20 | 			Set vars_pay = Nothing
 21 | 			Set objJSON = Nothing
 22 | 			Set objJSON = JSON
 23 | 			Set vars_pay = CreateObject("Scripting.Dictionary")
 24 | 			vars_pay.CompareMode=1  'TextCompare
 25 | 		End Sub
 26 | 
 27 | 		Private Sub Class_Initialize()
 28 | 			Initialize
 29 | 		End Sub
 30 | 		Private Sub Class_Terminate()
 31 | 			Set vars_pay = Nothing
 32 | 			Set objJSON = Nothing
 33 | 		End Sub
 34 | 		'/******  Set parameter ******/
 35 | 		Public Sub SetParameter(key, value)
 36 | 			vars_pay.Item(ucase(key)) = value
 37 | 		End Sub
 38 | 		'/******  Get parameter ******/
 39 | 		Public Function GetParameter(key)
 40 | 			If vars_pay.Exists(key) Then
 41 | 				GetParameter = vars_pay.Item(key)
 42 | 			Else
 43 | 				GetParameter = Empty
 44 | 			End if
 45 | 		End Function
 46 | 
 47 | 		'//////////////////////////////////////////////////////////////////////////////////////////////
 48 | 		'//////////////////////////////////////////////////////////////////////////////////////////////
 49 | 		'////////////					FUNCIONES AUXILIARES:							  ////////////
 50 | 		'//////////////////////////////////////////////////////////////////////////////////////////////
 51 | 		'//////////////////////////////////////////////////////////////////////////////////////////////
 52 | 		'recibe (Utf8)String|WordArray y retorna WordArray
 53 | 		Private Function ConvertUtf8StrToWordArray(data)
 54 | 			If (typename(data) = "String") Then
 55 | 				Set ConvertUtf8StrToWordArray = CryptoJS.enc.Utf8.parse(data)
 56 | 			Elseif (typename(data) = "JScriptTypeInfo") Then
 57 | 				On error resume next
 58 | 				'Set ConvertUtf8StrToWordArray = data.clone() 'solo verifica que tenga clone
 59 | 				'Set ConvertUtf8StrToWordArray = CryptoJS.enc.Utf8.parse(data.toString(CryptoJS.enc.Utf8)) 'verifica que sea WordArray y que admita utf8
 60 | 				Set ConvertUtf8StrToWordArray = CryptoJS.lib.WordArray.create().concat(data) 'verifica que sea WordArray
 61 | 				If Err.number>0 Then
 62 | 					Set ConvertUtf8StrToWordArray = Nothing
 63 | 				End if
 64 | 				On error goto 0
 65 | 			Else
 66 | 				Set ConvertUtf8StrToWordArray = Nothing
 67 | 			End if
 68 | 		End Function
 69 | 		'recibe (Utf8)String|WordArray y retorna (Utf8)String
 70 | 		Private Function ConvertToUtf8String(data)
 71 | 			If (typename(data) = "String") Then
 72 | 				ConvertToUtf8String = CryptoJS.enc.Utf8.parse(data).toString(CryptoJS.enc.Utf8)
 73 | 			Elseif (typename(data) = "JScriptTypeInfo") Then
 74 | 				On error resume next
 75 | 				ConvertToUtf8String = data.toString(CryptoJS.enc.Utf8)
 76 | 				If Err.number>0 Then
 77 | 					ConvertToUtf8String = ""
 78 | 				End if
 79 | 				On error goto 0
 80 | 			Else
 81 | 				ConvertToUtf8String = ""
 82 | 			End if
 83 | 		End Function
 84 | 		'/******  3DES Function  ******/
 85 | 		'recibe (Utf8)String|WordArray y retorna WordArray (CipherParams.ciphertext)
 86 | 		Private Function encrypt_3DES(message, key) 
 87 | 			'Se establece un IV por defecto
 88 | 			Dim iv 
 89 | 			Set iv = CryptoJS.enc.Hex.parse("0000000000000000")
 90 | 			Dim messageWA
 91 | 			Set messageWA = ConvertUtf8StrToWordArray(message)
 92 | 			Dim keyWA
 93 | 			Set keyWA = ConvertUtf8StrToWordArray(key)
 94 | 			' Se cifra
 95 | 			Dim cfg 
 96 | 			Set cfg = new Encrypt_Cfg  
 97 | 			Set cfg.iv=iv
 98 | 			Set cfg.mode=CryptoJS.mode.CBC
 99 | 			Set cfg.padding=CryptoJS.pad.ZeroPadding 
100 | 			Dim ciphertext
101 | 			Set ciphertext = CryptoJS.TripleDES.encrypt(messageWA, keyWA, cfg).ciphertext
102 | 			Set encrypt_3DES = ciphertext
103 | 		End Function
104 | 		'/******  Base64 Functions  ******/
105 | 		' recibe (Utf8)String|WordArray y retorna (base64)String
106 | 		Private Function base64_url_encode(input)
107 | 			base64_url_encode = Replace(Replace(encodeBase64(input),"+","-"),"/","_")
108 | 		End Function
109 | 		' recibe (Utf8)String|WordArray y retorna (base64)String
110 | 		Private Function encodeBase64(data) 
111 | 			Dim dataWA
112 | 			Set dataWA = ConvertUtf8StrToWordArray(data)
113 | 			Dim encodedData
114 | 			encodedData = CryptoJS.enc.Base64.stringify(dataWA)
115 | 			encodeBase64 = encodedData
116 | 		End Function
117 | 		' recibe (base64)String|WordArray y retorna WordArray
118 | 		Private Function base64_url_decode(input)
119 | 			Dim inputStr
120 | 			inputStr = ConvertToUtf8String(input)
121 | 			Set base64_url_decode = decodeBase64(Replace(Replace(inputStr,"-","+"),"_","/"))
122 | 		End Function
123 | 		' recibe (base64)String|WordArray y retorna WordArray
124 | 		Private Function decodeBase64(data)
125 | 			Dim decodedDataWA
126 | 			Set decodedDataWA = CryptoJS.enc.Base64.parse(data)
127 | 			Set decodeBase64 = decodedDataWA
128 | 		End Function
129 | 		'/******  MAC Function ******/
130 | 		'recibe String|WordArray , retorna WordArray
131 | 		Private Function mac256(ent, key) 
132 | 			Dim encWA
133 | 			Set encWA = ConvertUtf8StrToWordArray(ent)
134 | 			Dim keyWA
135 | 			Set keyWA = ConvertUtf8StrToWordArray(key)
136 | 			Dim resWA
137 | 			Set resWA = CryptoJS.HmacSHA256(encWA, keyWA)
138 | 			Set mac256 = resWA
139 | 		End Function
140 | 
141 | 		'//////////////////////////////////////////////////////////////////////////////////////////////
142 | 		'////////////	   FUNCIONES PARA LA GENERACIÓN LA PETICIÓN DE PAGO:			  ////////////
143 | 		'//////////////////////////////////////////////////////////////////////////////////////////////
144 | 
145 | 		'//////////////////////////////////////////////////////////////////////////////////////////////
146 | 		'/////////' FUNCIONES PARA LA RECEPCIÓN DE DATOS DE PAGO (Notif, URLOK y URLKO): ////////////
147 | 		'//////////////////////////////////////////////////////////////////////////////////////////////
148 | 		'/******  Obtener Número de pedido ******/
149 | 		Private Function getOrder(datos)
150 | 			getOrder = ""
151 | 			Dim posPedidoIni, tamPedidoIni, posPedidoFin
152 | 			posPedidoIni = InStr(datos, "<DS_MERCHANT_ORDER>")
153 | 			tamPedidoIni = Len("<DS_MERCHANT_ORDER>")
154 | 			posPedidoFin = InStr(datos, "</DS_MERCHANT_ORDER>")
155 | 			numPedido = Mid(datos,posPedidoIni + tamPedidoIni,posPedidoFin - (posPedidoIni + tamPedidoIni))
156 | 			getOrder = numPedido
157 | 		End Function
158 | 		Function createMerchantSignatureHostToHost(key,ent) 
159 | 			'Se decodifica la clave Base64
160 | 			Dim keyWA
161 | 			Set keyWA = decodeBase64(key)
162 | 			'Se diversifica la clave con el Número de Pedido
163 | 			Set keyWA = encrypt_3DES(getOrder(ent), keyWA)
164 | 			'MAC256 del parámetro Ds_MerchantParameters
165 | 			Dim resWA
166 | 			Set resWA = mac256(ent, keyWA)
167 | 			'Se codifican los datos Base64
168 | 			createMerchantSignature= encodeBase64(resWA)
169 | 		End Function
170 | 		'//////////////////////////////////////////////////////////////////////////////////////////////
171 | 		'//////////////////////////////////////////////////////////////////////////////////////////////
172 | 		'//////////// FUNCIONES PARA LA RECEPCIÓN DE DATOS DE PAGO (Respuesta HOST to HOST) ////////////
173 | 		'//////////////////////////////////////////////////////////////////////////////////////////////
174 | 		'//////////////////////////////////////////////////////////////////////////////////////////////
175 | 		Function createMerchantSignatureResponseHostToHost(key, datos, numpedido)
176 | 			' Se decodifica la clave Base64
177 | 			Dim keyWA
178 | 			Set keyWA = decodeBase64(key)
179 | 			' Se diversifica la clave con el Número de Pedido
180 | 			Set keyWA = encrypt_3DES(numPedido, keyWA)
181 | 			' MAC256 del parámetro Ds_Parameters que envía Redsys
182 | 			Dim resWA
183 | 			Set resWA = mac256(datos, keyWA)
184 | 			' Se codifican los datos Base64
185 | 			createMerchantSignatureNotifSOAPResponse = encodeBase64(resWA)
186 | 		End Function
187 | 		'/******  Cargar (XML)String al Dictionary ******/
188 | 		Public Sub XMLToDiccionary(data)
189 | 			Class_Initialize
190 | 			GetParameterDiccionary data,"CODIGO","<CODIGO>","</CODIGO>"
191 | 			GetParameterDiccionary data,"Ds_Amount","<Ds_Amount>","</Ds_Amount>"
192 | 			GetParameterDiccionary data,"Ds_Currency","<Ds_Currency>","</Ds_Currency>"
193 | 			GetParameterDiccionary data,"Ds_Order","<Ds_Order>", "</Ds_Order>"
194 | 			GetParameterDiccionary data,"Ds_Signature","<Ds_Signature>","</Ds_Signature>"
195 | 			GetParameterDiccionary data,"Ds_MerchantCode","<Ds_MerchantCode>", "</Ds_MerchantCode>"
196 | 			GetParameterDiccionary data,"Ds_Terminal","<Ds_Terminal>", "</Ds_Terminal>"
197 | 			GetParameterDiccionary data, "Ds_Response", "<Ds_Response>", "</Ds_Response>"
198 | 			GetParameterDiccionary data,"Ds_AuthorisationCode","<Ds_AuthorisationCode>","</Ds_AuthorisationCode>"
199 | 			GetParameterDiccionary data,"Ds_TransactionType","<Ds_TransactionType>", "</Ds_TransactionType>"
200 | 			GetParameterDiccionary data,"Ds_SecurePayment","<Ds_SecurePayment>", "</Ds_SecurePayment>"
201 | 			GetParameterDiccionary data,"Ds_Language","<Ds_Language>","</Ds_Language>"
202 | 			GetParameterDiccionary data,"Ds_MerchantData", "<Ds_MerchantData>", "</Ds_MerchantData>"
203 | 			GetParameterDiccionary data,"Ds_Card_Country","<Ds_Card_Country>","</Ds_Card_Country>"
204 | 		End Sub            
205 | 		Private Sub GetParameterDiccionary(data, key, keyInit, keyEnd)
206 | 			Dim posIni, tamIni, posFin
207 | 			posIni = InStr(data, keyInit)
208 | 			tamIni = Len(keyInit)
209 | 			posFin = InStr(data, keyEnd)
210 | 			If ( posIni > 0 and posFin >0) Then
211 | 				Dim res
212 | 				res = Mid(data,posIni + tamIni, posFin - (posIni + tamIni))
213 | 				SetParameter key, res
214 | 			End If
215 | 		End Sub            
216 | 
217 | 	End Class
218 | 
219 | '    Dim key 
220 | '    key="aggafccc121===bbabababeefee"
221 | '    Dim test
222 | '    Set test = New RedsysAPI
223 | '    'dim c
224 | '    'c=test.getOrderNotifSOAP("fhu 873qg<Response>Response=ZZZ</Response>h8f734<Ds_Order>Ds_Order=XXX</Ds_Order> dqhdniuq<Request>Request=YYY</Request>ediqwedqe")
225 | '    'c=test.getRequestNotifSOAP("fhu 873qg<Response>Response=ZZZ</Response>h8f734<Ds_Order>Ds_Order=XXX</Ds_Order> dqhdniuq<Request>Request=YYY</Request>ediqwedqe")
226 | '    'c=test.getResponseNotifSOAP("fhu 873qg<Response>Response=ZZZ</Response>h8f734<Ds_Order>Ds_Order=XXX</Ds_Order> dqhdniuq<Request>Request=YYY</Request>ediqwedqe")
227 | '    test.SetParameter "aaaa","123"
228 | '    test.SetParameter "bbbb","http://aaa.bbb.ccc:80/test.asp?vala=1&valb=2"
229 | '    test.SetParameter "Ds_Merchant_Order","papapapas"
230 | '    test.SetParameter "dddd","Son euros € no?"
231 | '    test.SetParameter "DS_ORDER","papapapas"
232 | '    dim d
233 | '    d=test.createMerchantParameters()
234 | '    dim sig1
235 | '    sig1=test.createMerchantSignature(key)
236 | '
237 | '    Dim test2
238 | '    Set test2 = New RedsysAPI
239 | '    dim f
240 | '    f=test2.decodeMerchantParameters(d)
241 | '    dim sig2
242 | '    sig2=test2.createMerchantSignatureNotif (key,d)
243 | 'stop
244 | '    dim xmlReq
245 | '    xmlReq = "<root><Request Ds_Version=""00""><Ds_Order>papapapas</Ds_Order><Fecha>2015/12/01</Fecha><Ds_Amount>100</Ds_Amount></Request><root>"
246 | '    Dim test3
247 | '    Set test3 = New RedsysAPI
248 | '    dim sig3
249 | '    sig3=test3.createMerchantSignatureNotifSOAPRequest(key,xmlReq)
250 | '    test3.XMLToDiccionary xmlReq
251 | '    xxx1=test3.GetParameter("fecha")
252 | '    xxx1=test3.createMerchantParameters()
253 | '    xx1=CryptoJS.enc.Base64.parse(xxx1).toString(CryptoJS.enc.Utf8)
254 | '
255 | '    dim xmlRes
256 | '    xmlRes = "<root><Response Ds_Version=""00""><Ds_Order>papapapas</Ds_Order><Fecha>2015/12/01</Fecha><Ds_Amount>100</Ds_Amount></Response><root>"
257 | '    Dim test4
258 | '    Set test4 = New RedsysAPI
259 | '    dim sig4
260 | '    sig4=test4.createMerchantSignatureNotifSOAPResponse(key,xmlRes,"pedido002")
261 | '    test4.XMLToDiccionary xmlRes
262 | '
263 | '    stop
264 | '
265 | </script>


--------------------------------------------------------------------------------
/include/dvim_apiRedsys_VB.asp:
--------------------------------------------------------------------------------
  1 | <script language="vbscript" runat="server">
  2 | '
  3 | '	Copyright (c) 2016, DE VEGA ICT MANAGEMENT, SLU, CIF B66216300
  4 | '
  5 | </script>
  6 | 
  7 | <!-- #include file="./dvim_brix_crypto-js-master_VB.asp" -->
  8 | 
  9 | <!-- #include file="./dvim_json_douglascrockford_JSON-js_JS.asp" -->
 10 | 
 11 | <script language="vbscript" runat="server">
 12 | 
 13 | 	Class RedsysAPI
 14 | 
 15 | 		'/******  Array de DatosEntrada ******/
 16 | 		Private vars_pay
 17 | 		Private  objJSON
 18 | 
 19 | 		Private Sub Initialize()
 20 | 			Set vars_pay = Nothing
 21 | 			Set objJSON = Nothing
 22 | 			Set objJSON = JSON
 23 | 			Set vars_pay = CreateObject("Scripting.Dictionary")
 24 | 			vars_pay.CompareMode=1  'TextCompare
 25 | 		End Sub
 26 | 
 27 | 		Private Sub Class_Initialize()
 28 | 			Initialize
 29 | 		End Sub
 30 | 		Private Sub Class_Terminate()
 31 | 			Set vars_pay = Nothing
 32 | 			Set objJSON = Nothing
 33 | 		End Sub
 34 | 		'/******  Set parameter ******/
 35 | 		Public Sub SetParameter(key, value)
 36 | 			vars_pay.Item(ucase(key)) = value
 37 | 		End Sub
 38 | 		'/******  Get parameter ******/
 39 | 		Public Function GetParameter(key)
 40 | 			If vars_pay.Exists(key) Then
 41 | 				GetParameter = vars_pay.Item(key)
 42 | 			Else
 43 | 				GetParameter = Empty
 44 | 			End if
 45 | 		End Function
 46 | 
 47 | 		'//////////////////////////////////////////////////////////////////////////////////////////////
 48 | 		'//////////////////////////////////////////////////////////////////////////////////////////////
 49 | 		'////////////					FUNCIONES AUXILIARES:							  ////////////
 50 | 		'//////////////////////////////////////////////////////////////////////////////////////////////
 51 | 		'//////////////////////////////////////////////////////////////////////////////////////////////
 52 | 		'recibe (Utf8)String|WordArray y retorna WordArray
 53 | 		Private Function ConvertUtf8StrToWordArray(data)
 54 | 			If (typename(data) = "String") Then
 55 | 				Set ConvertUtf8StrToWordArray = CryptoJS.enc.Utf8.parse(data)
 56 | 			Elseif (typename(data) = "JScriptTypeInfo") Then
 57 | 				On error resume next
 58 | 				'Set ConvertUtf8StrToWordArray = data.clone() 'solo verifica que tenga clone
 59 | 				'Set ConvertUtf8StrToWordArray = CryptoJS.enc.Utf8.parse(data.toString(CryptoJS.enc.Utf8)) 'verifica que sea WordArray y que admita utf8
 60 | 				Set ConvertUtf8StrToWordArray = CryptoJS.lib.WordArray.create().concat(data) 'verifica que sea WordArray
 61 | 				If Err.number>0 Then
 62 | 					Set ConvertUtf8StrToWordArray = Nothing
 63 | 				End if
 64 | 				On error goto 0
 65 | 			Else
 66 | 				Set ConvertUtf8StrToWordArray = Nothing
 67 | 			End if
 68 | 		End Function
 69 | 		'recibe (Utf8)String|WordArray|Byte() y retorna (Utf8)String
 70 | 		Public Function ConvertToUtf8String(data)
 71 | 			If TypeName(data) = "Byte()" Then
 72 | 				Set data = CryptoJS.enc.Hex.parse(ByteArrayToHexString(data))
 73 | 			End If
 74 | 			If (typename(data) = "String") Then
 75 | 				ConvertToUtf8String = CryptoJS.enc.Utf8.parse(data).toString(CryptoJS.enc.Utf8)
 76 | 			Elseif (typename(data) = "JScriptTypeInfo") Then
 77 | 				On error resume next
 78 | 				ConvertToUtf8String = data.toString(CryptoJS.enc.Utf8)
 79 | 				If Err.number>0 Then
 80 | 					ConvertToUtf8String = ""
 81 | 				End if
 82 | 				On error goto 0
 83 | 			Else
 84 | 				ConvertToUtf8String = ""
 85 | 			End if
 86 | 		End Function
 87 | 		'/******  3DES Function  ******/
 88 | 		'recibe (Utf8)String|WordArray y retorna WordArray (CipherParams.ciphertext)
 89 | 		Private Function encrypt_3DES(message, key) 
 90 | 			'Se establece un IV por defecto
 91 | 			Dim iv 
 92 | 			Set iv = CryptoJS.enc.Hex.parse("0000000000000000")
 93 | 			Dim messageWA
 94 | 			Set messageWA = ConvertUtf8StrToWordArray(message)
 95 | 			Dim keyWA
 96 | 			Set keyWA = ConvertUtf8StrToWordArray(key)
 97 | 			' Se cifra
 98 | 			Dim cfg 
 99 | 			Set cfg = new Encrypt_Cfg  
100 | 			Set cfg.iv=iv
101 | 			Set cfg.mode=CryptoJS.mode.CBC
102 | 			Set cfg.padding=CryptoJS.pad.ZeroPadding 
103 | 			Dim ciphertext
104 | 			Set ciphertext = CryptoJS.TripleDES.encrypt(messageWA, keyWA, cfg).ciphertext
105 | 			Set encrypt_3DES = ciphertext
106 | 		End Function
107 | 		'/******  Base64 Functions  ******/
108 | 		' recibe (Utf8)String|WordArray y retorna (base64)String
109 | 		Private Function base64_url_encode(input)
110 | 			base64_url_encode = Replace(Replace(encodeBase64(input),"+","-"),"/","_")
111 | 		End Function
112 | 		' recibe (Utf8)String|WordArray y retorna (base64)String
113 | 		Private Function encodeBase64(data) 
114 | 			Dim dataWA
115 | 			Set dataWA = ConvertUtf8StrToWordArray(data)
116 | 			Dim encodedData
117 | 			encodedData = CryptoJS.enc.Base64.stringify(dataWA)
118 | 			encodeBase64 = encodedData
119 | 		End Function
120 | 		' recibe (base64)String|WordArray y retorna WordArray
121 | 		Private Function base64_url_decode(input)
122 | 			Dim inputStr
123 | 			inputStr = ConvertToUtf8String(input)
124 | 			Set base64_url_decode = decodeBase64(Replace(Replace(inputStr,"-","+"),"_","/"))
125 | 		End Function
126 | 		' recibe (base64)String|WordArray y retorna WordArray
127 | 		Private Function decodeBase64(data)
128 | 			Dim decodedDataWA
129 | 			Set decodedDataWA = CryptoJS.enc.Base64.parse(data)
130 | 			Set decodeBase64 = decodedDataWA
131 | 		End Function
132 | 		'/******  MAC Function ******/
133 | 		'recibe String|WordArray , retorna WordArray
134 | 		Private Function mac256(ent, key) 
135 | 			Dim encWA
136 | 			Set encWA = ConvertUtf8StrToWordArray(ent)
137 | 			Dim keyWA
138 | 			Set keyWA = ConvertUtf8StrToWordArray(key)
139 | 			Dim resWA
140 | 			Set resWA = CryptoJS.HmacSHA256(encWA, keyWA)
141 | 			Set mac256 = resWA
142 | 		End Function
143 | 
144 | 		'//////////////////////////////////////////////////////////////////////////////////////////////
145 | 		'////////////	   FUNCIONES PARA LA GENERACIÓN DEL FORMULARIO DE PAGO:			  ////////////
146 | 		'//////////////////////////////////////////////////////////////////////////////////////////////
147 | 
148 | 		'//////////////////////////////////////////////////////////////////////////////////////////////
149 | 		'/////////' FUNCIONES PARA LA RECEPCIÓN DE DATOS DE PAGO (Notif, URLOK y URLKO): ////////////
150 | 		'//////////////////////////////////////////////////////////////////////////////////////////////
151 | 		'/******  Obtener Número de pedido ******/
152 | 		Private Function getOrder()
153 | 			Dim numPedido 
154 | 			numPedido = GetParameter("DS_MERCHANT_ORDER")
155 | 			If IsEmpty(numPedido) Then
156 | 				numPedido = ""
157 | 			End If 
158 | 			getOrder = numPedido
159 | 		End Function
160 | 		'/******  Convertir Dictionary en (JSON)String ******/
161 | 		Private Function dictionatyToJsonString()
162 | 			dictionatyToJsonString = objJSON.stringify(vars_pay,objJSON.replacer)
163 | 		End Function
164 | 		Public Function createMerchantParameters()
165 | 			' Se transforma el Dictionary en un string Json
166 | 			Dim json
167 | 			json = dictionatyToJsonString()
168 | 			' Se codifican los datos Base64
169 | 			createMerchantParameters = encodeBase64(json)
170 | 		End Function
171 | 		Public Function createMerchantSignature(key) 
172 | 			'Se decodifica la clave Base64
173 | 			Dim keyWA
174 | 			Set keyWA = decodeBase64(key)
175 | 			'Se genera el parámetro Ds_MerchantParameters
176 | 			Dim ent
177 | 			ent = createMerchantParameters()
178 | 			'Se diversifica la clave con el Número de Pedido
179 | 			Set keyWA = encrypt_3DES(getOrder(), keyWA)
180 | 			'MAC256 del parámetro Ds_MerchantParameters
181 | 			Dim resWA
182 | 			Set resWA = mac256(ent, keyWA)
183 | 			'Se codifican los datos Base64
184 | 			createMerchantSignature= encodeBase64(resWA)
185 | 		End Function
186 | 		'//////////////////////////////////////////////////////////////////////////////////////////////
187 | 		'//////////////////////////////////////////////////////////////////////////////////////////////
188 | 		'//////////// FUNCIONES PARA LA RECEPCIÓN DE DATOS DE PAGO (Notif, URLOK y URLKO): ////////////
189 | 		'//////////////////////////////////////////////////////////////////////////////////////////////
190 | 		'//////////////////////////////////////////////////////////////////////////////////////////////
191 | 		'/******  Obtener Número de pedido ******/
192 | 		Private Function getOrderNotif()
193 | 			Dim numPedido 
194 | 			numPedido = GetParameter("DS_ORDER")
195 | 			If IsEmpty(numPedido) Then
196 | 				numPedido = ""
197 | 			End If 
198 | 			getOrderNotif = numPedido
199 | 		End Function
200 | 		Private Function getOrderNotifSOAP(datos)
201 | 			Dim posPedidoIni, tamPedidoIni, posPedidoFin
202 | 			posPedidoIni = InStr(datos, "<Ds_Order>")
203 | 			tamPedidoIni = Len("<Ds_Order>")
204 | 			posPedidoFin = InStr(datos, "</Ds_Order>")
205 | 			getOrderNotifSOAP = Mid(datos,posPedidoIni + tamPedidoIni,posPedidoFin - (posPedidoIni + tamPedidoIni))
206 | 		End Function
207 | 		Private Function getRequestNotifSOAP(datos)
208 | 			Dim posReqIni, tamReqFin, posReqFin
209 | 			posReqIni = InStr(datos, "<Request")
210 | 			posReqFin = InStr(datos, "</Request>")
211 | 			tamReqFin = Len("</Request>")
212 | 			getRequestNotifSOAP = Mid(datos,posReqIni,(posReqFin + tamReqFin) - posReqIni)
213 | 		End Function
214 | 		Private Function getResponseNotifSOAP(datos)
215 | 			Dim posReqIni, tamReqFin, posReqFin
216 | 			posReqIni = InStr(datos, "<Response")
217 | 			posReqFin = InStr(datos, "</Response>")
218 | 			tamReqFin = Len("</Response>")
219 | 			getResponseNotifSOAP = Mid(datos,posReqIni,(posReqFin + tamReqFin) - posReqIni)
220 | 		End Function
221 | 		Public Function getSignatureNotifSOAP(datos)
222 | 			Dim datosStr
223 | 			datosStr = ConvertToUtf8String(datos)
224 | 			Dim posSignatureIni, tamSignatureIni, posSignatureFin
225 | 			posSignatureIni = InStr(datosStr, "<Signature>")
226 | 			tamSignatureIni = Len("<Signature>")
227 | 			posSignatureFin = InStr(datosStr, "</Signature>")
228 | 			getSignatureNotifSOAP = Mid(datosStr,posSignatureIni + tamSignatureIni,posSignatureFin - (posSignatureIni + tamSignatureIni))
229 | 		End Function
230 | 		'/******  Cargar (JSON)String al Dictionary ******/
231 | 		Private Sub loadJsonStringToDictionary(datosDecod)
232 | 			Initialize
233 | 			Set vars_pay = objJSON.parse(datosDecod,objJSON.reviver)
234 | 		End Sub
235 | 		Private Function decodeMerchantParameters(datos)
236 | 			' Se decodifican los datos Base64
237 | 			decodeMerchantParameters = base64_url_decode(datos).toString(CryptoJS.enc.Utf8)
238 | 		End Function
239 | 		Public Function createMerchantSignatureNotif(key, datos)
240 | 			'Se decodifica la clave Base64
241 | 			Dim keyWA
242 | 			Set keyWA = decodeBase64(key)
243 | 			' Se decodifican los datos Base64
244 | 			Dim decodec
245 | 			decodec = decodeMerchantParameters(datos)
246 | 			' Los datos decodificados se pasan al Dictionaty
247 | 			loadJsonStringToDictionary(decodec)
248 | 			'Se diversifica la clave con el Número de Pedido
249 | 			Set keyWA = encrypt_3DES(getOrderNotif(), keyWA)
250 | 			' MAC256 del parámetro Ds_Parameters que envía Redsys
251 | 			Dim resWA
252 | 			Set resWA = mac256(datos, keyWA)
253 | 			'Se codifican los datos Base64
254 | 			createMerchantSignatureNotif = base64_url_encode(resWA)
255 | 		End Function
256 | 
257 | 		'/******  Notificaciones SOAP ENTRADA ******/
258 | 		Public Function createMerchantSignatureNotifSOAPRequest(key, datos)
259 | 			' Se decodifica la clave Base64
260 | 			Dim keyWA
261 | 			Set keyWA = decodeBase64(key)
262 | 			Dim datosStr
263 | 			datosStr = ConvertToUtf8String(datos)
264 | 			' Se obtienen los datos del Request
265 | 			Dim datosReq
266 | 			datosReq = getRequestNotifSOAP(datosStr)
267 | 			' Se diversifica la clave con el Número de Pedido
268 | 			Set keyWA = encrypt_3DES(getOrderNotifSOAP(datosReq), keyWA)
269 | 			' MAC256 del parámetro Ds_Parameters que envía Redsys
270 | 			Dim resWA
271 | 			Set resWA = mac256(datosReq, keyWA)
272 | 			' Se codifican los datos Base64
273 | 			createMerchantSignatureNotifSOAPRequest = encodeBase64(resWA)
274 | 			' Los datos del Request se pasan al Dictionaty
275 | 			loadXMLStringToDictionary(datosReq)
276 | 		End Function
277 | 		'/******  Notificaciones SOAP SALIDA ******/
278 | 		Public Function createMerchantSignatureNotifSOAPResponse(key, datos, numPedido)
279 | 			' Se decodifica la clave Base64
280 | 			Dim keyWA
281 | 			Set keyWA = decodeBase64(key)
282 | 			Dim datosStr
283 | 			datosStr = ConvertToUtf8String(datos)
284 | 			' Se obtienen los datos del Response
285 | 			Dim datosRes
286 | 			datosRes = getResponseNotifSOAP(datosStr)
287 | 			' Se diversifica la clave con el Número de Pedido
288 | 			Set keyWA = encrypt_3DES(numPedido, keyWA)
289 | 			' MAC256 del parámetro Ds_Parameters que envía Redsys
290 | 			Dim resWA
291 | 			Set resWA = mac256(datosRes, keyWA)
292 | 			' Se codifican los datos Base64
293 | 			createMerchantSignatureNotifSOAPResponse = encodeBase64(resWA)
294 | 		End Function
295 | 		'/******  Cargar (XML)String al Dictionary ******/
296 | 		Private Sub loadXMLStringToDictionary(data)
297 | 			Initialize
298 | 			GetParameterDiccionary data,"Fecha","<Fecha>","</Fecha>"
299 | 			GetParameterDiccionary data,"Hora","<Hora>","</Hora>"
300 | 			GetParameterDiccionary data,"SecurePayment","<Ds_SecurePayment>","</Ds_SecurePayment>"
301 | 			GetParameterDiccionary data,"Card_Country","<Ds_Card_Country>","</Ds_Card_Country>"
302 | 			GetParameterDiccionary data,"Amount","<Ds_Amount>","</Ds_Amount>"
303 | 			GetParameterDiccionary data,"Currency","<Ds_Currency>","</Ds_Currency>"
304 | 			GetParameterDiccionary data,"Order","<Ds_Order>","</Ds_Order>"
305 | 			GetParameterDiccionary data,"MerchantCode","<Ds_MerchantCode>","</Ds_MerchantCode>"
306 | 			GetParameterDiccionary data,"Terminal","<Ds_Terminal>","</Ds_Terminal>"
307 | 			GetParameterDiccionary data,"Response","<Ds_Response>","</Ds_Response>" 
308 | 			GetParameterDiccionary data,"MerchantData","<Ds_MerchantData>","</Ds_MerchantData>"
309 | 			GetParameterDiccionary data,"TransactionType","<Ds_TransactionType>","</Ds_TransactionType>"
310 | 			GetParameterDiccionary data,"ConsumerLanguage","<Ds_ConsumerLanguage>","</Ds_ConsumerLanguage>"
311 | 			GetParameterDiccionary data,"AuthorisationCode","<Ds_AuthorisationCode>","</Ds_AuthorisationCode>"
312 | 		End Sub            
313 | 		Private Sub GetParameterDiccionary(data, key, keyInit, keyEnd)
314 | 			Dim posIni, tamIni, posFin
315 | 			posIni = InStr(data, keyInit)
316 | 			tamIni = Len(keyInit)
317 | 			posFin = InStr(data, keyEnd)
318 | 			If ( posIni > 0 and posFin >0) Then
319 | 				Dim res
320 | 				res = Mid(data,posIni + tamIni, posFin - (posIni + tamIni))
321 | 				SetParameter key, res
322 | 			End If
323 | 		End Sub    
324 | 		Private Function ByteArrayToHexString(data)
325 | 			Dim i, item, strLine, hexLine
326 | 			hexLine = ""
327 | 			For i = 0 To LenB(data)-1
328 | 				item = AscB(MidB(data,i+1,1))
329 | 				hexLine = hexLine & right("0" & hex(item),2)
330 | 			Next
331 | 			ByteArrayToHexString = hexLine
332 | 		End Function        
333 | 
334 | 	End Class
335 | 
336 | </script>


--------------------------------------------------------------------------------