oracle 3des函数,Oracle MD5、3des实例

dbms_obfuscation_toolkit简介

dbms_obfuscation_toolkit主要有一下几个存储过程:-

DESGETKEY   — 产生密钥,用于DES算法

DES3GETKEY  – 产生密钥,用于Triple DES算法

DESENCRYPT  – 用DES算法加密数据

DESDECRYPT  – 用DES算法解密数据

DES3ENCRYPT — 用Triple DES算法加密数据

DES3DECRYPT — 用DES算法解密数据

MD5         — 用MD5算法加密数据

心得：加密与解密时密钥与明文(密文)的长度都要是8的倍数。

create or replace package PG_ENCRYPT_DECRYPT is

iKey varchar2(8) := 'oracle9i';

function GEN_RAW_KEY(iKey in varchar2) return raw;

function DECRYPT_3KEY_MODE(iValue in raw, iMode in pls_integer)

return varchar2;

function ENCRYPT_3KEY_MODE(iValue in varchar2, iMode in pls_integer)

return raw;

FUNCTION ENCRYPT(iValue in varchar2) return raw;

FUNCTION DECRYPT(iValue in raw) return varchar2;

FUNCTION MD5(passwd IN VARCHAR2) RETURN VARCHAR2;

end;

create or replace package body PG_ENCRYPT_DECRYPT is

function GEN_RAW_KEY(iKey in varchar2) return raw as

rawkey raw(240) := '';

begin

for i in 1 .. length(iKey) loop

rawkey := rawkey || hextoraw(to_char(ascii(substr(iKey, i, 1))));

end loop;

return rawkey;

end;

/*

Creating function DECRYPT_3KEY_MODE

*/

FUNCTION DECRYPT_3KEY_MODE(iValue in raw, iMode in pls_integer)

return varchar2 as

vDecrypted varchar2(4000);

rawkey     raw(240) := '';

begin

rawkey := GEN_RAW_KEY(iKey);

-- decrypt input string

vDecrypted := dbms_obfuscation_toolkit.des3decrypt(UTL_RAW.CAST_TO_VARCHAR2(iValue),

key_string => rawkey,

which => iMode);

return vDecrypted;

end;

/*

Creating function ENCRYPT_3KEY_MODE

*/

FUNCTION ENCRYPT_3KEY_MODE(iValue in varchar2, iMode in pls_integer)

return raw as

vEncrypted    varchar2(4000);

vEncryptedRaw Raw(2048);

rawkey        raw(240) := '';

begin

rawkey := GEN_RAW_KEY(iKey);

-- encrypt input string

vEncrypted := dbms_obfuscation_toolkit.des3encrypt(iValue,

key_string => rawkey,

which      => iMode);

-- convert to raw as out

vEncryptedRaw := UTL_RAW.CAST_TO_RAW(vEncrypted);

return vEncryptedRaw;

end;

FUNCTION ENCRYPT(iValue in varchar2) return raw as

vEncrypted    varchar2(4000);

vEncryptedRaw Raw(2048);

rawkey        raw(240) := '';

rawkey1        raw(240) := '';

begin

rawkey := GEN_RAW_KEY(iKey);

rawkey1 := GEN_RAW_KEY(iValue);

-- encrypt input string

dbms_obfuscation_toolkit.DESEncrypt(input          => rawkey1,

key            => rawkey,

encrypted_data => vEncryptedRaw);

-- convert to raw as out

return vEncryptedRaw;

end;

FUNCTION DECRYPT(iValue in raw) return varchar2 as

vEncrypted    varchar2(4000);

vEncryptedRaw Raw(2048);

rawkey        raw(240) := '';

rawkey1        raw(240) := '';

begin

rawkey := GEN_RAW_KEY(iKey);

-- encrypt input string

dbms_obfuscation_toolkit.DESDecrypt(input => iValue,key => rawkey,decrypted_data => vEncryptedRaw);

-- convert to raw as out

return vEncryptedRaw;

end;

FUNCTION MD5(passwd IN VARCHAR2) RETURN VARCHAR2 IS

retval varchar2(32);

BEGIN

retval := utl_raw.cast_to_raw(DBMS_OBFUSCATION_TOOLKIT.MD5(INPUT_STRING => passwd));

RETURN retval;

END;

end;