天堂新版资源网8,任你躁国语自产一区在,亚洲色图27p

主頁(yè) > 知識(shí)庫(kù) > oracle下加密存儲(chǔ)過(guò)程的方法

oracle下加密存儲(chǔ)過(guò)程的方法

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

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

11.5.1 在win2000下使用wrap加密存儲(chǔ)過(guò)程
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ù)的實(shí)體組。為防止未經(jīng)授權(quán)而查看源代碼的情況，我們要經(jīng)常使用 wrap 命令行實(shí)用程序，這將使程序變得很混亂。
只有在創(chuàng)建 PL/SQL 腳本后才能調(diào)用 wrap；該實(shí)用程序?qū)⑤斎氲拿魑拇虬鼮橐粋€(gè)文件。但是，在某些情況下，您可能希望在 PL/SQL 代碼中動(dòng)態(tài)生成包裝。在這種情況下，因?yàn)檫€不存在源文件，不能調(diào)用 wrap 實(shí)用程序。
由于 Oracle 數(shù)據(jù)庫(kù) 10g 第 2 版提供了一個(gè)供應(yīng)程序包，您可以使用它創(chuàng)建代碼，并進(jìn)行打包。該程序包補(bǔ)充（而不是替代）了 wrap 實(shí)用程序。而后者仍然適合于希望使用命令行來(lái)快速打包大量源文件的情況。
例如，假設(shè)您希望以打包形式創(chuàng)建簡(jiǎn)單的過(guò)程 p1。
create or replace procedure p1 as
begin
null;
end;
在 PL/SQL 單元中，您可以使用以下命令以打包方式動(dòng)態(tài)地創(chuàng)建這一過(guò)程：
begin
dbms_ddl.create_wrapped
('create or replace procedure p1 as begin null; end;')
end;
/
現(xiàn)在您希望確認(rèn)打包過(guò)程。您可以從字典中選擇源文本。
SQL> select text from user_source where name = 'P1';

Text
-----------------------------------------------------------------
procedure p1 wrapped
a000000
369
abcd
abcd
……等等……
第一行 procedure p1 wrapped 是確認(rèn)以打包方式創(chuàng)建過(guò)程。如果您利用 DBMS_METADATA.GET_DDL() 函數(shù)來(lái)獲取該過(guò)程的 DDL，則仍然會(huì)看到源代碼已被打包。
有時(shí)您可能會(huì)有略微不同的需求；例如，您可能要生成 PL/SQL 代碼，但不想創(chuàng)建過(guò)程。在這種情況下，您可以將其保存在一個(gè)文件或表中，以便以后執(zhí)行。但是因?yàn)橐陨戏椒▌?chuàng)建了過(guò)程，所以該方法在這里行不通。所以您需要在程序包中調(diào)用另一個(gè)函數(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ù)的輸出是一個(gè)可傳遞的參數(shù)，它代表著 PL/SQL 代碼的打包輸出結(jié)果。該參數(shù)可以保存在純文件文件或表中，可以在以后執(zhí)行。如果您生成的代碼要在其他地方部署，并且必須要保證代碼的安全性，則這種方法很有用。
如果您可以將所存儲(chǔ)代碼的全部文本作為一個(gè) varchar2 數(shù)據(jù)類型（大小限制為 32K）來(lái)傳遞，則這一方法可以正常工作。如果 PL/SQL 代碼超過(guò) 32K，則您必須使用一種略微不同的方法：接受一個(gè)集合變量作為輸入。
在這里您可以使用一個(gè)供應(yīng)的數(shù)據(jù)類型：程序包 DBMS_SQL 中的 varchar2。這是一個(gè)集合數(shù)據(jù)類型 (TABLE OF VARCHAR2)，表的每個(gè)單元都接收多達(dá) 32K 的文本；可隨意增加該表所含的單元數(shù)，以滿足您的需要。例如，假設(shè)您必須包裝一個(gè)名為 myproc 的非常長(zhǎng)的過(guò)程，其定義如下：
create or replace procedure myproc as
l_key VARCHAR2(200);
begin
l_key := 'ARUPNANDA';
end;
當(dāng)然，這根本不是一個(gè)非常長(zhǎng)的過(guò)程；但是為了示范起見(jiàn)，假設(shè)它很長(zhǎng)。為了將其創(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;
在這里我們定義了一個(gè)變量 l_input_code 來(lái)保存輸入的明文代碼。在第 4 行到第 10 行中，我們用要打包的代碼來(lái)填充這些行。在本示例中，同樣為了簡(jiǎn)單起見(jiàn)，我使用了非常短的行。實(shí)際上，您可能要使用非常長(zhǎng)的行，其大小多達(dá) 32KB。同樣，我在數(shù)組中只使用了 7 個(gè)單元；實(shí)際上您可能要使用若干單元來(lái)填充全部代碼。
第 11 到第 15 行表明我如何調(diào)用該過(guò)程，以便將該過(guò)程創(chuàng)建為打包形式。在第 12 行中，我將集合作為一個(gè)參數(shù) DDL 來(lái)傳遞。但是，在這里暫停一下 — 我已經(jīng)分配了一個(gè)注釋作為數(shù)組的第一個(gè)單元，可能用于文檔。但它不是有效的語(yǔ)法。同樣，我將另一個(gè)注釋分配給數(shù)組的最后一個(gè)單元 (7)，它也不是用于創(chuàng)建過(guò)程的有效語(yǔ)法。為了使包裝操作僅僅處理有效的行，我在第 13 和第 14 行中指定了存儲(chǔ)我們代碼的集合的最低 (2) 和最高 (6) 的單元。參數(shù) LB 表示數(shù)組的下界，在本示例中是 2，而 HB 是上界 (6)。
使用這種方法，現(xiàn)在可以從您的 PL/SQL 代碼中以打包方式創(chuàng)建任意大小的過(guò)程。
============================================================

CREATE OR REPLACE PROCEDURE p_wraped_user AUTHID CURRENT_USER AS
--Created by xsb on 2006-11-10
--For:批量加密本用戶下的所有代碼，包括存儲(chǔ)過(guò)程、函數(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;

您可能感興趣的文章:

Oracle 存儲(chǔ)過(guò)程加密方法
oracle 存儲(chǔ)過(guò)程加密的方法
Oracle存儲(chǔ)過(guò)程和存儲(chǔ)函數(shù)創(chuàng)建方法(詳解)
Oracle存儲(chǔ)過(guò)程及調(diào)用
Oracle中instr和substr存儲(chǔ)過(guò)程詳解
oracle中 procedure(存儲(chǔ)過(guò)程)和function(函數(shù))本質(zhì)區(qū)別
windows中oracle存儲(chǔ)過(guò)程加密的實(shí)例代碼

標(biāo)簽：通化池州襄陽(yáng) 嘉峪關(guān) 南平南平聊城股票投資

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《oracle下加密存儲(chǔ)過(guò)程的方法》，本文關(guān)鍵詞 oracle,下,加密,存儲(chǔ),過(guò)程,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。