MD5算法的T-SQL实现(FOR SQL2000)

	加入收藏
	联系我们
	关于我们

您现在的位置：亿聪 >> 网络学院 >> 网络编程 >> 其它 >> 正文

MD5算法的T-SQL实现(FOR SQL2000)

热荐 ★★★

MD5算法的T-SQL实现(FOR SQL2000)

［作者：Rambo Qian 转贴自：aspsky 点击数：34406 更新时间：2003/8/28 文章录入：亿聪］

AS
BEGIN
　　SET @a = dbo.MD5_AddUnsigned(@a, dbo.MD5_AddUnsigned(dbo.MD5_AddUnsigned(dbo.MD5_G(@b, @c, @d), @x), @ac))
　　SET @a = dbo.MD5_RotateLeft(@a, @s)
　　SET @a = dbo.MD5_AddUnsigned(@a, @b)
　　RETURN(@a)
END
GO

IF EXISTS(SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[dbo].[MD5_HH]') AND xtype IN(N'FN', N'IF', N'TF'))
　　DROP FUNCTION [dbo].[MD5_HH]
GO
/*****************************************************************************
* Name: MD5_HH
* Description: MD5_HH
*****************************************************************************/
CREATE FUNCTION dbo.MD5_HH(
　　 @a　　　　INT
　　,@b　　　　INT
　　,@c　　　　INT
　　,@d　　　　INT
　　,@x　　　　INT
　　,@s　　 INT
　　,@ac　　INT
)
RETURNS INT
WITH ENCRYPTION
AS
BEGIN
　　SET @a = dbo.MD5_AddUnsigned(@a, dbo.MD5_AddUnsigned(dbo.MD5_AddUnsigned(dbo.MD5_H(@b, @c, @d), @x), @ac))
　　SET @a = dbo.MD5_RotateLeft(@a, @s)
　　SET @a = dbo.MD5_AddUnsigned(@a, @b)
　　RETURN(@a)
END
GO

IF EXISTS(SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[dbo].[MD5_II]') AND xtype IN(N'FN', N'IF', N'TF'))
　　DROP FUNCTION [dbo].[MD5_II]
GO
/*****************************************************************************
* Name: MD5_II
* Description: MD5_II
*****************************************************************************/
CREATE FUNCTION dbo.MD5_II(
　　 @a　　　　INT
　　,@b　　　　INT
　　,@c　　　　INT
　　,@d　　　　INT
　　,@x　　　　INT
　　,@s　　 INT
　　,@ac　　INT
)
RETURNS INT
WITH ENCRYPTION
AS
BEGIN
　　SET @a = dbo.MD5_AddUnsigned(@a, dbo.MD5_AddUnsigned(dbo.MD5_AddUnsigned(dbo.MD5_I(@b, @c, @d), @x), @ac))
　　SET @a = dbo.MD5_RotateLeft(@a, @s)
　　SET @a = dbo.MD5_AddUnsigned(@a, @b)
　　RETURN(@a)
END
GO
IF EXISTS(SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[dbo].[MD5_ConvertToWordArray]') AND xtype IN(N'FN', N'IF', N'TF'))
　　DROP FUNCTION [dbo].[MD5_ConvertToWordArray]
GO
/*****************************************************************************
* Name: MD5_ConvertToWordArray
* Description: MD5_ConvertToWordArray
*****************************************************************************/
CREATE FUNCTION dbo.MD5_ConvertToWordArray(

上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [11] [12] [13] 下一页