DES 加密函数

create or replace functionencrypt_des(p_text varchar2, p_key varchar2) return varchar2 isv_text varchar2(4000);v_enc varchar2(4000);raw_input RAW(128) ;key_input RAW(128) ;decrypted_raw RAW(2048);beginv_text := rpad( p_text, (trunc(length(p_text)/8)+1)*8, chr(0));raw_input := UTL_RAW.CAST_TO_RAW(v_text);key_input := UTL_RAW.CAST_TO_RAW(p_key);dbms_obfuscation_toolkit.DESEncrypt(input => raw_input,key => key_input,encrypted_data =>decrypted_raw);v_enc := rawtohex(decrypted_raw);dbms_output.put_line(v_enc);return v_enc;end;

DES 解密函数

create or replace function decrypt_des(p_text varchar2,p_key varchar2) return varchar2 isv_text varchar2(2000); begindbms_obfuscation_toolkit.DESDECRYPT(input_string => UTL_RAW.CAST_TO_varchar2(p_text),key_string =>p_key, decrypted_string=> v_text);v_text := rtrim(v_text,chr(0));dbms_output.put_line(v_text);return v_text;end;

MD5 加密函数

CREATE OR REPLACE FUNCTION MD5(passwd IN VARCHAR2)RETURN VARCHAR2ISretval varchar2(32);BEGINretval := utl_raw.cast_to_raw(DBMS_OBFUSCATION_TOOLKIT.MD5(INPUT_STRING => passwd)) ;RETURN retval;END;

函数使用示例

DES 加密：select encrypt_des ('', ' 密文 ');

DES 解密：select decrypt_des ('', ' 密文 ')

MD5 加密：md5 ('');

结尾语

此函数未对 null 和空数据进行判断，可能会出现错误，请自行调整业务需求