Unicode C
Unicode C
Global Payments Card Authorization
See more Global Payments Examples
Demonstrates how to send a card payments authorization request.Chilkat Unicode C Downloads
#include <C_CkHttpW.h>
#include <C_CkDateTimeW.h>
#include <C_CkPrngW.h>
#include <C_CkCrypt2W.h>
#include <C_CkStringBuilderW.h>
#include <C_CkXmlW.h>
#include <C_CkHttpResponseW.h>
void ChilkatSample(void)
{
BOOL success;
HCkHttpW http;
const wchar_t *testUrl;
const wchar_t *clientID;
const wchar_t *sharedSecret;
const wchar_t *amount;
const wchar_t *currency;
const wchar_t *cardNumber;
HCkDateTimeW dt;
const wchar_t *dtStr;
HCkPrngW prng;
const wchar_t *orderId;
HCkCrypt2W crypt;
HCkStringBuilderW sbA;
int numReplaced;
const wchar_t *hashA;
HCkStringBuilderW sbB;
const wchar_t *hashB;
HCkXmlW xml;
HCkHttpResponseW resp;
int result;
success = FALSE;
// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.
http = CkHttpW_Create();
// if you don't have a Client ID yet you can still quickly test some basic request types using the following URL and credentials:
// Test URL - https://test.realexpayments.com/epage-remote.cgi
// Client ID: realexsandbox
// Shared Secret: Po8lRRT67a
testUrl = L"https://test.realexpayments.com/epage-remote.cgi";
clientID = L"realexsandbox";
sharedSecret = L"Po8lRRT67a";
amount = L"1001";
currency = L"EUR";
cardNumber = L"4263970000005262";
// We'll be sending the following XML in the body of the request:
// <?xml version="1.0" encoding="UTF-8"?>
// <request type="auth" timestamp="20180613141207">
// <merchantid>MerchantId</merchantid>
// <account>internet</account>
// <channel>ECOM</channel>
// <orderid>N6qsk4kYRZihmPrTXWYS6g</orderid>
// <amount currency="EUR">1001</amount>
// <card>
// <number>4263970000005262</number>
// <expdate>0425</expdate>
// <chname>James Mason</chname>
// <type>VISA</type>
// <cvn>
// <number>123</number>
// <presind>1</presind>
// </cvn>
// </card>
// <autosettle flag="1"/>
// <sha1hash>87707637a34ba651b6185718c863abc64b673f20</sha1hash>
// </request>
// Use this online tool to generate code from sample XML:
// Generate Code to Create XML
// Get the current date/time in this format: 20180613141207
dt = CkDateTimeW_Create();
CkDateTimeW_SetFromCurrentSystemTime(dt);
dtStr = CkDateTimeW_getAsIso8601(dt,L"YYYYMMDDhhmmss",TRUE);
// Generate a unique order ID
prng = CkPrngW_Create();
orderId = CkPrngW_genRandom(prng,32,L"base64url");
// Compute the sha1hash
crypt = CkCrypt2W_Create();
CkCrypt2W_putHashAlgorithm(crypt,L"sha1");
CkCrypt2W_putEncodingMode(crypt,L"hexlower");
sbA = CkStringBuilderW_Create();
CkStringBuilderW_Append(sbA,L"timestamp.merchantid.orderid.amount.currency.cardnumber");
numReplaced = CkStringBuilderW_Replace(sbA,L"timestamp",dtStr);
numReplaced = CkStringBuilderW_Replace(sbA,L"merchantid",clientID);
numReplaced = CkStringBuilderW_Replace(sbA,L"orderid",orderId);
numReplaced = CkStringBuilderW_Replace(sbA,L"amount",amount);
numReplaced = CkStringBuilderW_Replace(sbA,L"currency",currency);
numReplaced = CkStringBuilderW_Replace(sbA,L"cardnumber",cardNumber);
hashA = CkCrypt2W_hashStringENC(crypt,CkStringBuilderW_getAsString(sbA));
sbB = CkStringBuilderW_Create();
CkStringBuilderW_Append(sbB,hashA);
CkStringBuilderW_Append(sbB,L".");
CkStringBuilderW_Append(sbB,sharedSecret);
hashB = CkCrypt2W_hashStringENC(crypt,CkStringBuilderW_getAsString(sbB));
xml = CkXmlW_Create();
CkXmlW_putTag(xml,L"request");
CkXmlW_AddAttribute(xml,L"type",L"auth");
CkXmlW_AddAttribute(xml,L"timestamp",dtStr);
CkXmlW_UpdateChildContent(xml,L"merchantid",clientID);
CkXmlW_UpdateChildContent(xml,L"account",L"internet");
CkXmlW_UpdateChildContent(xml,L"channel",L"ECOM");
CkXmlW_UpdateChildContent(xml,L"orderid",orderId);
CkXmlW_UpdateAttrAt(xml,L"amount",TRUE,L"currency",currency);
CkXmlW_UpdateChildContent(xml,L"amount",amount);
CkXmlW_UpdateChildContent(xml,L"card|number",cardNumber);
CkXmlW_UpdateChildContent(xml,L"card|expdate",L"0425");
CkXmlW_UpdateChildContent(xml,L"card|chname",L"James Mason");
CkXmlW_UpdateChildContent(xml,L"card|type",L"VISA");
CkXmlW_UpdateChildContent(xml,L"card|cvn|number",L"123");
CkXmlW_UpdateChildContent(xml,L"card|cvn|presind",L"1");
CkXmlW_UpdateAttrAt(xml,L"autosettle",TRUE,L"flag",L"1");
CkXmlW_UpdateChildContent(xml,L"sha1hash",hashB);
resp = CkHttpResponseW_Create();
success = CkHttpW_HttpStr(http,L"POST",testUrl,CkXmlW_getXml(xml),L"utf-8",L"application/xml",resp);
if (success == FALSE) {
wprintf(L"%s\n",CkHttpW_lastErrorText(http));
CkHttpW_Dispose(http);
CkDateTimeW_Dispose(dt);
CkPrngW_Dispose(prng);
CkCrypt2W_Dispose(crypt);
CkStringBuilderW_Dispose(sbA);
CkStringBuilderW_Dispose(sbB);
CkXmlW_Dispose(xml);
CkHttpResponseW_Dispose(resp);
return;
}
wprintf(L"Response Status Code: %d\n",CkHttpResponseW_getStatusCode(resp));
wprintf(L"Response Body:\n");
wprintf(L"%s\n",CkHttpResponseW_bodyStr(resp));
if (CkHttpResponseW_getStatusCode(resp) != 200) {
wprintf(L"Failed.\n");
CkHttpW_Dispose(http);
CkDateTimeW_Dispose(dt);
CkPrngW_Dispose(prng);
CkCrypt2W_Dispose(crypt);
CkStringBuilderW_Dispose(sbA);
CkStringBuilderW_Dispose(sbB);
CkXmlW_Dispose(xml);
CkHttpResponseW_Dispose(resp);
return;
}
// A status code of 200 indicates we received an XML response, but it could be an error message.
// Here's an example of an error response:
// <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
// <response timestamp="20200418142356">
// <orderid>N6qsk4kYRZihmPrTXWYS6g</orderid>
// <result>508</result>
// <message>Invalid timestamp: '{' Value exceeds allowable limit: '}'</message>
// </response>
// We need to check the "result" within the XML.
CkXmlW_LoadXml(xml,CkHttpResponseW_bodyStr(resp));
result = CkXmlW_GetChildIntValue(xml,L"result");
wprintf(L"result = %d\n",result);
// A successful result looks like this:
// <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
// <response timestamp="20200418145519">
// <merchantid>realexsandbox</merchantid>
// <account>internet</account>
// <orderid>Cw93I1nFWVZuaATh46qMUCBlCcfrOvLo65C2cq5X-AY</orderid>
// <result>00</result>
// <authcode>L3pHww</authcode>
// <message>AUTH CODE: L3pHww</message>
// <pasref>96838535689610806</pasref>
// <cvnresult>M</cvnresult>
// <timetaken>87</timetaken>
// <authtimetaken>67</authtimetaken>
// <batchid>6322506</batchid>
// <sha1hash>2fd2f15f97f1775779fe9bda536dc8317a4b39f6</sha1hash>
// </response>
if (result == 0) {
wprintf(L"authcode = %s\n",CkXmlW_getChildContent(xml,L"authcode"));
wprintf(L"Success.\n");
}
else {
wprintf(L"Failed.\n");
}
CkHttpW_Dispose(http);
CkDateTimeW_Dispose(dt);
CkPrngW_Dispose(prng);
CkCrypt2W_Dispose(crypt);
CkStringBuilderW_Dispose(sbA);
CkStringBuilderW_Dispose(sbB);
CkXmlW_Dispose(xml);
CkHttpResponseW_Dispose(resp);
}