REM      Copyright (c) 1996 Oracle Corporation  Redwood Shores, CA, USA
REM                       All Rights Reserved
REM =========================================================================+
REM FILENAME
REM     ECXENCRB.pls
REM
REM DESCRIPTION
REM     SQL script to create encrpyt/decrypt data package body
REM     Warning: Please do not ship this package to the Customer.
REM     ONLY the file ECXENCRB.plb should be shipped.
REM ARGUMENTS
REM
REM NOTES
REM
REM HISTORY
REM     24-JUL-01 sloganat Creation.
REM =========================================================================+
SET VERIFY OFF
WHENEVER SQLERROR EXIT FAILURE ROLLBACK
WHENEVER OSERROR EXIT FAILURE ROLLBACK 
REM dbdrv: none

CREATE OR REPLACE PACKAGE BODY ecx_obfuscate  AS
-- $Header: ECXENCRB.pls 26.1 2004/05/13 07:05:43 appldev noship $


/************VERY IMPORTANT. PLEASE NOTE******************************
 **                                                                  *
 ** DEFINE_ECX_KEY_STRING : Procedure to define the key string based *
 ** on the Algorithm_flag .Fixed Key string needs to be defined  to  *
 ** encrypt a value. For the initial release the algorithm_flag used *
 ** is   'A'. If the fixed key string is changed to new string then  *
 ** the corresponding algorithim_flag will change.                   *
 ** For eg.   for algorithm_flag  'A', the fixed key string is       *
 ** GGDVVSMSSRJBDFAD. If the fixed key string is changed to something*
 ** else then the algorithm_flag will be 'B'. For now the            *
 ** algorithm_flag will be ordered  alphabetically                   *
 **                                                                  * 
**********************************************************************/
Procedure  define_ecx_key_string (algorithm_flag	IN varchar2,
                                  random_value   	IN number,
                                  pad_key_value         OUT varchar2,
                                  l_key_value    	OUT varchar2,
                                  errmsg                OUT varchar2,
                                  retcode               OUT pls_integer) IS

BEGIN
  null;
END;

/*********************IMPORTANT ! PLEASE READ*************************
 **                                                                  *
 ** GET_ECX_KEY_STRING : Procedure to get the key value stored in the*
 ** encrypted_key depending on the algorithm.                        *
 ** Key value needs to be derived  to decrypt the value.             *
 ** This procedure is dependent on the procedure                     *
 ** DEFINE_ECX_KEY_STRING. If the logic or the fixed keystring or    *
 ** the algorithm_flag is changed then the corresponding change      *
 ** should be done in this procedure. Otherwise the decrypt and      *
 ** encrypt algorithm will fail.                                     *
 **                                                                  *
 *********************************************************************/
Procedure  get_ecx_key_string (encrypted_key	IN varchar2,
                               l_algorithm_flag OUT varchar2, 
                               l_key_value    	OUT varchar2,
                               errmsg           OUT varchar2,
                               retcode          OUT pls_integer) IS

BEGIN
	null;
END;           

Procedure  ecx_data_encrypt(l_input_string     IN  varchar2, 
                            l_output_string    OUT varchar2,
                            errmsg             OUT varchar2,
                            retcode            OUT pls_integer)  IS

BEGIN
  null;
END ecx_data_encrypt; 

Procedure  ecx_data_encrypt(l_input_string     IN  varchar2,
	                    l_qual_code        IN  varchar2,	
                            l_output_string    OUT varchar2,
                            errmsg             OUT varchar2,
                            retcode            OUT pls_integer)  IS

BEGIN
	null;
END ecx_data_encrypt; 
END;
/
--show errors;
commit;
exit;