create a simple package containing functions to DES encrypt and decrypt test strings using Data Encryption (8.1.6 enterprise edition)- Dbms_Obfuscation_Toolkit.While creating package body i got the below error




CREATE OR REPLACE PACKAGE Toolkit AS

FUNCTION Encrypt (p_text IN VARCHAR2) RETURN RAW;

FUNCTION Decrypt (p_raw IN RAW) RETURN VARCHAR2;

END Toolkit;
/

Package created.



CREATE OR REPLACE PACKAGE BODY Toolkit AS
g_key RAW(32767) := Utl_Raw.Cast_To_Raw('12345678');
g_pad_chr VARCHAR2(1) := '~';
PROCEDURE PadString (p_text IN OUT VARCHAR2);
FUNCTION Encrypt (p_text IN VARCHAR2) RETURN RAW IS
v_text VARCHAR2(32767) := p_text;
v_encrypted RAW(32767);
BEGIN
PadString(v_text);
Dbms_Obfuscation_Toolkit.DesEncrypt(input=> Utl_Raw.Cast_To_Raw(v_text),key=> g_key,encrypted_data=> v_encrypted);
RETURN v_encrypted;
END;
FUNCTION Decrypt (p_raw IN RAW) RETURN VARCHAR2 IS
v_decrypted VARCHAR2(32767);
BEGIN
Dbms_Obfuscation_Toolkit.DesDecrypt(input => p_raw,
key => g_key,
decrypted_data => v_decrypted);
RETURN RTrim(Utl_Raw.Cast_To_Varchar2(v_decrypted), g_pad_chr);
END;
PROCEDURE PadString (p_text IN OUT VARCHAR2) IS
v_units NUMBER;
BEGIN
IF Length(p_text) Mod 8 > 0 THEN
v_units := Trunc(Length(p_text)/8) + 1;
p_text := RPAD(p_text, v_units * 8, g_pad_chr);
END IF;
END;
END Toolkit;
/




LINE/COL ERROR
-------- -----------------------------------------------------------------
10/5 PLS-00201: identifier 'DBMS_OBFUSCATION_TOOLKIT.DESENCRYPT' must
be declared

10/5 PL/SQL: Statement ignored
16/5 PLS-00201: identifier 'DBMS_OBFUSCATION_TOOLKIT.DESDECRYPT' must
be declared

16/5 PL/SQL: Statement ignored
SQL>


Thnks in advance
mohan