enc_raw.sql

Oracle PLSQL for DBAs 源代码

CREATE OR REPLACE FUNCTION enc_raw (
   p_in_val   IN   VARCHAR2,
   p_key      IN   VARCHAR2,
   p_iv       IN   VARCHAR2
)
   RETURN VARCHAR2
IS
   l_enc_val   RAW (200);
   l_in_val    RAW (200);
   l_iv        RAW (200);
BEGIN
   l_in_val :=
      UTL_RAW.cast_to_raw (RPAD (p_in_val,
                                 (8 * ROUND (LENGTH (p_in_val) / 8, 0) + 8
                                 )
                                )
                          );
   l_iv :=
       UTL_RAW.cast_to_raw (RPAD (p_iv, (8 * ROUND (LENGTH (p_iv) / 8, 0) + 8)));
   l_enc_val :=
      DBMS_OBFUSCATION_TOOLKIT.des3encrypt (input      => l_in_val,
                                            KEY        => p_key,
                                            iv         => l_iv
                                           );
   RETURN RAWTOHEX (UTL_RAW.cast_to_raw (l_enc_val));
END;
/