Oracle自定義DES3加解密

加密部分：

CREATE OR REPLACE FUNCTION fun_encrypt_app(
  V_STR        VARCHAR2, V_KEY VARCHAR2) RETURN VARCHAR2 AS V_KEY_RAW RAW(200);
  V_STR_RAW    RAW(2000);
  V_RETURN_STR VARCHAR2(2000);
  V_TYPE       PLS_INTEGER;
BEGIN
  /*************************************************
    加密函數　FUN_ENCRYPTION　
        入參：
          V_STR 輸入明文字符串
          V_KEY 輸入密鑰字符串，長度爲24字節
        返回值：
          V_RETURN_STR　返回密文字符串，約定返回爲 16進制密文字符串
       　異常處理：
          此函數不對任何異常做捕捉處理，請相應的程序模塊對異常做捕捉處理。  
          
        加密方式：
          密鑰位數:AES192   DBMS_CRYPTO.ENCRYPT_AES192
          連接方式:CBC      DBMS_CRYPTO.CHAIN_CBC
          填充方式:PKCS5    DBMS_CRYPTO.PAD_PKCS5
    
  **************************************************/
  V_KEY_RAW    := UTL_I18N.STRING_TO_RAW(V_KEY, 'UTF8');
  V_STR_RAW    := UTL_I18N.STRING_TO_RAW(V_STR, 'UTF8');
  -- 指定‘密鑰算法’、‘工作模式’、‘填充方式’
  V_TYPE       := DBMS_CRYPTO.ENCRYPT_3DES + DBMS_CRYPTO.CHAIN_ECB +
                  DBMS_CRYPTO.PAD_PKCS5;
  V_STR_RAW    := DBMS_CRYPTO.ENCRYPT(SRC => V_STR_RAW,
                                      TYP => V_TYPE,
                                      KEY => V_KEY_RAW);
  -- V_RETURN_STR := RAWTOHEX(V_STR_RAW);
  V_RETURN_STR :=  utl_raw.cast_to_varchar2(utl_encode.base64_encode(V_STR_RAW));
  -- 過濾加密後生成的 \r\n 和=
  V_RETURN_STR := replace(V_RETURN_STR,'=','');
  RETURN V_RETURN_STR;

  /* EXCEPTION
  WHEN OTHERS THEN
  RETURN SQLERRM||SQLCODE ;   */
END;

解密部分

CREATE OR REPLACE FUNCTION fun_decrypt_app(V_STR VARCHAR2, V_KEY VARCHAR2)
  RETURN VARCHAR2 AS
  V_KEY_RAW    RAW(200);
  V_STR_RAW    RAW(2000);
  V_RETURN_STR VARCHAR2(2000);
  V_TYPE       PLS_INTEGER;

BEGIN
  /************************************************
     解密函數　FUN_DECRYPTION　
        入參：
          V_STR 輸入密文字符串,約定密文爲16進制字符串
          V_KEY 輸入密鑰字符串，長度爲24字節
        返回值：
          V_RETURN_STR　返回明文字符串   
        異常處理：
          此函數不對任何異常做捕捉處理，請相應的程序模塊對異常做捕捉處理。   
        
        加密方式：
          密鑰位數:AES192   DBMS_CRYPTO.ENCRYPT_AES192
          連接方式:CBC      DBMS_CRYPTO.CHAIN_CBC
          填充方式:PKCS5    DBMS_CRYPTO.PAD_PKCS5
     
  ***************************************************/
  V_KEY_RAW := UTL_I18N.STRING_TO_RAW(V_KEY, 'UTF8');
  V_STR_RAW := utl_encode.base64_decode(UTL_RAW.CAST_TO_RAW(V_STR));
-- V_STR_RAW := UTL_RAW.CAST_TO_RAW(V_STR);
  -- 指定‘密鑰算法’、‘工作模式’、‘填充方式’
  V_TYPE       := DBMS_CRYPTO.ENCRYPT_3DES + DBMS_CRYPTO.CHAIN_ECB +
                  DBMS_CRYPTO.PAD_PKCS5;
  V_STR_RAW    := DBMS_CRYPTO.DECRYPT(SRC => V_STR_RAW,
                                      TYP => V_TYPE,
                                      KEY => V_KEY_RAW);
  V_RETURN_STR := UTL_I18N.RAW_TO_CHAR(V_STR_RAW, 'UTF8');
  RETURN V_RETURN_STR;
  /*  EXCEPTION
  WHEN OTHERS THEN
  RETURN SQLERRM||SQLCODE ; */
END;