сгенерировать hmac sha1 с полезной нагрузкой, унаследованной от Unicode, oracle plsql

Question

поэтому у меня есть конечная точка ORDS (Oracle Rest Data Services), которая получает полезную нагрузку JSON от Facebook API, и переменная X-Hub-Signature, которая входит в заголовок запроса.

Мне нужно подтвердить полученный запрос, поэтому я знаю, что он с Facebook.

Мне нужно сгенерировать хеш, который получает полезную нагрузку (BLOB) и ключ (строку), которыми оба я и Facebook делимся (app_secret), а затем я сравниваю его со значением X-Hub-Signature, чтобы я мог подтвердите, что это правильный запрос.

проблема в том, что Facebook говорит: «Обратите внимание, что мы генерируем подпись, используя экранированную версию Юникода полезной нагрузки с шестнадцатеричными цифрами в нижнем регистре. Если вы просто рассчитываете по отношению к декодированным байтам, у вас будет другая подпись. Например, строка äöå должна быть экранирована в \ u00e4 \ u00f6 \ u00e5. "

Пока мои хэши совпадают с полезными данными, которые я получаю, но я пробовал использовать эти символы, и я не могу точно знать, работает ли он, поскольку все онлайн-кодировщики hmac выглядят не так хорошо, и я тоже не знаю, как убрать их из Юникода (в онлайн-кодировщиках).

пока у меня есть это:

FUNCTION validate_payload (p_x_hub_signature      in     varchar2,
                           p_json_payload         in     blob)
RETURN varchar2
IS
    v_app_secret        varchar2(4000) := '2f2f2f2f2f2f2f';
    l_mac               raw(10000);
    v_x_hub_signature   varchar2(4000);

BEGIN

    l_mac := dbms_crypto.mac (src => p_json_payload,
                              typ => dbms_crypto.hmac_sh1,
                              key => UTL_I18N.STRING_TO_RAW (v_app_secret, 'AL32UTF8'));

    v_x_hub_signature := 'sha1='||lower(l_mac);

    return v_x_hub_signature;      

END;

Можете ли вы дать какие-либо отзывы по этому поводу? это правильно?

спасибо заранее, извините, плохой английский или объяснение!

Answer 1

Начиная с метода @Wernfried Domscheit, использующего ASCIISTR и regexp_replace, его можно расширить на весь список замен, чтобы получить строчные версии:

with sample(str) as (
  select 'äöå ab\ABC' from dual
), patterns(ord, pat, rep) as (
  select 1, '\\A([[:xdigit:]]{3})', '\\a\1' from dual union all
  select 2, '\\B([[:xdigit:]]{3})', '\\b\1' from dual union all
  select 3, '\\C([[:xdigit:]]{3})', '\\c\1' from dual union all
  select 4, '\\D([[:xdigit:]]{3})', '\\d\1' from dual union all
  select 5, '\\E([[:xdigit:]]{3})', '\\e\1' from dual union all
  select 6, '\\F([[:xdigit:]]{3})', '\\f\1' from dual union all
  select 7, '\\([[:xdigit:]])A([[:xdigit:]]{2})', '\\\1a\2' from dual union all
  select 8, '\\([[:xdigit:]])B([[:xdigit:]]{2})', '\\\1b\2' from dual union all
  select 9, '\\([[:xdigit:]])C([[:xdigit:]]{2})', '\\\1c\2' from dual union all
  select 10, '\\([[:xdigit:]])D([[:xdigit:]]{2})', '\\\1d\2' from dual union all
  select 11, '\\([[:xdigit:]])E([[:xdigit:]]{2})', '\\\1e\2' from dual union all
  select 12, '\\([[:xdigit:]])F([[:xdigit:]]{2})', '\\\1f\2' from dual union all
  select 13, '\\([[:xdigit:]]{2})A([[:xdigit:]])', '\\\1a\2' from dual union all
  select 14, '\\([[:xdigit:]]{2})B([[:xdigit:]])', '\\\1b\2' from dual union all
  select 15, '\\([[:xdigit:]]{2})C([[:xdigit:]])', '\\\1c\2' from dual union all
  select 16, '\\([[:xdigit:]]{2})D([[:xdigit:]])', '\\\1d\2' from dual union all
  select 17, '\\([[:xdigit:]]{2})E([[:xdigit:]])', '\\\1e\2' from dual union all
  select 18, '\\([[:xdigit:]]{2})F([[:xdigit:]])', '\\\1f\2' from dual union all
  select 19, '\\([[:xdigit:]]{3})A', '\\\1a' from dual union all
  select 20, '\\([[:xdigit:]]{3})B', '\\\1b' from dual union all
  select 21, '\\([[:xdigit:]]{3})C', '\\\1c' from dual union all
  select 22, '\\([[:xdigit:]]{3})D', '\\\1d' from dual union all
  select 23, '\\([[:xdigit:]]{3})E', '\\\1e' from dual union all
  select 24, '\\([[:xdigit:]]{3})F', '\\\1f' from dual union all
  select 25, '\\([[:xdigit:]]{4})', '\u\1' from dual union all
  select 26, '\\u005c', '\\\\' from dual
), recur(ord, str, tr) as (
  select ord, str
       , REGEXP_REPLACE(asciistr(str), pat, rep)
    from sample
    join patterns
      on ord = 1
  union all
  select recur.ord+1, str
       , REGEXP_REPLACE(tr, pat, rep)
    from recur
    join patterns
      on patterns.ord = recur.ord + 1
)
select * from recur where ord = 26;

Если вы хотите, чтобы это делала функция PL / SQL, последовательность преобразований может быть вложена и вставлена ​​в функцию. Если вы не хотите, чтобы окончательное преобразование \ u005c в \ просто удалило внешнее regexp_replace:

create or replace function Escape_Unicode(pCLOB clob) RETURN clob is
BEGIN
  return  regexp_replace(
            regexp_replace(
              regexp_replace(
                regexp_replace(
                  regexp_replace(
                    regexp_replace(
                      regexp_replace(
                        regexp_replace(
                          regexp_replace(
                            regexp_replace(
                              regexp_replace(
                                regexp_replace(
                                  regexp_replace(
                                    regexp_replace(
                                      regexp_replace(
                                        regexp_replace(
                                          regexp_replace(
                                            regexp_replace(
                                              regexp_replace(
                                                regexp_replace(
                                                  regexp_replace(
                                                    regexp_replace(
                                                      regexp_replace(
                                                        regexp_replace(
                                                          regexp_replace(
                                                            regexp_replace(
                                                              asciistr(pClOB)
                                                              , '\\A([[:xdigit:]]{3})'
                                                              , '\\a\1'
                                                            )
                                                            , '\\B([[:xdigit:]]{3})'
                                                            , '\\b\1'
                                                          )
                                                          , '\\C([[:xdigit:]]{3})'
                                                          , '\\c\1'
                                                        )
                                                        , '\\D([[:xdigit:]]{3})'
                                                        , '\\d\1'
                                                      )
                                                      , '\\E([[:xdigit:]]{3})'
                                                      , '\\e\1'
                                                    )
                                                    , '\\F([[:xdigit:]]{3})'
                                                    , '\\f\1'
                                                  )
                                                  , '\\([[:xdigit:]])A([[:xdigit:]]{2})'
                                                  , '\\\1a\2'
                                                )
                                                , '\\([[:xdigit:]])B([[:xdigit:]]{2})'
                                                , '\\\1b\2'
                                              )
                                              , '\\([[:xdigit:]])C([[:xdigit:]]{2})'
                                              , '\\\1c\2'
                                            )
                                            , '\\([[:xdigit:]])D([[:xdigit:]]{2})'
                                            , '\\\1d\2'
                                          )
                                          , '\\([[:xdigit:]])E([[:xdigit:]]{2})'
                                          , '\\\1e\2'
                                        )
                                        , '\\([[:xdigit:]])F([[:xdigit:]]{2})'
                                        , '\\\1f\2'
                                      )
                                      , '\\([[:xdigit:]]{2})A([[:xdigit:]])'
                                      , '\\\1a\2'
                                    )
                                    , '\\([[:xdigit:]]{2})B([[:xdigit:]])'
                                    , '\\\1b\2'
                                  )
                                  , '\\([[:xdigit:]]{2})C([[:xdigit:]])'
                                  , '\\\1c\2'
                                )
                                , '\\([[:xdigit:]]{2})D([[:xdigit:]])'
                                , '\\\1d\2'
                              )
                              , '\\([[:xdigit:]]{2})E([[:xdigit:]])'
                              , '\\\1e\2'
                            )
                            , '\\([[:xdigit:]]{2})F([[:xdigit:]])'
                            , '\\\1f\2'
                          )
                          , '\\([[:xdigit:]]{3})A'
                          , '\\\1a'
                        )
                        , '\\([[:xdigit:]]{3})B'
                        , '\\\1b'
                      )
                      , '\\([[:xdigit:]]{3})C'
                      , '\\\1c'
                    )
                    , '\\([[:xdigit:]]{3})D'
                    , '\\\1d'
                  )
                  , '\\([[:xdigit:]]{3})E'
                  , '\\\1e'
                )
                , '\\([[:xdigit:]]{3})F'
                , '\\\1f'
              )
              , '\\([[:xdigit:]]{4})'
              , '\u\1'
            )
            , '\\u005c'
            , '\\\\'
          );
end;
/
select escape_unicode('äöå ab\ABCd') from dual;

Answer 2

Я только что понял, возможно, я ввел вас в заблуждение. как упоминал Сентинел, v_app_secret не нужно переводить, только p_json_payload, который является BLOB.

Пока я придумал это: ты думаешь, это нормально? У меня нет возможности узнать наверняка: /

FUNCTION validate_payload (p_x_hub_signature      in     varchar2,
                           p_json_payload         in     blob)
RETURN varchar2
IS
    v_app_secret        varchar2(4000) := '3f2f2f2f23f23f23';
    l_mac               raw(10000);
    v_x_hub_signature   varchar2(4000);
BEGIN
    l_mac := dbms_crypto.mac (src => UTL_I18N.STRING_TO_RAW (utl_raw.cast_to_varchar2 (p_json_payload),'AL32UTF8'),
                              typ => dbms_crypto.hmac_sh1,
                              key => UTL_I18N.STRING_TO_RAW (v_app_secret, 'AL32UTF8'));

    v_x_hub_signature := 'sha1='||lower(l_mac);

    dbms_output.put_line(v_x_hub_signature);

    return v_x_hub_signature;      

END;

Answer 3

Вот решение PL / SQL. Это требует меньше кодирования, чем предложение Sentinel, и может быть более ясным.

declare
    v_app_secret varchar2(100) := 'äaöå ab\ABC';
    escaped varchar2(100);
    item varchar2(6);
begin

    escaped := replace(regexp_replace(ASCIISTR(v_app_secret), '\\([[:xdigit:]]{4})', '\u\1'), '\u005C', '\\');

    for i in 1..regexp_count(escaped, '\\u[[:xdigit:]]{4}') loop
        item := regexp_substr(escaped, '\\u[[:xdigit:]]{4}', 1, i);
        escaped := replace(escaped, item, lower(item));        
    end loop;
    dbms_output.put_line(escaped);

end;


\u00e4a\u00f6\u00e5 ab\\ABC

Предполагается, что \ необходимо перевести на \\