无详细内容 无 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;
每个人都需要一台速度更快、更稳定的 PC。随着时间的推移，垃圾文件、旧注册表数据和不必要的后台进程会占用资源并降低性能。幸运的是，许多工具可以让 Windows 保持平稳运行。
广告
收藏
收藏
收藏
Copyright 2014-2025 https://www.php.cn/ All Rights Reserved | php.cn | 湘ICP备2023035733号
638
