Oracle定义DES加密解密及MD5加密函数示例

(1)DES加密函数

1. create or replace function 
2. encrypt_des(p_text varchar2, p_key varchar2) return varchar2 is 
3. v_text varchar2(4000); 
4. v_enc varchar2(4000); 
5. raw_input RAW(128) ; 
6. key_input RAW(128) ; 
7. decrypted_raw RAW(2048); 
8. begin 
9. v_text := rpad( p_text, (trunc(length(p_text)/8)+1)*8, chr(0)); 
10. raw_input := UTL_RAW.CAST_TO_RAW(v_text); 
11. key_input := UTL_RAW.CAST_TO_RAW(p_key); 
12. dbms_obfuscation_toolkit.DESEncrypt(input => raw_input,key => key_input,encrypted_data =>decrypted_raw); 
13. v_enc := rawtohex(decrypted_raw); 
14. dbms_output.put_line(v_enc); 
15. return v_enc; 
16. end; 

(2)DES解密函数

1. create or replace function decrypt_des(p_text varchar2,p_key varchar2) return varchar2 is 
2. v_text varchar2(2000);  
3. begin 
4. dbms_obfuscation_toolkit.DESDECRYPT(input_string => UTL_RAW.CAST_TO_varchar2(p_text),key_string =>p_key, decrypted_string=> v_text); 
5. v_text := rtrim(v_text,chr(0)); 
6. dbms_output.put_line(v_text); 
7. return v_text; 
8. end; 

(3)MD5加密函数

1. CREATE OR REPLACE FUNCTION MD5(passwd IN VARCHAR2) 
2. RETURN VARCHAR2 
3. IS 
4. retval varchar2(32); 
5. BEGIN 
6. retval := utl_raw.cast_to_raw(DBMS_OBFUSCATION_TOOLKIT.MD5(INPUT_STRING => passwd)) ; 
7. RETURN retval; 
8. END; 

(4)函数使用示例

DES加密： update tb_salarysign_staff s set s.staffpwd =encrypt_des(s.staffpwd, 'test#5&124*!de');

DES解密：select decrypt_des(s.staffpwd, 'test#5&124*!de') from tb_salarysign_staff s

MD5加密： update tb_salarysign_staff s set s.staffpwd = md5(s.staffpwd);