|
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) ABN AMRO OAuth2 Client Credentials AuthenticationDemonstrates how to obtain an access token for an ABN AMRO online API using OAuth2 with the Client Credentials flow. For more information, see https://developer.abnamro.com/api/payment-initiation-v1/payment-initiation-tutorial
<html> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> </head> <body> <% ' This example requires the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. ' This example sends the following CURL request: ' curl -X POST -k https://auth-sandbox.connect.abnamro.com:8443/as/token.oauth2 \ ' -v \ ' --cert TPPCertificate.crt \ ' --key TPPprivateKey.key \ ' -H 'Cache-Control: no-cache' \ ' -H 'Content-Type: application/x-www-form-urlencoded' \ ' -d 'grant_type=client_credentials&client_id=TPP_test&scope=psd2:payment:sepa:write psd2:payment:sepa:read' ' 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/TPPCertificate.cer") If (success <> 1) 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 bdKey = Server.CreateObject("Chilkat.BinData") success = bdKey.LoadFile("qa_data/certs/TPPprivateKey.key") ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.PrivateKey") set privKey = Server.CreateObject("Chilkat.PrivateKey") success = privKey.LoadAnyFormat(bdKey,"passwordIfNeeded") If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( privKey.LastErrorText) & "</pre>" Response.End End If success = cert.SetPrivateKey(privKey) If (success <> 1) 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.Http") set http = Server.CreateObject("Chilkat.Http") success = http.SetSslClientCert(cert) If (success <> 1) Then Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>" Response.End End If ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.HttpRequest") set req = Server.CreateObject("Chilkat.HttpRequest") req.AddParam "grant_type","client_credentials" req.AddParam "client_id","TPP_test" req.AddParam "scope","psd2:payment:sepa:write psd2:payment:sepa:read" ' resp is a Chilkat.HttpResponse Set resp = http.PostUrlEncoded("https://auth-sandbox.connect.abnamro.com:8443/as/token.oauth2",req) If (http.LastMethodSuccess = 0) Then Response.Write "<pre>" & Server.HTMLEncode( http.LastErrorText) & "</pre>" Response.End End If If (resp.StatusCode <> 200) Then Response.Write "<pre>" & Server.HTMLEncode( resp.BodyStr) & "</pre>" Response.End End If ' Get the JSON result: ' {"access_token":"TIhycwl8rfrZPkXGw15mwldASAAK","token_type":"Bearer","expires_in":7200} ' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject") set json = Server.CreateObject("Chilkat.JsonObject") success = json.Load(resp.BodyStr) Response.Write "<pre>" & Server.HTMLEncode( "access_token: " & json.StringOf("access_token")) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "token_type: " & json.StringOf("token_type")) & "</pre>" Response.Write "<pre>" & Server.HTMLEncode( "expires_in: " & json.StringOf("expires_in")) & "</pre>" %> </body> </html> |
||||
© 2000-2024 Chilkat Software, Inc. All Rights Reserved.