<!-- #include file="cls_md5.asp" -->

<% 
'把这个文件放到动感下载系统的根目录。运行就可以得到注册码
dim obj
set obj = New admin_Reg
	obj.AspInit()
set obj = nothing

Class admin_Reg
	
	Private arrRegType
	Private Sub Class_Initialize()
		arrRegType = "系统主程序注册,会员系统模块注册,采集系统模块注册,Serv-U模块注册"
	End Sub
	Private Sub Class_Terminate()
	End Sub
	Public Sub AspInit()
	Server.ScriptTimeout = 9999999
		Response.Write "<HTML><HEAD><TITLE>注册码计算</TITLE>" & vbCrLf
		Response.Write "<META http-equiv=Content-Type content=""text/html; charset=gb2312"">" & vbCrLf
		Response.Write "<LINK href=""admin.css"" type=text/css rel=stylesheet>" & vbCrLf
		Response.Write "</HEAD>" & vbCrLf
		Response.Write "<BODY leftmargin=""1"" topmargin=""1"">" & vbCrLf
		
			Call RegMain
		Response.Write "</BODY></HTML>" & vbCrLf
	
	End Sub


	
	Private Sub RegMain()
		Dim i, tempStr,key
		tempStr = Request.ServerVariables("SERVER_NAME") & "F0345f8da2"
		
		arrRegType = Split(arrRegType, ",")	
		Response.Write "<table align=""center"" border=""2"" cellpadding=""2"" width=""605"">" & vbCrLf
		Response.Write "  <tr>" & vbCrLf
		Response.Write "<td colspan=""3"" align=""center"" height=""50"">注册码计算</td>" & vbCrLf
		Response.Write "  </tr>" & vbCrLf
		Response.Write "  <tr>" & vbCrLf
		Response.Write "    <td align=""center"" height=""36"">注册项目：</td>" & vbCrLf
		Response.Write "    <td align=""center"" height=""36"">标识码：</td> " & vbCrLf
		Response.Write "    <td align=""center"" height=""36"">注册码：</td> " & vbCrLf
		Response.Write "  </tr>" & vbCrLf
		
		For i = 0 To UBound(arrRegType)
			Response.Write "  <tr>" & vbCrLf
			Response.Write "<td align=""center"" height=""36"">" & arrRegType(i) & "</td>"
			Response.Write "<td align=""center"" height=""36"">" & MD5(tempStr, 16) & "</td>"
			key=MD5(MD5(tempStr, 16) & i+1 & "F469e80d32", 32)
			Response.Write "<td align=""center"" height=""36"">" & Key & "</td>"
			Response.Write "  </tr>" & vbCrLf
		Next
		Response.Write "</table>" & vbCrLf
		
	End Sub

End Class %>