procedure storeval (p_cc IN varchar2, p_key IN varchar2, encrypt_str OUT varchar2) as lv_cc varchar2(96) := p_cc; lv_encrypt_str varchar2(96); BEGIN -- Encrypt it dbms_obfuscation_toolkit.DESEncrypt( input_string => lv_cc, key_string => p_key, encrypted_string => lv_encrypt_str); -- Convert to hex encrypt_str := RAWTOHEX(UTL_RAW.CAST_TO_RAW(lv_encrypt_str)); --dbms_output.put_line(encrypt_str); END storeval; ---------------------------------------------------- procedure getval (p_cc IN varchar2, p_key IN varchar2, decrypt_str OUT varchar2) as v_cc varchar2(96) := p_cc; lv_decrypt_str varchar2(96); BEGIN -- Decrypt it dbms_obfuscation_toolkit.DESDecrypt( input_string => UTL_RAW.CAST_TO_VARCHAR2(hextoraw(v_cc)), key_string => p_key, decrypted_string => lv_decrypt_str); decrypt_str := lv_decrypt_str; --dbms_output.put_line(lv_decrypt_str); END getval;