关于pl/sql的代码保护

在开始学习数据库的时候，总是尝试手动创建数据库，安装完成之后需要运行一些脚本，总是看到屏幕上闪个不停，可以看到大多数的存储过程代码都是一堆乱码，最开始还以为是乱码了。：）有时候心血来潮想看看里面的代码，但是基本上都是看到存储过程名或者函数名，再细节的代码都被屏蔽掉了。
大家在运行awr,ash的时候，也看不到核心的代码。所以这些技术细节oracle是不希望开放的。
比如awr,如果看到最关键的地方。dbms_workload_repository的内容又是屏蔽的，还是有些让人郁闷。
-- call the table function to generate the report
select output from table(dbms_workload_repository.&fn_name( :dbid,
                                                            :inst_num,
                                                            :bid, :eid,
                                                            :rpt_options ));

我们在开发自己的程序的时候，根据具体的需求也可以包含代码。当然了是在有这种需求的情况下，要不反倒弄巧成拙。
关于代码的加密有几种方式。
一种是使用wrap命令直接来格式化。这种方式比较直接，操作也很简单。
比如我们有如下的包声明。
create or replace package  pack_bonus as
function get_bonus(param1 in number,param2 in number,param3 in number,param4 in number) return number;
function get_bonus(param1 in number,param2 in number,param3 in number) return number;
function get_bonus(param1 in number,param2 in number)return number;
end;
/

直接使用wrap命令就可以加密了，iname是输入的文件，oname是输出文件。文件名可以自己根据需要来定义。

$ wrap iname=a.sh oname=aaaa.bin

PL/SQL Wrapper: Release 11.2.0.3.0- 64bit Production on Fri Oct 17 08:21:49 2014

Copyright (c) 1993, 2009, Oracle.  All rights reserved.

Processing a.sh to aaaa.bin

>ls -lrt

-rw-r--r-- 1 ora11g dba    305 Oct 17 08:21 a.sh
-rw-r--r-- 1 ora11g dba    309 Oct 17 08:21 aaaa.bin

如果想调用的话，直接在sqlplus中运行就可以了。
SQL> @aaaa.bin

Package created.

第二种属于编程级别的，使用dbms_ddl来实现，可以使用wrap和create_wrap来完成加密。
这两个方法的不同之处在于wrap是加密指定的代码，只会把加密之后的内容显示出来，不会尝试编译。
而create_wrap是尝试编译加密后的代码。
先看一个例子上手。直接调用wrap就打印出了加密后的代码。

set serveroutput on
declare
i_program varchar2(32767);
begin
i_program:='create or replace package  pack_bonus as
function get_bonus(param1 in number,param2 in number,param3 in number,param4 in number) return number;
function get_bonus(param1 in number,param2 in number,param3 in number) return number;
function get_bonus(param1 in number,param2 in number)return number;
end;
';
dbms_output.put_line(DBMS_DDL.wrap(i_program));
end;
/

create or replace package  pack_bonus wrapped

a000000
369
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
ab
cd
abcd
9
11d
a6
o/obm0C7f2ty/o3UQRhkqAQzXJMwg5m49TOf9b9cFlpZ/0qul3LVYiu4dIvAmYHHywjS/l64
v7L0
v5v+mbI857h0wNIqw6XSXqWZgTLAsiX7mQRrmQSMmXXKNiGUrHGE5tZwcfb8VISUXiqz
R7iBxy2L4Ka
mlS9ZLQ==

PL/SQL procedure successfully completed.

还有一种稍微复杂点的方式，但是也是比较实用的。
定义了dbms_sql.varchar2a类型，可以支持每行32k

declare
  source_code  DBMS_SQL.VARCHAR2A;
  wrap_code    DBMS_SQL.VARCHAR2A;
BEGIN
  SELECT
'create or replace package  pack_bonus as
function get_bonus(param1 in number,param2 in number,param3 in number,param4 in number) return number;
function get_bonus(param1 in number,param2 in number,param3 in number) return number;
function get_bonus(param1 in number,param2 in number)return number;
end;
'
  bulk collect into source_code from dual ;
        
  wrap_code := SYS.DBMS_DDL.WRAP(ddl => source_code,
                              lb  => 1,
                              ub  => source_code.count);

  FOR i IN 1 .. wrap_code.count LOOP
    DBMS_OUTPUT.put_line(wrap_code(i));
  END LOOP;  --直到这个地方，还没有开始尝试编译加密的代码,只是打印出来。
  DBMS_DDL.create_wrapped(source_code,source_code.FIRST,source_code.LAST);   --这个步骤是开始尝试编译加密后的代码
END;
/

输出如下。
create or replace package  pack_bonus wrapped

a000000
369
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
abcd
ab
cd
abcd
9
11d
a6
o/obm0C7f2ty/o3UQRhkqAQzXJMwg5m49TOf9b9cFlpZ/0qul3LVYiu4dIvAmYHHywjS/l64
v7L0
v5v+mbI857h0wNIqw6XSXqWZgTLAsiX7mQRrmQSMmXXKNiGUrHGE5tZwcfb8VISUXiqz
R7iBxy2L4Ka
mlS9ZLQ==

PL/SQL procedure successfully completed.
运行之后就可以看到有一个package对象就创建好了。

SQL> select object_name from user_objects where object_name='PACK_BONUS';

OBJECT_NAME
--------------------------------------------------------------------------------
PACK_BONUS