使用MD5对数据表字段进行加密

--3.2.1 创建数据表

Drop Table Test_User;

CREATE TABLE Test_User (

　 UserName　VARCHAR2(30)　 NOT NULL ,

　 PassWord 　VARCHAR2(2000)　 NOT NULL

)

/

 

--3.2.2 创建程序包

Create Or Replace Package Test_MD5 AS

　 Function FN_GetMD5(P_Str In VarChar2)

　　　 Return VarChar2;

　 Function FN_CheckUser

　　　(P_UserName In VarChar2

　　　　 ,P_Password In VarChar2)

　　　 Return Number;

End ;

/

CREATE OR REPLACE PACKAGE BODY Test_MD5 AS 　

 

　 FUNCTION FN_GetMD5 (P_Str　 IN 　VARCHAR2)　

　　 RETURN VARCHAR2 AS 　

　 BEGIN 　

　　 RETURN DBMS_OBFUSCATION_TOOLKIT.MD5(　

　　　input_string => Upper (P_Str));　

　 END ;　

　 Function FN_CheckUser　

　　 (P_UserName　 IN 　VARCHAR2　

　　　 ,P_Password　 IN 　VARCHAR2)　

　　 Return Number　

　 Is 　

　　　L_Password VarChar2(2000);　

　 BEGIN 　

　　 SELECT 　

　　　　 Utl_Raw.Cast_To_Raw( Password )　

　　 INTO 　

　　　　 L_Password　

　　 FROM 　　

　　　　 Test_User　

　　 WHERE 　　

　　　　 Upper (UserName) = UPPER (P_UserName);　

　　　If Utl_Raw.Cast_To_Raw(FN_GetMD5(P_Password))=L_Password Then 　

　　　 Return 1;　

　　　 Else 　

　　　　 Return 0;　

　　　 End If;　

　EXCEPTION　

　　 WHEN NO_DATA_FOUND THEN 　

　　　 Return 0;　

　 END ;　

End ;　

/　

--3.3 测试

Delete Test_User;

Insert Into Test_User Values ( 'A' ,Test_MD5.FN_GetMD5( 'aa' ));

Insert Into Test_User Values ( 'B' ,Test_MD5.FN_GetMD5( 'bb' ));

Commit ;

Select Test_MD5.FN_CheckUser( 'a' , 'aa' ) From Dual;

Select Test_MD5.FN_CheckUser( 'a' , 'bb' ) From Dual;