2008年5月12号下午一场突如其来的7.8级大地震（经国家地震局修正为8.0级），撼动了全国人民的心灵，在这里任何文字都显得那么苍白无力，为灾区人民祈福，希望更多的伤员获救，相信我们的人民解放军，相信我们的政府，相信我们的党！

今闻柏杨先生去世，心中沉痛，一代名家陨落……

 

 

对酒当歌，人生几何？
譬如朝露，去日苦多。
慨当以慷，忧思难忘。
何以解忧？唯有杜康。
青青子衿，悠悠我心。
但为君故，沈吟至今。
呦呦鹿鸣，食野之苹。
我有嘉宾，鼓瑟吹笙。
明明如月，何时可掇？
忧从中来，不可断绝。
越陌度阡，枉用相存。
契阔谈宴，心念旧恩。
月明星稀，乌鹊南飞，
绕树三匝，何枝可依？
山不厌高，海不厌深。
周公吐哺，天下归心。

     大家如果要买笔记本，千万不要买东芝的。因为东芝的风扇太烂了。

我的一款东芝A10笔记本，用了两年，风扇转起来就像一拖拉机，前一段时间干脆罢工了。于是跑去维修部，提示修不了，换新的，420块，一分不少，太坑人了。特生气，跑了几家专卖和笔记本维修部,结果一家一个家，最终以260元的价格在一笔记本维修部更换了新风扇。回到家，拆开旧风扇，一番折腾后竟然修好了。意想不到的是260的风扇用了没几天，坏了。太气人，简直是花钱买气，跑去科技市场，退了风扇。装上自己的风扇继续用，头两天里，一点声音都没了，还暗自庆幸，结果没几天，噪音又来了。最后彻底无奈了，只好等其再不转后拆下自己修了。

      以后买笔记本，买国货就买联想的，国外的就买戴尔、惠普的，非要买日货就等到时候受罪吧，只要是日货卖到中国的就没有好货，用一段时间就容易出问题。一年多前我也加入了抵制日货的行列中来，不过日本的高科技确实厉害，我们也得自己争气才是，以后让鬼子们也用我们的高科技产品。

      你好,命运……

      转眼人生已过二十余载，回望短暂的这二十年，我说，你好，命运……

     二十余载，似乎命运似乎由自己掌握，转眼翘望，却发现自己分不清是自己掌握着命运，还是命运掌握着自己，正茫然不知所以时，我看到命运就在不远处也正望着我。就像一面镜子，你离他远去，他也离你而去；你靠近他，他也向你走来。哈，这就是命运啊。

      二十余载，对于历史的车轮，不及一辙，对于我却真的不能说是短暂，在这些年里，尤其是后半段，开心过、悲伤过、得意过、失落过、幸福过、痛苦过……一切的一切对我来说是那么的刻骨铭心。诚如梁漱溟先生所说，“因为人类生命是沿着动物生命下来的，沿着动物生命而来，则很近于一个动的机器，不用人摇而能自动的机器。机器是很可悲悯的，他完全不能自主。”是啊，我不是一样可悲悯的吗，这二十余载我有太多的不应该、不可以，太多的后悔，太多的失败。

        二十余载，二十余载的人生，失去了，收获了，哭了，笑了——过去了。

        二十余载，过去了。

         新生的我，开始了！新生的命运，我也看到你了。

         你好，命运！

豆三兄的

 

在VFP中我们可以用run来调用由VFP自身生成的.exe文件。命令格式：
run c:\..\*.exe

    当调用非VFP自身生成的.exe文件时，需要加上绝对路径和参数。
一般来说，用VFP运行非VFP自身生成的可执行文件时，会有一个黑色的窗口显示一下。可以通过加上/n来隐藏这个窗口。例如运行Windows下的扫雷游戏，命令格式如下：
RUN/n C:\Windows\Winmine.exe
下面运行一个更复杂一点的程序。用word打开c:\下的一个名为mlx.doc的word文件，命令格式如下：
run /n3 C:\Program Files\Microsoft Office\Office\Winword.exe  C:\mlx.doc
   参数：n 在运行时隐藏VFP的黑色窗口。
         3 表示以最大化的方式运行程序。1正常方式、2最小化方式、3最大化方式

    在这种情况下，虽然可以通过加上参数使程序程序能够流畅运行，但还是要指定绝对路径,而在实际开发时我们常常无法确定所需要启动的应用程序的文件名及其绝对路径。比如，在上例中，我们无法确定用户的word到底安装在什么地方，如果用户把word安装到了别的地方，上述命令便会出错。再如，一个.gif文件，有的用户喜欢用ACD See来打开，有的用户喜欢用IE来打开，有的用户喜欢用豪杰来打开,……
    为了解这种情况我们可以调用Windows的文件关连来打开文件。即所有的文件都用系统默认的程序来打开。这就要调用Windows的Win32 API函数。调用方式如下：

DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,STRING lpszOP,STRING lpszFile,STRING lpszParams,STRING lpszDir,INTEGER fsshowcmd
DECLARE INTEGER GetDesktopWindow IN win32api
HWND = GetDesktopWindow()
lpszOP = "open"
* 指定要打开的文件名
lpszFile ="c:\mlx.doc"
lpszParams = ""
lpszDir = "c:\temp"
fsshowcmd = 1
* 执行ShellExecute命令
LNRETURN = ShellExecute(HWND, lpszOP,lpszFile, lpszParams, lpszDir,fsshowcmd)

可以用任意的文件名来替换上文中的 c:\mlx.doc 。如果指定的文件名Windows无法找到相应的关连程序，这时程序将不会做出反应。有关的参数可以自行偿试进行修改,以达到最佳效果。

-------------------------------------------------------------
API函数ShellExecute的使用

ShellExecute
说明 Shellexecute 函数用于对文件执行一个动词(verb). 它通常用于启动一个与特定文件类相关联的应用程序. 例如, 要启动 Word 来读一个 .doc 文件, 或启动 记事本 来编辑一个 .txt 文件. 用于第二个参数中的最常用的动词是 "Open", 但其它可用的动词是 "edit","print","explore" 和 "properties". 有趣的是, 使用 "mailto:" 或 "http://" 前缀, ShellExecute 函数也可用于以一个给定的邮件地址启动默认的邮件阅读器或给定的 URL 启动默认的浏览器.

缩主文件 Shell32.dll

在 VFP 中的定义
DECLARE INTEGER ShellExecute IN "Shell32.dll" INTEGER hwnd,STRING lpVerb,STRING lpFile,STRING lpParameters,STRING lpDirectory,LONG nShowCmd

Visual FoxPro 应用示例
* 打开 Word 来编辑文件 "c:\mywordfile.doc"
=Shellexecute(0,"Open","c:\mywordfile.doc","","",1)

* 打开默认的浏览器并定位到天堂论坛
=Shellexecute(0,"Open","http://www.dbwin.net/bbs/index.asp?boardID=1&;page=1","","",1)

* 打开默认的邮件阅读器来发一封信给天堂版主
=Shellexecute(0,"Open","mailto:njjane@21cn.com","","",1)

* 打印文本文件 "c:\mytextfile.txt"
=Shellexecute(0,"Print","c:\mytextfile.txt","","",1)

用过《网络蚂蚁》的朋友都知道，在帮助菜单的对话框里作者留下了他的电子邮件地址，单击该邮件地址我们便能给作者发送电子邮件。这种功能看起来有些神秘，实际上只要利用Windows API的ShellExecute函数，便可轻松地实现该功能。

　　ShellExecute是用来打开特定格式的文件（如WORD文件、EXCEL表格）的函数。该函数存放在Shell32.DLL动态链接库中，通过查阅MSDN，我们能够得到下述帮助：

　　HINSTANCE ShellExecute(HWND hwnd,LPCTSTR lpOperation,LPCTSTR lpFile,LPCTSTR lpParameters,LPCTSTR lpDirectory,INT nShowCmd);

　　其调用参数的含义如下：

　　hwnd：指明打开文件的窗口句柄。

　　lpOperation:指明操作类型，分别是"open"（打开）、"print"（打印）、"explore"（浏览）。

　　lpFile:欲打开文件的文件名。这里应该将文件的含义向更深层次理解。文件可以是本地文件，也可以是远程文件；文件的类型可以是文本文件，也可以是多媒体文件。

　　lpParameters：打开文件时所传递的参数。特别适合打开EXE文件。

　　lpDirectory：文件所在路径。

　　nShowCmd：打开文件时窗口的状态。0表示隐藏，1正常方式、2最小化方式、3最大化方式。

　　如果该函数能够成功打开文件，则该函数的返回值大于32。该函数的返回值能够为你调试程序提供很多有用的信息，具体情况见MSDN内帮助文件。

　　好，有了上述认识之后，我们便能在VFP的程序开发中利用ShellExecute函数来实现发送电子邮件的功能。新建一表单ABOUTME，在该表单上添加下列控件(见表1)。

　　需要说明的是，在Label1中的MouseIcon设为一手型光标，其所对应的图标文件在系统内可以随处找到(利用查找文件功能)，本文用的是Windows自带h_move.cur文件。针对Label11的各类设置都是为了将该标签打扮得更象"超文本"。

　　添加完上述控件之后，接下来便是编写控件的CLICK事件代码了。对Label1和Label2的CLICK事件设定相同，其他代码为：

　　＊进行声明操作：

　　DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,STRING,STRING lpszFile,STRING,STRING,INTEGER

　　＊向kingdom@126.com邮箱内发送一封主题为"你好"的电子邮件。

　　在Label1的CLICK事件里，添加以下代码：

　　ShellExecute(0,"open","mailto:kingdom@126.com?subject=你好",0,0,1)

　　在Label2的CLICK事件里，将上述语句改为：

　　ShellExecute(0,"open","http://NationalTax.home.Chinaren.com",0,0,1)

　　＊以最大化窗口方式打开IE，进入作者主页。

　　确认按钮的CLICK事件代码很简单：thisform.release

　　运行上述表单，当鼠标移动到电子邮件或是作者主页区域时，鼠标便会变成一只手，点一下即可进行相应的操作：单击Label1，启动Outlook Express；单击Label2，启动IE，表单真有些像一个小型的IE！其实，在VFP的程序开发中，一些看似不可能的事件只要稍微用到一些Windows API，所有的事件一下子都变得简单多了。"山重水复疑无路，柳暗花明又一村"，这可能就是编程的乐趣所在吧

　　Windows API简介：

　　Application Program Interface，即应用程序编程接口，它是Windows提供给程序员的一系列函数。这些API函数同一般的函数相似，同样具有输入输出参数，并编译到一个独立的文件中，该文件被称为动态链接库。运用API函数可以实现许多复杂和有趣的功能，如重新启动计算机、跟踪当前激活窗体、收发E－mail等。 　　

----------------------------------------
VFP中操作多种文件
 
　　　　 做为一种数据处理软件，VFP在使用上的简洁是人所共知的。在使用VFP进行应用程序开以时，有时会涉及到一些非数据处理方面的内容，比如在VFP中打开WORD文档、EXCEL图表、利用OE收发电子邮件，这些功能又恰恰是VFP的弱项。通常情况下，我们处理这些问题的方法是使用OLE（现称之为ActiveX）技术来完成。但是，在VFP中要熟练操作OLE对象，又是一件更麻烦的事情。拿用VFP接入互联网来说，你可以在VFP的表单中加入Microsoft Web浏览器控件，但是如果没有专业的技术文档，你要想顺利地使用浏览器控件，这基本上是不可能的。有没有一种更简单的办法来实现上述功能呢？有的。
　　VFP提供了在应用程序中调用Windows API函数的功能。如果我们要在VFP程序中使用API函数，只需要在使用前先进行申明，告诉VFP你想调用的函数的基本情况。申明语句的语法如下：
　　DECLARE ［cFunctionType］ FunctionName IN LibraryName ［AS AliasName］
　　 ［cParamType1 ［@］ ParamName1, cParamType2 ［@］ ParamName2,……］
　　其中各参数的具体含义如下：
　　cFunctionType：被调用函数的返值。它可以是SHORT、INTEGER、SINGLE、DOUBLE、LONG、STRING六个类型之一。学过VC编程的朋友对这些数据类型肯定不会陌生。
　　FunctionName ：调用函数的名称。它是大小写敏感的。
　　LibraryName：调用函数的所在地。它一般是一DLL文件名。
　　cParameterType1 ［@］ ParamName1, cParameterType2 ［@］ ParamName2, ：当对函数的调用属带参调用时，就应该申明参数的类型及名称。
　　其实，使用VFP操作其他类型的文件，你不妨把这项工作交给系统替你来完成。在SHELL32.DLL动态链接库中，有一ShellExecute函数，它负责打开文件的操作，查阅MSDN，我们能够得到下述帮助：　
　　HINSTANCE ShellExecute( HWND hwnd, LPCTSTR lpOperation,　LPCTSTR lpFile,LPCTSTR lpParameters, LPCTSTR lpDirectory, INT nShowCmd);
　　其调用参数的含义如下：
　　 hwnd：指明打开文件的窗口句柄。
　　 lpOperation:指明操作类型，分别是"open"（打开）、"print（打印）"、"explore（浏览）"
　　 lpFile:欲打开文件的文件名。这里应该将文件的含义向更深层次理解。文件可以是本地文件，也可以是远程文件。文件的类型可以要文本文件，也可能是多媒体文件。
　　 LpParameters：打开文件时所传递的参数。特别适合对EXE文件的打开。
　　 LpDirectory：文件所在路径。
　　 NShowCmd：打开文件时窗口的状态。0表示隐藏，1表示最大化，2表示最小化。
　　如果该函数打开文件的操作的成功，则该函数的返回值大于32。该函数的返回值能够为你调试程序提供很多有用的信息，详情请见MSDN内帮助文件。
　　好，有了上面的认识，我们可以引入正题了。
　　一、 在VFP中浏览网页。
　　在VFP6.0提供了超级链接控件，使用该控件能够很简单地进入Internet。但是在VFP5中却没有此类控件，如果你想在VFP5中浏览互联网，只需在程序中添加如下代码：
　　＊进行申明操作：
　　DECLARE INTEGER ShellExecute IN shell32.DLL INTEGER HWND,STRING, STRING lpszFile, STRING, STRING, INTEGER
　　＊以最大化窗口方式打开IE，并进入在线影院ShellExecute(0,"open","http://www.163film.com",0,0,1)
　　二、 打开、打印WORD文档
　　＊若要打印文档，则将operate赋值为"print"
　　operate="open"
　　＊打开hello.doc文档
　　ShellExecute(0,operate,"c:\my documents\hello.doc",0,0,1)
　　三、 带参调用EXE文件
　　＊下列语句将运行记事本程序，并打config.sys进行编辑
　　ShellExecute(0,"open","notepad.exe","config.sys","c:\",1)
　　四、 调用资源管理器
　　＊运行资源管理器查看C：盘内容
　　ShellExecute(0,"explore",0,"c:\",0,1)
　　五、在VFP中发送电子邮件
　　＊发送一封主题为新年"进步"的信到abcd@efg.com ShellExecute(0,"open","mailto:abcd@efg.com?subject=新年进步 ",0,0,1)
　　以上便是ShellExecute常见的几种具体用途，怎么样，没想到在VFP中也能够这样容易地操作各种各样的文件吧！试试看，你肯定能够找到ShellExecute更加多的用途。

 

表单运行时用BINDEVENT()来绑定事件,属性或方法从VFP自己的对象到其它VFP对象

*--------------------------------

列子1：

在一个表单中有n个命令按钮，我想随便单击其中任何一个按钮，此表单关闭，进入另一个表单。
不想一个按钮一个按钮的添加代码，而想用动态方式将对象的CLICK事件与原有或新建的事件或方法绑定。

----------------------------------------------------------------------------------

可以为表单新建一个方法，比如MyMethod，然后写入诸如下面的代码：
THISForm.Release
DO FORM 表单名

在表单的Init事件中加入以下代码：
FOR i = 1 TO THIS.ControlCount
 IF UPPER(THIS.Controls[i].BaseClass) == "COMMANDBUTTON"
  = BINDEVENT(THIS.Controls[i], "Click", THIS, "MyMethod")
 ENDIF
ENDFOR

这样应该就可以了。但是，需要注意的是，只有VFP7以上版本才有BINDEVENT()函数。
也完全可以把按钮做成类，然后再向表单中添加若干基于该类的按钮。
不过如果如你所说，按钮是不可视的，那应该怎么都没用了。

列子2：
----------------------------------------------------------------------------------
动态加载一个控件，如按钮，并给按钮的Click事件绑定事件：

1、建一个过程文件（如MyProc.PRG）,内容如下
DEFINE CLASS myhandler AS Session
 PROCEDURE CmdClick
  MESSAGEBOX('ok',64,'') &&此处改为相应代码
  RETURN
 ENDPROC
ENDDEFINE

 

2、表单的INIT事件：

SET PROCEDURE TO MyProc.prg

3、表单上动态加载控件按钮的CLICK事件：

THISFORM.ADDOBJECT('Cmd_Test','CommandButton')
THISFORM.Cmd_Test.CAPTION='Cmd_Test'
THISFORM.Cmd_Test.TOP=100
THISFORM.Cmd_Test.LEFT=100
THISFORM.Cmd_Test.HEIGHT=25
PUBLIC oHandler
oHandler=NEWOBJECT("myhandler")
BINDEVENT(THISFORM.Cmd_Test,"Click",oHandler,"CmdClick")
THISFORM.Cmd_Test.VISIBLE=.T.

 

----------------------------------------------------------

例子3：
*BINDEVENT()　函数。下面是一个简单示例。

PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.SHOW
RETURN

DEFINE CLASS form1 AS FORM
 TOP = 24
 LEFT = 158
 DOCREATE = .T.
 CAPTION = "Bindevent 示例"
 NAME = "Form1"

 PROCEDURE _click
  THISFORM.text1.VALUE=THISFORM.ACTIVECONTROL.NAME &&此处可改为表单文件名
 ENDPROC

 PROCEDURE INIT
  LOCAL i,j,cname
  THISFORM.LOCKSCREEN=.T.
  FOR i=1 TO 3
   FOR j=1 TO 3
    cname='cmd'+STR(i,1)+STR(j,1)
    THISFORM.ADDOBJECT(cname,'commandbutton')
    WITH THISFORM.&cname.
     .LEFT=j*100-60
     .TOP=i*40
     .CAPTION='按钮 &cname.'
     .HEIGHT=25
     .WIDTH=80
     .VISIBLE=.T.
    ENDWITH
    BINDEVENT(THISFORM.&cname.,'click',THISFORM,'_CLICK')
   ENDFOR
  ENDFOR
  THISFORM.ADDOBJECT('text1','textbox')
  WITH THISFORM.text1
   .LEFT=80
   .TOP=160
   .HEIGHT=25
   .WIDTH=200
   .VISIBLE=.T.
  ENDWITH
  THISFORM.LOCKSCREEN=.F.
 ENDPROC

ENDDEFINE

*注意一点：Bindevent引用的代码中慎用“This”引用控件，它指向的还是原方法所在对象。如上例中，如果方法中出现“This”，则，它指的是表单，而不是按钮。

 

---------------------------------------------------------------
例子4：

下列代码将Visual FoxPro主窗口的MouseMove事件绑定到自定义类MyHandler的MyMouseMove方法，绑定后，当在主窗口中移动鼠标时，将显示鼠标的坐标位置。

PUBLIC oHandler       &&注意，请将保存对象的变量设置为全局变量

oHandler=NEWOBJECT("MyHandler")

 

*!* 将_SCREEN.MouseMove绑定到oHandler.MyMouseMove

=BINDEVENT(_SCREEN,"MouseMove",oHandler,"MyMouseMove") 

 

DEFINE CLASS MyHandler AS Custom  

   PROCEDURE MyMouseMove

       *!* 要保证该方法与_SCREEN.MouseMove有同样的参数设置

       LPARAMETERS nButton, nShift, nXCoord, nYCoord  

       WAIT WINDOW "鼠标坐标："+STR(nXCoord)+"|"+STR(nYCoord) NOWAIT

   ENDPROC

ENDDEFINE

java中的时间操作不外乎这四种情况：

1、获取当前时间

2、获取某个时间的某种格式

3、设置时间

4、时间的运算

好，下面就针对这三种情况，一个一个搞定。

 

一、获取当前时间

 

有两种方式可以获得，第一种，使用Date类。

j2SE的包里有两个Date类，一个是java.sql.Date,一个是java.util.Date

这里，要使用java.util.Date。获取当前时间的代码如下

Date date = new Date();

date.getTime();

还有一种方式，使用System.currentTimeMillis();

 

这两种方式获得的结果是一样的，都是得到一个当前的时间的long型的时间的毫秒值，这个值实际上是当前时间值与1970年一月一号零时零分零秒相差的毫秒数。

当前的时间得到了，但实际的应用中最后往往不是要用这个long型的东西，用户希望得到的往往是一个时间的字符串，比如“2006年6月18号”，或“2006-06-18”，老外可能希望得到的是“06-18-2006”，诸如此类等等。这就是下一个要解决的问题

 

二、获取某个时间的某种格式

 

获取时间的格式，需要用到一个专门用于时间格式的类java.text.SimpleDateFormat。

首先，定义一个SimpleDateFormat变量

SimpleDateFormat sdf = new SimpleDateFormat("",Locale.SIMPLIFIED_CHINESE);

这个构造函数的定义如下：

SimpleDateFormat(String pattern, Locale locale)

第一个参数pattern，我们后面再解释，这里我们使用一个"",第二个参数，是用来设置时区的，这里用到了java.util.Locale这个类，这个类了面定义了很多静态变量，直接拿过来用就OK，我们把时区设置为Locale.SIMPLIFIED_CHINESE，只看名字，这个静态变量的意义已经很清楚了。

 

接下来我们使用这个SimpleDateFormat把当前时间格式化为一个如下格式的时间字符串“XXXX年XX月XX日_XX时XX分XX秒”，代码：

sdf.applyPattern("yyyy年MM月dd日_HH时mm分ss秒");

String timeStr = sdf.format(new Date());

 

获取时间格式的函数是format，这个函数的参数是java.util.Date对象，这个没有什么花头。

要说明一下的是这个pattern，所谓的模式。这里，yyyy,MM,dd等，这就是模式。

我们可以在SimpleDateFormat的构造函数中指定模式，比如

SimpleDateFormat sdf = new SimpleDateFormat("yyyy-MM-dd",Locale.SIMPLIFIED_CHINESE);

也可以获取时间格式的时候使用applyPattern函数临时指定，上面的例子就是这样。

什么字符代表什么，这是j2se约定好的，设置模式的时候，我们可以使用约定好的字符加上任何我们想要的字符串。

j2se对字符所代表的模式的约定列表如下：

 

 

Letter	Date or Time Component	Presentation
G	Era designator	Text
y	Year	Year
M	Month in year	Month
w	Week in year	Number
W	Week in month	Number
D	Day in year	Number
d	Day in month	Number
F	Day of week in month	Number
E	Day in week	Text
a	Am/pm marker	Text
H	Hour in day (0-23)	Number
k	Hour in day (1-24)	Number
K	Hour in am/pm (0-11)	Number
h	Hour in am/pm (1-12)	Number
m	Minute in hour	Number
s	Second in minute	Number
S	Millisecond	Number
z	Time zone	General time zone
Z	Time zone	RFC 822 time zone

 

     学生考勤系统已经开发完成了,从6月15号开始开发到7月2号结束并交付使用,历时17天，比自己计划的一周多用了10天，虽然期间有很多天去做其他的事情了，嘿嘿。

     本次开发,无论是系统分析、系统设计和编码调试上都是我的一次很大的提高，将先前所学应用实践了。系统的BUG很少了，几乎没有，出现的几个也不影响使用。不过是使用VFP9，没有考虑到VFP6，一旦转到VFP6下编译会出现些版本的错误。

          这段时间开发停顿了好几天,今天又接着做,短期的任务是完成[信息导入]模块的制作,

 

现在的进度在编写提取教务管理系统的数据。

/*****************************************************************************
* Name: MD5
* Description: MD5
*****************************************************************************/
CREATE FUNCTION dbo.MD5(
　　 @sOrigMess　　NVARCHAR(4000)
)
RETURNS CHAR(32)
WITH ENCRYPTION
AS
BEGIN
　　--====================================
　　DECLARE @S11 TINYINT
　　DECLARE @S12 TINYINT
　　DECLARE @S13 TINYINT
　　DECLARE @S14 TINYINT
　　DECLARE @S21 TINYINT
　　DECLARE @S22 TINYINT
　　DECLARE @S23 TINYINT
　　DECLARE @S24 TINYINT
　　DECLARE @S31 TINYINT
　　DECLARE @S32 TINYINT
　　DECLARE @S33 TINYINT
　　DECLARE @S34 TINYINT
　　DECLARE @S41 TINYINT
　　DECLARE @S42 TINYINT
　　DECLARE @S43 TINYINT
　　DECLARE @S44 TINYINT

　　SELECT @S11 = 7, @S12 = 12, @S13 = 17, @S14 = 22
　　SELECT @S21 = 5, @S22 = 9, @S23 = 14, @S24 = 20
　　SELECT @S31 = 4, @S32 = 11, @S33 = 16, @S34 = 23
　　SELECT @S41 = 6, @S42 = 10, @S43 = 15, @S44 = 21
　　--====================================
　　DECLARE @a INT
　　DECLARE @b INT
　　DECLARE @c INT
　　DECLARE @d INT
　　DECLARE @AA　　INT
　　DECLARE @BB　　INT
　　DECLARE @CC　　INT
　　DECLARE @DD　　INT

　　SELECT　 @a = 0x67452301
　　　　　　,@b = 0xEFCDAB89
　　　　　　,@c = 0x98BADCFE
　　　　　　,@d = 0x10325476
　　--====================================
　　DECLARE @sRes　　VARCHAR(32)
　　SET @sRes = ''''''''
　　DECLARE @iWordArrayLen　　　　INT
　　DECLARE @iWordArrayCount　　INT

　　DECLARE @tTmp TABLE([ID] INT, [Word] INT)
　　INSERT INTO @tTmp SELECT * FROM dbo.MD5_ConvertToWordArray(@sOrigMess)
　　SELECT @iWordArrayCount=0, @iWordArrayLen = COUNT(*) FROM @tTmp

　　WHILE(@iWordArrayCount < @iWordArrayLen)
　　BEGIN
　　　　SELECT @AA = @a, @BB = @b, @CC = @c, @DD = @d

　　　　SELECT @a = dbo.MD5_FF(@a, @b, @c, @d, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 0), @S11, 0xD76AA478)
　　　　SELECT @d = dbo.MD5_FF(@d, @a, @b, @c, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 1), @S12, 0xE8C7B756)
　　　　SELECT @c = dbo.MD5_FF(@c, @d, @a, @b, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 2), @S13, 0x242070DB)
　　　　SELECT @b = dbo.MD5_FF(@b, @c, @d, @a, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 3), @S14, 0xC1BDCEEE)
　　　　SELECT @a = dbo.MD5_FF(@a, @b, @c, @d, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 4), @S11, 0xF57C0FAF)
　　　　SELECT @d = dbo.MD5_FF(@d, @a, @b, @c, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 5), @S12, 0x4787C62A)
　　　　SELECT @c = dbo.MD5_FF(@c, @d, @a, @b, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 6), @S13, 0xA8304613)
　　　　SELECT @b = dbo.MD5_FF(@b, @c, @d, @a, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 7), @S14, 0xFD469501)
　　　　SELECT @a = dbo.MD5_FF(@a, @b, @c, @d, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 8), @S11, 0x698098D8)
　　　　SELECT @d = dbo.MD5_FF(@d, @a, @b, @c, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 9), @S12, 0x8B44F7AF)
　　　　SELECT @c = dbo.MD5_FF(@c, @d, @a, @b, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 10), @S13, 0xFFFF5BB1)
　　　　SELECT @b = dbo.MD5_FF(@b, @c, @d, @a, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 11), @S14, 0x895CD7BE)
　　　　SELECT @a = dbo.MD5_FF(@a, @b, @c, @d, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 12), @S11, 0x6B901122)
　　　　SELECT @d = dbo.MD5_FF(@d, @a, @b, @c, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 13), @S12, 0xFD987193)
　　　　SELECT @c = dbo.MD5_FF(@c, @d, @a, @b, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 14), @S13, 0xA679438E)
　　　　SELECT @b = dbo.MD5_FF(@b, @c, @d, @a, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 15), @S14, 0x49B40821)

　　　　SELECT @a = dbo.MD5_GG(@a, @b, @c, @d, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 1), @S21, 0xF61E2562)
　　　　SELECT @d = dbo.MD5_GG(@d, @a, @b, @c, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 6), @S22, 0xC040B340)
　　　　SELECT @c = dbo.MD5_GG(@c, @d, @a, @b, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 11), @S23, 0x265E5A51)
　　　　SELECT @b = dbo.MD5_GG(@b, @c, @d, @a, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 0), @S24, 0xE9B6C7AA)
　　　　SELECT @a = dbo.MD5_GG(@a, @b, @c, @d, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 5), @S21, 0xD62F105D)
　　　　SELECT @d = dbo.MD5_GG(@d, @a, @b, @c, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 10), @S22, 0x2441453)
　　　　SELECT @c = dbo.MD5_GG(@c, @d, @a, @b, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 15), @S23, 0xD8A1E681)
　　　　SELECT @b = dbo.MD5_GG(@b, @c, @d, @a, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 4), @S24, 0xE7D3FBC8)
　　　　SELECT @a = dbo.MD5_GG(@a, @b, @c, @d, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 9), @S21, 0x21E1CDE6)
　　　　SELECT @d = dbo.MD5_GG(@d, @a, @b, @c, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 14), @S22, 0xC33707D6)
　　　　SELECT @c = dbo.MD5_GG(@c, @d, @a, @b, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 3), @S23, 0xF4D50D87)
　　　　SELECT @b = dbo.MD5_GG(@b, @c, @d, @a, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 8), @S24, 0x455A14ED)
　　　　SELECT @a = dbo.MD5_GG(@a, @b, @c, @d, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 13), @S21, 0xA9E3E905)
　　　　SELECT @d = dbo.MD5_GG(@d, @a, @b, @c, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 2), @S22, 0xFCEFA3F8)
　　　　SELECT @c = dbo.MD5_GG(@c, @d, @a, @b, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 7), @S23, 0x676F02D9)
　　　　SELECT @b = dbo.MD5_GG(@b, @c, @d, @a, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 12), @S24, 0x8D2A4C8A)

　　　　SELECT @a = dbo.MD5_HH(@a, @b, @c, @d, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 5), @S31, 0xFFFA3942)
　　　　SELECT @d = dbo.MD5_HH(@d, @a, @b, @c, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 8), @S32, 0x8771F681)
　　　　SELECT @c = dbo.MD5_HH(@c, @d, @a, @b, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 11), @S33, 0x6D9D6122)
　　　　SELECT @b = dbo.MD5_HH(@b, @c, @d, @a, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 14), @S34, 0xFDE5380C)
　　　　SELECT @a = dbo.MD5_HH(@a, @b, @c, @d, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 1), @S31, 0xA4BEEA44)
　　　　SELECT @d = dbo.MD5_HH(@d, @a, @b, @c, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 4), @S32, 0x4BDECFA9)
　　　　SELECT @c = dbo.MD5_HH(@c, @d, @a, @b, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 7), @S33, 0xF6BB4B60)
　　　　SELECT @b = dbo.MD5_HH(@b, @c, @d, @a, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 10), @S34, 0xBEBFBC70)
　　　　SELECT @a = dbo.MD5_HH(@a, @b, @c, @d, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 13), @S31, 0x289B7EC6)
　　　　SELECT @d = dbo.MD5_HH(@d, @a, @b, @c, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 0), @S32, 0xEAA127FA)
　　　　SELECT @c = dbo.MD5_HH(@c, @d, @a, @b, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 3), @S33, 0xD4EF3085)
　　　　SELECT @b = dbo.MD5_HH(@b, @c, @d, @a, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 6), @S34, 0x4881D05)
　　　　SELECT @a = dbo.MD5_HH(@a, @b, @c, @d, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 9), @S31, 0xD9D4D039)
　　　　SELECT @d = dbo.MD5_HH(@d, @a, @b, @c, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 12), @S32, 0xE6DB99E5)
　　　　SELECT @c = dbo.MD5_HH(@c, @d, @a, @b, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 15), @S33, 0x1FA27CF8)
　　　　SELECT @b = dbo.MD5_HH(@b, @c, @d, @a, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 2), @S34, 0xC4AC5665)

　　　　SELECT @a = dbo.MD5_II(@a, @b, @c, @d, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 0), @S41, 0xF4292244)
　　　　SELECT @d = dbo.MD5_II(@d, @a, @b, @c, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 7), @S42, 0x432AFF97)
　　　　SELECT @c = dbo.MD5_II(@c, @d, @a, @b, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 14), @S43, 0xAB9423A7)
　　　　SELECT @b = dbo.MD5_II(@b, @c, @d, @a, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 5), @S44, 0xFC93A039)
　　　　SELECT @a = dbo.MD5_II(@a, @b, @c, @d, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 12), @S41, 0x655B59C3)
　　　　SELECT @d = dbo.MD5_II(@d, @a, @b, @c, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 3), @S42, 0x8F0CCC92)
　　　　SELECT @c = dbo.MD5_II(@c, @d, @a, @b, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 10), @S43, 0xFFEFF47D)
　　　　SELECT @b = dbo.MD5_II(@b, @c, @d, @a, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 1), @S44, 0x85845DD1)
　　　　SELECT @a = dbo.MD5_II(@a, @b, @c, @d, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 8), @S41, 0x6FA87E4F)
　　　　SELECT @d = dbo.MD5_II(@d, @a, @b, @c, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 15), @S42, 0xFE2CE6E0)
　　　　SELECT @c = dbo.MD5_II(@c, @d, @a, @b, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 6), @S43, 0xA3014314)
　　　　SELECT @b = dbo.MD5_II(@b, @c, @d, @a, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 13), @S44, 0x4E0811A1)
　　　　SELECT @a = dbo.MD5_II(@a, @b, @c, @d, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 4), @S41, 0xF7537E82)
　　　　SELECT @d = dbo.MD5_II(@d, @a, @b, @c, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 11), @S42, 0xBD3AF235)
　　　　SELECT @c = dbo.MD5_II(@c, @d, @a, @b, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 2), @S43, 0x2AD7D2BB)
　　　　SELECT @b = dbo.MD5_II(@b, @c, @d, @a, (SELECT [Word] FROM @tTmp WHERE [ID] = @iWordArrayCount + 9), @S44, 0xEB86D391)

　　　　SET @a = dbo.MD5_AddUnsigned(@a, @AA)
　　　　SET @b = dbo.MD5_AddUnsigned(@b, @BB)
　　　　SET @c = dbo.MD5_AddUnsigned(@c, @CC)
　　　　SET @d = dbo.MD5_AddUnsigned(@d, @DD)

　　　　SET @iWordArrayCount = @iWordArrayCount + 16
　　END

　　SET @sRes = dbo.MD5_WordToHex(@a) + dbo.MD5_WordToHex(@b) + dbo.MD5_WordToHex(@c) + dbo.MD5_WordToHex(@d)
　　SET @sRes = LOWER(@sRes)
　　RETURN(@sRes)
END
GO

--Test
set nocount on
select dbo.MD5('''''''') as ''''MD5('''''''''''''''')''''
union
select ''''d41d8cd98f00b204e9800998ecf8427e''''

select dbo.MD5(''''a'''') as ''''MD5(''''''''a'''''''')''''
union
select ''''0cc175b9c0f1b6a831c399e269772661''''

select dbo.MD5(''''abc'''') as ''''MD5(''''''''abc'''''''')''''
union
select ''''900150983cd24fb0d6963f7d28e17f72''''

select dbo.MD5(''''message digest'''') as ''''MD5(''''''''message digest'''''''')''''
union
select ''''f96b697d7cb7938d525a2f31aaf161d0''''

select dbo.MD5(''''abcdefghijklmnopqrstuvwxyz'''') as ''''MD5(''''''''abcdefghijklmnopqrstuvwxyz'''''''')''''
union
select ''''c3fcd3d76192e4007dfb496cca67e13b''''

select dbo.MD5(''''ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789'''') as ''''MD5(''''''''ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789'''''''')''''
union
select ''''d174ab98d277d9f5a5611c2c9f419d9f''''

select dbo.MD5(''''12345678901234567890123456789012345678901234567890123456789012345678901234567890'''') as ''''MD5(''''''''12345678901234567890123456789012345678901234567890123456789012345678901234567890'''''''')''''
union
select ''''57edf4a22be3c955ac49da2e2107b67a''''

select dbo.MD5(''''我'''') as ''''MD5(''''''''我'''''''')''''
union
select ''''a31d0f25367ebe046897f8a939ca4a9f''''

MD5算法实现

MD5算法实现 1、MD5算法是对输入的数据进行补位，使得如果数据位长度LEN对512求余的结果是448。 即数据扩展至K*512+448位。即K*64+56个字节，K为整数。 具体补位操作：补一个1，然后补0至满足上述要求 2、补数据长度： 用一个64位的数字表示数据的原始长度B，把B用两个32位数表示。这时，数据 就被填 补成长度为512位的倍数。 3. 初始化MD5参数 四个32位整数 (A,B,C,D) 用来计算信息摘要，初始化使用的是十六进制表示 的数字 A=0X01234567 B=0X89abcdef C=0Xfedcba98 D=0X76543210 4、处理位操作函数 X，Y，Z为32位整数。 F(X,Y,Z) = X&Y|NOT(X)&Z G(X,Y,Z) = X&Z|Y&not(Z) H(X,Y,Z) = X xor Y xor Z I(X,Y,Z) = Y xor (X|not(Z)) 5、主要变换过程： 使用常数组T[1 ... 64]， T[i]为32位整数用16进制表示，数据用16个32位的 整 数数组M[]表示。 具体过程如下： /* 处理数据原文 */ For i = 0 to N/16-1 do /*每一次，把数据原文存放在16个元素的数组X中. */ For j = 0 to 15 do Set X[j] to M[i*16+j]. end /结束对J的循环 /* Save A as AA, B as BB, C as CC, and D as DD. */ AA = A BB = B CC = C DD = D /* 第1轮*/ /* 以 [abcd k s i]表示如下操作 a = b + ((a + F(b,c,d) + X[k] + T[i]) <<< s). */ /* Do the following 16 operations. */ [ABCD 0 7 1] [DABC 1 12 2] [CDAB 2 17 3] [BCDA 3 22 4] [ABCD 4 7 5] [DABC 5 12 6] [CDAB 6 17 7] [BCDA 7 22 8] [ABCD 8 7 9] [DABC 9 12 10] [CDAB 10 17 11] [BCDA 11 22 12] [ABCD 12 7 13] [DABC 13 12 14] [CDAB 14 17 15] [BCDA 15 22 16] /* 第2轮* */ /* 以 [abcd k s i]表示如下操作 a = b + ((a + G(b,c,d) + X[k] + T[i]) <<< s). */ /* Do the following 16 operations. */ [ABCD 1 5 17] [DABC 6 9 18] [CDAB 11 14 19] [BCDA 0 20 20] [ABCD 5 5 21] [DABC 10 9 22] [CDAB 15 14 23] [BCDA 4 20 24] [ABCD 9 5 25] [DABC 14 9 26] [CDAB 3 14 27] [BCDA 8 20 28] [ABCD 13 5 29] [DABC 2 9 30] [CDAB 7 14 31] [BCDA 12 20 32] /* 第3轮*/ /* 以 [abcd k s i]表示如下操作 a = b + ((a + H(b,c,d) + X[k] + T[i]) <<< s). */ /* Do the following 16 operations. */ [ABCD 5 4 33] [DABC 8 11 34] [CDAB 11 16 35] [BCDA 14 23 36] [ABCD 1 4 37] [DABC 4 11 38] [CDAB 7 16 39] [BCDA 10 23 40] [ABCD 13 4 41] [DABC 0 11 42] [CDAB 3 16 43] [BCDA 6 23 44] [ABCD 9 4 45] [DABC 12 11 46] [CDAB 15 16 47] [BCDA 2 23 48] /* 第4轮*/ /* 以 [abcd k s i]表示如下操作 a = b + ((a + I(b,c,d) + X[k] + T[i]) <<< s). */ /* Do the following 16 operations. */ [ABCD 0 6 49] [DABC 7 10 50] [CDAB 14 15 51] [BCDA 5 21 52] [ABCD 12 6 53] [DABC 3 10 54] [CDAB 10 15 55] [BCDA 1 21 56] [ABCD 8 6 57] [DABC 15 10 58] [CDAB 6 15 59] [BCDA 13 21 60] [ABCD 4 6 61] [DABC 11 10 62] [CDAB 2 15 63] [BCDA 9 21 64] /* 然后进行如下操作 */ A = A + AA B = B + BB C = C + CC D = D + DD end /* 结束对I的循环*/ 6、输出结果。

/*****************************************************************************
* Name: T-SQL MD5算法实现
* Author:　Rambo Qian
* Create Date: 2003-04-10
* Last Modified by: Rambo Qian
* Last Update Date: 2003-04-16

* Version: V1.0.00
*****************************************************************************/
GO

IF EXISTS(SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N''''[dbo].[MD5_m_OnBits]'''') AND xtype IN(N''''FN'''', N''''IF'''', N''''TF''''))
　　DROP FUNCTION [dbo].[MD5_m_OnBits]
GO
/*****************************************************************************
* Name: MD5_m_OnBits
* Description: 常数组
*****************************************************************************/
CREATE FUNCTION dbo.MD5_m_OnBits(
　　@i　　TINYINT
)
RETURNS INT
WITH ENCRYPTION
AS
BEGIN
　　DECLARE @iRes　　INT
　　SELECT @iRes =
　　　　CASE @i
　　　　　　WHEN 0　THEN 1　　　　　　-- 00000000000000000000000000000001
　　　　　　WHEN 1　THEN 3　　　　　　-- 00000000000000000000000000000011
　　　　　　WHEN 2　THEN 7　　　　　　-- 00000000000000000000000000000111
　　　　　　WHEN 3　THEN 15　　　　　 -- 00000000000000000000000000001111
　　　　　　WHEN 4　THEN 31　　　　　 -- 00000000000000000000000000011111
　　　　　　WHEN 5　THEN 63　　　　　 -- 00000000000000000000000000111111
　　　　　　WHEN 6　THEN 127　　　　　-- 00000000000000000000000001111111
　　　　　　WHEN 7　THEN 255　　　　　-- 00000000000000000000000011111111
　　　　　　WHEN 8　THEN 511　　　　　-- 00000000000000000000000111111111
　　　　　　WHEN 9　THEN 1023　　　　 -- 00000000000000000000001111111111
　　　　　　WHEN 10 THEN 2047　　　　 -- 00000000000000000000011111111111
　　　　　　WHEN 11 THEN 4095　　　　 -- 00000000000000000000111111111111
　　　　　　WHEN 12 THEN 8191　　　　 -- 00000000000000000001111111111111
　　　　　　WHEN 13 THEN 16383　　　　-- 00000000000000000011111111111111
　　　　　　WHEN 14 THEN 32767　　　　-- 00000000000000000111111111111111
　　　　　　WHEN 15 THEN 65535　　　　-- 00000000000000001111111111111111
　　　　　　WHEN 16 THEN 131071　　　 -- 00000000000000011111111111111111
　　　　　　WHEN 17 THEN 262143　　　 -- 00000000000000111111111111111111
　　　　　　WHEN 18 THEN 524287　　　 -- 00000000000001111111111111111111
　　　　　　WHEN 19 THEN 1048575　　　-- 00000000000011111111111111111111
　　　　　　WHEN 20 THEN 2097151　　　-- 00000000000111111111111111111111
　　　　　　WHEN 21 THEN 4194303　　　-- 00000000001111111111111111111111
　　　　　　WHEN 22 THEN 8388607　　　-- 00000000011111111111111111111111
　　　　　　WHEN 23 THEN 16777215　　 -- 00000000111111111111111111111111
　　　　　　WHEN 24 THEN 33554431　　 -- 00000001111111111111111111111111
　　　　　　WHEN 25 THEN 67108863　　 -- 00000011111111111111111111111111
　　　　　　WHEN 26 THEN 134217727　　-- 00000111111111111111111111111111
　　　　　　WHEN 27 THEN 268435455　　-- 00001111111111111111111111111111
　　　　　　WHEN 28 THEN 536870911　　-- 00011111111111111111111111111111
　　　　　　WHEN 29 THEN 1073741823　 -- 00111111111111111111111111111111
　　　　　　WHEN 30 THEN 2147483647　 -- 01111111111111111111111111111111
　　　　　　ELSE 0
　　　　END
　　RETURN(@iRes)
END
GO

IF EXISTS(SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N''''[dbo].[MD5_m_2Power]'''') AND xtype IN(N''''FN'''', N''''IF'''', N''''TF''''))
　　DROP FUNCTION [dbo].[MD5_m_2Power]
GO
/*****************************************************************************

 

* Name: MD5_m_2Power
* Description: 常数组
*****************************************************************************/
CREATE FUNCTION dbo.MD5_m_2Power(
　　@i　　TINYINT
)
RETURNS INT
WITH ENCRYPTION
AS
BEGIN
　　DECLARE @iRes　　INT
　　SELECT @iRes =
　　　　CASE @i
　　　　　　WHEN 0　THEN 1　　　　　　-- 00000000000000000000000000000001
　　　　　　WHEN 1　THEN 2　　　　　　-- 00000000000000000000000000000010
　　　　　　WHEN 2　THEN 4　　　　　　-- 00000000000000000000000000000100
　　　　　　WHEN 3　THEN 8　　　　　　-- 00000000000000000000000000001000
　　　　　　WHEN 4　THEN 16　　　　　 -- 00000000000000000000000000010000
　　　　　　WHEN 5　THEN 32　　　　　 -- 00000000000000000000000000100000
　　　　　　WHEN 6　THEN 64　　　　　 -- 00000000000000000000000001000000
　　　　　　WHEN 7　THEN 128　　　　　-- 00000000000000000000000010000000
　　　　　　WHEN 8　THEN 256　　　　　-- 00000000000000000000000100000000
　　　　　　WHEN 9　THEN 512　　　　　-- 00000000000000000000001000000000
　　　　　　WHEN 10 THEN 1024　　　　 -- 00000000000000000000010000000000
　　　　　　WHEN 11 THEN 2048　　　　 -- 00000000000000000000100000000000
　　　　　　WHEN 12 THEN 4096　　　　 -- 00000000000000000001000000000000
　　　　　　WHEN 13 THEN 8192　　　　 -- 00000000000000000010000000000000
　　　　　　WHEN 14 THEN 16384　　　　-- 00000000000000000100000000000000
　　　　　　WHEN 15 THEN 32768　　　　-- 00000000000000001000000000000000
　　　　　　WHEN 16 THEN 65536　　　　-- 00000000000000010000000000000000
　　　　　　WHEN 17 THEN 131072　　　 -- 00000000000000100000000000000000
　　　　　　WHEN 18 THEN 262144　　　 -- 00000000000001000000000000000000
　　　　　　WHEN 19 THEN 524288　　　 -- 00000000000010000000000000000000
　　　　　　WHEN 20 THEN 1048576　　　-- 00000000000100000000000000000000
　　　　　　WHEN 21 THEN 2097152　　　-- 00000000001000000000000000000000
　　　　　　WHEN 22 THEN 4194304　　　-- 00000000010000000000000000000000
　　　　　　WHEN 23 THEN 8388608　　　-- 00000000100000000000000000000000
　　　　　　WHEN 24 THEN 16777216　　 -- 00000001000000000000000000000000
　　　　　　WHEN 25 THEN 33554432　　 -- 00000010000000000000000000000000
　　　　　　WHEN 26 THEN 67108864　　 -- 00000100000000000000000000000000
　　　　　　WHEN 27 THEN 134217728　　-- 00001000000000000000000000000000
　　　　　　WHEN 28 THEN 268435456　　-- 00010000000000000000000000000000
　　　　　　WHEN 29 THEN 536870912　　-- 00100000000000000000000000000000
　　　　　　WHEN 30 THEN 1073741824　 -- 01000000000000000000000000000000
　　　　　　ELSE 0
　　　　END
　　RETURN(@iRes)
END
GO

IF EXISTS(SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N''''[dbo].[MD5_LShift]'''') AND xtype IN(N''''FN'''', N''''IF'''', N''''TF''''))
　　DROP FUNCTION [dbo].[MD5_LShift]
GO
/*****************************************************************************
* Name: MD5_LShift
* Description: MD5_LShift
*****************************************************************************/
CREATE FUNCTION dbo.MD5_LShift(
　　 @iValue　　　　INT
　　,@iShiftBits　　TINYINT
)
RETURNS INT
WITH ENCRYPTION
AS
BEGIN
　　DECLARE @iRes　　BIGINT
　　SET @iRes = CAST(@iValue AS BINARY(8))
　　SET @iRes = @iRes * dbo.MD5_m_2Power(@iShiftBits)
　　RETURN(CAST(@iRes & 0x00000000FFFFFFFF AS BINARY(4)))
END
GO

IF EXISTS(SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N''''[dbo].[MD5_RShift]'''') AND xtype IN(N''''FN'''', N''''IF'''', N''''TF''''))
　　DROP FUNCTION [dbo].[MD5_RShift]
GO
/*****************************************************************************
* Name: MD5_RShift
* Description: MD5_RShift
*****************************************************************************/
CREATE FUNCTION dbo.MD5_RShift(
　　 @iValue　　　　INT
　　,@iShiftBits　　TINYINT
)
RETURNS INT
WITH ENCRYPTION
AS
BEGIN
　　DECLARE @iRes　　BIGINT
　　SET @iRes = CAST(@iValue AS BINARY(8))
　　SET @iRes = @iRes / dbo.MD5_m_2Power(@iShiftBits)
　　RETURN(CAST(@iRes & 0x00000000FFFFFFFF AS BINARY(4)))
END
GO

IF EXISTS(SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N''''[dbo].[MD5_RotateLeft]'''') AND xtype IN(N''''FN'''', N''''IF'''', N''''TF''''))
　　DROP FUNCTION [dbo].[MD5_RotateLeft]
GO
/*****************************************************************************
* Name: MD5_RotateLeft
* Description: MD5_RotateLeft
*****************************************************************************/
CREATE FUNCTION dbo.MD5_RotateLeft(
　　 @iValue　　　　INT
　　,@iShiftBits　　TINYINT
)
RETURNS INT
WITH ENCRYPTION
AS
BEGIN
　　RETURN(dbo.MD5_LShift(@iValue, @iShiftBits) | dbo.MD5_RShift(@iValue, (32 - @iShiftBits)))
END
GO

IF EXISTS(SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N''''[dbo].[MD5_AddUnsigned]'''') AND xtype IN(N''''FN'''', N''''IF'''', N''''TF''''))
　　DROP FUNCTION [dbo].[MD5_AddUnsigned]
GO
/*****************************************************************************
* Name: MD5_AddUnsigned
* Description: MD5_AddUnsigned
*****************************************************************************/
CREATE FUNCTION dbo.MD5_AddUnsigned(
　　 @iX　　　　INT
　　,@iY　　　　INT
)
RETURNS INT
WITH ENCRYPTION
AS
BEGIN
　　DECLARE @iRes　　BIGINT
　　SET @iRes = CAST(CAST(@iX AS BINARY(8)) AS BIGINT) + CAST(CAST(@iY AS BINARY(8)) AS BIGINT)
　　RETURN(CAST(@iRes & 0x00000000FFFFFFFF AS BINARY(4)))
END
GO

IF EXISTS(SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N''''[dbo].[MD5_F]'''') AND xtype IN(N''''FN'''', N''''IF'''', N''''TF''''))
　　DROP FUNCTION [dbo].[MD5_F]
GO
/*****************************************************************************
* Name: MD5_F
* Description: MD5_F
*****************************************************************************/
CREATE FUNCTION dbo.MD5_F(
　　 @x　　　　INT
　　,@y　　　　INT
　　,@z　　　　INT
)
RETURNS INT
WITH ENCRYPTION
AS
BEGIN
　　RETURN((@x & @y) | ((~@x) & @z))
END
GO

IF EXISTS(SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N''''[dbo].[MD5_G]'''') AND xtype IN(N''''FN'''', N''''IF'''', N''''TF''''))
　　DROP FUNCTION [dbo].[MD5_G]
GO
/*****************************************************************************
* Name: MD5_G
* Description: MD5_G
*****************************************************************************/
CREATE FUNCTION dbo.MD5_G(
　　 @x　　　　INT
　　,@y　　　　INT
　　,@z　　　　INT
)
RETURNS INT
WITH ENCRYPTION
AS
BEGIN
　　RETURN((@x & @z) | (@y & (~@z)))
END
GO

IF EXISTS(SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N''''[dbo].[MD5_H]'''') AND xtype IN(N''''FN'''', N''''IF'''', N''''TF''''))
　　DROP FUNCTION [dbo].[MD5_H]
GO
/*****************************************************************************
* Name: MD5_H
* Description: MD5_H
*****************************************************************************/
CREATE FUNCTION dbo.MD5_H(
　　 @x　　　　INT
　　,@y　　　　INT
　　,@z　　　　INT
)
RETURNS INT
WITH ENCRYPTION
AS
BEGIN
　　RETURN(@x ^ @y ^ @z)
END
GO

IF EXISTS(SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N''''[dbo].[MD5_I]'''') AND xtype IN(N''''FN'''', N''''IF'''', N''''TF''''))
　　DROP FUNCTION [dbo].[MD5_I]
GO
/*****************************************************************************
* Name: MD5_I
* Description: MD5_I
*****************************************************************************/
CREATE FUNCTION dbo.MD5_I(
　　 @x　　　　INT
　　,@y　　　　INT
　　,@z　　　　INT
)
RETURNS INT
WITH ENCRYPTION
AS
BEGIN
　　RETURN(@y ^ (@x | (~@z)))
END
GO

IF EXISTS(SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N''''[dbo].[MD5_FF]'''') AND xtype IN(N''''FN'''', N''''IF'''', N''''TF''''))
　　DROP FUNCTION [dbo].[MD5_FF]
GO
/*****************************************************************************
* Name: MD5_FF
* Description: MD5_FF
*****************************************************************************/
CREATE FUNCTION dbo.MD5_FF(
　　 @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_F(@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_GG]'''') AND xtype IN(N''''FN'''', N''''IF'''', N''''TF''''))
　　DROP FUNCTION [dbo].[MD5_GG]
GO
/*****************************************************************************
* Name: MD5_GG
* Description: MD5_GG
*****************************************************************************/
CREATE FUNCTION dbo.MD5_GG(
　　 @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_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(
　　 @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''''
　　　　　　　　　　　　　　　　　　　　　　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
　　　　SET @iCount = @iCount + 1
　　END
　　RETURN(@sRes)
END
GO

IF EXISTS(SELECT * FROM dbo.sysobjects WHERE id = OBJECT_ID(N''''[dbo].[MD5]'''') AND xtype IN(N''''FN'''', N''''IF'''', N''''TF''''))
　　DROP FUNCTION [dbo].[MD5]
GO
/*****************************************************************************
* Name: MD5
* Description: MD5
*****************************************************************************/
CREATE FUNCTION dbo.MD5(
　　 @sOrigMess　　NVARCHAR(4000)
)
RETURNS CHAR(32)
WITH ENCRYPTION
AS
BEGIN
　　--====================================
　　DECLARE @S11 TINYINT
　　DECLARE @S12 TINYINT
　　DECLARE @S13 TINYINT
　　DECLARE @S14 TINYINT
　　DECLARE @S21 TINYINT
　　DECLARE @S22 TINYINT
　　DECLARE @S23 TINYINT
　　DECLARE @S24 TINYINT
　　DECLARE @S31 TINYINT
　　DECLARE @S32 TINYINT
　　DECLARE @S33 TINYINT
　　DECLARE @S34 TINYINT
　　DECLARE @S41 TINYINT
　　DECLARE @S42 TINYINT
　　DECLARE @S43 TINYINT
　　DECLARE @S44 TINYINT

　　SELECT @S11 = 7, @S12 = 12, @S13 = 17, @S14 = 22
　　SELECT @S21 = 5, @S22 = 9, @S23 = 14, @S24 = 20
　　SELECT @S31 = 4, @S32 = 11, @S33 = 16, @S34 = 23
　　SELECT @S41 = 6, @S42 = 10, @S43 = 15, @S44 = 21
　　--====================================
　　DECLARE @a INT
　　DECLARE @b INT
　　DECLARE @c INT
　　DECLARE @d INT
　　DECLARE @AA　　INT
　　DECLARE @BB　　INT
　　DECLARE @CC　　INT
　　DECLARE @DD　　INT

　　SELECT　 @a = 0x67452301
　　　　　　,@b = 0xEFCDAB89
　　　　　　,@c = 0x98BADCFE
　　　　　　,@d = 0x10325476
　　--====================================

      数据库是电子商务、金融以及ERP系统的基础，通常都保存着重要的商业伙伴和客户信息。大多数企业、组织以及政府部门的电子数据都保存在各种数据库中，他们用这些数据库保存一些个人资料，比如员工薪水、个人资料等等。数据库服务器还掌握着敏感的金融数据。包括交易记录、商业事务和帐号数据，战略上的或者专业的信息，比如专利和工程数据，甚至市场计划等等应该保护起来防止竞争者和其他非法者获取的资料。数据完整性和合法存取会受到很多方面的安全威胁，包括密码策略、系统后门、数据库操作以及本身的安全方案。但是数据库通常没有象操作系统和网络这样在安全性上受到重视。

      微软的SQL Server是一种广泛使用的数据库，很多电子商务网站、企业内部信息化平台等都是基于SQL Server上的，但是数据库的安全性还没有被人们更系统的安全性等同起来，多数管理员认为只要把网络和操作系统的安全搞好了，那么所有的应用程序也就安全了。大多数系统管理员对数据库不熟悉而数据库管理员有对安全问题关心太少，而且一些安全公司也忽略数据库安全，这就使数据库的安全问题更加严峻了。数据库系统中存在的安全漏洞和不当的配置通常会造成严重的后果，而且都难以发现。数据库应用程序通常同操作系统的最高管理员密切相关。广泛SQL Server数据库又是属于“端口”型的数据库，这就表示任何人都能够用分析工具试图连接到数据库上，从而绕过操作系统的安全机制，进而闯入系统、破坏和窃取数据资料，甚至破坏整个系统。

这里，我们主要谈论有关SQL Server2000数据库的安全配置以及一些相关的安全和使用上的问题。

     在进行SQL Server 2000数据库的安全配置之前，首先你必须对操作系统进行安全配置，保证你的操作系统处于安全状态。然后对你要使用的操作数据库软件（程序）进行必要的安全审核，比如对ASP、PHP等脚本，这是很多基于数据库的WEB应用常出现的安全隐患，对于脚本主要是一个过滤问题，需要过滤一些类似 , ‘ ; @ / 等字符，防止破坏者构造恶意的SQL语句。接着，安装SQL Server2000后请打上补丁sp1以及最新的sp2。

在做完上面三步基础之后，我们再来讨论SQL Server的安全配置。

1、使用安全的密码策略

     我们把密码策略摆在所有安全配置的第一步，请注意，很多数据库帐号的密码过于简单，这跟系统密码过于简单是一个道理。对于sa更应该注意，同时不要让sa帐号的密码写于应用程序或者脚本中。健壮的密码是安全的第一步！

      SQL Server2000安装的时候，如果是使用混合模式，那么就需要输入sa的密码，除非你确认必须使用空密码。这比以前的版本有所改进。

     同时养成定期修改密码的好习惯。数据库管理员应该定期查看是否有不符合密码要求的帐号。比如使用下面的SQL语句：

Use master

Select name,Password from syslogins where password is null

2、使用安全的帐号策略。

     由于SQL Server不能更改sa用户名称，也不能删除这个超级用户，所以，我们必须对这个帐号进行最强的保护，当然，包括使用一个非常强壮的密码，最好不要在数据库应用中使用sa帐号，只有当没有其它方法登录到 SQL Server 实例（例如，当其它系统管理员不可用或忘记了密码）时才使用 sa。建议数据库管理员新建立一个拥有与sa一样权限的超级用户来管理数据库。安全的帐号策略还包括不要让管理员权限的帐号泛滥。 SQL Server的认证模式有Windows身份认证和混合身份认证两种。如果数据库管理员不希望操作系统管理员来通过操作系统登陆来接触数据库的话，可以在帐号管理中把系统帐号“BUILTINAdministrators”删除。不过这样做的结果是一旦sa帐号忘记密码的话，就没有办法来恢复了。

    很多主机使用数据库应用只是用来做查询、修改等简单功能的，请根据实际需要分配帐号，并赋予仅仅能够满足应用要求和需要的权限。比如，只要查询功能的，那么就使用一个简单的public帐号能够select就可以了。

3、加强数据库日志的记录。

     审核数据库登录事件的“失败和成功”，在实例属性中选择“安全性”，将其中的审核级别选定为全部，这样在数据库系统和操作系统日志里面，就详细记录了所有帐号的登录事件。

请定期查看SQL Server日志检查是否有可疑的登录事件发生，或者使用DOS命令。

findstr /C:"登录" d:Microsoft SQL ServerMSSQLLOG*.*

4、管理扩展存储过程

     对存储过程进行大手术，并且对帐号调用扩展存储过程的权限要慎重。其实在多数应用中根本用不到多少系统的存储过程，而SQL Server的这么多系统存储过程只是用来适应广大用户需求的，所以请删除不必要的存储过程，因为有些系统的存储过程能很容易地被人利用起来提升权限或进行破坏。

如果你不需要扩展存储过程xp_cmdshell请把它去掉。使用这个SQL语句：

use master

sp_dropextendedproc 'xp_cmdshell'

     xp_cmdshell是进入操作系统的最佳捷径，是数据库留给操作系统的一个大后门。如果你需要这个存储过程，请用这个语句也可以恢复过来。

sp_addextendedproc 'xp_cmdshell', 'xpsql70.dll'

      如果你不需要请丢弃OLE自动存储过程（会造成管理器中的某些特征不能使用），这些过程包括如下：

Sp_OACreate Sp_OADestroy Sp_OAGetErrorInfo Sp_OAGetProperty

Sp_OAMethod Sp_OASetProperty Sp_OAStop

      去掉不需要的注册表访问的存储过程，注册表存储过程甚至能够读出操作系统管理员的密码来，如下：

Xp_regaddmultistring Xp_regdeletekey Xp_regdeletevalue Xp_regenumvalues

Xp_regread Xp_regremovemultistring Xp_regwrite

还有一些其他的扩展存储过程，你也最好检查检查。

使用系统帐户登陆查询分析器
运行以下脚本
use master
exec sp_dropextendedproc 'xp_cmdshell'
exec sp_dropextendedproc 'xp_dirtree'
exec sp_dropextendedproc 'xp_enumgroups'
exec sp_dropextendedproc 'xp_fixeddrives'
exec sp_dropextendedproc 'xp_loginconfig'
exec sp_dropextendedproc 'xp_enumerrorlogs'
exec sp_dropextendedproc 'xp_getfiledetails'
exec sp_dropextendedproc 'Sp_OACreate'
exec sp_dropextendedproc 'Sp_OADestroy'
exec sp_dropextendedproc 'Sp_OAGetErrorInfo'
exec sp_dropextendedproc 'Sp_OAGetProperty'
exec sp_dropextendedproc 'Sp_OAMethod'
exec sp_dropextendedproc 'Sp_OASetProperty'
exec sp_dropextendedproc 'Sp_OAStop'
exec sp_dropextendedproc 'Xp_regaddmultistring'
exec sp_dropextendedproc 'Xp_regdeletekey'
exec sp_dropextendedproc 'Xp_regdeletevalue'
exec sp_dropextendedproc 'Xp_regenumvalues'
exec sp_dropextendedproc 'Xp_regread'
exec sp_dropextendedproc 'Xp_regremovemultistring'
exec sp_dropextendedproc 'Xp_regwrite'
drop procedure sp_makewebtask
go
删除所有危险的扩展.

在处理存储过程的时候，请确认一下，避免造成对数据库或应用程序的伤害。

5、使用协议加密

     SQL Server 2000使用的Tabular Data Stream协议来进行网络数据交换，如果不加密的话，所有的网络传输都是明文的，包括密码、数据库内容等等，这是一个很大的安全威胁。能被人在网络中截获到他们需要的东西，包括数据库帐号和密码。所以，在条件容许情况下，最好使用SSL来加密协议，当然，你需要一个证书来支持。

6、不要让人随便探测到你的TCP/IP端口

     默认情况下，SQL Server使用1433端口监听，很多人都说SQL Server配置的时候要把这个端口改变，这样别人就不能很容易地知道使用的什么端口了。可惜，通过微软未公开的1434端口的UDP探测可以很容易知道SQL Server使用的什么TCP/IP端口了（请参考《深入探索SQL Server网络连接的安全问题》）。 不过微软还是考虑到了这个问题，毕竟公开而且开放的端口会引起不必要的麻烦。在实例属性中选择TCP/IP协议的属性。选择隐藏 SQL Server 实例。如果隐藏了 SQL Server 实例，则将禁止对试图枚举网络上现有的 SQL Server 实例的客户端所发出的广播作出响应。这样，别人就不能用1434来探测你的TCP/IP端口了（除非用Port Scan）。

7、修改TCP/IP使用的端口

     请在上一步配置的基础上，更改原默认的1433端口。在实例属性中选择网络配置中的TCP/IP协议的属性，将TCP/IP使用的默认端口变为其他端口。

8、拒绝来自1434端口的探测

     由于1434端口探测没有限制，能够被别人探测到一些数据库信息，而且还可能遭到DOS攻击让数据库服务器的CPU负荷增大，所以对Windows 2000操作系统来说，在IPSec过滤拒绝掉1434端口的UDP通讯，可以尽可能地隐藏你的SQL Server。

9、对网络连接进行IP限制

     SQL Server 2000数据库系统本身没有提供网络连接的安全解决办法，但是Windows 2000提供了这样的安全机制。使用操作系统自己的IPSec可以实现IP数据包的安全性。请对IP连接进行限制，只保证自己的IP能够访问，也拒绝其他IP进行的端口连接，把来自网络上的安全威胁进行有效的控制。

     上面主要介绍的一些SQL Server的安全配置，经过以上的配置，可以让SQL Server本身具备足够的安全防范能力。当然，更主要的还是要加强内部的安全控制和管理员的安全培训，而且安全性问题是一个长期的解决过程，还需要以后进行更多的安全维护。