Oracle自定义函数，加密，解密函数，字符串切割

加密函数：

create or replace function encrypt_des(p_text varchar2) return varchar2 is

begin

return sys.encrypt_function(p_text);

end;

CREATE OR REPLACE FUNCTION SYS.ENCRYPT_FUNCTION(

V_STR VARCHAR2) RETURN VARCHAR2 AS V_KEY_RAW RAW(9);

V_STR_RAW RAW(2000);

V_RETURN_STR VARCHAR2(2000);

V_TYPE PLS_INTEGER;

BEGIN

/*************************************************

加密函数　FUN_ENCRYPTION　

入参：

V_STR 输入明文字符串

V_KEY 输入密钥字符串，长度为9字节

返回值：

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('Jalone666', 'UTF8');

V_STR_RAW := UTL_I18N.STRING_TO_RAW(V_STR, 'UTF8');

-- 指定‘密钥算法’、‘工作模式’、‘填充方式’

V_TYPE := DBMS_CRYPTO.ENCRYPT_DES + 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);

RETURN V_RETURN_STR;

/* EXCEPTION

WHEN OTHERS THEN

RETURN SQLERRM||SQLCODE ; */

END;

解密函数：

create or replace function decrypt_des(p_text varchar2) return varchar2 is

begin

return sys.decrypt_function(p_text);

end;

CREATE OR REPLACE FUNCTION SYS.DECRYPT_FUNCTION(V_STR VARCHAR2 )

RETURN VARCHAR2 AS

V_KEY_RAW RAW(9);

V_STR_RAW RAW(2000);

V_RETURN_STR VARCHAR2(2000);

V_TYPE PLS_INTEGER;

BEGIN

/************************************************

解密函数　FUN_DECRYPTION　

入参：

V_STR 输入密文字符串,约定密文为16进制字符串

V_KEY 输入密钥字符串，长度为9字节

返回值：

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('Jalone666', 'UTF8');

V_STR_RAW := HEXTORAW(V_STR);

-- 指定‘密钥算法’、‘工作模式’、‘填充方式’

V_TYPE := DBMS_CRYPTO.ENCRYPT_DES + 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;

分割字符串：

create or replace function splitStr(var_str in string, var_split in string)

return strsplit_type is

var_out strsplit_type;

var_tmp varchar2(2000);

var_element varchar2(2000);

begin

var_tmp := var_str;

var_out := strsplit_type();

while instr(var_tmp, var_split) > 0 loop

var_element := substr(var_tmp, 1, instr(var_tmp, var_split) - 1);

var_tmp := substr(var_tmp,

instr(var_tmp, var_split) + length(var_split),

length(var_tmp));

var_out.extend(1);

var_out(var_out.count) := var_element;

end loop;

var_out.extend(1);

var_out(var_out.count) := var_tmp;

return var_out;

end splitStr;