get_sha1_mac_val.sql

来自「Oracle PLSQL for DBAs 源代码」· SQL 代码 · 共 12 行

CREATE OR REPLACE FUNCTION get_sha1_mac_val (p_in RAW, p_key RAW)
   RETURN RAW
IS
   l_mac   RAW (4000);
BEGIN
   l_mac :=
      dbms_crypto.mac (src      => p_in, typ => dbms_crypto.hmac_sh1,
                       KEY      => p_key);
   RETURN l_mac;
END;
/