给ORACLE的存储过程加密

实现方法：
1、
　 D:/>set NLS_LANG=AMERICAN_AMERICA.USACII7
或
　 D:/>set NLS_LANG=AMERICAN_AMERICA.WE8ISO8859P1

或
      D:/>set NLS_LANG=CHINESE_CHINA.ZHS16GBK

　 D:/>set
　 直接打set命令可以查看环境变量

2、
在D:/下创建a.sql文件，内容如下：
create or replace procedure test1(i in number) as
begin
dbms_output.put_line('输入参数是'||to_char(i));
end;

3、
D:/>wrap iname=a.sql
PL/SQL Wrapper: Release 8.1.7.0.0 - Production on Tue Nov 27 22:26:48 2001
Copyright (c) Oracle Corporation 1993, 2000.All Rights Reserved.
Processing a.sql to a.plb

4、运行a.plb
SQL> @d:/a.plb
过程已创建。

5、运行存储过程
SQL> set serveroutput on
SQL> execute test1(1);
输入参数是1
PL/SQL 过程已成功完成。

6、查看存储过程的代码
SQL> select name,text from all_source where type='PROCEDURE' and name='TEST1';

结果：看不到其原码