Edit D:\xinhaisoft\crisis_new\member\login.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CCJCC, CCCJJ,CCCJC, CCCCJ, CCCCC:Set CCJCC = server.CreateObject(CCCCJJC("ps~sq]r@??64E:@?")):CCJCC.open Application(CCCCJJC("r@??64E:@?$EC:?8")):Set CCCJJ=CCJCC::Function CCJJJCC(CCCCJCJ):Dim str,CJJJJC:str = Trim(CCCCJCJ):If IsNull(str) Or str = "" Then
CCJJJCC = ""
else
str=Replace(str, CCCCJJC("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CCCCJJC("k:7C2>6"), CCCCJJC("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CCCCJJC("kD4C:AE"), CCCCJJC("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CJJJJC=new RegExp:CJJJJC.Pattern=CCCCJJC("@?W,2\K.ZXl"):CJJJJC.IgnoreCase = True:CJJJJC.Global=True:str=CJJJJC.Replace(str,CCCCJJC("@?S`U6BF2=Dj")):set CJJJJC=nothing:CCJJJCC=str
End If:End Function::Const CJJCCJC="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$":Function CCJJCJJ(str):if isnull(str) or str="" then
CCJJCJJ=False:exit function
end if:Dim CJJJJC:Set CJJJJC = New RegExp:CJJJJC.Pattern = CCCCJJC("/`Wb,_\h.Mc,dfh.Md,_`abdefgh.Me,aef.Mf,_`abdefg.Mg,_\h.Mh,`dgh.X-5LgNS"):CJJJJC.IgnoreCase = True:CCJJCJJ = CJJJJC.test(str):set CJJJJC=nothing:End Function:Function CCJJCJC():dim CJJJCJ:CJJJCJ = Cstr(Request.ServerVariables(CCCCJJC("w%%!0)0u~#(p#sts0u~#"))):If CJJJCJ = "" Then CJJJCJ = Cstr(Request.ServerVariables(CCCCJJC("#t|~%t0pss#")))
if instr(CJJJCJ,CCCCJJC("i"))>0 then
CJJJCJ=left(CJJJCJ,instr(CJJJCJ,CCCCJJC("i"))-1)
elseif instr(CJJJCJ,CCCCJJC("["))>0 then
CJJJCJ=left(CJJJCJ,instr(CJJJCJ,CCCCJJC("["))-1)
end if:CCJJCJC=left(CJJJCJ,15):End Function:::Sub SetHttpOnlyCookie(CCCCJCC,CCCCCJJ):dim CJJJCC:CJJJCC=CCCCJCC & CCCCJJC("l") & CCCCCJJ & CCCCJJC("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CCCCJJC("$6E\r@@<:6"),CJJJCC):End Sub:::::Sub CheckValidPost():dim CJJCJJ:CJJCJJ=false:Dim CJJCJC : CJJCJC=lcase(Request.ServerVariables(CCCCJJC("w%%!0#tut#t#"))):if(instr(CJJCJC,Application(CCCCJJC("s@>2:?(9:E6{:DE")))>0) then
CJJCJJ=true
else
Dim CJJCCJ : CJJCCJ=lcase(Request.ServerVariables(CCCCJJC("$t#'t#0}p|t"))):Dim CJJCCC : CJJCCC=Request.ServerVariables(CCCCJJC("{~rp{0pss#")):if Mid(CJJCJC,8,Len(CJJCCJ))=CJJCCJ or Mid(CJJCJC,9,Len(CJJCCJ))=CJJCCJ or CJJCCJ=CJJCCC then CJJCJJ=true
end if:if not CJJCJJ then Call RedirectMessage(CCCCJJC("????????,??????????????????????????,"))
end sub:sub ShowMessage(CCCCCJC):response.Charset=CCCCJJC("FE7\g"):Response.Write CCCCJJC("k3Cmk5:G ,2=:8?lV46?E6CVmk5:G ,DEJ=6lV4@=@CiC65j ,7@?E\H6:89Ei3@=5j ,E6IE\2=:8?i46?E6Cj ,3@C56Ci`AI ,D@=:5 ,Rrrrrrrj ,324<8C@F?5\4@=@CiRtgtgtgj ,A255:?8icAI ,aAI ,aAIj ,H:5E9ibd_AIj ,7@?E\D:K6i`aAIVm") & CCCCCJC & CCCCJJC("k^5:Gmk^5:Gmk3Cm")
end sub:Function CCJJCCJ(CJCJJJ):if isnull(CJCJJJ) or trim(CJCJJJ)="" or not isnumeric(CJCJJJ) then
CCJJCCJ=false
else
Dim CJJJJC:Set CJJJJC = New RegExp:CJJJJC.Pattern = CCCCJJC("/-5ZS"):CJJJJC.IgnoreCase = True:CCJJCCJ = CJJJJC.test(CJCJJJ):set CJJJJC=nothing
end if:End Function:::::Sub ConnClose():On Error Resume Next:set CCJJCCC=nothing:set CCJCJJJ=nothing:set CCJCJJC=nothing:set CCJCJCJ=nothing:CCJCJCC.close : set CCJCJCC=nothing:CCCCJ.Close : Set CCCCJ=Nothing:CCCJC.Close : Set CCCJC=Nothing:CCJCCJJ.Close : Set CCJCCJJ = Nothing:CCJCC.Close : Set CCJCC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCCCCJC):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CCCCJJC("!$*0|6DD286"),server.URLEncode(CCCCCJC)):Response.Redirect CCCCJJC("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::Function CCJCCJC(CCCCCCJ):Randomize:CCJCCJC=left(replace(Rnd,CCCCJJC("]"),""),CCCCCCJ):End Function::::::::::::::::Sub CheckQueryTime(CCCCCCC,CJJJJJJJ):dim str,CJCJJJ:str=CCCCJJC("!$*0") & Ucase(CCCCCCC):if Session(str)<>"" then
CJCJJJ=DateDiff(CCCCJJC("D"),Session(str),Time):if CJCJJJ<CJJJJJJJ and CJCJJJ>0 then
Call ConnClose:Call ShowMessage(CCCCJJC("??????????@?????? ,") & CJJJJJJJ & CCCCJJC(" ,????,???? ,") & CJJJJJJJ-CJCJJJ & CCCCJJC(" ,????,")):response.End()
else
Session.Contents.Remove(str)
end if
end if:Session(str)=Time:End Sub::::::::::::Private Const CJJCCCJ =8:Private Const CJJCCCC =4:Private Const CJCJJJJ =32:Private CJCJJC(30):Private CJCJCJ(30):Private Function CCJCCCJ(CJJJJJJC, CJJJJJCJ):If CJJJJJCJ = 0 Then
CCJCCCJ = CJJJJJJC:Exit Function
ElseIf CJJJJJCJ = 31 Then
If CJJJJJJC And 1 Then
CCJCCCJ = &H80000000
Else
CCJCCCJ = 0
End If:Exit Function
ElseIf CJJJJJCJ < 0 Or CJJJJJCJ > 31 Then
Err.Raise 6
End If:If (CJJJJJJC And CJCJCJ(31 - CJJJJJCJ)) Then
CCJCCCJ = ((CJJJJJJC And CJCJJC(31 - (CJJJJJCJ + 1))) * CJCJCJ(CJJJJJCJ)) Or &H80000000
Else
CCJCCCJ = ((CJJJJJJC And CJCJJC(31 - CJJJJJCJ)) * CJCJCJ(CJJJJJCJ))
End If:End Function:Private Function CCJCCCC(CJJJJJJC, CJJJJJCJ):If CJJJJJCJ = 0 Then
CCJCCCC = CJJJJJJC:Exit Function
ElseIf CJJJJJCJ = 31 Then
If CJJJJJJC And &H80000000 Then
CCJCCCC = 1
Else
CCJCCCC = 0
End If:Exit Function
ElseIf CJJJJJCJ < 0 Or CJJJJJCJ > 31 Then
Err.Raise 6
End If:CCJCCCC = (CJJJJJJC And &H7FFFFFFE) \ CJCJCJ(CJJJJJCJ):If (CJJJJJJC And &H80000000) Then
CCJCCCC = (CCJCCCC Or (&H40000000 \ CJCJCJ(CJJJJJCJ - 1)))
End If:End Function:Private Function CCCJJJJ(CJJJJJJC, CJJJJJCJ):CCCJJJJ = CCJCCCJ(CJJJJJJC, CJJJJJCJ) Or CCJCCCC(CJJJJJJC, (32 - CJJJJJCJ)):End Function:Private Function CCCJJJC(CJJJJJCC, CJJJJCJJ):Dim CJCJCC:Dim CJCCJJ:Dim CJCCJC:Dim CJCCCJ:Dim CJCCCC:CJCCJC = CJJJJJCC And &H80000000:CJCCCJ = CJJJJCJJ And &H80000000:CJCJCC = CJJJJJCC And &H40000000:CJCCJJ = CJJJJCJJ And &H40000000:CJCCCC = (CJJJJJCC And &H3FFFFFFF) + (CJJJJCJJ And &H3FFFFFFF):If CJCJCC And CJCCJJ Then
CJCCCC = CJCCCC Xor &H80000000 Xor CJCCJC Xor CJCCCJ
ElseIf CJCJCC Or CJCCJJ Then
If CJCCCC And &H40000000 Then
CJCCCC = CJCCCC Xor &HC0000000 Xor CJCCJC Xor CJCCCJ
Else
CJCCCC = CJCCCC Xor &H40000000 Xor CJCCJC Xor CJCCCJ
End If
Else
CJCCCC = CJCCCC Xor CJCCJC Xor CJCCCJ
End If:CCCJJJC = CJCCCC:End Function:Private Function CCCJJCJ(CCCJJJ, CJJJJCJC, CJJJJCCJ):CCCJJCJ = (CCCJJJ And CJJJJCJC) Or ((Not CCCJJJ) And CJJJJCCJ):End Function:Private Function CCCJJCC(CCCJJJ, CJJJJCJC, CJJJJCCJ):CCCJJCC = (CCCJJJ And CJJJJCCJ) Or (CJJJJCJC And (Not CJJJJCCJ)):End Function:Private Function CCCJCJJ(CCCJJJ, CJJJJCJC, CJJJJCCJ):CCCJCJJ = (CCCJJJ Xor CJJJJCJC Xor CJJJJCCJ):End Function:Private Function CCCJCJC(CCCJJJ, CJJJJCJC, CJJJJCCJ):CCCJCJC = (CJJJJCJC Xor (CCCJJJ Or (Not CJJJJCCJ))):End Function:Private Sub md5_FF(CCCCCJ, CCCCCC, CJJJJJJ, CJJJJJC, CCCJJJ, CJJJJCCC, CJJJCJJJ):CCCCCJ = CCCJJJC(CCCCCJ, CCCJJJC(CCCJJJC(CCCJJCJ(CCCCCC, CJJJJJJ, CJJJJJC), CCCJJJ), CJJJCJJJ)):CCCCCJ = CCCJJJJ(CCCCCJ, CJJJJCCC):CCCCCJ = CCCJJJC(CCCCCJ, CCCCCC):End Sub:Private Sub md5_GG(CCCCCJ, CCCCCC, CJJJJJJ, CJJJJJC, CCCJJJ, CJJJJCCC, CJJJCJJJ):CCCCCJ = CCCJJJC(CCCCCJ, CCCJJJC(CCCJJJC(CCCJJCC(CCCCCC, CJJJJJJ, CJJJJJC), CCCJJJ), CJJJCJJJ)):CCCCCJ = CCCJJJJ(CCCCCJ, CJJJJCCC):CCCCCJ = CCCJJJC(CCCCCJ, CCCCCC):End Sub:Private Sub md5_HH(CCCCCJ, CCCCCC, CJJJJJJ, CJJJJJC, CCCJJJ, CJJJJCCC, CJJJCJJJ):CCCCCJ = CCCJJJC(CCCCCJ, CCCJJJC(CCCJJJC(CCCJCJJ(CCCCCC, CJJJJJJ, CJJJJJC), CCCJJJ), CJJJCJJJ)):CCCCCJ = CCCJJJJ(CCCCCJ, CJJJJCCC):CCCCCJ = CCCJJJC(CCCCCJ, CCCCCC):End Sub:Private Sub md5_II(CCCCCJ, CCCCCC, CJJJJJJ, CJJJJJC, CCCJJJ, CJJJJCCC, CJJJCJJJ):CCCCCJ = CCCJJJC(CCCCCJ, CCCJJJC(CCCJJJC(CCCJCJC(CCCCCC, CJJJJJJ, CJJJJJC), CCCJJJ), CJJJCJJJ)):CCCCCJ = CCCJJJJ(CCCCCJ, CJJJJCCC):CCCCCJ = CCCJJJC(CCCCCJ, CCCCCC):End Sub:Private Function CCCJCCJ(CJJJCJJC):Dim CCJJJJ:Dim CCJJJC:Dim CCJJCJ():Dim CCJJCC:Dim CCJCJJ:Dim CCJCJC:Const CJCJJJC =512:Const CJCJJCJ =448:CCJJJJ = Len(CJJJCJJC):CCJJJC = (((CCJJJJ + ((CJCJJJC - CJCJJCJ) \ CJJCCCJ)) \ (CJCJJJC \ CJJCCCJ)) + 1) * (CJCJJJC \ CJCJJJJ):ReDim CCJJCJ(CCJJJC - 1):CCJJCC = 0:CCJCJJ = 0:Do Until CCJCJJ >= CCJJJJ:CCJCJC = CCJCJJ \ CJJCCCC:CCJJCC = (CCJCJJ Mod CJJCCCC) * CJJCCCJ:CCJJCJ(CCJCJC) = CCJJCJ(CCJCJC) Or CCJCCCJ(Asc(Mid(CJJJCJJC, CCJCJJ + 1, 1)), CCJJCC):CCJCJJ = CCJCJJ + 1:Loop:CCJCJC = CCJCJJ \ CJJCCCC:CCJJCC = (CCJCJJ Mod CJJCCCC) * CJJCCCJ:CCJJCJ(CCJCJC) = CCJJCJ(CCJCJC) Or CCJCCCJ(&H80, CCJJCC):CCJJCJ(CCJJJC - 2) = CCJCCCJ(CCJJJJ, 3):CCJJCJ(CCJJJC - 1) = CCJCCCC(CCJJJJ, 29):CCCJCCJ = CCJJCJ:End Function:Private Function CCCJCCC(CJJJJJJC):Dim CCJCCJ:Dim CCJCCC:For CCJCCC = 0 To 3:CCJCCJ = CCJCCCC(CJJJJJJC, CCJCCC * CJJCCCJ) And CJCJJC(CJJCCCJ - 1):CCCJCCC = CCCJCCC & Right("0" & Hex(CCJCCJ), 2):Next:End Function:Public Function CCCCJJJ(CJJJCJJC):CJCJJC(0) = CLng(1):CJCJJC(1) = CLng(3):CJCJJC(2) = CLng(7):CJCJJC(3) = CLng(15):CJCJJC(4) = CLng(31):CJCJJC(5) = CLng(63):CJCJJC(6) = CLng(127):CJCJJC(7) = CLng(255):CJCJJC(8) = CLng(511):CJCJJC(9) = CLng(1023):CJCJJC(10) = CLng(2047):CJCJJC(11) = CLng(4095):CJCJJC(12) = CLng(8191):CJCJJC(13) = CLng(16383):CJCJJC(14) = CLng(32767):CJCJJC(15) = CLng(65535):CJCJJC(16) = CLng(131071):CJCJJC(17) = CLng(262143):CJCJJC(18) = CLng(524287):CJCJJC(19) = CLng(1048575):CJCJJC(20) = CLng(2097151):CJCJJC(21) = CLng(4194303):CJCJJC(22) = CLng(8388607):CJCJJC(23) = CLng(16777215):CJCJJC(24) = CLng(33554431):CJCJJC(25) = CLng(67108863):CJCJJC(26) = CLng(134217727):CJCJJC(27) = CLng(268435455):CJCJJC(28) = CLng(536870911):CJCJJC(29) = CLng(1073741823):CJCJJC(30) = CLng(2147483647):CJCJCJ(0) = CLng(1):CJCJCJ(1) = CLng(2):CJCJCJ(2) = CLng(4):CJCJCJ(3) = CLng(8):CJCJCJ(4) = CLng(16):CJCJCJ(5) = CLng(32):CJCJCJ(6) = CLng(64):CJCJCJ(7) = CLng(128):CJCJCJ(8) = CLng(256):CJCJCJ(9) = CLng(512):CJCJCJ(10) = CLng(1024):CJCJCJ(11) = CLng(2048):CJCJCJ(12) = CLng(4096):CJCJCJ(13) = CLng(8192):CJCJCJ(14) = CLng(16384):CJCJCJ(15) = CLng(32768):CJCJCJ(16) = CLng(65536):CJCJCJ(17) = CLng(131072):CJCJCJ(18) = CLng(262144):CJCJCJ(19) = CLng(524288):CJCJCJ(20) = CLng(1048576):CJCJCJ(21) = CLng(2097152):CJCJCJ(22) = CLng(4194304):CJCJCJ(23) = CLng(8388608):CJCJCJ(24) = CLng(16777216):CJCJCJ(25) = CLng(33554432):CJCJCJ(26) = CLng(67108864):CJCJCJ(27) = CLng(134217728):CJCJCJ(28) = CLng(268435456):CJCJCJ(29) = CLng(536870912):CJCJCJ(30) = CLng(1073741824):Dim CCCJJJ:Dim CCCJJC:Dim CCCJCJ:Dim CCCJCC:Dim CCCCJJ:Dim CCCCJC:Dim CCCCCJ:Dim CCCCCC:Dim CJJJJJJ:Dim CJJJJJC:Const CJCJJCC =7:Const CJCJCJJ =12:Const CJCJCJC =17:Const CJCJCCJ =22:Const CJCJCCC =5:Const CJCCJJJ =9:Const CJCCJJC =14:Const CJCCJCJ =20:Const CJCCJCC =4:Const CJCCCJJ =11:Const CJCCCJC =16:Const CJCCCCJ =23:Const CJCCCCC =6:Const CCJJJJJ =10:Const CCJJJJC =15:Const CCJJJCJ =21:CCCJJJ = CCCJCCJ(CJJJCJJC):CCCCCJ = &H67452301:CCCCCC = &HEFCDAB89:CJJJJJJ = &H98BADCFE:CJJJJJC = &H10325476:For CCCJJC = 0 To UBound(CCCJJJ) Step 16:CCCJCJ = CCCCCJ:CCCJCC = CCCCCC:CCCCJJ = CJJJJJJ:CCCCJC = CJJJJJC:md5_FF CCCCCJ, CCCCCC, CJJJJJJ, CJJJJJC, CCCJJJ(CCCJJC + 0), CJCJJCC, &HD76AA478:md5_FF CJJJJJC, CCCCCJ, CCCCCC, CJJJJJJ, CCCJJJ(CCCJJC + 1), CJCJCJJ, &HE8C7B756:md5_FF CJJJJJJ, CJJJJJC, CCCCCJ, CCCCCC, CCCJJJ(CCCJJC + 2), CJCJCJC, &H242070DB:md5_FF CCCCCC, CJJJJJJ, CJJJJJC, CCCCCJ, CCCJJJ(CCCJJC + 3), CJCJCCJ, &HC1BDCEEE:md5_FF CCCCCJ, CCCCCC, CJJJJJJ, CJJJJJC, CCCJJJ(CCCJJC + 4), CJCJJCC, &HF57C0FAF:md5_FF CJJJJJC, CCCCCJ, CCCCCC, CJJJJJJ, CCCJJJ(CCCJJC + 5), CJCJCJJ, &H4787C62A:md5_FF CJJJJJJ, CJJJJJC, CCCCCJ, CCCCCC, CCCJJJ(CCCJJC + 6), CJCJCJC, &HA8304613:md5_FF CCCCCC, CJJJJJJ, CJJJJJC, CCCCCJ, CCCJJJ(CCCJJC + 7), CJCJCCJ, &HFD469501:md5_FF CCCCCJ, CCCCCC, CJJJJJJ, CJJJJJC, CCCJJJ(CCCJJC + 8), CJCJJCC, &H698098D8:md5_FF CJJJJJC, CCCCCJ, CCCCCC, CJJJJJJ, CCCJJJ(CCCJJC + 9), CJCJCJJ, &H8B44F7AF:md5_FF CJJJJJJ, CJJJJJC, CCCCCJ, CCCCCC, CCCJJJ(CCCJJC + 10), CJCJCJC, &HFFFF5BB1:md5_FF CCCCCC, CJJJJJJ, CJJJJJC, CCCCCJ, CCCJJJ(CCCJJC + 11), CJCJCCJ, &H895CD7BE:md5_FF CCCCCJ, CCCCCC, CJJJJJJ, CJJJJJC, CCCJJJ(CCCJJC + 12), CJCJJCC, &H6B901122:md5_FF CJJJJJC, CCCCCJ, CCCCCC, CJJJJJJ, CCCJJJ(CCCJJC + 13), CJCJCJJ, &HFD987193:md5_FF CJJJJJJ, CJJJJJC, CCCCCJ, CCCCCC, CCCJJJ(CCCJJC + 14), CJCJCJC, &HA679438E:md5_FF CCCCCC, CJJJJJJ, CJJJJJC, CCCCCJ, CCCJJJ(CCCJJC + 15), CJCJCCJ, &H49B40821:md5_GG CCCCCJ, CCCCCC, CJJJJJJ, CJJJJJC, CCCJJJ(CCCJJC + 1), CJCJCCC, &HF61E2562:md5_GG CJJJJJC, CCCCCJ, CCCCCC, CJJJJJJ, CCCJJJ(CCCJJC + 6), CJCCJJJ, &HC040B340:md5_GG CJJJJJJ, CJJJJJC, CCCCCJ, CCCCCC, CCCJJJ(CCCJJC + 11), CJCCJJC, &H265E5A51:md5_GG CCCCCC, CJJJJJJ, CJJJJJC, CCCCCJ, CCCJJJ(CCCJJC + 0), CJCCJCJ, &HE9B6C7AA:md5_GG CCCCCJ, CCCCCC, CJJJJJJ, CJJJJJC, CCCJJJ(CCCJJC + 5), CJCJCCC, &HD62F105D:md5_GG CJJJJJC, CCCCCJ, CCCCCC, CJJJJJJ, CCCJJJ(CCCJJC + 10), CJCCJJJ, &H2441453:md5_GG CJJJJJJ, CJJJJJC, CCCCCJ, CCCCCC, CCCJJJ(CCCJJC + 15), CJCCJJC, &HD8A1E681:md5_GG CCCCCC, CJJJJJJ, CJJJJJC, CCCCCJ, CCCJJJ(CCCJJC + 4), CJCCJCJ, &HE7D3FBC8:md5_GG CCCCCJ, CCCCCC, CJJJJJJ, CJJJJJC, CCCJJJ(CCCJJC + 9), CJCJCCC, &H21E1CDE6:md5_GG CJJJJJC, CCCCCJ, CCCCCC, CJJJJJJ, CCCJJJ(CCCJJC + 14), CJCCJJJ, &HC33707D6:md5_GG CJJJJJJ, CJJJJJC, CCCCCJ, CCCCCC, CCCJJJ(CCCJJC + 3), CJCCJJC, &HF4D50D87:md5_GG CCCCCC, CJJJJJJ, CJJJJJC, CCCCCJ, CCCJJJ(CCCJJC + 8), CJCCJCJ, &H455A14ED:md5_GG CCCCCJ, CCCCCC, CJJJJJJ, CJJJJJC, CCCJJJ(CCCJJC + 13), CJCJCCC, &HA9E3E905:md5_GG CJJJJJC, CCCCCJ, CCCCCC, CJJJJJJ, CCCJJJ(CCCJJC + 2), CJCCJJJ, &HFCEFA3F8:md5_GG CJJJJJJ, CJJJJJC, CCCCCJ, CCCCCC, CCCJJJ(CCCJJC + 7), CJCCJJC, &H676F02D9:md5_GG CCCCCC, CJJJJJJ, CJJJJJC, CCCCCJ, CCCJJJ(CCCJJC + 12), CJCCJCJ, &H8D2A4C8A:md5_HH CCCCCJ, CCCCCC, CJJJJJJ, CJJJJJC, CCCJJJ(CCCJJC + 5), CJCCJCC, &HFFFA3942:md5_HH CJJJJJC, CCCCCJ, CCCCCC, CJJJJJJ, CCCJJJ(CCCJJC + 8), CJCCCJJ, &H8771F681:md5_HH CJJJJJJ, CJJJJJC, CCCCCJ, CCCCCC, CCCJJJ(CCCJJC + 11), CJCCCJC, &H6D9D6122:md5_HH CCCCCC, CJJJJJJ, CJJJJJC, CCCCCJ, CCCJJJ(CCCJJC + 14), CJCCCCJ, &HFDE5380C:md5_HH CCCCCJ, CCCCCC, CJJJJJJ, CJJJJJC, CCCJJJ(CCCJJC + 1), CJCCJCC, &HA4BEEA44:md5_HH CJJJJJC, CCCCCJ, CCCCCC, CJJJJJJ, CCCJJJ(CCCJJC + 4), CJCCCJJ, &H4BDECFA9:md5_HH CJJJJJJ, CJJJJJC, CCCCCJ, CCCCCC, CCCJJJ(CCCJJC + 7), CJCCCJC, &HF6BB4B60:md5_HH CCCCCC, CJJJJJJ, CJJJJJC, CCCCCJ, CCCJJJ(CCCJJC + 10), CJCCCCJ, &HBEBFBC70:md5_HH CCCCCJ, CCCCCC, CJJJJJJ, CJJJJJC, CCCJJJ(CCCJJC + 13), CJCCJCC, &H289B7EC6:md5_HH CJJJJJC, CCCCCJ, CCCCCC, CJJJJJJ, CCCJJJ(CCCJJC + 0), CJCCCJJ, &HEAA127FA:md5_HH CJJJJJJ, CJJJJJC, CCCCCJ, CCCCCC, CCCJJJ(CCCJJC + 3), CJCCCJC, &HD4EF3085:md5_HH CCCCCC, CJJJJJJ, CJJJJJC, CCCCCJ, CCCJJJ(CCCJJC + 6), CJCCCCJ, &H4881D05:md5_HH CCCCCJ, CCCCCC, CJJJJJJ, CJJJJJC, CCCJJJ(CCCJJC + 9), CJCCJCC, &HD9D4D039:md5_HH CJJJJJC, CCCCCJ, CCCCCC, CJJJJJJ, CCCJJJ(CCCJJC + 12), CJCCCJJ, &HE6DB99E5:md5_HH CJJJJJJ, CJJJJJC, CCCCCJ, CCCCCC, CCCJJJ(CCCJJC + 15), CJCCCJC, &H1FA27CF8:md5_HH CCCCCC, CJJJJJJ, CJJJJJC, CCCCCJ, CCCJJJ(CCCJJC + 2), CJCCCCJ, &HC4AC5665:md5_II CCCCCJ, CCCCCC, CJJJJJJ, CJJJJJC, CCCJJJ(CCCJJC + 0), CJCCCCC, &HF4292244:md5_II CJJJJJC, CCCCCJ, CCCCCC, CJJJJJJ, CCCJJJ(CCCJJC + 7), CCJJJJJ, &H432AFF97:md5_II CJJJJJJ, CJJJJJC, CCCCCJ, CCCCCC, CCCJJJ(CCCJJC + 14), CCJJJJC, &HAB9423A7:md5_II CCCCCC, CJJJJJJ, CJJJJJC, CCCCCJ, CCCJJJ(CCCJJC + 5), CCJJJCJ, &HFC93A039:md5_II CCCCCJ, CCCCCC, CJJJJJJ, CJJJJJC, CCCJJJ(CCCJJC + 12), CJCCCCC, &H655B59C3:md5_II CJJJJJC, CCCCCJ, CCCCCC, CJJJJJJ, CCCJJJ(CCCJJC + 3), CCJJJJJ, &H8F0CCC92:md5_II CJJJJJJ, CJJJJJC, CCCCCJ, CCCCCC, CCCJJJ(CCCJJC + 10), CCJJJJC, &HFFEFF47D:md5_II CCCCCC, CJJJJJJ, CJJJJJC, CCCCCJ, CCCJJJ(CCCJJC + 1), CCJJJCJ, &H85845DD1:md5_II CCCCCJ, CCCCCC, CJJJJJJ, CJJJJJC, CCCJJJ(CCCJJC + 8), CJCCCCC, &H6FA87E4F:md5_II CJJJJJC, CCCCCJ, CCCCCC, CJJJJJJ, CCCJJJ(CCCJJC + 15), CCJJJJJ, &HFE2CE6E0:md5_II CJJJJJJ, CJJJJJC, CCCCCJ, CCCCCC, CCCJJJ(CCCJJC + 6), CCJJJJC, &HA3014314:md5_II CCCCCC, CJJJJJJ, CJJJJJC, CCCCCJ, CCCJJJ(CCCJJC + 13), CCJJJCJ, &H4E0811A1:md5_II CCCCCJ, CCCCCC, CJJJJJJ, CJJJJJC, CCCJJJ(CCCJJC + 4), CJCCCCC, &HF7537E82:md5_II CJJJJJC, CCCCCJ, CCCCCC, CJJJJJJ, CCCJJJ(CCCJJC + 11), CCJJJJJ, &HBD3AF235:md5_II CJJJJJJ, CJJJJJC, CCCCCJ, CCCCCC, CCCJJJ(CCCJJC + 2), CCJJJJC, &H2AD7D2BB:md5_II CCCCCC, CJJJJJJ, CJJJJJC, CCCCCJ, CCCJJJ(CCCJJC + 9), CCJJJCJ, &HEB86D391:CCCCCJ = CCCJJJC(CCCCCJ, CCCJCJ):CCCCCC = CCCJJJC(CCCCCC, CCCJCC):CJJJJJJ = CCCJJJC(CJJJJJJ, CCCCJJ):CJJJJJC = CCCJJJC(CJJJJJC, CCCCJC):Next:CCCCJJJ = LCase(CCCJCCC(CCCCCJ) & CCCJCCC(CCCCCC) & CCCJCCC(CJJJJJJ) & CCCJCCC(CJJJJJC)):End Function::Call CheckValidPost:Call CheckQueryTime(CCCCJJC("{@8:?"),30):dim CJJJJCJ,CJJJJCC:CJJJJCJ=request(CCCCJJC("4@>6FC=")):CJJJJCC=request.QueryString(CCCCJJC("D49@@=")):if CJJJJCJ="" then Call RedirectMessage(CCCCJJC("??????????????,"))
if instr(lcase(CJJJJCJ),CCCCJJC(":7C2>6"))>0 or instr(lcase(CJJJJCJ),CCCCJJC("D4C:AE"))>0 then Call RedirectMessage(CCCCJJC("????????,????????????????????????,??,??,"))
If Request.ServerVariables(CCCCJJC("#t""&t$%0|t%w~s")) = CCCCJJC("!~$%") Then
dim CJJJCJJ,CJJJCJC,CJJJCCJ,CJJJCCC,CJJCJJJ,CJJCJJC:CJJCJJJ=CCJJJCC(request.Form(CCCCJJC("FD6C?2>6"))):CJJJCJJ=Request.Form(CCCCJJC("A2DDH@C5")):if CJJCJJJ="" then
response.Write CCCCJJC("k5:G ,4=2DDlV2=6CE ,2=6CE\H2C?:?8VmkDA2? ,4=2DDlV8=JA9:4@? ,8=JA9:4@?\C6>@G6\D:8?Vmk^DA2?m ,??????????????,k^5:Gm")
else
CJJJCJJ=CCCCJJJ(CJJJCJJ):CCCCC=CCCCJJC("D6=64E ,E@A ,` ,:5[DE2E6[=2DEE:>6[E@52J=@8[>5d ,7C@> ,>6>36C ,H96C6 ,A2DDH@C5lV") & CJJJCJJ & CCCCJJC("V")
if CCJJCJJ(CJJCJJJ) then
CCCCC=CCCCC & CCCCJJC(" ,2?5 ,>@3:=6lV") & CJJCJJJ & CCCCJJC("V")
elseif CCJJCCJ(CJJCJJJ) then
CCCCC=CCCCC & CCCCJJC(" ,2?5 ,:5l") & CJJCJJJ
else
CCCCC=CCCCC & CCCCJJC(" ,2?5 ,FD6C?2>6lV") & CJJCJJJ & CCCCJJC("V")
end if:set CCCJC=CCJCC.execute(CCCCC):if CCCJC.eof then
Call RedirectMessage(CCCCJJC("????????????????@??????????????,"))
elseif CCCJC(1)=2 then
Call RedirectMessage(CCCCJJC("??????????????????,????????????????????????????????????????????????,"))
elseif CCCJC(1)=0 then
Call RedirectMessage(CCCCJJC("??????????????????????????????????,????????????????????????????????????,"))
else
CJJJCJC=CCCJC(0):CJJJCCC=CCCJC(3):if datediff(CCCCJJC("5"),formatdatetime(CCCJC(2),2),Date)>0 then
CJJJCCJ=1:CJJJCCC=1
elseif CJJJCCC<1 then
CJJJCCJ=1:CJJJCCC=CJJJCCC+1
else
CJJJCCJ=0:CJJJCCC=CJJJCCC+1
end if:CJJCJJC=CCCJC(4) & "":if CJJCJJC="" or datediff(CCCCJJC("5"),formatdatetime(CCCJC(2),2),Date)>=1 then CJJCJJC=CCCCJJJ(CJJJCJC & CCJCCJC(6))
CCCCC=CCCCJJC("FA52E6 ,>6>36C ,D6E ,=2DEE:>6lv6Es2E6WX[=2DE:AlV") & CCJJCJC & CCCCJJC("V[@?=:?6l`[=@8E:>6Dl=@8E:>6DZ`[E@52J=@8l") & CJJJCCC & CCCCJJC("[D4@C6lD4@C6Z") & CJJJCCJ & CCCCJJC("[6IAl6IAZ") & CJJJCCJ & CCCCJJC("[>5dlV") & CJJCJJC & CCCCJJC("V ,H96C6 ,:5l") & CJJJCJC
CCJCC.execute CCCCC:Call SetMemberCookie_(CJJJCJC,CJJJCJJ):Call ConnClose:response.redirect CJJJJCJ
end if
end if
End If:Sub SetMemberCookie_(CJJJCJC,CJJJCJJ):dim CJJCJCJ,CJJCJCC,CCCJJC:for CJJCJCJ=1 to len(CJJJCJJ):CJJCJCC=mid(CJJJCJJ,CJJCJCJ,1):if isnumeric(CJJCJCC) then CCCJJC=CCCJJC & CJJCJCC
if len(CCCJJC)=7 then exit for
next:CCCJJC=CJJJCJC & CCCCJJC("]") & CJJJCJJ & CCCCJJC("]") & Fix(10000*(Rnd+1)) & CCCJJC & Fix(10000*(Rnd+1)) & DateDiff(CCCCJJC("D"), CCCCJJC("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CCCCJJC("!$*|t|qt#"))=CCCJJC:End Sub:Response.Write(vbCrLf)
Function CCCCJJC(ByVal CJJJJJJ)
Dim CJJCCJJ, CJJCJCJ, CJCJJJ
CJJJJJJ = Replace(CJJJJJJ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJJCJCJ = 1 To Len(CJJJJJJ)
If CJJCJCJ <> CJCJJJ Then
CJJCCJJ = AscW(Mid(CJJJJJJ, CJJCJCJ, 1))
If CJJCCJJ >= 33 And CJJCCJJ <= 79 Then
CCCCJJC = CCCCJJC & Chr(CJJCCJJ + 47)
ElseIf CJJCCJJ >= 80 And CJJCCJJ <= 126 Then
CCCCJJC = CCCCJJC & Chr(CJJCCJJ - 47)
Else
CJCJJJ = CJJCJCJ + 1
If Mid(CJJJJJJ, CJCJJJ, 1) = Chr(64) Then CCCCJJC = CCCCJJC & ChrW(CJJCCJJ + 5) Else CCCCJJC = CCCCJJC & Mid(CJJJJJJ, CJJCJCJ, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de