Oracle技术：Oracle中加密PL/SQL源码示例

会计考友

主若是为了呵护PL/SQL源代码，防止PL/SQL代码被犯警使用。可以使用wrap 工具或者DBMS_DDL子轨范对PL/SQL源码进行加密。wrap工具加密单个源文件，如SQL*Plus剧本。DBMS_DDL子轨范加密单个动态生成的PL/SQL单元，如一个CREATE PROCEDURE声明。加密的源文件可以移动，备份，可被SQL*Plus和Improt和Export工具措置，但在静态数据字典视图*_SOURCE中无法看到源码。
* k8 S; p1 E- ?  _$ ]9 O& ^6 s　　WRAP语法
　　wrap iname=input_file [oname=output_file ]
! Q+ x0 s1 e. l: s4 e　　可省略文件扩展名，如以下的呼吁是等同的:
% d6 D2 \3 J, R　　wrap iname=/mydir/myfile
　　wrap iname=/mydir/myfile.sql
　　输出文件默认的扩展名为.plb，当然你也可以指定分歧的文件名和扩展名。
6 ^( W  i: z4 M# V- `　　wrap iname=/mydir/myfile oname=/yourdir/yourfile.out
) p- l( t+ ?( H. o　　wrap主若是同化PL/SQL语句的主体部门，如下CREATE语句可以被加密:
8 J. ^; b3 q- b# k' {* X3 a0 @　　CREATE [OR REPLACE] FUNCTION function_name
　　CREATE [OR REPLACE] PROCEDURE procedure_name
　　CREATE [OR REPLACE] PACKAGE package_name
　　CREATE [OR REPLACE] PACKAGE BODY package_name
& |) i- t( b/ W4 M3 A1 @　　CREATE [OR REPLACE] TYPE type_name AS OBJECT
　　CREATE [OR REPLACE] TYPE type_name UNDER type_name
　　CREATE [OR REPLACE] TYPE BODY type_name
% V5 C. _% h# }" z  {　　CREATE [OR REPLACE] TRIGGER语句不能被加密，但你可挪用加密的过程。加密文件中除了语灸托目和C气概(/*…*/)注释外，其它所有注释被删除。
　　输出的文件为文本文件，可以在SQL*Plus执行:
% u2 v# E& q+ K6 O! T: X) K( r) O　　SQL> @myfile.plb;
: k* ?, O2 u+ ~1 X
2 j  ]1 O5 s: ]* V0 ?　　DBMS_DDL子轨范

会计考友

</p>　　DMBS_DDL包包含WRAP函数和CREATE_WRAPPED过程。CREATE_WRAPPED过程加密语句并建树PL/SQL单元。如下为使用 DBMS_DDL.CREATE_WRAPPED加密包的例子:
　　DECLARE
　　package_text VARCHAR2(32767); — text for creating package spec & body
　　FUNCTION generate_spec (pkgname VARCHAR2) RETURN VARCHAR2 AS
　　BEGIN
7 j7 E4 E; O8 ~; P5 @/ E　　RETURN ‘CREATE PACKAGE ‘ || pkgname || ‘ AS
0 P; I. G* g% V　　PROCEDURE raise_salary (emp_id NUMBER, amount NUMBER);
　　PROCEDURE fire_employee (emp_id NUMBER);
9 t5 m# ^7 U& A' o$ r+ T$ R" J* N　　END ‘ || pkgname || ‘;’;
　　END generate_spec;
6 k- f3 P  r5 m8 _) {: a* A6 k7 O　　FUNCTION generate_body (pkgname VARCHAR2) RETURN VARCHAR2 AS
0 p: x6 ?5 \7 J% f3 A6 ^　　BEGIN
　　RETURN ‘CREATE PACKAGE BODY ‘ || pkgname || ‘ AS
$ H1 y( t0 Q% \9 V+ L9 s　　PROCEDURE raise_salary (emp_id NUMBER, amount NUMBER) IS
　　BEGIN
" C7 \& a& r5 @2 ~+ f# ^' }% `4 K　　UPDATE employees
　　SET salary = salary + amount WHERE employee_id = emp_id;
0 P8 l# R& _& ^) ?  y　　END raise_salary;
. A* j6 P% D/ v; C% n# F) J　　PROCEDURE fire_employee (emp_id NUMBER) IS
　　BEGIN
5 r7 S3 v; E0 r# b　　DELETE FROM employees WHERE employee_id = emp_id;
4 O. a6 j5 w( P7 A# ~　　END fire_employee;
; T0 `' c% [8 J, @* A　　END ‘ || pkgname || ‘;’;
. m; X) L7 |; {* R2 B4 I0 m　　END generate_body;
　　BEGIN
　　— Generate package spec
1 }4 S0 I% o( F& K$ [! B( o　　package_text := generate_spec(‘emp_actions’)
　　— Create wrapped package spec
　　DBMS_DDL.CREATE_WRAPPED(package_text);
　　— Generate package body
　　package_text := generate_body(‘emp_actions’);
- \% l! {# x- `7 Y: j7 `　　— Create wrapped package body
( `5 Q3 O4 W' [) p8 K: p" Z　　DBMS_DDL.CREATE_WRAPPED(package_text);
　　END;