oracle加密存储过程_查看存储过程 source is wrapped-CSDN博客

方法一、oracle自带工具

1、c:/>set NLS_LANG=AMERICAN_AMERICA.USACII7

或c:/>set NLS_LANG=AMERICAN_AMERICA.WE8ISO8859P1

或c:/>set NLS_LANG=AMERICAN_AMERICA.ZHS16GBK(当遇到加密报错,且有中文的情况下可以使用)

2、把存储过程保存成sql文件

3、c:>wrap iname=Procedures.sql edebug=wrap_new_sql 在目录下面会产生Procedures.plb文件,

4、

SQL PLUS中@Procedures.plb就可以完成加密

SQL> @c:/Procedures.plb

oracle提供了wrap工具来加密包括procedure、function、package等的PL/SQL源代码

wrap的执行在OS的命令行环境下

语法：wrap iname=input_file [oname=output_file]

限制：字符串、数字、变量名、表名、字段名被保留在加密文件中的，仅加密运算法则并限制被解密。所以，也就无法隐藏表名或者密码等

有些新的sql语法，需要指定选项edebug=wrap_new_sql，否则不能被支持

PLS-00753:包装的单元格式错误

一般都是pl/sql根据编译造成

在sqlplus中SQL> @c:/Procedures.plb，选择其中的过程或方法测试。

注意：

1、wrap只能检测出基本的语法错误，而由于不登录数据库所以无法检查出语义的错误

2、向上兼容，而不能向下兼容，即低版本加密的过程可以到高版本上编译，反之不行

3、加密package是仅加密package body，而不加密包声明

4、windows平台上执行时显示错误：kgepop: no error frame to pop to for error 1801

需要先定义 set NLS_LANG=AMERICAN_AMERICA.ZHS16GBK

加密文件名如果不指定的话，就是原文件主文件.plb

加密后使用 SQL> @加密文件名编译到库中，查看的时候显示已经被加密

比如在pl/sql developer查看是显示 /* Source is wrapped */

方法二、创建加密的存储过程

[sql] CREATE OR REPLACE PROCEDURE p_wraped_user(p_packename in varchar default '') AUTHID CURRENT_USER AS    --p_packename 加密的存储过程名字    --For:批量加密本用户下的所有代码，包括存储过程、函数、包。    v_procs dbms_sql.varchar2a;    BEGIN    IF p_packename IS NULL THEN                  FOR n IN (SELECT DISTINCT NAME, TYPE                    FROM user_source                   WHERE NAME <> 'P_WRAPED_USER'                     AND TYPE <> 'TYPE'                     AND NAME = 'PACK_JC_LPRY_T'                  MINUS                  SELECT DISTINCT NAME, TYPE                    FROM user_source                   WHERE line = 1                     AND instr(text, 'wrapped') > 0                  --WHERE NAME = 'GET_CLERK' --AND                  -- TYPE = 'PACKAGE BODY'                   ORDER BY TYPE) LOOP          FOR i IN (SELECT rownum rn, text                      FROM (SELECT decode(line, 1, 'create or replace ') || text text                              FROM user_source                             WHERE NAME = n.NAME                               AND TYPE = n.TYPE                             ORDER BY line)) LOOP            v_procs(i.rn) := i.text;          END LOOP;          dbms_ddl.create_wrapped(v_procs, 1, v_procs.COUNT);          v_procs.DELETE;                END LOOP;            ELSE              FOR n IN (SELECT DISTINCT NAME, TYPE                    FROM user_source                   WHERE NAME <> 'P_WRAPED_USER'                     AND TYPE <> 'TYPE'                     AND NAME = p_packename                  MINUS                  SELECT DISTINCT NAME, TYPE                    FROM user_source                   WHERE line = 1                     AND instr(text, 'wrapped') > 0                  --WHERE NAME = 'GET_CLERK' --AND                  -- TYPE = 'PACKAGE BODY'                   ORDER BY TYPE) LOOP          FOR i IN (SELECT rownum rn, text                      FROM (SELECT decode(line, 1, 'create or replace ') || text text                              FROM user_source                             WHERE NAME = n.NAME                               AND TYPE = n.TYPE                             ORDER BY line)) LOOP            v_procs(i.rn) := i.text;          END LOOP;          dbms_ddl.create_wrapped(v_procs, 1, v_procs.COUNT);          v_procs.DELETE;        END LOOP;          END IF;        END;