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

MSSQL
Sql语句密码验证的安全漏洞
SQL Server的Inner Join及Outer Join
恢复系统数据库
Sql2005如何用dtexec运行ssis(DTS)包
监测你的SQL SERVER--让瓶颈暴露
解读SQL Server2008的新语句MERGE
如何有效防止Java程序源码被人偷窥?
精彩的表数据排序分组
怎样做sql server数据库的还原
SQL Server 查询分析器快捷键集合
初探 SQL Server 2008 “Katmai”
剖析SQL Server2005 SQLCLR代码安全性
SQL Server2005的XML数据类型之基础篇
探讨SQL Server 2005.NET CLR编程
SQL Server与Oracle并行访问的本质区别
让你的MySQL数据库彻底与中文联姻
SQL Server 2005 CE软件环境需求
透视MySQL数据库之更新语句
深入浅出SQL之左连接、右连接和全连接
深入浅出SQL教程之Group by和Having

No. « 31 32 33 34 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-10-30   浏览: 128 ::
收藏到网摘: 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'