版本：Tested on R12.0.6/R12.1.1

注意：请根据具体环境调整GUEST用户密码，默认情况都是Oracle。 GUEST用户的密码可以在$CONTEXT_FILE文件中找到：

view $CONTEXT_FILE

    51         
    52            GUEST
    53            ORACLE
    54         

用法：编译package，调用函数即可。

CREATE OR REPLACE PACKAGE apps.xxdba_fnd_security 
  AUTHID CURRENT_USER 
AS 
  -- guest login can be retrieved from profile GUEST_USER_PWD(Guest User Password) or $CONTEXT_FILE 
  FUNCTION get_user_pass (p_fnd_user        IN VARCHAR2 
                          ,p_guest_login    IN VARCHAR2 DEFAULT 'GUEST/ORACLE') 
      RETURN VARCHAR2; 
  FUNCTION get_apps_pass (p_guest_login IN VARCHAR2 DEFAULT 'GUEST/ORACLE') 
      RETURN VARCHAR2; 
  FUNCTION encrypt (key            IN VARCHAR2 
                    ,VALUE          IN VARCHAR2) 
      RETURN VARCHAR2; 
  FUNCTION decrypt (key            IN VARCHAR2 
                    ,VALUE          IN VARCHAR2) 
      RETURN VARCHAR2; 
END xxdba_fnd_security; 
/ 
 
CREATE OR REPLACE PACKAGE BODY apps.xxdba_fnd_security 
AS 
  FUNCTION encrypt ( 
      key            IN VARCHAR2 
    ,VALUE          IN VARCHAR2) 
      RETURN VARCHAR2 
  AS 
      LANGUAGE JAVA 
      NAME 'oracle.apps.fnd.security.WebSessionManagerProc.encrypt(java.lang.String,java.lang.String) return java.lang.String'; 
  FUNCTION decrypt ( 
      key            IN VARCHAR2 
    ,VALUE          IN VARCHAR2) 
      RETURN VARCHAR2 
  AS 
      LANGUAGE JAVA 
      NAME 'oracle.apps.fnd.security.WebSessionManagerProc.decrypt(java.lang.String,java.lang.String) return java.lang.String'; 
 
  FUNCTION get_apps_pass (p_guest_login IN VARCHAR2 DEFAULT 'GUEST/ORACLE') 
      RETURN VARCHAR2 
  IS 
      l_apps_encrypted_pass VARCHAR2 (200); 
      l_apps_decrypted_pass VARCHAR2 (200); 
  BEGIN 
      -- get apps encrypted pass 
      SELECT encrypted_foundation_password 
      INTO  l_apps_encrypted_pass 
      FROM  apps.fnd_user 
      WHERE  user_name = 'GUEST'; 
 
      --decrypt apps pass 
      SELECT decrypt (p_guest_login 
                    ,l_apps_encrypted_pass) 
      INTO  l_apps_decrypted_pass 
      FROM  DUAL; 
       
      RETURN l_apps_decrypted_pass; 
  END get_apps_pass; 
 
  FUNCTION get_user_pass (p_fnd_user      IN VARCHAR2 
                          ,p_guest_login  IN VARCHAR2 DEFAULT 'GUEST/ORACLE') 
      RETURN VARCHAR2 
  IS 
      l_user_encrypted_pass VARCHAR2 (200); 
      l_user_decrypted_pass VARCHAR2 (200); 
  BEGIN 
      -- get fnd user encrypted pass 
      BEGIN 
        SELECT encrypted_user_password 
        INTO  l_user_encrypted_pass 
        FROM  fnd_user 
        WHERE  user_name = p_fnd_user; 
      EXCEPTION 
        WHEN NO_DATA_FOUND 
        THEN 
            RETURN 'User ' || p_fnd_user || ' is not exist in FND_USER table'; 
      END; 
       
      --decrypt user pass 
      SELECT decrypt (get_apps_pass (p_guest_login) 
                    ,l_user_encrypted_pass) 
      INTO  l_user_decrypted_pass 
      FROM  DUAL; 
 
      RETURN l_user_decrypted_pass; 
  END get_user_pass; 
 
END xxdba_fnd_security; 
/ 
 
/* 
select xxdba_fnd_security.get_user_pass('SYSADMIN') from dual; 
 
select xxdba_fnd_security.get_apps_pass from dual; 
 
drop package apps.xxdba_fnd_security; 
*/ 

您可能感兴趣的文章: