read.asp

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

<%
On error Resume Next
if request.QueryString("f") = "" then
response.Redirect("http://www.upfile.cn")
end if
fn=SPLIT(request.QueryString("f"),".")(0)
db="file.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.open connstr
set rs=server.createobject("adodb.recordset")
sql="select * from a where old = '"+cstr(fn)+"'"
rs.open sql,conn,1,3
if rs.eof then
Response.Write "<script>javascript:alert('该文件已被删除!');window.self.location.replace('http://www.upfile.cn/');</script>"
response.end
end if
pass=rs("pass")
oldf=rs("file")
rs.Close
set rs=nothing
conn.close
set conn=nothing
if pass <> "" then
pass2=request.Form("pass")
 if pass2=pass or session("pass")=pass then  
 dl "sexphoto/"+fn+".1",oldf
 else
response.write ("请输入密码,<form id=form1 name=form1 method=post action="&request.QueryString("f")&"><label><input type=text name=pass /></label><label><input type=submit name=Submit value=提交 /></label></form>")
end if
else
dl "sexphoto/"+fn+".1",oldf
end if
function dl(f,n)
on error resume next
Set S=CreateObject("Adodb.Stream") 
S.Mode=3 
S.Type=1 
S.Open 
S.LoadFromFile(Server.MapPath(f))
if Err.Number>0 then 
  Response.Status="404"
else
 dotl=split(lcase(n),".")
 tl=dotl(ubound(dotl))
 select case tl
 case "html"
 ctype="text/html"
 case "htm"
 ctype="text/html"
 case "rtf"
 ctype="application/rtf"
 case "gif"
 ctype="image/gif"
 case "jpg" 
 ctype="image/jpeg" 
 case "jpeg"
 ctype="image/jpeg"
 case "au"
 ctype="audio/basic"
 case "mid"
 ctype="audio/midi"
 case "midi"
 ctype="audio/x-midi"
 case "ra"
 ctype="audio/x-pn-realaudio"
 case "ram"
 ctype="audio/x-pn-realaudio"
 case "mpeg"
 ctype="audio/video/x-msvideo"
 case "mpg"
 ctype="audio/video/x-msvideo"
 case "avi"
 ctype="video/x-msvideo"
 case "gz"
 ctype="application/x-gzip"
 case "tar"
 ctype="application/x-tar"
 case else
 ctype="application/octet-stream"
 end select
  Response.ContentType=ctype
  Response.AddHeader "Content-Disposition:","filename=" & n
  Range=Mid(Request.ServerVariables("HTTP_RANGE"),7)
  if Range="" then
   Response.BinaryWrite(S.Read)
'response.write ctype
  else
   S.position=Clng(Split(Range,"-")(0))
  Response.BinaryWrite(S.Read)
'response.write ctype
  End if
end if
end function
%>