(PureBasic) Calculate a X_RISKIFIED_HMAC_SHA256 for riskified.com API Calls

Demonstrates how to calculate the value for the X_RISKIFIED_HMAC_SHA256 header for riskified.com HTTP requests (REST API calls).

Chilkat PureBasic Module Download Chilkat PureBasic Module

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