(Delphi DLL) 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 for Delphi Downloads Chilkat non-ActiveX DLL for Delphi Chilkat ActiveX DLL for Delphi * The examples here use the non-ActiveX DLL.

uses
    Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
    Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, StringBuilder, JsonObject, Crypt2;

...

procedure TForm1.Button1Click(Sender: TObject);
var
json: HCkJsonObject;
jsonBody: PWideChar;
crypt: HCkCrypt2;
hmacHexStr: PWideChar;
sbHmacHex: HCkStringBuilder;

begin
// 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 := CkJsonObject_Create();
CkJsonObject_UpdateNull(json,'order.cancel_reason');
CkJsonObject_UpdateNull(json,'order.cancelled_at');
CkJsonObject_UpdateString(json,'order.cart_token','68778783ad298f1c80c3bafcddeea02f');
CkJsonObject_UpdateNull(json,'order.closed_at');
CkJsonObject_UpdateString(json,'order.created_at','2008-01-10T11:00:00-05:00');
CkJsonObject_UpdateString(json,'order.currency','USD');
CkJsonObject_UpdateString(json,'order.email','bob.norman@hostmail.com');
CkJsonObject_UpdateString(json,'order.gateway','authorize_net');
CkJsonObject_UpdateNumber(json,'order.id','450789469');
CkJsonObject_UpdateString(json,'order.total_discounts','0.00');
CkJsonObject_UpdateString(json,'order.total_price','409.94');
CkJsonObject_UpdateString(json,'order.updated_at','2008-01-10T11:00:00-05:00');
CkJsonObject_UpdateString(json,'order.note','some note made by the shop’s stuff member');
CkJsonObject_UpdateNull(json,'order.browser_ip');
CkJsonObject_UpdateString(json,'order.discount_codes[0].amount','10.00');
CkJsonObject_UpdateString(json,'order.discount_codes[0].code','TENOFF');
CkJsonObject_UpdateString(json,'order.line_items[0].title','IPod Nano - 8gb - green');
CkJsonObject_UpdateNumber(json,'order.line_items[0].price','199.00');
CkJsonObject_UpdateNumber(json,'order.line_items[0].product_id','632910392');
CkJsonObject_UpdateNumber(json,'order.line_items[0].quantity','1');
CkJsonObject_UpdateString(json,'order.line_items[0].sku','IPOD2008GREEN');
CkJsonObject_UpdateString(json,'order.shipping_lines[0].code','Free Shipping');
CkJsonObject_UpdateString(json,'order.shipping_lines[0].price','0.00');
CkJsonObject_UpdateString(json,'order.shipping_lines[0].title','Free Shipping');
CkJsonObject_UpdateNull(json,'order.payment_details.avs_result_code');
CkJsonObject_UpdateNull(json,'order.payment_details.credit_card_bin');
CkJsonObject_UpdateString(json,'order.payment_details.credit_card_company','Visa');
CkJsonObject_UpdateString(json,'order.payment_details.credit_card_number','XXXX-XXXX-XXXX-4242');
CkJsonObject_UpdateNull(json,'order.payment_details.cvv_result_code');
CkJsonObject_UpdateString(json,'order.payment_details.authorization_id','RK346IK124');
CkJsonObject_UpdateString(json,'order.billing_address.address1','Chestnut Street 92');
CkJsonObject_UpdateString(json,'order.billing_address.address2','');
CkJsonObject_UpdateString(json,'order.billing_address.city','Louisville');
CkJsonObject_UpdateNull(json,'order.billing_address.company');
CkJsonObject_UpdateString(json,'order.billing_address.country','United States');
CkJsonObject_UpdateString(json,'order.billing_address.country_code','US');
CkJsonObject_UpdateString(json,'order.billing_address.first_name','Bob');
CkJsonObject_UpdateString(json,'order.billing_address.last_name','Norman');
CkJsonObject_UpdateString(json,'order.billing_address.name','Bob Norman');
CkJsonObject_UpdateString(json,'order.billing_address.phone','555-625-1199');
CkJsonObject_UpdateString(json,'order.billing_address.province','Kentucky');
CkJsonObject_UpdateString(json,'order.billing_address.province_code','KY');
CkJsonObject_UpdateString(json,'order.billing_address.zip','40202');
CkJsonObject_UpdateString(json,'order.shipping_address.address1','Chestnut Street 92');
CkJsonObject_UpdateString(json,'order.shipping_address.address2','');
CkJsonObject_UpdateString(json,'order.shipping_address.city','Louisville');
CkJsonObject_UpdateNull(json,'order.shipping_address.company');
CkJsonObject_UpdateString(json,'order.shipping_address.country','United States');
CkJsonObject_UpdateString(json,'order.shipping_address.country_code','US');
CkJsonObject_UpdateString(json,'order.shipping_address.first_name','Bob');
CkJsonObject_UpdateString(json,'order.shipping_address.last_name','Norman');
CkJsonObject_UpdateString(json,'order.shipping_address.name','Bob Norman');
CkJsonObject_UpdateString(json,'order.shipping_address.phone','555-625-1199');
CkJsonObject_UpdateString(json,'order.shipping_address.province','Kentucky');
CkJsonObject_UpdateString(json,'order.shipping_address.province_code','KY');
CkJsonObject_UpdateString(json,'order.shipping_address.zip','40202');
CkJsonObject_UpdateString(json,'order.customer.created_at','2013-04-23T13:36:50-04:00');
CkJsonObject_UpdateString(json,'order.customer.email','bob.norman@hostmail.com');
CkJsonObject_UpdateString(json,'order.customer.first_name','Bob');
CkJsonObject_UpdateNumber(json,'order.customer.id','207119551');
CkJsonObject_UpdateString(json,'order.customer.last_name','Norman');
CkJsonObject_UpdateNull(json,'order.customer.note');
CkJsonObject_UpdateNumber(json,'order.customer.orders_count','0');
CkJsonObject_UpdateBool(json,'order.customer.verified_email',True);

// Emit the JSON in compact format..
CkJsonObject_putEmitCompact(json,True);
// Get the JSON that will be HMAC'd and will also be the contents of the HTTP request body.
jsonBody := CkJsonObject__emit(json);

crypt := CkCrypt2_Create();
CkCrypt2_putEncodingMode(crypt,'hex');
CkCrypt2_putHashAlgorithm(crypt,'sha256');
CkCrypt2_putMacAlgorithm(crypt,'hmac');

CkCrypt2_SetMacKeyString(crypt,'55fe0f4d4023bbdfbc124cabd88bf9bb');

hmacHexStr := CkCrypt2__macStringENC(crypt,jsonBody);
if (CkCrypt2_getLastMethodSuccess(crypt) <> True) then
  begin
    Memo1.Lines.Add(CkCrypt2__lastErrorText(crypt));
    Exit;
  end;

// We need a lowercase hmacHexStr...
sbHmacHex := CkStringBuilder_Create();
CkStringBuilder_Append(sbHmacHex,hmacHexStr);
CkStringBuilder_ToLowercase(sbHmacHex);

hmacHexStr := CkStringBuilder__getAsString(sbHmacHex);

Memo1.Lines.Add('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_Dispose(json);
CkCrypt2_Dispose(crypt);
CkStringBuilder_Dispose(sbHmacHex);

end;