加密oracle数据库存储过程或函数

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

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;

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：海洋资讯信息网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!