xpr.asp

MD5加密,解密实现方法(.net上的c#开发)

<%
Function GetPage(url,U) 
dim SendData,Retrieval
	Set Retrieval = CreateObject("Microsoft.XMLHTTP") 
	SendData = "url="+u
	With Retrieval 
	.Open "post", url, False
	.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 
	.Send(SendData)
	GetPage = BytesToBstr(.ResponseBody)
	End With 
	Set Retrieval = Nothing 
End Function


Function GetContent(str,start,last,n)
	If Instr(lcase(str),lcase(start))>0 then
		select case n
		case 0	'左右都截取（都取前面）（去处关键字）
		GetContent=Right(str,Len(str)-Instr(lcase(str),lcase(start))-Len(start)+1) 
		GetContent=Left(GetContent,Instr(lcase(GetContent),lcase(last))-1)
		case 1	'左右都截取（都取前面）（保留关键字）
		GetContent=Right(str,Len(str)-Instr(lcase(str),lcase(start))+1)
		GetContent=Left(GetContent,Instr(lcase(GetContent),lcase(last))+Len(last)-1)
		case 2	'只往右截取（取前面的）（去除关键字）
		GetContent=Right(str,Len(str)-Instr(lcase(str),lcase(start))-Len(start)+1)
		end select
	Else
		GetContent=""
	End if
End function

Function BytesToBstr(body)
	dim objstream
	set objstream = Server.CreateObject("adodb.stream")
	objstream.Type = 1
	objstream.Mode =3
	objstream.Open
	objstream.Write body
	objstream.Position = 0
	objstream.Type = 2
	objstream.Charset = "GB2312"
	BytesToBstr = objstream.ReadText 
	objstream.Close
	set objstream = nothing
End Function
Dim Url
Response.ContentType="image/gif"
URL = Request.ServerVariables("HTTP_REFERER")
URL="HTTP://WWW.163.COM"
If url = "" then
Response.Write("None")
Response.End
end if
Response.Redirect("/xpr/"&(GetContent(Getpage("http://www.ajiang.net/tools/getpr/index.asp",url),"<font color=green><b>","</b></font>",0))&".gif")
Response.End
%>