加密oracle数据库存储过程或函数
程序员文章站
2022-06-05 20:40:12
...
无详细内容 无 create or replace procedure proc_encrypt_procOrFun(obj_name in varchar2, out_text out varchar2) as --===================================================== --功能:加密存储过程或函数 --参数:obj_name 要加密的过程或函数 -- out_t
create or replace procedure proc_encrypt_procOrFun(obj_name in varchar2, out_text out varchar2) as --===================================================== --功能:加密存储过程或函数 --参数:obj_name 要加密的过程或函数 -- out_text 加密后的密文 --===================================================== v_text varchar2(32767) default 'create or replace '; begin for c in (select text from user_source t where name=upper(obj_name)) loop v_text := v_text||c.text; end loop; v_text := dbms_ddl.wrap(v_text); out_text := v_text; --execute immediate v_text; --dbms_output.put_line(v_text); exception when others then dbms_output.put_line(sqlerrm); end proc_encrypt_procOrFun; create or replace function fun_encrypt_procOrFun(obj_name varchar2) return varchar2 as --===================================================== --功能:加密存储过程或函数 --参数:obj_name 要加密的过程或函数 --===================================================== v_text varchar2(32767) default 'create or replace '; begin for c in (select text from user_source t where name=upper(obj_name)) loop v_text := v_text||c.text; end loop; v_text := dbms_ddl.wrap(v_text); --execute immediate v_text; --dbms_output.put_line(v_text); return (v_text); exception when others then dbms_output.put_line(sqlerrm); return (sqlerrm); end fun_encrypt_procOrFun;