重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
----权限设置 grant execute on DBMS_CRYPTO to username; ---------加密 create or replace function encrypt256(v_input varchar2) return raw is v_result raw(1999); c_key char(32) := '1q2wa3es4rz5tx6ycD*UF8tif9ogjen2'; begin v_result := sys.DBMS_CRYPTO.ENCRYPT( UTL_I18N.STRING_TO_RAW(v_input, 'AL32UTF8'), sys.DBMS_CRYPTO.ENCRYPT_AES256+sys.DBMS_CRYPTO.CHAIN_CBC+sys.DBMS_CRYPTO.PAD_PKCS5, UTL_I18N.STRING_TO_RAW(c_key, 'AL32UTF8')); return v_result; end; -----------解密 create or replace function decrypt256(v_input raw) return varchar2 is v_result raw(1999); c_key char(32) := '1q2wa3es4rz5tx6ycD*UF8tif9ogjen2'; begin v_result := SYS.DBMS_CRYPTO.DECRYPT( v_input, SYS.DBMS_CRYPTO.ENCRYPT_AES256+SYS.DBMS_CRYPTO.CHAIN_CBC+SYS.DBMS_CRYPTO.PAD_PKCS5, UTL_I18N.STRING_TO_RAW(c_key, 'AL32UTF8')); return UTL_I18N.RAW_TO_CHAR(v_result, 'AL32UTF8'); end; ----MD5加密 CREATE OR REPLACE FUNCTION MD5(passwd IN VARCHAR2) RETURN VARCHAR2 IS retval varchar2(32); BEGIN retval := utl_raw.cast_to_raw(DBMS_OBFUSCATION_TOOLKIT.MD5(INPUT_STRING => passwd)); RETURN retval; END;