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;
/
