(Unicode C) Global Payments Card Authorization

Demonstrates how to send a card payments authorization request.

For more information, see https://developer.globalpay.com/#!/api/card-payments#api-authorisation

Chilkat C/C++ Library Downloads
MS Visual C/C++ Linux/CentOS C/C++ Alpine Linux C/C++ MAC OS X C/C++	armhf/aarch64 C/C++ C++ Builder iOS C/C++ Android C/C++	Solaris C/C++ MinGW C/C++

#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)
    {
    HCkHttpW http;
    BOOL success;
    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;

    // 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 = CkHttpW_PostXml(http,testUrl,CkXmlW_getXml(xml),L"utf-8");
    if (CkHttpW_getLastMethodSuccess(http) == 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);
        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);
        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");
    }

    CkHttpResponseW_Dispose(resp);


    CkHttpW_Dispose(http);
    CkDateTimeW_Dispose(dt);
    CkPrngW_Dispose(prng);
    CkCrypt2W_Dispose(crypt);
    CkStringBuilderW_Dispose(sbA);
    CkStringBuilderW_Dispose(sbB);
    CkXmlW_Dispose(xml);

    }