Delphi DLL
Delphi DLL
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 Delphi DLL Downloads
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;