get_mac_val.sql

Oracle PLSQL for DBAs 源代码

CREATE OR REPLACE FUNCTION get_mac_val (
   p_in_val      IN   VARCHAR2,
   p_key         IN   VARCHAR2,
   p_algorithm   IN   VARCHAR2 := 'SH1'
)
   RETURN VARCHAR2
IS
   l_mac_val    RAW (4000);
   l_key        RAW (4000);
   l_mac_algo   PLS_INTEGER;
   l_in         RAW (4000);
   l_ret        VARCHAR2 (4000);
BEGIN
   l_mac_algo :=
      CASE p_algorithm
         WHEN 'SH1'
            THEN dbms_crypto.hmac_sh1
         WHEN 'MD5'
            THEN dbms_crypto.hash_md5
      END;
   l_in := utl_i18n.string_to_raw (p_in_val, 'AL32UTF8');
   l_key := utl_i18n.string_to_raw (p_key, 'AL32UTF8');
   l_mac_val := dbms_crypto.mac (src => l_in, typ => l_mac_algo, key=>l_key);
   l_ret := RAWTOHEX (l_mac_val);
   RETURN l_ret;
END;
/