get_key_1.sql

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

CREATE OR REPLACE FUNCTION get_key (
   p_seed    VARCHAR2 :=    '1234567890'
                         || '1234567890'
                         || '1234567890'
                         || '1234567890'
                         || '1234567890'
                         || '1234567890'
                         || '1234567890'
                         || '1234567890',
   p_which   NUMBER := 0
)
   RETURN VARCHAR2
IS
   l_seed   VARCHAR2 (80);
   l_ret    VARCHAR2 (2000);
BEGIN
   l_seed := RPAD (p_seed, 80);
   l_ret :=
      DBMS_OBFUSCATION_TOOLKIT.des3getkey (seed_string      => l_seed,

                                           which            => p_which

                                          );
   l_ret := RAWTOHEX (UTL_RAW.cast_to_raw (l_ret));
   RETURN l_ret;
END;
/