Как зашифровать запрос к API Инстаграма алгоритмом SHA256 в Delphi?

Question

[Сергей]

Всем добрый день!
Разбираюсь с API Инстаграма. Там к запросам необходимо добавлять хэш самого запроса, вычисленного с использованием секретного ключа. Есть примеры на питон, рубине и ПХП. Все они используют библиотеки или встроенные функции.
Мне же необходимо написать функцию или найти библиотеку для Delphi, но пока никак. Очень надеюсь на общую помощь.

Answer 1

[Сергей]

Всем спасибо за остроумные ответы! Я нашел! Теперь делюсь с миром - вдруг кому пригодится?

uses Hash, HMAC, HMACSHA2, Mem_Util
{...}
function HMAC_SHA256(AKey, AStr: AnsiString): String;
var
  ctx: THMAC_Context;
  mac: TSHA256Digest;
begin
  hmac_SHA256_init(ctx, @AKey[1], Length(AKey));
  hmac_SHA256_update(ctx, @AStr[1], Length(AStr));
  hmac_SHA256_final(ctx, mac);
  Result:=HexStr(@mac, SizeOf(TSHA256Digest));
end;

Все необходимые модули можно взять отсюда.

Comments

[Jacomo]

Вот спасибо, добрый человек!!! Всем бы быть такими не жадными, нашел полезную информацию - поделился. А то в основном последнее сообщение в ветке - а, спасибо, сам разобрался и всё :)

[chaldaev2010]

Огромнейшее спасибо, вы даже не представляете как сильно меня выручили!!!

Answer 2

[D']

>Эникейшик
Гуглить эникейщики не умеют?

Answer 3

[Владимир Мартьянов]

Никак, потому что SHA - не шифрование.