当前位置: 首页 > 图文教程 > 数据库 > MSSQL > MD5算法的T-SQL实现(FOR SQL2000)（二）

MSSQL
编程管理sql server的帐号
自己改写的一个sql server 2000的分页存储过程
通过SQL定时分析表监控Unix系统性能
SQL Server磁带数据备份
构造SQL Server的安全门
利用索引提高SQLServer数据处理效率
从SQL备份文件中导入现存数据库中
SQL2005较之SQL2000的改进
SQL SERVER2000中订阅与发布的具体操作
SQL Server中解决死锁的新方法介绍
SQL注入漏洞入侵的过程及其防范措施
查询分析器设置断点单步调试存储过程
SQL Server为Web浏览器提供图像
教你在SQL Server中由原子建立分子查询
关于SQL Server业务规则链接技术探讨
SQL Server 管理常用的SQL和T-SQL
探讨SQL Server数据库中空值处理技巧
SQL Server数据库中使用触发器经验谈
四项技术提高SQL Server性能
SQL Server 2000桌面引擎默认配置空口令漏洞

No. « 107 108 109 110 »

技术文章搜索

关键字

MSSQL 中的 MD5算法的T-SQL实现(FOR SQL2000)（二）

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-10-30   浏览: 54 ::
收藏到网摘: n/a

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(
　　 @sOrigMess　　　　VARCHAR(8000)　　= ''
)
RETURNS @tWordArray TABLE([ID] INT IDENTITY(0,1),[Word] INT)
WITH ENCRYPTION
AS
BEGIN
　　IF @sOrigMess IS NULL
　　　　SET @sOrigMess = ''

　　DECLARE @iLenOfMess　　　　　　INT
　　DECLARE @iWordArrayLen　　　　INT
　　DECLARE @iPosOfWord　　　　　　INT
　　DECLARE @iPosOfMess　　　　　　INT
　　DECLARE @iCountOfWord　　　　INT

　　SET @iLenOfMess = LEN(@sOrigMess)
　　SET @iWordArrayLen = ((@iLenOfMess + 8)/64 + 1) * 16
　　SET @iCountOfWord = 0
　　WHILE(@iCountOfWord<@iWordArrayLen)
　　BEGIN
　　　　INSERT INTO @tWordArray([Word]) VALUES(0)
　　　　SET @iCountOfWord = @iCountOfWord + 1
　　END

　　SELECT @iPosOfMess = 0, @iPosOfWord = 0, @iCountOfWord = 0
　　WHILE(@iPosOfMess < @iLenOfMess)
　　BEGIN
　　　　SELECT @iCountOfWord = @iPosOfMess / 4, @iPosOfWord = @iPosOfMess % 4
　　　　UPDATE @tWordArray
　　　　　　SET [Word] = [Word] | dbo.MD5_LShift(UNICODE(SUBSTRING(@sOrigMess,@iPosOfMess+1,1)),@iPosOfWord*8)
　　　　　　WHERE [ID] = @iCountOfWord
　　　　SET @iPosOfMess = @iPosOfMess + 1
　　END
　　
　　SELECT @iCountOfWord = @iPosOfMess / 4, @iPosOfWord = @iPosOfMess % 4
　　UPDATE @tWordArray
　　　　SET [Word] = [Word] | dbo.MD5_LShift(0x80,@iPosOfWord*8)
　　　　WHERE [ID] = @iCountOfWord

　　UPDATE @tWordArray
　　　　SET [Word] = [Word] | dbo.MD5_LShift(@iLenOfMess,3)
　　　　WHERE [ID] = @iWordArrayLen - 2
　　UPDATE @tWordArray
　　　　SET [Word] = [Word] | dbo.MD5_RShift(@iLenOfMess,29)
　　　　WHERE [ID] = @iWordArrayLen - 1
　　RETURN
END
GO

IF EXISTS(SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N'[dbo].[MD5_WordToHex]') AND xtype IN(N'FN', N'IF', N'TF'))
　　DROP FUNCTION [dbo].[MD5_WordToHex]
GO
/*****************************************************************************
* Name: MD5_WordToHex
* Description: MD5_WordToHex
*****************************************************************************/
CREATE FUNCTION dbo.MD5_WordToHex(
　　 @iValue　　　　INT
)
RETURNS CHAR(8)
WITH ENCRYPTION
AS
BEGIN
　　DECLARE @sRes　　VARCHAR(8)
　　DECLARE @iTmp　　INT
　　DECLARE @iCount TINYINT

　　SELECT @sRes = '', @iCount = 0
　　WHILE(@iCount<4)
　　BEGIN
　　　　SET @iTmp = dbo.MD5_RShift(@iValue,@iCount*8) & 0x000000FF
　　　　SET @sRes = @sRes + CASE @iTmp / 16 WHEN 0　THEN '0'
　　　　　　　　　　　　　　　　　　　　　　WHEN 1　THEN '1'
　　　　　　　　　　　　　　　　　　　　　　WHEN 2　THEN '2'
　　　　　　　　　　　　　　　　　　　　　　WHEN 3　THEN '3'
　　　　　　　　　　　　　　　　　　　　　　WHEN 4　THEN '4'
　　　　　　　　　　　　　　　　　　　　　　WHEN 5　THEN '5'
　　　　　　　　　　　　　　　　　　　　　　WHEN 6　THEN '6'
　　　　　　　　　　　　　　　　　　　　　　WHEN 7　THEN '7'
　　　　　　　　　　　　　　　　　　　　　　WHEN 8　THEN '8'
　　　　　　　　　　　　　　　　　　　　　　WHEN 9　THEN '9'
　　　　　　　　　　　　　　　　　　　　　　WHEN 10 THEN 'A'
　　　　　　　　　　　　　　　　　　　　　　WHEN 11 THEN 'B'
　　　　　　　　　　　　　　　　　　　　　　WHEN 12 THEN 'C'
　　　　　　　　　　　　　　　　　　　　　　WHEN 13 THEN 'D'
　　　　　　　　　　　　　　　　　　　　　　WHEN 14 THEN 'E'
　　　　　　　　　　　　　　　　　　　　　　WHEN 15 THEN 'F'
　　　　　　　　　　　　　　　　　　　　　　ELSE '' END
　　　　　　　　　　　　　+ CASE @iTmp % 16 WHEN 0 THEN '0'