方法1： X:\oracle\ora81\bin\wrap   iname=XXX   oname=XXX    

方法2：9i在win2000下使用wrap加密存儲過程,10g可以用加密包dbms_ddl.wrap或dbms_ddl.create_wrapped。 

11.5.1 在win2000下使用wrap加密存儲過程 
wrap.bat 
rem 使用方法：wrap 待加密的文件名 
set NLS_LANG=AMERICAN_AMERICA.USACII7 
wrap.exe iname=%1 
pause 
11.5.2 WRAP 程序包(10.2版本) 
PL/SQL 程序單元經(jīng)常包含關(guān)于公司流程和商業(yè)秘密的非常敏感和機(jī)密的信息，這使得它們與表相類似，成為受保護(hù)的實體組。為防止未經(jīng)授權(quán)而查看源代碼的情況，我們要經(jīng)常使用 wrap 命令行實用程序，這將使程序變得很混亂。  
只有在創(chuàng)建 PL/SQL 腳本后才能調(diào)用 wrap；該實用程序?qū)⑤斎氲拿魑拇虬鼮橐粋€文件。但是，在某些情況下，您可能希望在 PL/SQL 代碼中動態(tài)生成包裝。在這種情況下，因為還不存在源文件，不能調(diào)用 wrap 實用程序。  
由于 Oracle 數(shù)據(jù)庫 10g 第 2 版提供了一個供應(yīng)程序包，您可以使用它創(chuàng)建代碼，并進(jìn)行打包。該程序包補充（而不是替代）了 wrap 實用程序。而后者仍然適合于希望使用命令行來快速打包大量源文件的情況。  
例如，假設(shè)您希望以打包形式創(chuàng)建簡單的過程 p1。 
create or replace procedure p1 as  
begin 
null;  
end; 
在 PL/SQL 單元中，您可以使用以下命令以打包方式動態(tài)地創(chuàng)建這一過程： 
begin 
dbms_ddl.create_wrapped  
('create or replace procedure p1 as begin null; end;') 
end; 
/ 
現(xiàn)在您希望確認(rèn)打包過程。您可以從字典中選擇源文本。  
SQL> select text from user_source where name = 'P1'; 

Text 
----------------------------------------------------------------- 
procedure p1 wrapped 
a000000 
369 
abcd 
abcd 
……等等…… 
第一行 procedure p1 wrapped 是確認(rèn)以打包方式創(chuàng)建過程。如果您利用 DBMS_METADATA.GET_DDL() 函數(shù)來獲取該過程的 DDL，則仍然會看到源代碼已被打包。  
有時您可能會有略微不同的需求；例如，您可能要生成 PL/SQL 代碼，但不想創(chuàng)建過程。在這種情況下，您可以將其保存在一個文件或表中，以便以后執(zhí)行。但是因為以上方法創(chuàng)建了過程，所以該方法在這里行不通。所以您需要在程序包中調(diào)用另一個函數(shù)： 
SQL> select dbms_ddl.wrap 
2 ('create or replace procedure p1 as begin null; end;') 
3 from dual 
4 / 

DBMS_DDL.WRAP('CREATEORREPLACEPROCEDUREP1ASBEGINNULL;END;') 
---------------------------------------------------------------------- 
create or replace procedure p1 wrapped 
a000000 
369 
abcd 
abcd 
... and so on ... 
WRAP 函數(shù)的輸出是一個可傳遞的參數(shù)，它代表著 PL/SQL 代碼的打包輸出結(jié)果。該參數(shù)可以保存在純文件文件或表中，可以在以后執(zhí)行。如果您生成的代碼要在其他地方部署，并且必須要保證代碼的安全性，則這種方法很有用。  
如果您可以將所存儲代碼的全部文本作為一個 varchar2 數(shù)據(jù)類型（大小限制為 32K）來傳遞，則這一方法可以正常工作。如果 PL/SQL 代碼超過 32K，則您必須使用一種略微不同的方法：接受一個集合變量作為輸入。  
在這里您可以使用一個供應(yīng)的數(shù)據(jù)類型：程序包 DBMS_SQL 中的 varchar2。這是一個集合數(shù)據(jù)類型 (TABLE OF VARCHAR2)，表的每個單元都接收多達(dá) 32K 的文本；可隨意增加該表所含的單元數(shù)，以滿足您的需要。例如，假設(shè)您必須包裝一個名為 myproc 的非常長的過程，其定義如下：  
create or replace procedure myproc as 
l_key VARCHAR2(200); 
begin 
l_key := 'ARUPNANDA'; 
end; 
當(dāng)然，這根本不是一個非常長的過程；但是為了示范起見，假設(shè)它很長。為了將其創(chuàng)建為打包形式，您要執(zhí)行以下的 PL/SQL 塊：  
1 declare 
2 l_input_code dbms_sql.varchar2s; 
3 begin 
4 l_input_code (1) := 'Array to hold the MYPROC'; 
5 l_input_code (2) := 'create or replace procedure myproc as '; 
6 l_input_code (3) := ' l_key VARCHAR2(200);'; 
7 l_input_code (4) := 'begin '; 
8 l_input_code (5) := ' l_key := ''ARUPNANDA'';'; 
9 l_input_code (6) := 'end;'; 
10 l_input_code (7) := 'the end'; 
11 sys.dbms_ddl.create_wrapped ( 
12 ddl => l_input_code, 
13 lb => 2, 
14 ub => 6 
15 ); 
16* end; 
在這里我們定義了一個變量 l_input_code 來保存輸入的明文代碼。在第 4 行到第 10 行中，我們用要打包的代碼來填充這些行。在本示例中，同樣為了簡單起見，我使用了非常短的行。實際上，您可能要使用非常長的行，其大小多達(dá) 32KB。同樣，我在數(shù)組中只使用了 7 個單元；實際上您可能要使用若干單元來填充全部代碼。  
第 11 到第 15 行表明我如何調(diào)用該過程，以便將該過程創(chuàng)建為打包形式。在第 12 行中，我將集合作為一個參數(shù) DDL 來傳遞。但是，在這里暫停一下 — 我已經(jīng)分配了一個注釋作為數(shù)組的第一個單元，可能用于文檔。但它不是有效的語法。同樣，我將另一個注釋分配給數(shù)組的最后一個單元 (7)，它也不是用于創(chuàng)建過程的有效語法。為了使包裝操作僅僅處理有效的行，我在第 13 和第 14 行中指定了存儲我們代碼的集合的最低 (2) 和最高 (6) 的單元。參數(shù) LB 表示數(shù)組的下界，在本示例中是 2，而 HB 是上界 (6)。  
使用這種方法，現(xiàn)在可以從您的 PL/SQL 代碼中以打包方式創(chuàng)建任意大小的過程。 
============================================================ 

CREATE OR REPLACE PROCEDURE p_wraped_user AUTHID CURRENT_USER AS 
--Created by xsb on 2006-11-10  
--For:批量加密本用戶下的所有代碼，包括存儲過程、函數(shù)、包。 
v_procs dbms_sql.varchar2a; 

BEGIN 
FOR n IN (SELECT DISTINCT NAME, TYPE 
FROM user_source 
WHERE NAME <> 'P_WRAPED_USER' AND 
TYPE <> 'TYPE' 
MINUS 
SELECT DISTINCT NAME, TYPE 
FROM user_source 
WHERE line = 1 AND 
instr(text, 'wrapped') > 0 
--WHERE NAME = 'GET_CLERK' --AND 
-- TYPE = 'PACKAGE BODY' 
ORDER BY TYPE) LOOP 
FOR i IN (SELECT rownum rn, text 
FROM (SELECT decode(line, 1, 'create or replace ') || text text 
FROM user_source 
WHERE NAME = n.NAME AND 
TYPE = n.TYPE 
ORDER BY line)) LOOP 
v_procs(i.rn) := i.text; 
END LOOP; 
dbms_ddl.create_wrapped(v_procs, 1, v_procs.COUNT); 
v_procs.DELETE; 
END LOOP; 

END;