CREATE OR REPLACE PACKAGE dbc_cryptor IS

  SYSKEY VARCHAR2(16) := '0000000012345678';

  SYSIV  VARCHAR2(16) :=chr(0)||chr(0)||chr(0)||chr(0)||chr(0)||chr(0)||chr(0)||chr(0);

  FUNCTION encrypt_3des(v_str IN VARCHAR2,

                        v_key IN VARCHAR2 DEFAULT SYSKEY) RETURN RAW;

  FUNCTION decrypt_3des(v_raw IN RAW, v_key IN VARCHAR2 DEFAULT SYSKEY)

    RETURN VARCHAR2;

END;

/

CREATE OR REPLACE PACKAGE BODY dbc_cryptor IS

FUNCTION encrypt_3des(v_str IN VARCHAR2, v_key IN VARCHAR2 DEFAULT SYSKEY) RETURN RAW AS

v_str_raw RAW(2048);

BEGIN

if v_str is null then

   RETURN NULL;

end if;

if (MOD(LENGTHB(v_str), 8) > 0) then

   v_str_raw := UTL_RAW.CAST_TO_RAW(RPAD(v_str, (floor(LENGTHB(v_str)/8)+1)*8, chr(0)));

else

   v_str_raw := UTL_RAW.CAST_TO_RAW(v_str);

end if;

if v_key = SYSKEY then

   return DBMS_OBFUSCATION_TOOLKIT.DES3Encrypt(input => v_str_raw, key => UTL_RAW.CAST_TO_RAW(v_key), which => 0, iv => NULL);

else

   return DBMS_OBFUSCATION_TOOLKIT.DES3Encrypt(input => v_str_raw, key => UTL_RAW.CAST_TO_RAW(v_key), which => 0, iv => UTL_RAW.CAST_TO_RAW(SYSIV));

end if;

END;

FUNCTION decrypt_3des(v_raw IN raw, v_key IN VARCHAR2 DEFAULT SYSKEY) RETURN VARCHAR2 AS

BEGIN

if v_raw is null or MOD(LENGTH(v_raw), 16) <> 0 then

   RETURN NULL;

end if;

if v_key = SYSKEY then

return UTL_RAW.CAST_TO_VARCHAR2(DBMS_OBFUSCATION_TOOLKIT.DES3Decrypt(input => v_raw, key => UTL_RAW.CAST_TO_RAW(v_key), which => 0, iv => NULL));

else

return UTL_RAW.CAST_TO_VARCHAR2(DBMS_OBFUSCATION_TOOLKIT.DES3Decrypt(input => v_raw, key => UTL_RAW.CAST_TO_RAW(v_key), which => 0, iv => UTL_RAW.CAST_TO_RAW(SYSIV)));

end if;

END;

END;

/