(VBScript) Payeezy Place Temp Authorization Hold on Buyer’s Credit Card

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.

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

Dim fso, outFile
Set fso = CreateObject("Scripting.FileSystemObject")
'Create a Unicode (utf-16) output text file.
Set outFile = fso.CreateTextFile("output.txt", True, True)

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

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Crypt2")
set crypt = CreateObject("Chilkat.Crypt2")
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Prng")
set prng = CreateObject("Chilkat.Prng")

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

' The nonce is a random number (bytes), something like "6057786719490086000"
nonce = prng.GenRandom(8,"decimal")
outFile.WriteLine("nonce = " & nonce)

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.CkDateTime")
set dtNow = CreateObject("Chilkat.CkDateTime")
success = dtNow.SetFromCurrentSystemTime()
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sbTimestamp = CreateObject("Chilkat.StringBuilder")
' Get the epoch timestamp in seconds
success = sbTimestamp.Append(dtNow.GetAsUnixTimeStr(0))
' Change it to milliseconds
success = sbTimestamp.Append("000")
' The timestamp is a number similar to this: 1546011905000 (which is a timestamp taken on 28-Dec-2018).
timestamp = sbTimestamp.GetAsString()
outFile.WriteLine("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"
'   }
' }

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.JsonObject")
set json = CreateObject("Chilkat.JsonObject")
success = json.UpdateString("merchant_ref","Astonishing-Sale")
success = json.UpdateString("transaction_type","authorize")
success = json.UpdateString("method","credit_card")
success = json.UpdateString("amount","1299")
success = json.UpdateString("currency_code","USD")
success = json.UpdateString("credit_card.type","visa")
success = json.UpdateString("credit_card.cardholder_name","John Smith")
success = json.UpdateString("credit_card.card_number","4788250000028291")
success = json.UpdateString("credit_card.exp_date","1020")
success = json.UpdateString("credit_card.cvv","123")
json.EmitCompact = 0
outFile.WriteLine(json.Emit())

' string hashData = apiKey + nonce + timestamp + token + jsonString;
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sbHmacData = CreateObject("Chilkat.StringBuilder")
success = sbHmacData.Append(apiKey)
success = sbHmacData.Append(nonce)
success = sbHmacData.Append(timestamp)
success = sbHmacData.Append(token)
success = sbHmacData.Append(json.Emit())

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

' Now base64 encode the hex string:
' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.StringBuilder")
set sbBase64Hash = CreateObject("Chilkat.StringBuilder")
success = sbBase64Hash.Append(hexHash)
success = sbBase64Hash.Encode("base64","utf-8")

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

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

' For versions of Chilkat < 10.0.0, use CreateObject("Chilkat_9_5_0.Http")
set http = CreateObject("Chilkat.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"

url = "https://api-cert.payeezy.com/v1/transactions"
' resp is a Chilkat.HttpResponse
Set resp = http.PostJson2(url,"application/json",json.Emit())
If (http.LastMethodSuccess <> 1) Then
    outFile.WriteLine(http.LastErrorText)
    WScript.Quit
End If

outFile.WriteLine("response status code = " & resp.StatusCode)
success = json.Load(resp.BodyStr)
outFile.WriteLine(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"
' }
' 

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

outFile.Close