up.asp

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

<%Server.ScriptTimeOut=99999%>
<!--#include FILE="upload_5xsoft.inc"-->
<!--#include FILE="conn.asp"-->
<!--#include file="md5.asp"-->
<%
TT=NOW
dim upload,file,formName,formPath,iCount,fname,pass,id
set upload=new upload_5xsoft ''建立上传对象
 set file=upload.file("file1")  ''生成一个文件对象
if Session("CheckCode")="xaskxsaxsxsaxasjxsaixisxaji" then
response.Redirect("./")
response.end
end if
if upload.form("code") <> Session("CheckCode") then
response.write "<script>javascript:alert('验证码错误,上一次的验证码为:"&Session("CheckCode")&"');window.self.location.replace('./');</script>"
 Session("CheckCode") ="xaskxsaxsxsaxasjxsaixisxaji"
response.end
end if
 if file.FileSize=0 or file.filesize > 20480000 then         ''如果 FileSize > 0 说明有文件数据
  response.Redirect("/?err=1")
  response.end
end if
sized=file.filesize
randomize
cccip=request.ServerVariables("REMOTE_ADDR")
	fname=md5(now+cstr(file.filesize)&cccip&cstr(rnd*100),16)
  file.SaveAs Server.mappath("sexphoto/"&fname&".1")   ''保存文件
  Dim conn,connstr,a,b
  pass=upload.form("pass")
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"
rs.open sql,conn,1,3
rs.addnew
xxxxxx=SPLIT(File.FileName,".")
xxxxxx2=xxxxxx(UBOUND(xxxxxx))
rs("ip")=cccip
rs("time")=now
rs("old")=fname
rs("file")=File.FileName
rs("pass")=pass
rs("size")=file.FileSize
rs.update
id=rs("id")
rs.Close
set rs=nothing
conn.close
set conn=nothing
set file=nothing
set upload=nothing
tt2=session(tt)-second(now)
if tt2 <=0 then
tt2=1
end if
Response.Write "<script>javascript:alert('上传成功,共"+cstr(sized/1024)+"Kb');window.self.location.replace('/?ok="&fname&"."&xxxxxx2&"&ik="&id&"');</script>"
 response.end
%>