Hi,

i want to encrypt a few fields in a table. so i am trying to use dbms_obfuscation_toolkit.DESEncrypt in Oracle 8.1.6.0.0
i have writen a small test package to test out the dbms_obfuscation_toolkit.DESEncrypt

i have managed to complie my pacakage successfully. but when i try to exceute my package the excution aborts while trying to call dbms_obfuscation_toolkit.DESEncrypt.

I have excute grant on the dbms_obfuscation_toolkit package and also the public synonym is created.

I even tried executing my test package using the 'SYS' ID of oracle but the same result.

Can any one help me out as to why i am not able to access the dbms_obfuscation_toolkit.DESEncrypt procedure.

i get the error ORA-06508: PL/SQL: could not find program unit being called.

i have attached the out put below.
in my PL/SQL code i have added hint lines "just before calling dbms_obfuscation_toolkit.DESEncrypt" and "just after calling dbms_obfuscation_toolkit.DESEncrypt". when the exception is raised it shows the hint as "just before calling dbms_obfuscation_toolkit.DESEncrypt". This means that the program is aborting at the call to dbms_obfuscation_toolkit.DESEncrypt.

i am able to do "desc dbms_obfuscation_toolkit" as well as
select * from all_objects where object name = 'DBMS_OBFUSCATION_TOOLKIT' using my userid (as well as sys id).


SQL> @test.sql
Package created.
No errors.
Package body created.
No errors.

SQL> set serveroutput on
SQL> exec pcpf_test_enc.pcpf_enc
> ====== BEGIN TEST =======
> Input String prashanth
BEGIN pcpf_test_enc.pcpf_enc; END;
*
ERROR at line 1:
ORA-20001: pcpf_test_enc ORA-06508: PL/SQL: could not find program unit being
called hint = before opening the dbms_obfuscation_toolkit.DESEncrypt
ORA-06512: at "SYS.PCPF_TEST_ENC", line 46
ORA-06512: at line 1

SQL> show user
USER is "SYS"


The PL/SQL procedure is as follows.:

--start of test.sql
--=================

set define off;
set serveroutput on;
CREATE OR REPLACE PACKAGE pcpf_test_enc AS
PROCEDURE pcpf_enc;
END pcpf_test_enc;
/
show errors;

CREATE OR REPLACE PACKAGE BODY pcpf_test_enc AS

PROCEDURE pcpf_enc IS
input_string VARCHAR2(16) := 'prashanth';
key_string VARCHAR2(8) := 'kumar';
encrypted_String VARCHAR2(2048);
decrypted_String VARCHAR2(2048);
raw_key VARCHAR2(100);
hint VARCHAR2(100);

error_in_input_buffer_length EXCEPTION;

BEGIN
null;
dbms_output.put_line('> ====== BEGIN TEST =======');
dbms_output.put_line('> Input String '|| input_string);
hint := 'before opening the dbms_obfuscation_toolkit.DESEncrypt';
dbms_obfuscation_toolkit.DESENCRYPT(input_String => input_string,
key_string => key_string,
encrypted_string => encrypted_string);
hint := 'after opening the dbms_obfuscation_toolkit.DESEncrypt';

dbms_output.put_line('> encrypted_string '|| encrypted_string);

hint := 'before opening the dbms_obfuscation_toolkit.DESDecrypt';
dbms_obfuscation_toolkit.DESDECRYPT(input_string => encrypted_string,
key_string => raw_key,
decrypted_string => decrypted_string);
hint := 'after opening the dbms_obfuscation_toolkit.DESDecrypt';
dbms_output.put_line('> decrypted_string '|| decrypted_string);
dbms_output.put_line('> ');
IF input_string = decrypted_string THEN
dbms_output.put_line('> DES Encryption and Decryption successful');
END IF;
EXCEPTION
WHEN OTHERS THEN
RAISE_APPLICATION_ERROR(-20001,'pcpf_test_enc '||sqlerrm||' hint = '||hint);
END pcpf_enc;
END pcpf_test_enc;
/
show errors

--================
--End of test.sql
--================

Here is the output of the select query.

SQL> desc dbms_obfuscation_toolkit
PROCEDURE DESDECRYPT
Argument Name Type In/Out Default?
------------------------------ ----------------------- ------ --------
INPUT RAW IN
KEY RAW IN
DECRYPTED_DATA RAW OUT
PROCEDURE DESDECRYPT
Argument Name Type In/Out Default?
------------------------------ ----------------------- ------ --------
INPUT_STRING VARCHAR2 IN
KEY_STRING VARCHAR2 IN
DECRYPTED_STRING VARCHAR2 OUT
PROCEDURE DESENCRYPT
Argument Name Type In/Out Default?
------------------------------ ----------------------- ------ --------
INPUT RAW IN
KEY RAW IN
ENCRYPTED_DATA RAW OUT
PROCEDURE DESENCRYPT
Argument Name Type In/Out Default?
------------------------------ ----------------------- ------ --------
INPUT_STRING VARCHAR2 IN
KEY_STRING VARCHAR2 IN
ENCRYPTED_STRING VARCHAR2 OUT

SQL>
SQL>
SQL>
SQL> select * from all_objects where object_name = 'DBMS_OBFUSCATION_TOOLKIT';

OWNER OBJECT_NAME
------------------------------ ------------------------------
SUBOBJECT_NAME OBJECT_ID DATA_OBJECT_ID OBJECT_TYPE
------------------------------ ---------- -------------- ------------------
CREATED LAST_DDL_ TIMESTAMP STATUS T G S
--------- --------- ------------------- ------- - - -
SYS DBMS_OBFUSCATION_TOOLKIT
18495 PACKAGE
22-MAY-01 22-MAY-01 2001-05-22:17:49:44 VALID N N N

PUBLIC DBMS_OBFUSCATION_TOOLKIT
18476 SYNONYM
22-MAY-01 22-MAY-01 2001-05-22:17:49:44 VALID N N N

OWNER OBJECT_NAME
------------------------------ ------------------------------
SUBOBJECT_NAME OBJECT_ID DATA_OBJECT_ID OBJECT_TYPE
------------------------------ ---------- -------------- ------------------
CREATED LAST_DDL_ TIMESTAMP STATUS T G S
--------- --------- ------------------- ------- - - -

SYSTEM DBMS_OBFUSCATION_TOOLKIT
18493 PACKAGE
22-MAY-01 22-MAY-01 2001-05-22:15:56:14 VALID N N N
SQL>
SQL>


Thanx in advance
Prashanth