B4X

Payeezy Place Temp Authorization Hold on Buyer’s Credit Card

See more HTTP Misc Examples

Demonstrates how to place a temporary authorization hold for the desired amount on the buyer’s credit card. You can Capture the authorized amount on completion of service or Void/Refund the transaction as required. B4X

Dim success As Boolean = False

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

Dim crypt As ChilkatCrypt2
crypt.Initialize("crypt")
Dim prng As ChilkatPrng
prng.Initialize

'  An API key such as y6pWAJNyJyjGv66IsVuWnklkKUPFbb0a
Dim apiKey As String = "my_api_key"
'  An API secret such as 86fbae7030253af3cd15faef2a1f4b67353e41fb6799f576b5093ae52901e6f7
Dim apiSecret As String = "my_api_secret"
'  A token such as fdoa-a480ce8951daa73262734cf102641994c1e55e7cdf4c02b6
Dim token As String = "my_merchant_token"

'  The nonce is a random number (bytes), something like "6057786719490086000"
Dim nonce As String = prng.GenRandom(8, "decimal")
Log("nonce = " & nonce)

Dim dtNow As ChilkatDateTime
dtNow.Initialize
dtNow.SetFromCurrentSystemTime
Dim sbTimestamp As ChilkatStringBuilder
sbTimestamp.Initialize
'  Get the epoch timestamp in seconds
sbTimestamp.Append(dtNow.GetAsUnixTimeStr(False))
'  Change it to milliseconds
sbTimestamp.Append("000")
'  The timestamp is a number similar to this: 1546011905000 (which is a timestamp taken on 28-Dec-2018).
Dim timestamp As String = sbTimestamp.GetAsString
Log("timestamp = " & timestamp)

'  Generate the following JSON request body:
'  {
'    "merchant_ref": "Astonishing-Sale",
'    "transaction_type": "authorize",
'    "method": "credit_card",
'    "amount": "1299",
'    "currency_code": "USD",
'    "credit_card": {
'      "type": "visa",
'      "cardholder_name": "John Smith",
'      "card_number": "4788250000028291",
'      "exp_date": "1020",
'      "cvv": "123"
'    }
'  }

Dim json As ChilkatJsonObject
json.Initialize
json.UpdateString("merchant_ref", "Astonishing-Sale")
json.UpdateString("transaction_type", "authorize")
json.UpdateString("method", "credit_card")
json.UpdateString("amount", "1299")
json.UpdateString("currency_code", "USD")
json.UpdateString("credit_card.type", "visa")
json.UpdateString("credit_card.cardholder_name", "John Smith")
json.UpdateString("credit_card.card_number", "4788250000028291")
json.UpdateString("credit_card.exp_date", "1020")
json.UpdateString("credit_card.cvv", "123")
json.EmitCompact = False
Log(json.Emit)

'  string hashData = apiKey + nonce + timestamp + token + jsonString;
Dim sbHmacData As ChilkatStringBuilder
sbHmacData.Initialize
sbHmacData.Append(apiKey)
sbHmacData.Append(nonce)
sbHmacData.Append(timestamp)
sbHmacData.Append(token)
sbHmacData.Append(json.Emit)

'  HMAC the data to produce a hex string.
crypt.EncodingMode = "hexlower"
crypt.MacAlgorithm = "hmac"
crypt.SetMacKeyString(apiSecret)
crypt.HashAlgorithm = "sha256"
crypt.Charset = "utf-8"
Dim hexHash As String = crypt.MacStringENC(sbHmacData.GetAsString)
Log("hexHash = " & hexHash)

'  Now base64 encode the hex string:
Dim sbBase64Hash As ChilkatStringBuilder
sbBase64Hash.Initialize
sbBase64Hash.Append(hexHash)
sbBase64Hash.Encode("base64", "utf-8")

Log("This is the Authorization header to be sent with the payeezy request:")
Log("Authorization: " & sbBase64Hash.GetAsString)

'  -----------------------------------------------------------
'  Now that we have the value for the Authorization header, send the POST containing the JSON.

Dim http As ChilkatHttp
http.Initialize("http")

http.Accept = "*/*"
http.UserAgent = ""
http.SetRequestHeader("Authorization", sbBase64Hash.GetAsString)
http.SetRequestHeader("apikey", apiKey)
http.SetRequestHeader("nonce", nonce)
http.SetRequestHeader("timestamp", timestamp)
http.SetRequestHeader("token", token)

http.SessionLogFilename = "qa_output/payeezy.txt"

Dim url As String = "https://api-cert.payeezy.com/v1/transactions"
Dim resp As ChilkatHttpResponse
resp.Initialize
success = http.HttpJson("POST", url, json, "application/json", resp)
If success = False Then
    Log(http.LastErrorText)
    Return
End If


Log("response status code = " & resp.StatusCode)
json.Load(resp.BodyStr)
Log(json.Emit)

'  Sample JSON response:

'  {
'    "correlation_id": "228.4604632998994",
'    "transaction_status": "approved",
'    "validation_status": "success",
'    "transaction_type": "authorize",
'    "transaction_id": "ET175628",
'    "transaction_tag": "2313721985",
'    "method": "credit_card",
'    "amount": "1299",
'    "currency": "USD",
'    "cvv2": "M",
'    "token": {
'      "token_type": "FDToken",
'      "token_data": {
'        "value": "9732261336638291"
'      }
'    },
'    "card": {
'      "type": "visa",
'      "cardholder_name": "John Smith",
'      "card_number": "8291",
'      "exp_date": "1020"
'    },
'    "bank_resp_code": "100",
'    "bank_message": "Approved",
'    "gateway_resp_code": "00",
'    "gateway_message": "Transaction Normal"
'  }
'  

Log(json.StringOf("correlation_id"))
Log(json.StringOf("transaction_status"))
Log(json.StringOf("validation_status"))
Log(json.StringOf("transaction_type"))
Log(json.StringOf("transaction_id"))
Log(json.StringOf("transaction_tag"))
Log(json.StringOf("method"))
Log(json.StringOf("amount"))
Log(json.StringOf("currency"))
Log(json.StringOf("cvv2"))
Log(json.StringOf("token.token_type"))
Log(json.StringOf("token.token_data.value"))
Log(json.StringOf("card.type"))
Log(json.StringOf("card.cardholder_name"))
Log(json.StringOf("card.card_number"))
Log(json.StringOf("card.exp_date"))
Log(json.StringOf("bank_resp_code"))
Log(json.StringOf("bank_message"))
Log(json.StringOf("gateway_resp_code"))
Log(json.StringOf("gateway_message"))