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中无法看到源码。
　　WRAP语法
　　wrap iname=input_file [oname=output_file ]
　　可省略文件扩展名，如以下的呼吁是等同的:
　　wrap iname=/mydir/myfile
　　wrap iname=/mydir/myfile.sql
　　输出文件默认的扩展名为.plb，当然你也可以指定分歧的文件名和扩展名。
1 P: ^4 H- u' r5 z　　wrap iname=/mydir/myfile oname=/yourdir/yourfile.out
　　wrap主若是同化PL/SQL语句的主体部门，如下CREATE语句可以被加密:
, n# Z4 t6 Y! C  @　　CREATE [OR REPLACE] FUNCTION function_name
　　CREATE [OR REPLACE] PROCEDURE procedure_name
　　CREATE [OR REPLACE] PACKAGE package_name
2 ?* Z! W3 ]: A9 Z. k　　CREATE [OR REPLACE] PACKAGE BODY package_name
　　CREATE [OR REPLACE] TYPE type_name AS OBJECT
　　CREATE [OR REPLACE] TYPE type_name UNDER type_name
- j' _+ V+ ^. q/ y* `　　CREATE [OR REPLACE] TYPE BODY type_name
　　CREATE [OR REPLACE] TRIGGER语句不能被加密，但你可挪用加密的过程。加密文件中除了语灸托目和C气概(/*…*/)注释外，其它所有注释被删除。
. \' N  W& e0 [# V　　输出的文件为文本文件，可以在SQL*Plus执行:
　　SQL> @myfile.plb;
# f4 s! \( j# h( p4 R* ^8 i0 P8 h
7 w+ E: ^4 F* I- j6 F% ~　　DBMS_DDL子轨范

会计考友

</p>　　DMBS_DDL包包含WRAP函数和CREATE_WRAPPED过程。CREATE_WRAPPED过程加密语句并建树PL/SQL单元。如下为使用 DBMS_DDL.CREATE_WRAPPED加密包的例子:
/ R* T" g; W6 t: l/ V　　DECLARE
　　package_text VARCHAR2(32767); — text for creating package spec & body
　　FUNCTION generate_spec (pkgname VARCHAR2) RETURN VARCHAR2 AS
( x5 H7 X- x4 b: W4 Z# e7 t1 E　　BEGIN
　　RETURN ‘CREATE PACKAGE ‘ || pkgname || ‘ AS
　　PROCEDURE raise_salary (emp_id NUMBER, amount NUMBER);
　　PROCEDURE fire_employee (emp_id NUMBER);
　　END ‘ || pkgname || ‘;’;
4 \, m+ a) i) X4 U7 j+ E$ N3 i　　END generate_spec;
8 ]0 B6 u6 O! }; D9 T　　FUNCTION generate_body (pkgname VARCHAR2) RETURN VARCHAR2 AS
　　BEGIN
　　RETURN ‘CREATE PACKAGE BODY ‘ || pkgname || ‘ AS
, u5 ~) U2 C! U: y　　PROCEDURE raise_salary (emp_id NUMBER, amount NUMBER) IS
; n9 @) q" F. @/ K2 s　　BEGIN
　　UPDATE employees
7 R8 `. b& G9 r　　SET salary = salary + amount WHERE employee_id = emp_id;
　　END raise_salary;
　　PROCEDURE fire_employee (emp_id NUMBER) IS
7 e; s0 M+ d# D9 e8 y　　BEGIN
6 C. S- u' g) i" b3 d8 }5 G　　DELETE FROM employees WHERE employee_id = emp_id;
- v  O6 X4 T- A2 n/ H　　END fire_employee;
　　END ‘ || pkgname || ‘;’;
　　END generate_body;
　　BEGIN
　　— Generate package spec
　　package_text := generate_spec(‘emp_actions’)
　　— Create wrapped package spec
# M+ T0 Q% F0 Z# D/ n4 }6 |2 X" u! y　　DBMS_DDL.CREATE_WRAPPED(package_text);
  \8 j+ i8 C2 ]/ O% @) T　　— Generate package body
　　package_text := generate_body(‘emp_actions’);
　　— Create wrapped package body
8 U/ \. T6 f- U8 }0 M　　DBMS_DDL.CREATE_WRAPPED(package_text);
  y" U+ V; \2 ]　　END;