Oracle过程包加密

Oracle加绕功能可以将PL/SQL代码实现部分隐藏，如存储过程、函数、包体等均可使用加绕功能，下面以一个存储过程实现部分加绕来展示Oracle加绕功能的使用。 
加绕方法一：
1、编写如下存储过程后，保存为C:wraptest.sql文件
CREATE  PROCEDURE wraptest IS
  TYPE emp_tab IS TABLE OF OPER_OPERATOR%ROWTYPE INDEX BY PLS_INTEGER;   all_emps      emp_tab; BEGIN
  SELECT * BULK COLLECT INTO all_emps FROM OPER_OPERATOR;   FOR i IN 1..10 LOOP
    DBMS_OUTPUT.PUT_LINE('Emp Id: ' || all_emps(i).OPERNM);   END LOOP; END; /
2、在window系统命令行输入如下命令 C:>wrap iname=C:wraptest.sql，命令执行后，出现如下提示信息： 
PL/SQL Wrapper: Release 10.2.0.1.0- Production on 星期四 6月  18 21:58:45 2009 Copyright (c) 1993, 2004, Oracle.  All rights reserved. Processing c: wraptest.sql to wraptest.plb 
C:>wrap iname=/mydir/myfile.sql oname=/mydir/myfile.plb 
3、打开PL/SQL Developer工具命令窗口，输入如下命令： SQL> @c: wraptest.plb
 
执行后可能出现如下错误信息：

Warning: Procedure created with compilation errors 这个没有关系，在左侧Procedure中找到存储过程wraptest重新编译一下。 
4、完成以上3步，就可以正常执行存储过程了
SQL> exec wraptest(); 
加绕方法二：
BEGIN
  SYS.DBMS_DDL.CREATE_WRAPPED('
CREATE OR REPLACE FUNCTION SHOW_INFO1(P_STR IN VARCHAR2) RETURN VARCHAR2 AS
STR VARCHAR2(100) :=''这是Oracle加扰测试''; BEGIN
STR := STR||P_STR;

RETURN STR; END;'); END;
通过“SYS.DBMS_DDL.CREATE_WRAPPED(‘textarea’);”实现加扰。 
DECLARE
  TEMP VARCHAR2(100); BEGIN
  TEMP := SHOW_INFO1('HELLO');   DBMS_OUTPUT.put_line(TEMP); END;
调用加扰方式创建的函数 
DECLARE
-- the package_text variable contains the text to create the package spec and body
  package_text VARCHAR2(32767);
  FUNCTION generate_spec (pkgname VARCHAR2) RETURN VARCHAR2 AS   BEGIN
     RETURN 'CREATE PACKAGE ' || pkgname || ' AS
       PROCEDURE raise_salary (emp_id NUMBER, amount NUMBER);        PROCEDURE fire_employee (emp_id NUMBER);        END ' || pkgname || ';';   END generate_spec;
  FUNCTION generate_body (pkgname VARCHAR2) RETURN VARCHAR2 AS   BEGIN
     RETURN 'CREATE PACKAGE BODY ' || pkgname || ' AS

PROCEDURE raise_salary (emp_id NUMBER, amount NUMBER) IS        BEGIN
         UPDATE employees SET salary = salary + amount WHERE employee_id = emp_id;
       END raise_salary;
       PROCEDURE fire_employee (emp_id NUMBER) IS        BEGIN
         DELETE FROM employees WHERE employee_id = emp_id;        END fire_employee;        END ' || pkgname || ';';   END generate_body;  BEGIN
  package_text := generate_spec('emp_actions'); -- generate package spec   SYS.DBMS_DDL.CREATE_WRAPPED(package_text);  -- create and wrap the package spec
  package_text := generate_body('emp_actions'); -- generate package body

  SYS.DBMS_DDL.CREATE_WRAPPED(package_text); -- create and wrap the package body END; /
-- call a procedure from the wrapped package CALL emp_actions.raise_salary(120, 100); 
When you check the *_SOURCE views, the source is wrapped, or hidden, so that others cannot view the code details. For example: 
SELECT text FROM USER_SOURCE WHERE name = 'EMP_ACTIONS'; 
通过如上SQL可以看到，新建的包、包体为加扰后的代码，无法看到具体实现。