Edit D:\xinhaisoft\crisis_new\jiaowei\admin\changepsw.asp

??<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Dim CJCJC, CJCCJ,CJCCC, CCJJJ, CCJJC:Set CJCJC = server.CreateObject(CJJJJJJJ("ps~sq]r@??64E:@?")):CJCJC.open Application(CJJJJJJJ("r@??64E:@?$EC:?8")):Set CJCCJ=CJCJC::Dim CCJCJ,CCJCC,CCCJJ,CCCJC,CCCCJ,CCCCC,CJJJJJ,CJJJJC,CJJJCJ:Dim CJJJCC,CJJCJJ,CJJCJC,CJJCCJ,CJJCCC,CJCJJJ:Dim CJCJJC,CJCJCJ,CJCJCC:Dim CJCCJJ:CJCCJJ=Trim(Request.Cookies(CJJJJJJJ("!$*|t|qt#"))):if CJCCJJ="" then
Call ClearMemberCookie
else
Call CheckMemberCookie
end if:if CCJCJ>0 then
CCJJC=CJJJJJJJ("D6=64E ,E@A ,` ,:DD49@@=25>:?[:D4@?DF=E2?E[,C:89E.[EJA6[4FDE@>8C@FA[32=2?46[?F>36C[>@3:=6[>6>36C0EJA60A2E9[>6>36C0EJA60E@A[A9@E@[7246[286[C62=?2>6[EJA6?2>6[8C256 ,u#~| ,G0>6>36C ,H:E9 ,W?@=@4<X ,(wt#t ,!2DDH@C5lV") & CCJCC & CJJJJJJJ("V ,2?5 ,:5l") & CCJCJ
set CJCCC=CJCJC.execute(CCJJC):If CJCCC.EOF Then
Call ClearMemberCookie
Else
CCCJJ=CJCCC(2) & "":CCCJC=CJCCC(3):CCCCJ=CJCCC(5):CCCCC=CJCCC(6):CJJJJJ=CJCCC(9):CJJJJC=CJCCC(15):CJJJCC=CJCCC(0):CJCJCJ=CJCCC(1):CJCJJC=CJCCC(11) & "":CJJCJJ=CJCCC(10) & "":CJJJCJ=CJCCC(12):CJJCJC=CJCCC(14):CJJCCJ=CJCCC(13):CJJCCC=CJCCC(7) & "":CJCJJJ=CJCCC(4):CJCJCC=CJCCC(8):if isnull(CJJJJC) then CJJJJC=0
if isnull(CJJJJJ) or CJJJJJ=0 then CJJJJJ=CCCJC
if isnull(CJCJJJ) then CJCJJJ=0
if isnull(CCCCJ) then CCCCJ=0
if instr(CJJJJJJJ("6`_254bhch32dh2336de6_df7a_7ggb6"),CCJCC)>0 then Call RedirectMessage(CJJJJJJJ("????????,????????????????????????????????,"))
Call SetMemberCookie(CCJCJ,CCJCC)
End IF
end if:Sub CheckRight(CJJJJJJC):dim CJCCJC,CJCCCJ:if CCJCJ=0 then
Call ConnClose:Call ClearMemberCookie:Call RedirectMessage(CJJJJJJJ("??????????????,????????????,"))
elseIf not CCJCJCJ(CJJJJJJC) then
Call RedirectMessage(CJJJJJJJ("????W") & CJJJJJJC & CJJJJJJJ("X????????,????????????????????,"))
end if:End Sub:Function CCJCJCJ(CJJJJJJC):dim CJCCJC,CJCCCJ:CJCCCJ=split(CJJJJJJC,CJJJJJJJ("[")):CCJCJCJ=False:for CJCCJC=0 to ubound(CJCCCJ):If Mid(CCCJJ,CJCCCJ(CJCCJC),1)="1" then
CCJCJCJ=True:exit function
end if:next:End Function::Sub ClearMemberCookie():Response.Cookies(CJJJJJJJ("!$*|t|qt#"))="":CCJCJ=0:CCCCC=0:CCJCC=Empty:CCCCJ=0:CJJJJC=0:CJJJJJ=0:CCCJC=0:CJJJCC=False:CJCJCJ=False:CJCJCC=Empty:End Sub:Sub CheckMemberCookie():dim CJCCCC,CCJJJJ,CJCCJC,CCJJJC,CCJJCJ:CJCCCC=split(CJCCJJ,CJJJJJJJ("]")):if ubound(CJCCCC)<>2 then
Call ClearMemberCookie
elseif not isnumeric(CJCCCC(0)) or len(CJCCCC(1))<>32 or len(CJCCCC(2))<>32 then
Call ClearMemberCookie
else
CCJJJJ=CJCCCC(1):for CJCCJC=1 to len(CCJJJJ):CCJJJC=mid(CCJJJJ,CJCCJC,1):if isnumeric(CCJJJC) then CCJJCJ=CCJJCJ & CCJJJC
if len(CCJJCJ)=7 then exit for
next:CCJJJJ=CJCCCC(2):if CCJJCJ<>mid(CCJJJJ,6,7) then
Call ClearMemberCookie
else
CCJJJC=mid(CCJJJJ,18,10)/2:if CCJJJC<DateDiff(CJJJJJJJ("D"), CJJJJJJJ("`hf_\`\` ,gi__i__"), Now)-28800 then
Call ClearMemberCookie
else
CCJCJ=Clng(CJCCCC(0)):CCJCC=CJCCCC(1)
end if
end if
end if:End Sub:Sub SetMemberCookie(CJJJJJCJ,CJCJJJC):dim CJCCJC,CCJJJC,CCJJCJ:for CJCCJC=1 to len(CJCJJJC):CCJJJC=mid(CJCJJJC,CJCCJC,1):if isnumeric(CCJJJC) then CCJJCJ=CCJJCJ & CCJJJC
if len(CCJJCJ)=7 then exit for
next:CCJJCJ=CJJJJJCJ & CJJJJJJJ("]") & CJCJJJC & CJJJJJJJ("]") & Fix(10000*(Rnd+1)) & CCJJCJ & Fix(10000*(Rnd+1)) & DateDiff(CJJJJJJJ("D"), CJJJJJJJ("`hf_\`\` ,gi__i__"), Now)*2 & Fix(10000*(Rnd+1)):Response.Cookies(CJJJJJJJ("!$*|t|qt#"))=CCJJCJ:End Sub::Function CCJCJCC(CJJJJJCC):Dim str,CCJCJJ:str = Trim(CJJJJJCC):If IsNull(str) Or str = "" Then
CCJCJCC = ""
else
str=Replace(str, CJJJJJJJ("V"), "")
str=replace(str,chrw(160),""):str=replace(str,chr(9),""):On Error Resume Next:str=Replace(str,CJJJJJJJ("k:7C2>6"), CJJJJJJJ("U=Ej:7C2>6"),1,-1,1):str=Replace(str,CJJJJJJJ("kD4C:AE"), CJJJJJJJ("U=EjD4C:AE"),1,-1,1):On Error Goto 0:set CCJCJJ=new RegExp:CCJCJJ.Pattern=CJJJJJJJ("@?W,2\K.ZXl"):CCJCJJ.IgnoreCase = True:CCJCJJ.Global=True:str=CCJCJJ.Replace(str,CJJJJJJJ("@?S`U6BF2=Dj")):set CCJCJJ=nothing:CCJCJCC=str
End If:End Function::Const CJCJCJJ="^1(3[0-9]|4[579]|5[012356789]|6[267]|7[01235678]|8[0-9]|9[1589])\d{8}$"::Function CCJCCJJ():dim CCJCJC:CCJCJC = Cstr(Request.ServerVariables("HTTP_X_FORWARDED_FOR")):If CCJCJC = "" Then CCJCJC = Cstr(Request.ServerVariables(CJJJJJJJ("#t|~%t0pss#")))
if instr(CCJCJC,CJJJJJJJ("i"))>0 then
CCJCJC=left(CCJCJC,instr(CCJCJC,CJJJJJJJ("i"))-1)
elseif instr(CCJCJC,CJJJJJJJ("["))>0 then
CCJCJC=left(CCJCJC,instr(CCJCJC,CJJJJJJJ("["))-1)
end if:CCJCCJJ=left(CCJCJC,15):End Function::Public Function CCJCCJC():Dim CCJCCJ, CCJCCC:CCJCCC = Request.ServerVariables(CJJJJJJJ("!p%w0x}u~")):CCJCCJ = Request.ServerVariables(CJJJJJJJ("""&t#*0$%#x}v")):If CCJCCJ <> Empty Then
if instr(lcase(CCJCCJ),CJJJJJJJ("Tb4:7C2>6"))>0 or instr(lcase(CCJCCJ),CJJJJJJJ("Tb4D4C:AE"))>0 then Call RedirectMessage(CJJJJJJJ("????????,????????????????????????,??,??,"))
CCJCCC = CCJCCC & CJJJJJJJ("n") & CCJCCJ
end if:CCJCCJC = CCJCCC:End Function:Sub SetHttpOnlyCookie(CJJJJCJJ,CJJJJCJC):dim CJCCCC:CJCCCC=CJJJJCJJ & CJJJJJJJ("l") & CJJJJCJC & CJJJJJJJ("j ,A2E9l^j ,wEEA~?=J"):Call Response.AddHeader(CJJJJJJJ("$6E\r@@<:6"),CJCCCC):End Sub::::::sub ShowMessage(CCJCCCJ):response.Charset=CJJJJJJJ("FE7\g"):Response.Write CJJJJJJJ("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") & CCJCCCJ & CJJJJJJJ("k^5:Gmk^5:Gmk3Cm")
end sub::::sub Alert(ByVal CCJCCCJ):Call ConnClose:CCJCCCJ=replace(CCJCCCJ,vbcrlf,CJJJJJJJ("-?")):CCJCCCJ=replace(CCJCCCJ,CJJJJJJJ("V"),CJJJJJJJ("-V"))
response.Charset=CJJJJJJJ("FE7\g"):response.write CJJJJJJJ("kD4C:AEm2=6CEWV") & CCJCCCJ & CJJJJJJJ("VXj9:DE@CJ]324<WXk^D4C:AEm")
response.end:end sub::Sub ConnClose():On Error Resume Next:set CCJCCCC=nothing:set CCCJJJJ=nothing:set CCCJJJC=nothing:set CCCJJCJ=nothing:CCCJJCC.close : set CCCJJCC=nothing:CCJJJ.Close : Set CCJJJ=Nothing:CJCCC.Close : Set CJCCC=Nothing:CCCJCJJ.Close : Set CCCJCJJ = Nothing:CJCJC.Close : Set CJCJC = Nothing:err.Clear:On Error Goto 0:End Sub:Sub RedirectMessage(CCJCCCJ):Response.Clear:Err.Clear:Call ConnClose:Call SetHttpOnlyCookie(CJJJJJJJ("!$*0|6DD286"),server.URLEncode(CCJCCCJ)):Response.Redirect CJJJJJJJ("^:?4^D9@H>6DD286]2DAI"):Response.End:End Sub:::::::::::::::::::::Sub InsertLog(CJJJJCCJ,CJJCCCC):dim CCCJJJ:CCCJJJ=CJJJJJJJ("x?D6CE ,:?E@ ,=@8W>6>36C[:A[4@?E6?E[EJA6[FC=X ,G2=F6DW") & CCJCJ  & CJJJJJJJ("[V") & CCJCCJJ & CJJJJJJJ("V") & CJJJJJJJ("[V") & CCJCJCC(CJJCCCC) & CJJJJJJJ("V") & CJJJJJJJ("[") & CJJJJCCJ  & CJJJJJJJ("[V") & CCJCCJC & CJJJJJJJ("V") & CJJJJJJJ("X")
CJCJC.execute CCCJJJ:End Sub::::::::::::::::::Private Const CJCJCJC =8:Private Const CJCJCCJ =4:Private Const CJCJCCC =32:Private CCCJJC(30):Private CCCJCJ(30):Private Function CCCJCJC(CJJJJCCC, CJJJCJJJ):If CJJJCJJJ = 0 Then
CCCJCJC = CJJJJCCC:Exit Function
ElseIf CJJJCJJJ = 31 Then
If CJJJJCCC And 1 Then
CCCJCJC = &H80000000
Else
CCCJCJC = 0
End If:Exit Function
ElseIf CJJJCJJJ < 0 Or CJJJCJJJ > 31 Then
Err.Raise 6
End If:If (CJJJJCCC And CCCJCJ(31 - CJJJCJJJ)) Then
CCCJCJC = ((CJJJJCCC And CCCJJC(31 - (CJJJCJJJ + 1))) * CCCJCJ(CJJJCJJJ)) Or &H80000000
Else
CCCJCJC = ((CJJJJCCC And CCCJJC(31 - CJJJCJJJ)) * CCCJCJ(CJJJCJJJ))
End If:End Function:Private Function CCCJCCJ(CJJJJCCC, CJJJCJJJ):If CJJJCJJJ = 0 Then
CCCJCCJ = CJJJJCCC:Exit Function
ElseIf CJJJCJJJ = 31 Then
If CJJJJCCC And &H80000000 Then
CCCJCCJ = 1
Else
CCCJCCJ = 0
End If:Exit Function
ElseIf CJJJCJJJ < 0 Or CJJJCJJJ > 31 Then
Err.Raise 6
End If:CCCJCCJ = (CJJJJCCC And &H7FFFFFFE) \ CCCJCJ(CJJJCJJJ):If (CJJJJCCC And &H80000000) Then
CCCJCCJ = (CCCJCCJ Or (&H40000000 \ CCCJCJ(CJJJCJJJ - 1)))
End If:End Function:Private Function CCCJCCC(CJJJJCCC, CJJJCJJJ):CCCJCCC = CCCJCJC(CJJJJCCC, CJJJCJJJ) Or CCCJCCJ(CJJJJCCC, (32 - CJJJCJJJ)):End Function:Private Function CCCCJJJ(CJJJCJJC, CJJJCJCJ):Dim CCCJCC:Dim CCCCJJ:Dim CCCCJC:Dim CCCCCJ:Dim CCCCCC:CCCCJC = CJJJCJJC And &H80000000:CCCCCJ = CJJJCJCJ And &H80000000:CCCJCC = CJJJCJJC And &H40000000:CCCCJJ = CJJJCJCJ And &H40000000:CCCCCC = (CJJJCJJC And &H3FFFFFFF) + (CJJJCJCJ And &H3FFFFFFF):If CCCJCC And CCCCJJ Then
CCCCCC = CCCCCC Xor &H80000000 Xor CCCCJC Xor CCCCCJ
ElseIf CCCJCC Or CCCCJJ Then
If CCCCCC And &H40000000 Then
CCCCCC = CCCCCC Xor &HC0000000 Xor CCCCJC Xor CCCCCJ
Else
CCCCCC = CCCCCC Xor &H40000000 Xor CCCCJC Xor CCCCCJ
End If
Else
CCCCCC = CCCCCC Xor CCCCJC Xor CCCCCJ
End If:CCCCJJJ = CCCCCC:End Function:Private Function CCCCJJC(CJJCJJJ, CJJJCJCC, CJJJCCJJ):CCCCJJC = (CJJCJJJ And CJJJCJCC) Or ((Not CJJCJJJ) And CJJJCCJJ):End Function:Private Function CCCCJCJ(CJJCJJJ, CJJJCJCC, CJJJCCJJ):CCCCJCJ = (CJJCJJJ And CJJJCCJJ) Or (CJJJCJCC And (Not CJJJCCJJ)):End Function:Private Function CCCCJCC(CJJCJJJ, CJJJCJCC, CJJJCCJJ):CCCCJCC = (CJJCJJJ Xor CJJJCJCC Xor CJJJCCJJ):End Function:Private Function CCCCCJJ(CJJCJJJ, CJJJCJCC, CJJJCCJJ):CCCCCJJ = (CJJJCJCC Xor (CJJCJJJ Or (Not CJJJCCJJ))):End Function:Private Sub md5_FF(CJJCCJC, CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCJJJ, CJJJCCJC, CJJJCCCJ):CJJCCJC = CCCCJJJ(CJJCCJC, CCCCJJJ(CCCCJJJ(CCCCJJC(CJJCCCJ, CJJCCCC, CJCJJJJ), CJJCJJJ), CJJJCCCJ)):CJJCCJC = CCCJCCC(CJJCCJC, CJJJCCJC):CJJCCJC = CCCCJJJ(CJJCCJC, CJJCCCJ):End Sub:Private Sub md5_GG(CJJCCJC, CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCJJJ, CJJJCCJC, CJJJCCCJ):CJJCCJC = CCCCJJJ(CJJCCJC, CCCCJJJ(CCCCJJJ(CCCCJCJ(CJJCCCJ, CJJCCCC, CJCJJJJ), CJJCJJJ), CJJJCCCJ)):CJJCCJC = CCCJCCC(CJJCCJC, CJJJCCJC):CJJCCJC = CCCCJJJ(CJJCCJC, CJJCCCJ):End Sub:Private Sub md5_HH(CJJCCJC, CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCJJJ, CJJJCCJC, CJJJCCCJ):CJJCCJC = CCCCJJJ(CJJCCJC, CCCCJJJ(CCCCJJJ(CCCCJCC(CJJCCCJ, CJJCCCC, CJCJJJJ), CJJCJJJ), CJJJCCCJ)):CJJCCJC = CCCJCCC(CJJCCJC, CJJJCCJC):CJJCCJC = CCCCJJJ(CJJCCJC, CJJCCCJ):End Sub:Private Sub md5_II(CJJCCJC, CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCJJJ, CJJJCCJC, CJJJCCCJ):CJJCCJC = CCCCJJJ(CJJCCJC, CCCCJJJ(CCCCJJJ(CCCCCJJ(CJJCCCJ, CJJCCCC, CJCJJJJ), CJJCJJJ), CJJJCCCJ)):CJJCCJC = CCCJCCC(CJJCCJC, CJJJCCJC):CJJCCJC = CCCCJJJ(CJJCCJC, CJJCCCJ):End Sub:Private Function CCCCCJC(CJJJCCCC):Dim CJJJJJJ:Dim CJJJJJC:Dim CJJJJCJ():Dim CJJJJCC:Dim CJJJCJJ:Dim CJJJCJC:Const CJCCJJJ =512:Const CJCCJJC =448:CJJJJJJ = Len(CJJJCCCC):CJJJJJC = (((CJJJJJJ + ((CJCCJJJ - CJCCJJC) \ CJCJCJC)) \ (CJCCJJJ \ CJCJCJC)) + 1) * (CJCCJJJ \ CJCJCCC):ReDim CJJJJCJ(CJJJJJC - 1):CJJJJCC = 0:CJJJCJJ = 0:Do Until CJJJCJJ >= CJJJJJJ:CJJJCJC = CJJJCJJ \ CJCJCCJ:CJJJJCC = (CJJJCJJ Mod CJCJCCJ) * CJCJCJC:CJJJJCJ(CJJJCJC) = CJJJJCJ(CJJJCJC) Or CCCJCJC(Asc(Mid(CJJJCCCC, CJJJCJJ + 1, 1)), CJJJJCC):CJJJCJJ = CJJJCJJ + 1:Loop:CJJJCJC = CJJJCJJ \ CJCJCCJ:CJJJJCC = (CJJJCJJ Mod CJCJCCJ) * CJCJCJC:CJJJJCJ(CJJJCJC) = CJJJJCJ(CJJJCJC) Or CCCJCJC(&H80, CJJJJCC):CJJJJCJ(CJJJJJC - 2) = CCCJCJC(CJJJJJJ, 3):CJJJJCJ(CJJJJJC - 1) = CCCJCCJ(CJJJJJJ, 29):CCCCCJC = CJJJJCJ:End Function:Private Function CCCCCCJ(CJJJJCCC):Dim CJJJCCJ:Dim CJJJCCC:For CJJJCCC = 0 To 3:CJJJCCJ = CCCJCCJ(CJJJJCCC, CJJJCCC * CJCJCJC) And CCCJJC(CJCJCJC - 1):CCCCCCJ = CCCCCCJ & Right("0" & Hex(CJJJCCJ), 2):Next:End Function:Public Function CCCCCCC(CJJJCCCC):CCCJJC(0) = CLng(1):CCCJJC(1) = CLng(3):CCCJJC(2) = CLng(7):CCCJJC(3) = CLng(15):CCCJJC(4) = CLng(31):CCCJJC(5) = CLng(63):CCCJJC(6) = CLng(127):CCCJJC(7) = CLng(255):CCCJJC(8) = CLng(511):CCCJJC(9) = CLng(1023):CCCJJC(10) = CLng(2047):CCCJJC(11) = CLng(4095):CCCJJC(12) = CLng(8191):CCCJJC(13) = CLng(16383):CCCJJC(14) = CLng(32767):CCCJJC(15) = CLng(65535):CCCJJC(16) = CLng(131071):CCCJJC(17) = CLng(262143):CCCJJC(18) = CLng(524287):CCCJJC(19) = CLng(1048575):CCCJJC(20) = CLng(2097151):CCCJJC(21) = CLng(4194303):CCCJJC(22) = CLng(8388607):CCCJJC(23) = CLng(16777215):CCCJJC(24) = CLng(33554431):CCCJJC(25) = CLng(67108863):CCCJJC(26) = CLng(134217727):CCCJJC(27) = CLng(268435455):CCCJJC(28) = CLng(536870911):CCCJJC(29) = CLng(1073741823):CCCJJC(30) = CLng(2147483647):CCCJCJ(0) = CLng(1):CCCJCJ(1) = CLng(2):CCCJCJ(2) = CLng(4):CCCJCJ(3) = CLng(8):CCCJCJ(4) = CLng(16):CCCJCJ(5) = CLng(32):CCCJCJ(6) = CLng(64):CCCJCJ(7) = CLng(128):CCCJCJ(8) = CLng(256):CCCJCJ(9) = CLng(512):CCCJCJ(10) = CLng(1024):CCCJCJ(11) = CLng(2048):CCCJCJ(12) = CLng(4096):CCCJCJ(13) = CLng(8192):CCCJCJ(14) = CLng(16384):CCCJCJ(15) = CLng(32768):CCCJCJ(16) = CLng(65536):CCCJCJ(17) = CLng(131072):CCCJCJ(18) = CLng(262144):CCCJCJ(19) = CLng(524288):CCCJCJ(20) = CLng(1048576):CCCJCJ(21) = CLng(2097152):CCCJCJ(22) = CLng(4194304):CCCJCJ(23) = CLng(8388608):CCCJCJ(24) = CLng(16777216):CCCJCJ(25) = CLng(33554432):CCCJCJ(26) = CLng(67108864):CCCJCJ(27) = CLng(134217728):CCCJCJ(28) = CLng(268435456):CCCJCJ(29) = CLng(536870912):CCCJCJ(30) = CLng(1073741824):Dim CJJCJJJ:Dim CCJJCJ:Dim CJJCJJC:Dim CJJCJCJ:Dim CJJCJCC:Dim CJJCCJJ:Dim CJJCCJC:Dim CJJCCCJ:Dim CJJCCCC:Dim CJCJJJJ:Const CJCCJCJ =7:Const CJCCJCC =12:Const CJCCCJJ =17:Const CJCCCJC =22:Const CJCCCCJ =5:Const CJCCCCC =9:Const CCJJJJJ =14:Const CCJJJJC =20:Const CCJJJCJ =4:Const CCJJJCC =11:Const CCJJCJJ =16:Const CCJJCJC =23:Const CCJJCCJ =6:Const CCJJCCC =10:Const CCJCJJJ =15:Const CCJCJJC =21:CJJCJJJ = CCCCCJC(CJJJCCCC):CJJCCJC = &H67452301:CJJCCCJ = &HEFCDAB89:CJJCCCC = &H98BADCFE:CJCJJJJ = &H10325476:For CCJJCJ = 0 To UBound(CJJCJJJ) Step 16:CJJCJJC = CJJCCJC:CJJCJCJ = CJJCCCJ:CJJCJCC = CJJCCCC:CJJCCJJ = CJCJJJJ:md5_FF CJJCCJC, CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCJJJ(CCJJCJ + 0), CJCCJCJ, &HD76AA478:md5_FF CJCJJJJ, CJJCCJC, CJJCCCJ, CJJCCCC, CJJCJJJ(CCJJCJ + 1), CJCCJCC, &HE8C7B756:md5_FF CJJCCCC, CJCJJJJ, CJJCCJC, CJJCCCJ, CJJCJJJ(CCJJCJ + 2), CJCCCJJ, &H242070DB:md5_FF CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCCJC, CJJCJJJ(CCJJCJ + 3), CJCCCJC, &HC1BDCEEE:md5_FF CJJCCJC, CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCJJJ(CCJJCJ + 4), CJCCJCJ, &HF57C0FAF:md5_FF CJCJJJJ, CJJCCJC, CJJCCCJ, CJJCCCC, CJJCJJJ(CCJJCJ + 5), CJCCJCC, &H4787C62A:md5_FF CJJCCCC, CJCJJJJ, CJJCCJC, CJJCCCJ, CJJCJJJ(CCJJCJ + 6), CJCCCJJ, &HA8304613:md5_FF CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCCJC, CJJCJJJ(CCJJCJ + 7), CJCCCJC, &HFD469501:md5_FF CJJCCJC, CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCJJJ(CCJJCJ + 8), CJCCJCJ, &H698098D8:md5_FF CJCJJJJ, CJJCCJC, CJJCCCJ, CJJCCCC, CJJCJJJ(CCJJCJ + 9), CJCCJCC, &H8B44F7AF:md5_FF CJJCCCC, CJCJJJJ, CJJCCJC, CJJCCCJ, CJJCJJJ(CCJJCJ + 10), CJCCCJJ, &HFFFF5BB1:md5_FF CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCCJC, CJJCJJJ(CCJJCJ + 11), CJCCCJC, &H895CD7BE:md5_FF CJJCCJC, CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCJJJ(CCJJCJ + 12), CJCCJCJ, &H6B901122:md5_FF CJCJJJJ, CJJCCJC, CJJCCCJ, CJJCCCC, CJJCJJJ(CCJJCJ + 13), CJCCJCC, &HFD987193:md5_FF CJJCCCC, CJCJJJJ, CJJCCJC, CJJCCCJ, CJJCJJJ(CCJJCJ + 14), CJCCCJJ, &HA679438E:md5_FF CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCCJC, CJJCJJJ(CCJJCJ + 15), CJCCCJC, &H49B40821:md5_GG CJJCCJC, CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCJJJ(CCJJCJ + 1), CJCCCCJ, &HF61E2562:md5_GG CJCJJJJ, CJJCCJC, CJJCCCJ, CJJCCCC, CJJCJJJ(CCJJCJ + 6), CJCCCCC, &HC040B340:md5_GG CJJCCCC, CJCJJJJ, CJJCCJC, CJJCCCJ, CJJCJJJ(CCJJCJ + 11), CCJJJJJ, &H265E5A51:md5_GG CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCCJC, CJJCJJJ(CCJJCJ + 0), CCJJJJC, &HE9B6C7AA:md5_GG CJJCCJC, CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCJJJ(CCJJCJ + 5), CJCCCCJ, &HD62F105D:md5_GG CJCJJJJ, CJJCCJC, CJJCCCJ, CJJCCCC, CJJCJJJ(CCJJCJ + 10), CJCCCCC, &H2441453:md5_GG CJJCCCC, CJCJJJJ, CJJCCJC, CJJCCCJ, CJJCJJJ(CCJJCJ + 15), CCJJJJJ, &HD8A1E681:md5_GG CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCCJC, CJJCJJJ(CCJJCJ + 4), CCJJJJC, &HE7D3FBC8:md5_GG CJJCCJC, CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCJJJ(CCJJCJ + 9), CJCCCCJ, &H21E1CDE6:md5_GG CJCJJJJ, CJJCCJC, CJJCCCJ, CJJCCCC, CJJCJJJ(CCJJCJ + 14), CJCCCCC, &HC33707D6:md5_GG CJJCCCC, CJCJJJJ, CJJCCJC, CJJCCCJ, CJJCJJJ(CCJJCJ + 3), CCJJJJJ, &HF4D50D87:md5_GG CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCCJC, CJJCJJJ(CCJJCJ + 8), CCJJJJC, &H455A14ED:md5_GG CJJCCJC, CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCJJJ(CCJJCJ + 13), CJCCCCJ, &HA9E3E905:md5_GG CJCJJJJ, CJJCCJC, CJJCCCJ, CJJCCCC, CJJCJJJ(CCJJCJ + 2), CJCCCCC, &HFCEFA3F8:md5_GG CJJCCCC, CJCJJJJ, CJJCCJC, CJJCCCJ, CJJCJJJ(CCJJCJ + 7), CCJJJJJ, &H676F02D9:md5_GG CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCCJC, CJJCJJJ(CCJJCJ + 12), CCJJJJC, &H8D2A4C8A:md5_HH CJJCCJC, CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCJJJ(CCJJCJ + 5), CCJJJCJ, &HFFFA3942:md5_HH CJCJJJJ, CJJCCJC, CJJCCCJ, CJJCCCC, CJJCJJJ(CCJJCJ + 8), CCJJJCC, &H8771F681:md5_HH CJJCCCC, CJCJJJJ, CJJCCJC, CJJCCCJ, CJJCJJJ(CCJJCJ + 11), CCJJCJJ, &H6D9D6122:md5_HH CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCCJC, CJJCJJJ(CCJJCJ + 14), CCJJCJC, &HFDE5380C:md5_HH CJJCCJC, CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCJJJ(CCJJCJ + 1), CCJJJCJ, &HA4BEEA44:md5_HH CJCJJJJ, CJJCCJC, CJJCCCJ, CJJCCCC, CJJCJJJ(CCJJCJ + 4), CCJJJCC, &H4BDECFA9:md5_HH CJJCCCC, CJCJJJJ, CJJCCJC, CJJCCCJ, CJJCJJJ(CCJJCJ + 7), CCJJCJJ, &HF6BB4B60:md5_HH CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCCJC, CJJCJJJ(CCJJCJ + 10), CCJJCJC, &HBEBFBC70:md5_HH CJJCCJC, CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCJJJ(CCJJCJ + 13), CCJJJCJ, &H289B7EC6:md5_HH CJCJJJJ, CJJCCJC, CJJCCCJ, CJJCCCC, CJJCJJJ(CCJJCJ + 0), CCJJJCC, &HEAA127FA:md5_HH CJJCCCC, CJCJJJJ, CJJCCJC, CJJCCCJ, CJJCJJJ(CCJJCJ + 3), CCJJCJJ, &HD4EF3085:md5_HH CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCCJC, CJJCJJJ(CCJJCJ + 6), CCJJCJC, &H4881D05:md5_HH CJJCCJC, CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCJJJ(CCJJCJ + 9), CCJJJCJ, &HD9D4D039:md5_HH CJCJJJJ, CJJCCJC, CJJCCCJ, CJJCCCC, CJJCJJJ(CCJJCJ + 12), CCJJJCC, &HE6DB99E5:md5_HH CJJCCCC, CJCJJJJ, CJJCCJC, CJJCCCJ, CJJCJJJ(CCJJCJ + 15), CCJJCJJ, &H1FA27CF8:md5_HH CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCCJC, CJJCJJJ(CCJJCJ + 2), CCJJCJC, &HC4AC5665:md5_II CJJCCJC, CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCJJJ(CCJJCJ + 0), CCJJCCJ, &HF4292244:md5_II CJCJJJJ, CJJCCJC, CJJCCCJ, CJJCCCC, CJJCJJJ(CCJJCJ + 7), CCJJCCC, &H432AFF97:md5_II CJJCCCC, CJCJJJJ, CJJCCJC, CJJCCCJ, CJJCJJJ(CCJJCJ + 14), CCJCJJJ, &HAB9423A7:md5_II CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCCJC, CJJCJJJ(CCJJCJ + 5), CCJCJJC, &HFC93A039:md5_II CJJCCJC, CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCJJJ(CCJJCJ + 12), CCJJCCJ, &H655B59C3:md5_II CJCJJJJ, CJJCCJC, CJJCCCJ, CJJCCCC, CJJCJJJ(CCJJCJ + 3), CCJJCCC, &H8F0CCC92:md5_II CJJCCCC, CJCJJJJ, CJJCCJC, CJJCCCJ, CJJCJJJ(CCJJCJ + 10), CCJCJJJ, &HFFEFF47D:md5_II CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCCJC, CJJCJJJ(CCJJCJ + 1), CCJCJJC, &H85845DD1:md5_II CJJCCJC, CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCJJJ(CCJJCJ + 8), CCJJCCJ, &H6FA87E4F:md5_II CJCJJJJ, CJJCCJC, CJJCCCJ, CJJCCCC, CJJCJJJ(CCJJCJ + 15), CCJJCCC, &HFE2CE6E0:md5_II CJJCCCC, CJCJJJJ, CJJCCJC, CJJCCCJ, CJJCJJJ(CCJJCJ + 6), CCJCJJJ, &HA3014314:md5_II CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCCJC, CJJCJJJ(CCJJCJ + 13), CCJCJJC, &H4E0811A1:md5_II CJJCCJC, CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCJJJ(CCJJCJ + 4), CCJJCCJ, &HF7537E82:md5_II CJCJJJJ, CJJCCJC, CJJCCCJ, CJJCCCC, CJJCJJJ(CCJJCJ + 11), CCJJCCC, &HBD3AF235:md5_II CJJCCCC, CJCJJJJ, CJJCCJC, CJJCCCJ, CJJCJJJ(CCJJCJ + 2), CCJCJJJ, &H2AD7D2BB:md5_II CJJCCCJ, CJJCCCC, CJCJJJJ, CJJCCJC, CJJCJJJ(CCJJCJ + 9), CCJCJJC, &HEB86D391:CJJCCJC = CCCCJJJ(CJJCCJC, CJJCJJC):CJJCCCJ = CCCCJJJ(CJJCCCJ, CJJCJCJ):CJJCCCC = CCCCJJJ(CJJCCCC, CJJCJCC):CJCJJJJ = CCCCJJJ(CJCJJJJ, CJJCCJJ):Next:CCCCCCC = LCase(CCCCCCJ(CJJCCJC) & CCCCCCJ(CJJCCCJ) & CCCCCCJ(CJJCCCC) & CCCCCCJ(CJCJJJJ)):End Function::Call CheckRight(5):If Request.ServerVariables(CJJJJJJJ("#t""&t$%0|t%w~s"))=CJJJJJJJ("!~$%") then
dim CJCJJJC:CJCJJJC=CCCCCCC(Request.Form(CJJJJJJJ("E6IE7:6=5a"))):if CCCCCCC(Request.Form(CJJJJJJJ("E6IE7:6=5")))<>CCJCC then Call Alert(CJJJJJJJ("????????????????????????,????????????,"))
CCJJC=CJJJJJJJ("FA52E6 ,>6>36C ,D6E") & CJJJJJJJ(" ,A2DDH@C5lV") & CJCJJJC & CJJJJJJJ("V") & CJJJJJJJ("[7:CDEADHl?F==") & CJJJJJJJ(" ,H96C6 ,:5l") & CCJCJ
CJCJC.execute CCJJC:Call InsertLog(2,CCJCJ & CJJJJJJJ("????????????????????")):Call SetHttpOnlyCookie(CJJJJJJJ("!$*0>6>!2DDH@C5"),CJCJJJC):Call ShowMessage(CJJJJJJJ("??????????????????????,????????????????,"))
end if:Response.Write(vbCrLf):Response.Write(CJJJJJJJ("k9E>=m") & vbCrLf):Response.Write(CJJJJJJJ("k9625m") & vbCrLf):Response.Write(CJJJJJJJ("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6ElFE7\gQm") & vbCrLf):Response.Write(CJJJJJJJ("kE:E=6m??????????k^E:E=6m") & vbCrLf):Response.Write(CJJJJJJJ("k=:?< ,9C67lQDEJ=6]4DDQ ,C6=lQDEJ=6D966EQm") & vbCrLf):Response.Write(CJJJJJJJ("kD4C:AEm") & vbCrLf):Response.Write(CJJJJJJJ("7F?4E:@? ,7@C>`0G2=:52E@CWXL") & vbCrLf):Response.Write(CJJJJJJJ(" ,H:E9W5@4F>6?E]7@C>`XL") & vbCrLf):Response.Write(CJJJJJJJ(" ,:7WE6IE7:6=5]G2=F6llQQMME6IE7:6=5a]G2=F6llQQMME6IE7:6=5b]G2=F6llQQXL") & vbCrLf):Response.Write(CJJJJJJJ(" ,2=6CEWQ??????,????????????@????????@????,QXj") & vbCrLf):Response.Write(CJJJJJJJ(" ,E6IE7:6=5]7@4FDWXj") & vbCrLf):Response.Write(CJJJJJJJ(" ,C6EFC? ,72=D6j") & vbCrLf):Response.Write(CJJJJJJJ(" ,N") & vbCrLf):Response.Write(CJJJJJJJ(" ,:7WE6IE7:6=5a]G2=F6PlE6IE7:6=5b]G2=F6XL") & vbCrLf):Response.Write(CJJJJJJJ(" ,2=6CEWQ????????????????????,????,????????????,QXj") & vbCrLf):Response.Write(CJJJJJJJ(" ,E6IE7:6=5b]7@4FDWXj") & vbCrLf):Response.Write(CJJJJJJJ(" ,C6EFC? ,72=D6j") & vbCrLf):Response.Write(CJJJJJJJ(" ,N") & vbCrLf):Response.Write(CJJJJJJJ(" ,N") & vbCrLf):Response.Write(CJJJJJJJ("N") & vbCrLf):Response.Write(CJJJJJJJ("k^D4C:AEm") & vbCrLf):Response.Write(CJJJJJJJ("k^9625m") & vbCrLf):Response.Write(CJJJJJJJ("k3@5Jm") & vbCrLf):Response.Write(CJJJJJJJ("k7@C> ,?2>6lQ7@C>`Q ,>6E9@5lQA@DEQ ,24E:@?lQQ ,@?$F3>:ElQ;2G2D4C:AEiC6EFC? ,7@C>`0G2=:52E@CWXjQm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k7:6=5D6Em") & vbCrLf):Response.Write(CJJJJJJJ(" ,k=686?5m????????????k^=686?5m") & vbCrLf):Response.Write(CJJJJJJJ(" ,kE23=6 ,2=:8?lQ46?E6CQm") & vbCrLf):Response.Write(CJJJJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJJJJJJ(" ,kE5 ,2=:8?lQC:89EQm????????,k^E5m") & vbCrLf):Response.Write(CJJJJJJJ(" ,kE5mk:?AFE ,?2>6lQE6IE7:6=5Q ,EJA6lQA2DDH@C5Q ,4=2DDlQE6IEQ ,D:K6lQb_Q ,2FE@4@>A=6E6lQ@77Q ,^mk^E5m") & vbCrLf):Response.Write(CJJJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJJJJJJ(" ,kE5 ,2=:8?lQC:89EQm????????,k^E5m") & vbCrLf):Response.Write(CJJJJJJJ(" ,kE5mk:?AFE ,?2>6lQE6IE7:6=5aQ ,EJA6lQA2DDH@C5Q ,4=2DDlQE6IEQ ,D:K6lQb_Q ,2FE@4@>A=6E6lQ@77Q ,^mk^E5m") & vbCrLf):Response.Write(CJJJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJJJJJJ(" ,kE5 ,2=:8?lQC:89EQm????????????,k^E5m") & vbCrLf):Response.Write(CJJJJJJJ(" ,kE5mk:?AFE ,?2>6lQE6IE7:6=5bQ ,EJA6lQA2DDH@C5Q ,4=2DDlQE6IEQ ,D:K6lQb_Q ,2FE@4@>A=6E6lQ@77Q ,^mk^E5m") & vbCrLf):Response.Write(CJJJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJJJJJJ(" ,kE5 ,4@=DA2?lQaQmU?3DAjk^E5m") & vbCrLf):Response.Write(CJJJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJJJ(" ,kECm") & vbCrLf):Response.Write(CJJJJJJJ(" ,kE5mU?3DAjk^E5m") & vbCrLf):Response.Write(CJJJJJJJ(" ,kE5mk:?AFE ,?2>6lQ$F3>:EQ ,EJA6lQDF3>:EQ ,4=2DDlQ3FEE@?Q ,G2=F6lQ?? ,??Q ,^m") & vbCrLf):Response.Write(CJJJJJJJ(" ,k:?AFE ,?2>6lQ$F3>:EaQ ,EJA6lQC6D6EQ ,4=2DDlQ3FEE@?Q ,G2=F6lQ?? ,??Q ,^mk^E5m") & vbCrLf):Response.Write(CJJJJJJJ(" ,k^ECm") & vbCrLf):Response.Write(CJJJJJJJ(" ,k^E23=6m") & vbCrLf):Response.Write(CJJJJJJJ(" ,k^7:6=5D6Em") & vbCrLf):Response.Write(CJJJJJJJ("k^7@C>m") & vbCrLf):Response.Write(CJJJJJJJ("k^3@5Jm") & vbCrLf):Response.Write(CJJJJJJJ("k^9E>=m") & vbCrLf)::On Error Resume Next:set CCJCCCC=nothing:set CCCJJJJ=nothing:set CCCJJJC=nothing:set CCCJJCJ=nothing:CCJJJ.Close:Set CCJJJ=Nothing:CJCCC.Close:Set CJCCC=Nothing:CJCJC.Close:Set CJCJC = Nothing:err.Clear:On Error Goto 0:Response.Write(vbCrLf)
Function CJJJJJJJ(ByVal CJJCCCC)
Dim CJCJJCJ, CJCCJC, CJCJJCC
CJJCCCC = Replace(CJJCCCC, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For CJCCJC = 1 To Len(CJJCCCC)
If CJCCJC <> CJCJJCC Then
CJCJJCJ = AscW(Mid(CJJCCCC, CJCCJC, 1))
If CJCJJCJ >= 33 And CJCJJCJ <= 79 Then
CJJJJJJJ = CJJJJJJJ & Chr(CJCJJCJ + 47)
ElseIf CJCJJCJ >= 80 And CJCJJCJ <= 126 Then
CJJJJJJJ = CJJJJJJJ & Chr(CJCJJCJ - 47)
Else
CJCJJCC = CJCCJC + 1
If Mid(CJJCCCC, CJCJJCC, 1) = Chr(64) Then CJJJJJJJ = CJJJJJJJ & ChrW(CJCJJCJ + 5) Else CJJJJJJJ = CJJJJJJJ & Mid(CJJCCCC, CJCCJC, 1)
End If
End If
Next
End Function
%>

Ms-Dos/Windows Unix Write backup

jsp File Browser version 1.2 by www.vonloesch.de