Mega Code Archive
DBMS_OBFUSCATION_TOOLKIT des3getkey
<![CDATA[
SQL> CREATE OR REPLACE FUNCTION get_key (
2 p_seed VARCHAR2 := '1234567890'
3 || '1234567890'
4 || '1234567890'
5 || '1234567890'
6 || '1234567890'
7 || '1234567890'
8 || '1234567890'
9 || '1234567890',
10 p_which NUMBER := 0
11 )
12 RETURN VARCHAR2
13 IS
14 l_seed VARCHAR2 (80);
15 l_ret VARCHAR2 (2000);
16 BEGIN
17 l_seed := RPAD (p_seed, 80);
18 l_ret := DBMS_OBFUSCATION_TOOLKIT.des3getkey (seed_string=> l_seed,which => p_which);
19 l_ret := RAWTOHEX (UTL_RAW.cast_to_raw (l_ret));
20 RETURN l_ret;
21 END;
22 /
Function created.
SQL>
]]>