Xojo Plugin

Global Payments Card Authorization

See more Global Payments Examples

Demonstrates how to send a card payments authorization request. Xojo Plugin

Dim success As Boolean
success = False

// This example requires the Chilkat API to have been previously unlocked.
// See Global Unlock Sample for sample code.

Dim http As New Chilkat.Http

// 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
Dim testUrl As String
testUrl = "https://test.realexpayments.com/epage-remote.cgi"
Dim clientID As String
clientID = "realexsandbox"
Dim sharedSecret As String
sharedSecret = "Po8lRRT67a"

Dim amount As String
amount = "1001"
Dim currency As String
currency = "EUR"
Dim cardNumber As String
cardNumber = "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
Dim dt As New Chilkat.CkDateTime
success = dt.SetFromCurrentSystemTime()
Dim dtStr As String
dtStr = dt.GetAsIso8601("YYYYMMDDhhmmss",True)

// Generate a unique order ID
Dim prng As New Chilkat.Prng
Dim orderId As String
orderId = prng.GenRandom(32,"base64url")

// Compute the sha1hash
Dim crypt As New Chilkat.Crypt2
crypt.HashAlgorithm = "sha1"
crypt.EncodingMode = "hexlower"

Dim sbA As New Chilkat.StringBuilder
success = sbA.Append("timestamp.merchantid.orderid.amount.currency.cardnumber")
Dim numReplaced As Int32
numReplaced = sbA.Replace("timestamp",dtStr)
numReplaced = sbA.Replace("merchantid",clientID)
numReplaced = sbA.Replace("orderid",orderId)
numReplaced = sbA.Replace("amount",amount)
numReplaced = sbA.Replace("currency",currency)
numReplaced = sbA.Replace("cardnumber",cardNumber)

Dim hashA As String
hashA = crypt.HashStringENC(sbA.GetAsString())

Dim sbB As New Chilkat.StringBuilder
success = sbB.Append(hashA)
success = sbB.Append(".")
success = sbB.Append(sharedSecret)

Dim hashB As String
hashB = crypt.HashStringENC(sbB.GetAsString())

Dim xml As New Chilkat.Xml
xml.Tag = "request"
success = xml.AddAttribute("type","auth")
success = xml.AddAttribute("timestamp",dtStr)
xml.UpdateChildContent "merchantid",clientID
xml.UpdateChildContent "account","internet"
xml.UpdateChildContent "channel","ECOM"
xml.UpdateChildContent "orderid",orderId
success = xml.UpdateAttrAt("amount",True,"currency",currency)
xml.UpdateChildContent "amount",amount
xml.UpdateChildContent "card|number",cardNumber
xml.UpdateChildContent "card|expdate","0425"
xml.UpdateChildContent "card|chname","James Mason"
xml.UpdateChildContent "card|type","VISA"
xml.UpdateChildContent "card|cvn|number","123"
xml.UpdateChildContent "card|cvn|presind","1"
success = xml.UpdateAttrAt("autosettle",True,"flag","1")
xml.UpdateChildContent "sha1hash",hashB

Dim resp As New Chilkat.HttpResponse
success = http.HttpStr("POST",testUrl,xml.GetXml(),"utf-8","application/xml",resp)
If (success = False) Then
    System.DebugLog(http.LastErrorText)
    Return
End If

System.DebugLog("Response Status Code: " + Str(resp.StatusCode))

System.DebugLog("Response Body:")
System.DebugLog(resp.BodyStr)

If (resp.StatusCode <> 200) Then
    System.DebugLog("Failed.")
    Return
End If

// 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.
success = xml.LoadXml(resp.BodyStr)

Dim result As Int32
result = xml.GetChildIntValue("result")
System.DebugLog("result = " + Str(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) Then
    System.DebugLog("authcode = " + xml.GetChildContent("authcode"))
    System.DebugLog("Success.")

Else
    System.DebugLog("Failed.")
End If