Вопрос заключается в следующем:
Как известно, у базы данных Oracle, тип NUMBER имеет ограничение в длине значения (если не ошибаюсь, то 38). У меня имеется функция, которая достает число из таблицы, хеширует его, после чего помещает обратно в таблицу, заменяя исходное число. Однако, из-за вышеуказанного ограничения, я столкнулся с проблемой корректного хеширования. Обязательно я должен получить на выходе число.
Были мысли хешировать по группам (например, с 1 по 38 - 1я группа, с 39 и ... т.д. - 2я группа, а после, "склеить" группы чисел), сделав, например, функцию-обертку, но я новичок в изучении pl/sql, поэтому, хотел бы спросить у более грамотных людей, как можно реализовать данную идею?
Думаю, кто-нибудь да сталкивался с данной проблемой, и ответы будут полезны многим.
Заранее всем благодарен!
UPD:
Основная функция хеширования числа:
function hash_number_by_key(p_in varchar2, hash_length number, p_k varchar2) return number is
hash number (38);
result number (38);
begin
if (p_in is not null) then
hash := hash_utils.hash_to_number(dbms_crypto.mac(utl_raw.cast_to_raw(p_in),
dbms_crypto.HMAC_SH1, utl_raw.cast_to_raw(p_k)));
if hash_length = 0 or hash_length is null then
result := to_number(rpad(hash, length(p_in), hash));
else
if hash_length <= 38 and hash_length >= 1 then
result := to_number(rpad(hash, hash_length, hash));
else
raise_application_error(-20021,
'Incorrect length. Length must be from 1 to 38. Hash length: '||hash_length);
end if;
end if;
else
result := null;
end if;
return result;
end hash_number_by_key;
Функция, где она используется:
function hash_phone_by_key(p_in varchar2, p_k varchar2) return varchar2 is
idx int;
pos int;
lngth int;
buffer varchar2 (4000);
pattern varchar2 (4000);
numbers varchar(4000);
hash varchar2 (4000);
result varchar2 (4000);
begin
if p_in is not null then
buffer := REGEXP_REPLACE(p_in, '[[:alpha:]]', '');
lngth := LENGTH(numbers);
if lngth > 0 then
hash := hash_number_by_key(numbers, lngth, p_k);
idx := 1;
for pos in 1..LENGTH(pattern)
loop
if '0' = substr(pattern, pos, 1) then
result := result || substr(hash, idx, 1);
idx := idx + 1;
else
result := result || substr(pattern, pos, 1);
end if;
end loop;
end if;
return result;
else
return null;
end if;
end hash_phone_by_key;