下面是编程之家 jb51.cc 通过网络收集整理的代码片段。
编程之家小编现在分享给大家,也给大家做个参考。
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;
以上是编程之家(jb51.cc)为你收集整理的全部代码内容,希望文章能够帮你解决所遇到的程序开发问题。
如果觉得编程之家网站内容还不错,欢迎将编程之家网站推荐给程序员好友。
总结
如果觉得编程之家网站内容还不错,欢迎将编程之家网站推荐给程序员好友。
本图文内容来源于网友网络收集整理提供,作为学习参考使用,版权属于原作者。