下面是编程之家 jb51.cc 通过网络收集整理的代码片段。

编程之家小编现在分享给大家，也给大家做个参考。

3 实例演练

3.1 测试环境

使用Scott/[email protected]

--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;

注：对MD5编码的比较，可以不需要经过Utl_Raw.Cast_To_Raw转换。此处使用Utl_Raw.Cast_To_Raw的目的，是为了调试方便，同时多提供一个知识点。

以上是编程之家(jb51.cc)为你收集整理的全部代码内容，希望文章能够帮你解决所遇到的程序开发问题。

如果觉得编程之家网站内容还不错，欢迎将编程之家网站推荐给程序员好友。

总结

如果觉得编程之家网站内容还不错，欢迎将编程之家网站推荐给程序员好友。

本图文内容来源于网友网络收集整理提供，作为学习参考使用，版权属于原作者。

如您喜欢交流学习经验，点击链接加入交流1群：1065694478(已满)交流2群：163560250