Dbms_crypto pacage

Question

i tried to call dbms_crypto package from forms, i call the package by a function in the database i have created,
i always got the error 00904 , all the rights are given on the function and the crypto package
i use database 11 g and forms 10 g
i tried the function and the package logging with the same user in the database and it worked correctly,
so any settings i must do in the forms to call the crypto package correctly?

Answer 1

function for encryption
CREATE OR REPLACE FUNCTION ENC_FUN (P_PASS VARCHAR2)
RETURN RAW
IS
enc_val varchar2(2000);
l_key varchar2(2000) ;
l_master_key varchar2(2000) ;
l_in_val varchar2(2000) := P_PASS;
l_mod number ;
l_enc raw (2000);
l_enc_key raw (2000);
begin
l_mod := dbms_crypto.ENCRYPT_AES128
+ dbms_crypto.CHAIN_CBC
+ dbms_crypto.PAD_PKCS5;
SELECT PARAMETER_VALUE
INTO L_MASTER_KEY
FROM ADM_SYSTEM_PARAMETERS
WHERE PARAMETER_NAME='L_MASTER_KEY';
SELECT PARAMETER_VALUE
INTO L_KEY
FROM ADM_SYSTEM_PARAMETERS
WHERE PARAMETER_NAME='L_KEY';
l_enc_key := utl_raw.bit_xor (
UTL_I18N.STRING_TO_RAW (l_key, 'AR8MSWIN1256'),
UTL_I18N.STRING_TO_RAW (l_master_key, 'AR8MSWIN1256' ));
l_enc := dbms_crypto.encrypt
UTL_I18N.STRING_TO_RAW (l_in_val, 'AR8MSWIN1256'), l_mod, l_enc_key );
RETURN( rawtohex(l_enc));
EXCEPTION
WHEN OTHERS THEN NULL;
end;
function for decryption
CREATE OR REPLACE FUNCTION DEC_FUN (P_PASSWORD VARCHAR2) RETURN VARCHAR2
IS
l_key varchar2(2000) ;
l_master_key varchar2(2000);
l_in_val raw (2000) := hextoraw(P_PASSWORD);
l_mod number := dbms_crypto.ENCRYPT_AES128
+ dbms_crypto.CHAIN_CBC
+ dbms_crypto.PAD_PKCS5;
l_dec raw (2000);
l_enc_key raw (2000);
begin
SELECT PARAMETER_VALUE
INTO L_MASTER_KEY
FROM ADM_SYSTEM_PARAMETERS
WHERE PARAMETER_NAME='L_MASTER_KEY';
SELECT PARAMETER_VALUE
INTO L_KEY
FROM ADM_SYSTEM_PARAMETERS
WHERE PARAMETER_NAME='L_KEY';
l_enc_key := utl_raw.bit_xor (
UTL_I18N.STRING_TO_RAW (l_key, 'AR8MSWIN1256'),
UTL_I18N.STRING_TO_RAW (l_master_key, 'AR8MSWIN1256')
l_dec := dbms_crypto.decrypt
l_in_val,
l_mod,
l_enc_key
RETURN (utl_i18n.raw_to_char(l_dec));
end;
i call both of them in the form and it gives me the error 00904 using the following code
DECLARE
     V_PASS VARCHAR2(100);
begin
     V_PASS:=ENC_FUN(:USER_PASSWORD);
END;