PureBasic
PureBasic
Calculate a X_RISKIFIED_HMAC_SHA256 for riskified.com API Calls
See more REST Misc Examples
Demonstrates how to calculate the value for the X_RISKIFIED_HMAC_SHA256 header for riskified.com HTTP requests (REST API calls).Chilkat PureBasic Downloads
IncludeFile "CkStringBuilder.pb"
IncludeFile "CkJsonObject.pb"
IncludeFile "CkCrypt2.pb"
Procedure ChilkatExample()
; This example requires the Chilkat API to have been previously unlocked.
; See Global Unlock Sample for sample code.
; Create the JSON that is to be the body of the HTTP request.
; The JSON created by this code is shown at the bottom of this example.
;
; The JSON Code Generator at http://tools.chilkat.io/ can be used
; to generate the following code from sample JSON.
json.i = CkJsonObject::ckCreate()
If json.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkJsonObject::ckUpdateNull(json,"order.cancel_reason")
CkJsonObject::ckUpdateNull(json,"order.cancelled_at")
CkJsonObject::ckUpdateString(json,"order.cart_token","68778783ad298f1c80c3bafcddeea02f")
CkJsonObject::ckUpdateNull(json,"order.closed_at")
CkJsonObject::ckUpdateString(json,"order.created_at","2008-01-10T11:00:00-05:00")
CkJsonObject::ckUpdateString(json,"order.currency","USD")
CkJsonObject::ckUpdateString(json,"order.email","bob.norman@hostmail.com")
CkJsonObject::ckUpdateString(json,"order.gateway","authorize_net")
CkJsonObject::ckUpdateNumber(json,"order.id","450789469")
CkJsonObject::ckUpdateString(json,"order.total_discounts","0.00")
CkJsonObject::ckUpdateString(json,"order.total_price","409.94")
CkJsonObject::ckUpdateString(json,"order.updated_at","2008-01-10T11:00:00-05:00")
CkJsonObject::ckUpdateString(json,"order.note","some note made by the shop’s stuff member")
CkJsonObject::ckUpdateNull(json,"order.browser_ip")
CkJsonObject::ckUpdateString(json,"order.discount_codes[0].amount","10.00")
CkJsonObject::ckUpdateString(json,"order.discount_codes[0].code","TENOFF")
CkJsonObject::ckUpdateString(json,"order.line_items[0].title","IPod Nano - 8gb - green")
CkJsonObject::ckUpdateNumber(json,"order.line_items[0].price","199.00")
CkJsonObject::ckUpdateNumber(json,"order.line_items[0].product_id","632910392")
CkJsonObject::ckUpdateNumber(json,"order.line_items[0].quantity","1")
CkJsonObject::ckUpdateString(json,"order.line_items[0].sku","IPOD2008GREEN")
CkJsonObject::ckUpdateString(json,"order.shipping_lines[0].code","Free Shipping")
CkJsonObject::ckUpdateString(json,"order.shipping_lines[0].price","0.00")
CkJsonObject::ckUpdateString(json,"order.shipping_lines[0].title","Free Shipping")
CkJsonObject::ckUpdateNull(json,"order.payment_details.avs_result_code")
CkJsonObject::ckUpdateNull(json,"order.payment_details.credit_card_bin")
CkJsonObject::ckUpdateString(json,"order.payment_details.credit_card_company","Visa")
CkJsonObject::ckUpdateString(json,"order.payment_details.credit_card_number","XXXX-XXXX-XXXX-4242")
CkJsonObject::ckUpdateNull(json,"order.payment_details.cvv_result_code")
CkJsonObject::ckUpdateString(json,"order.payment_details.authorization_id","RK346IK124")
CkJsonObject::ckUpdateString(json,"order.billing_address.address1","Chestnut Street 92")
CkJsonObject::ckUpdateString(json,"order.billing_address.address2","")
CkJsonObject::ckUpdateString(json,"order.billing_address.city","Louisville")
CkJsonObject::ckUpdateNull(json,"order.billing_address.company")
CkJsonObject::ckUpdateString(json,"order.billing_address.country","United States")
CkJsonObject::ckUpdateString(json,"order.billing_address.country_code","US")
CkJsonObject::ckUpdateString(json,"order.billing_address.first_name","Bob")
CkJsonObject::ckUpdateString(json,"order.billing_address.last_name","Norman")
CkJsonObject::ckUpdateString(json,"order.billing_address.name","Bob Norman")
CkJsonObject::ckUpdateString(json,"order.billing_address.phone","555-625-1199")
CkJsonObject::ckUpdateString(json,"order.billing_address.province","Kentucky")
CkJsonObject::ckUpdateString(json,"order.billing_address.province_code","KY")
CkJsonObject::ckUpdateString(json,"order.billing_address.zip","40202")
CkJsonObject::ckUpdateString(json,"order.shipping_address.address1","Chestnut Street 92")
CkJsonObject::ckUpdateString(json,"order.shipping_address.address2","")
CkJsonObject::ckUpdateString(json,"order.shipping_address.city","Louisville")
CkJsonObject::ckUpdateNull(json,"order.shipping_address.company")
CkJsonObject::ckUpdateString(json,"order.shipping_address.country","United States")
CkJsonObject::ckUpdateString(json,"order.shipping_address.country_code","US")
CkJsonObject::ckUpdateString(json,"order.shipping_address.first_name","Bob")
CkJsonObject::ckUpdateString(json,"order.shipping_address.last_name","Norman")
CkJsonObject::ckUpdateString(json,"order.shipping_address.name","Bob Norman")
CkJsonObject::ckUpdateString(json,"order.shipping_address.phone","555-625-1199")
CkJsonObject::ckUpdateString(json,"order.shipping_address.province","Kentucky")
CkJsonObject::ckUpdateString(json,"order.shipping_address.province_code","KY")
CkJsonObject::ckUpdateString(json,"order.shipping_address.zip","40202")
CkJsonObject::ckUpdateString(json,"order.customer.created_at","2013-04-23T13:36:50-04:00")
CkJsonObject::ckUpdateString(json,"order.customer.email","bob.norman@hostmail.com")
CkJsonObject::ckUpdateString(json,"order.customer.first_name","Bob")
CkJsonObject::ckUpdateNumber(json,"order.customer.id","207119551")
CkJsonObject::ckUpdateString(json,"order.customer.last_name","Norman")
CkJsonObject::ckUpdateNull(json,"order.customer.note")
CkJsonObject::ckUpdateNumber(json,"order.customer.orders_count","0")
CkJsonObject::ckUpdateBool(json,"order.customer.verified_email",1)
; Emit the JSON in compact format..
CkJsonObject::setCkEmitCompact(json, 1)
; Get the JSON that will be HMAC'd and will also be the contents of the HTTP request body.
jsonBody.s = CkJsonObject::ckEmit(json)
crypt.i = CkCrypt2::ckCreate()
If crypt.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkCrypt2::setCkEncodingMode(crypt, "hex")
CkCrypt2::setCkHashAlgorithm(crypt, "sha256")
CkCrypt2::setCkMacAlgorithm(crypt, "hmac")
CkCrypt2::ckSetMacKeyString(crypt,"55fe0f4d4023bbdfbc124cabd88bf9bb")
hmacHexStr.s = CkCrypt2::ckMacStringENC(crypt,jsonBody)
If CkCrypt2::ckLastMethodSuccess(crypt) <> 1
Debug CkCrypt2::ckLastErrorText(crypt)
CkJsonObject::ckDispose(json)
CkCrypt2::ckDispose(crypt)
ProcedureReturn
EndIf
; We need a lowercase hmacHexStr...
sbHmacHex.i = CkStringBuilder::ckCreate()
If sbHmacHex.i = 0
Debug "Failed to create object."
ProcedureReturn
EndIf
CkStringBuilder::ckAppend(sbHmacHex,hmacHexStr)
CkStringBuilder::ckToLowercase(sbHmacHex)
hmacHexStr = CkStringBuilder::ckGetAsString(sbHmacHex)
Debug "The value of the X_RISKIFIED_HMAC_SHA256 should be: " + hmacHexStr
; This example is only to show the HMAC SHA256 calculation.
; See examples of sending REST requests to riskified.com at http://rest-examples.chilkat.io/riskified/default.cshtml
; ----------------------------------------------
; This is the JSON created by the above code..
; {
; "order": {
; "cancel_reason": null,
; "cancelled_at": null,
; "cart_token": "68778783ad298f1c80c3bafcddeea02f",
; "closed_at": null,
; "created_at": "2008-01-10T11:00:00-05:00",
; "currency": "USD",
; "email": "bob.norman@hostmail.com",
; "gateway": "authorize_net",
; "id": 450789469,
; "total_discounts": "0.00",
; "total_price": "409.94",
; "updated_at": "2008-01-10T11:00:00-05:00",
; "note": "some note made by the shop’s stuff member",
; "browser_ip": null,
; "discount_codes": [
; {
; "amount": "10.00",
; "code": "TENOFF"
; }
; ],
; "line_items": [
; {
; "title": "IPod Nano - 8gb - green",
; "price": 199.00,
; "product_id": 632910392,
; "quantity": 1,
; "sku": "IPOD2008GREEN"
; }
; ],
; "shipping_lines": [
; {
; "code": "Free Shipping",
; "price": "0.00",
; "title": "Free Shipping"
; }
; ],
; "payment_details": {
; "avs_result_code": null,
; "credit_card_bin": null,
; "credit_card_company": "Visa",
; "credit_card_number": "XXXX-XXXX-XXXX-4242",
; "cvv_result_code": null,
; "authorization_id": "RK346IK124"
; },
; "billing_address": {
; "address1": "Chestnut Street 92",
; "address2": "",
; "city": "Louisville",
; "company": null,
; "country": "United States",
; "country_code": "US",
; "first_name": "Bob",
; "last_name": "Norman",
; "name": "Bob Norman",
; "phone": "555-625-1199",
; "province": "Kentucky",
; "province_code": "KY",
; "zip": "40202"
; },
; "shipping_address": {
; "address1": "Chestnut Street 92",
; "address2": "",
; "city": "Louisville",
; "company": null,
; "country": "United States",
; "country_code": "US",
; "first_name": "Bob",
; "last_name": "Norman",
; "name": "Bob Norman",
; "phone": "555-625-1199",
; "province": "Kentucky",
; "province_code": "KY",
; "zip": "40202"
; },
; "customer": {
; "created_at": "2013-04-23T13:36:50-04:00",
; "email": "bob.norman@hostmail.com",
; "first_name": "Bob",
; "id": 207119551,
; "last_name": "Norman",
; "note": null,
; "orders_count": 0,
; "verified_email": true
; }
; }
; }
CkJsonObject::ckDispose(json)
CkCrypt2::ckDispose(crypt)
CkStringBuilder::ckDispose(sbHmacHex)
ProcedureReturn
EndProcedure