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

--3.2.1 创建数据表

DropTable Test_User;

CREATETABLE Test_User (

　 UserName　VARCHAR2(30)　NOTNULL,

　PassWord　VARCHAR2(2000)　NOTNULL

)

/

 

--3.2.2 创建程序包

CreateOr Replace Package Test_MD5 AS

　FunctionFN_GetMD5(P_Str InVarChar2)

　　　ReturnVarChar2;

　FunctionFN_CheckUser

　　　(P_UserNameInVarChar2

　　　　 ,P_Password InVarChar2)

　　　ReturnNumber;

End;

/

CREATEOR REPLACE PACKAGE BODY Test_MD5 AS　

 

　FUNCTIONFN_GetMD5 (P_Str　IN　VARCHAR2)　

　　RETURNVARCHAR2 AS　

　BEGIN　

　　RETURNDBMS_OBFUSCATION_TOOLKIT.MD5(　

　　　input_string => Upper(P_Str));　

　END;　

　FunctionFN_CheckUser　

　　 (P_UserName　IN　VARCHAR2　

　　　 ,P_Password　IN　VARCHAR2)　

　　ReturnNumber　

　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　

　　　Return1;　

　　　Else　

　　　　Return0;　

　　　EndIf;　

　EXCEPTION　

　　WHENNO_DATA_FOUND THEN　

　　　Return0;　

　END;　

End;　

/　

--3.3 测试

DeleteTest_User;

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

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

Commit;

SelectTest_MD5.FN_CheckUser('a','aa')FromDual;

SelectTest_MD5.FN_CheckUser('a','bb')FromDual;