<%
'此版本为免费下载的（试用版本）源码加密处理过
'购买正式版系统提供源码（支持二次开发，修改）
'系统服务商：金华市宁志网络科技有限公司
'公司网址：http://www.ningzhi.net 
'客服QQ号：122470827 电话：18867186998 （同微信号）刘经理
'全国统一售后电话：0579-83938663 
'支持正版：软件著作权登记号：2012SR040914
'官方平台：购买系统请上金华市宁志网络公司官网平台是唯一购买渠道
'本公司无第三方代销售平台请认准,以免上当受骗！！！
'请勿修改下列任何代码,以保证程序正常运行·感谢您体验宁志产品，宁志有您更精彩！
'TM:2023-08-09 15:28:05

Dim NZNNZZ,NZNNZN,NZNNNZ,NZNNNN,NNZZZZ
Set NZNNNZ=Response:Set NZNNZN=Request:Set NNZZZZ=Session:Set NZNNZZ=Application:Set NZNNNN=Server
NZNNNZ.Write(vbCrLf)
NZNNNZ.Write(NNNNNZ("kP\\孋@栊@盩@课@産@ ,\\m") & vbCrLf)
NZNNNN.ScriptTimeOut= (84 * 59 - 4456)
NNNNZNZ= (77 * 63 - 4851)
NNNNZNN=NNNNNZ("?K4>D0?KH63^?K4>D0FA^52E2^52E2]2D2I")
NNNNNZZ= (105 * 59 - 6184)
NNNNNZN= (32 * 65 - 2079)
NNNNNNZ=NNNNNZ("EIE")
NNNNNNN=NNNNNZ("4@??]2DA")
NZZZZZZZ=NNNNNZ("]]^?K_g_g")
NZZZZZZN=NNNNNZ("?K4>D0H63^2DA^?K4>D02]2DA")
NZZZZZZN=NNNNNZ("?K4>D0H63^2DA^?K4>D03B]2DA")
NZZZZZNZ=NNNNNZ("?K02K^?K4>D02]2DA")
NZZZZZNN=NNNNNZ("?K4>D0?KH63^2DA^")
NZZZZNZZ=NNNNNZ("^")
NZZZZNZN=NNNNNZ("^")
NZZZZNNZ=NNNNNZ("^")
NZZZZNNN=NNNNNZ("^")
NZZZNZZZ=NNNNNZ("?K4>D0@<]2DA")
NZZZNZZN=NNNNNZ("5:2@J@?8^?K4>D]?@DB]9E>")
NZZZNZNZ=NNNNNZ("5:2@J@?8^?K4>D]?@52E2]9E>")
NZZZNZNN=NNNNNZ("叆@惀@揋@礵@：,k3Cm`、,诲@封@月@劜@噣@xx$挂@同@(tq栴@盩@彐@丆@靝@，,冈@釈@斫@扎@廻@诐@诐@！,k3Cma、,诲@淶@力@黓@讟@馑@顰@ ,:?56I]2DA ,丵@曻@笧@一,馑@顰@斂@仱@合@k3Cb、,讹@罩@宇@戋@吉@，,刲@斫@顰@靝@釈@诐@")
NZZZNNZZ=NNNNNZ("?K4>D0?KH63^?K4>D0FA^52E2^?K4>D0DB=]2D2I")
NZZZNNZN= (32 * 65 - 2079)
NZZZNNNZ= (32 * 65 - 2079)
NZZZNNNN= (32 * 65 - 2079)
NZZNZZZZ= (32 * 65 - 2079)
NZZNZZZN= (32 * 65 - 2079)
NZZNZZNZ= (32 * 65 - 2079)
NZZNZZNN= (77 * 63 - 4851)
NZZNZNZZ= (32 * 65 - 2079)
NZZNZNZN= (32 * 65 - 2079)
NZZNZNNZ= (32 * 65 - 2079)
if NNNNZNZ=1 then
Set NZZNZNNN=NZNNNN.CreateObject(NNNNNZ("ps~sq]r@??64E:@?"))
NZZNZNNN.open NNNNNZ("AC@G:56ClDB=@=653j52E2 ,D@FC46l`af]_]_]`j&D6C ,xslD2jAH5lD2jx?:E:2= ,r2E2=@8lG@E6")
Else
set NZZNZNNN = NZNNNN.CreateObject(NNNNNZ("25@53]4@??64E:@?"))
NZZNNZZZ=NNNNNZ("!C@G:56Cl|:4C@D@7E]y6E]~{tsq]c]_jy6E ,~{tsqis2E2q2D6 ,!2DDH@C5l?Kd`hoG:Ajs2E2 ,$@FC46l") & NZNNNN.MapPath(NNNNNZ("]]^")&NNNNZNN&"")
NZZNZNNN.open NZZNNZZZ
NZZNNZZN=NZNNZN.QueryString(NNNNNZ("D62C49"))
End If
NZNNNZ.Write(vbCrLf)
NZNNNZ.Write(NNNNNZ("kP\\孋@栊@盩@课@産@ ,\\m") & vbCrLf)
On Error Resume Next
if NZNNZN.querystring<>"" then call NNZZNZ(NZNNZN.querystring,NNNNNZ("k]YlWUR-5ZnjnXZnmMk]Y52E2l52E2iE6IE-^9E>=]YmM-3W2=6CE-WM4@?7:C>-WM6IAC6DD:@?-WMAC@>AE-WM36?49>2C<-DYn-W-5ZnMD=66A-DYn-W,-5-].Zn-XM=@2507:=6-DYn-WXMk,2\K.Zn-3,/m.Yn-3@?W,2\K.Lc[NX-DYnlM/-Z-^GWgMhXM-3W2?5M@CX-3]ZnWlMmMkM-DZn,-H.Zn-DZn-3:?-3-DYn-WM-3=:<6-3-DZnXM-^-Y]Zn-Y-^Mk-DYD4C:AE-3M-3t)tr-3M&}x~}]Zn$t{tr%M&!sp%t]Zn$t%Mx}$t#%-DZx}%~]Zn'p{&t$MW$t{tr%Mst{t%tX]Znu#~|MWr#tp%tMp{%t#Ms#~!M%#&}rp%tX-DZW%pq{tMsp%pqp$tX"))
if NZNNZN.ServerVariables(NNNNNZ("w%%!0#tut#t#"))<>"" then call test(NZNNZN.ServerVariables(NNNNNZ("w%%!0#tut#t#")),NNNNNZ("VM-3W2?5M@CX-3]ZnWmMkMlM-3:?-3M-3=:<6-3XM^-Y]Zn-Y^Mk-DYD4C:AE-3M-3t)tr-3M&}x~}]Zn$t{tr%M&!sp%t]Zn$t%Mx}$t#%-DZx}%~]Zn'p{&t$MW$t{tr%Mst{t%tX]Znu#~|MWr#tp%tMp{%t#Ms#~!M%#&}rp%tX-DZW%pq{tMsp%pqp$tX"))
if NZNNZN.Cookies<>"" then call NNZZNZ(NZNNZN.Cookies,NNNNNZ("-3W2?5M@CX-3]L`[eNnWlMmMkM-3:?-3M-3=:<6-3XM^-Y]Zn-Y^Mk-DYD4C:AE-3M-3t)tr-3M&}x~}]Zn$t{tr%M&!sp%t]Zn$t%Mx}$t#%-DZx}%~]Zn'p{&t$MW$t{tr%Mst{t%tX]Znu#~|MWr#tp%tMp{%t#Ms#~!M%#&}rp%tX-DZW%pq{tMsp%pqp$tX"))
call NNZZNZ(NZNNZN.Form,NNNNNZ("k,/m.ZnDEJ=6l,-H.Zni6IAC6DD:@?-WM-3@?>@FD6W@G6CM>@G6Xl-3M-3W2=6CEM4@?7:C>MAC@>AEX-3M/-Z^GWgMhXMk,/m.Ynl,/m.YnUR,/m.YnmM-3W2?5M@CX-3]L`[eNnWlMmMkM-3:?-3M-3=:<6-3XM^-Y]Zn-Y^Mk-DYD4C:AE-3Mk-DY:>8-3M-3t)tr-3M&}x~}]Zn$t{tr%M&!sp%t]Zn$t%Mx}$t#%-DZx}%~]Zn'p{&t$MW$t{tr%Mst{t%tX]Znu#~|MWr#tp%tMp{%t#Ms#~!M%#&}rp%tX-DZW%pq{tMsp%pqp$tX"))
function test(NNZZZNNZ,NNZZZNNN)
dim NZZZZNN
set NZZZZNN=new regexp
NZZZZNN.ignorecase = true
NZZZZNN.global = true
NZZZZNN.pattern = NNZZZNNN
if NZZZZNN.test(NNZZZNNZ) then
NZZZNNN=NZNNZN.ServerVariables(NNNNNZ("w%%!0)0u~#(p#sts0u~#"))
If NZZZNNN = "" Then
NZZZNNN=NZNNZN.ServerVariables(NNNNNZ("#t|~%t0pss#"))
end if
NZNNNZ.Write(NNNNNZ("k5:G ,DEJ=6lVA@D:E:@?i7:I65jE@Ai_AIjH:5E9i`__Tj96:89Ei`__Tj324<8C@F?5\4@=@CiH9:E6j4@=@Ci8C66?j7@?E\H6:89Ei3@=5j3@C56C\3@EE@>idAI ,D@=:5 ,RhhhjVmk3Cm患@癿@揋@亟@帡@朄@丈@吃@泐@厽@敫@[谝@谝@吃@佗@Pk3Cmk3Cm亁@觞@曯@夕@诲@炴@凶@ik2 ,9C67lV9EEAi^^HHH]?:?8K9:]?6EVm}+r|$罌@竔@宄@兣@梻@浆@k^2mk^5:Gm"))
NZNNNZ.end
end if
set NZZZZNN = nothing
end function
If nz_by_kg=1 Then
NZNNNZ.Write(NNNNNZ("kD4C:AE ,=2?8F286l;2G2D4C:AEm2=6CEWV")&sql_shuoming&NNNNNZ("VXjE9:D]=@42E:@?]9C67lV")&sql_web&NNNNNZ("Vjk^D4C:AEm"))
end if
If sql_sq_kg=1 Then
NZNNNZ.Write(NNNNNZ("kD4C:AE ,=2?8F286l;2G2D4C:AEm2=6CEWV")&sql_shuoming&NNNNNZ("VXjE9:D]=@42E:@?]9C67lV")&sql_web&NNNNNZ("Vjk^D4C:AEm"))
end if
function NNZZNZ(NNZZZNNZ,NNZZZNNN)
dim NZZZNZZ, NZZZNZN,NZZZNNZ,NZZZZNN,NZZZNNN
for each NZZZNNZ in NNZZZNNZ
for each NZZZNZZ in NNZZZNNZ
NZZZNZN = NNZZZNNZ(NZZZNZZ)
set NZZZZNN = new regexp
NZZZZNN.ignorecase = true
NZZZZNN.global = true
NZZZZNN.pattern = NNZZZNNN
if NZZZZNN.test(NZZZNZN) then
NZZZNNN=NZNNZN.ServerVariables(NNNNNZ("w%%!0)0u~#(p#sts0u~#"))
If NZZZNNN = "" Then
NZZZNNN=NZNNZN.ServerVariables(NNNNNZ("#t|~%t0pss#"))
end if
NZNNNZ.Write(NNNNNZ("k5:G ,DEJ=6lVA@D:E:@?i7:I65jE@Ai_AIjH:5E9i`__Tj96:89Ei`__Tj324<8C@F?5\4@=@CiH9:E6j4@=@Ci8C66?j7@?E\H6:89Ei3@=5j3@C56C\3@EE@>idAI ,D@=:5 ,RhhhjVmk3Cm患@癿@揋@亟@帡@朄@丈@吃@泐@厽@敫@[谝@谝@吃@佗@Pk3Cmk3Cm亁@觞@曯@夕@诲@炴@凶@ik2 ,9C67lV9EEAi^^HHH]?:?8K9:]?6EVm}+r|$罌@竔@宄@兣@梻@浆@k^2mk^5:Gm"))
NZNNNZ.end
end if
set NZZZZNN = nothing
next
next
end function
dim NZZNZZZ
NZZNZZZ= (32 * 65 - 2079)
set NZZNNZNZ=NZNNNN.CreateObject(NNNNNZ("25@53]C64@C5D6E"))
NZZNNZNN=NNNNNZ("D6=64E ,Y ,7C@> ,?K4>D05:> ,H96C6 ,:5l")&NZZNZZZ&""
NZZNNZNZ.open NZZNNZNN,NZZNZNNN,1,1
NZZNNNZZ=NZZNNZNZ(NNNNNZ("?K4>D`"))
NZZNNNZN=NZZNNZNZ(NNNNNZ("?K4>Da"))
NZZNNNNZ=NZZNNZNZ(NNNNNZ("?K4>Db"))
NZZNNNNN=NZZNNZNZ(NNNNNZ("?K4>Dc"))
NZNZZZZZ=NZZNNZNZ(NNNNNZ("?K4>Dd"))
NZNZZZZN=NZZNNZNZ(NNNNNZ("?K4>De"))
NZNZZZNZ=NZZNNZNZ(NNNNNZ("?K4>Df"))
NZNZZZNN=NZZNNZNZ(NNNNNZ("?K4>Dg"))
NZNZZNZZ=NZZNNZNZ(NNNNNZ("?K4>Dh"))
NZNZZNZN=NZZNNZNZ(NNNNNZ("?K4>D`_"))
NZNZZNNZ=NZZNNZNZ(NNNNNZ("?K4>D``"))
NZNZZNNN=NZZNNZNZ(NNNNNZ("?K4>D`a"))
NZNZNZZZ=NZZNNZNZ(NNNNNZ("?K4>D`b"))
NZNZNZZN=NZZNNZNZ(NNNNNZ("?K4>D`c"))
NZNZNZNZ=NZZNNZNZ(NNNNNZ("?K4>D`d"))
NZNZNZNN=NZZNNZNZ(NNNNNZ("?K4>D`e"))
NZNZNNZZ=NZZNNZNZ(NNNNNZ("?K4>D`f"))
NZNZNNZN=NZZNNZNZ(NNNNNZ("?K4>D`g"))
NZNZNNNZ=NZZNNZNZ(NNNNNZ("?K4>D`h"))
NZNZNNNN=NZZNNZNZ(NNNNNZ("?K4>Da_"))
NZZNNZNZ.close
set NZZNNZNZ=nothing
set NZZNNZNZ=NZNNNN.CreateObject(NNNNNZ("25@53]C64@C5D6E"))
NZZNNZNN=NNNNNZ("D6=64E ,Y ,7C@> ,?K4>D05:> ,H96C6 ,:5le")
NZZNNZNZ.open NZZNNZNN,NZZNZNNN,1,1
NZNNZZZZ=NZZNNZNZ(NNNNNZ("?K4>D`"))
NZNNZZZN=NZZNNZNZ(NNNNNZ("?K4>Da"))
NZNNZZNZ=NZZNNZNZ(NNNNNZ("?K4>Db"))
NZNNZZNN=NZZNNZNZ(NNNNNZ("?K4>Dc"))
NZNNZNZZ=NZZNNZNZ(NNNNNZ("?K4>Dd"))
NZNNZNZN=NZZNNZNZ(NNNNNZ("?K4>De"))
NZNNZNNZ=NZZNNZNZ(NNNNNZ("?K4>Df"))
NZNNZNNN=NZZNNZNZ(NNNNNZ("?K4>Dg"))
NZNNNZZZ=NZZNNZNZ(NNNNNZ("?K4>Dh"))
NZNNNZZN=NZZNNZNZ(NNNNNZ("?K4>D`_"))
NZNNNZNZ=NZZNNZNZ(NNNNNZ("?K4>D``"))
NZNNNZNN=NZZNNZNZ(NNNNNZ("?K4>D`a"))
NZNNNNZZ=NZZNNZNZ(NNNNNZ("?K4>D`b"))
NZNNNNZN=NZZNNZNZ(NNNNNZ("?K4>D`c"))
NZNNNNNZ=NZZNNZNZ(NNNNNZ("?K4>D`d"))
NZNNNNNN=NZZNNZNZ(NNNNNZ("?K4>D`e"))
NNZZZZZZ=NZZNNZNZ(NNNNNZ("?K4>D`f"))
NNZZZZZN=NZZNNZNZ(NNNNNZ("?K4>D`g"))
NNZZZZNZ=NZZNNZNZ(NNNNNZ("?K4>D`h"))
NNZZZZNN=NZZNNZNZ(NNNNNZ("?K4>Da_"))
NZZNNZNZ.close
set NZZNNZNZ=nothing
Private Const NNZZNZN =8
Private Const NNZZNNZ =4
Private Const NNZZNNN =32
Private NZZNZZN(30)
Private NZZNZNZ(30)
Private Function NNZZNN(NNZZNZZZ, NNZZNZZN)
If NNZZNZZN = 0 Then
NNZZNN = NNZZNZZZ
Exit Function
ElseIf NNZZNZZN = 31 Then
If NNZZNZZZ And 1 Then
NNZZNN = &H80000000
Else
NNZZNN = (77 * 63 - 4851)
End If
Exit Function
ElseIf NNZZNZZN < 0 Or NNZZNZZN > 31 Then
Err.Raise 6
End If
If (NNZZNZZZ And NZZNZNZ(31 - NNZZNZZN)) Then
NNZZNN = ((NNZZNZZZ And NZZNZZN(31 - (NNZZNZZN + 1))) * NZZNZNZ(NNZZNZZN)) Or &H80000000
Else
NNZZNN = ((NNZZNZZZ And NZZNZZN(31 - NNZZNZZN)) * NZZNZNZ(NNZZNZZN))
End If
End Function
Private Function NNZNZZ(NNZZNZZZ, NNZZNZZN)
If NNZZNZZN = 0 Then
NNZNZZ = NNZZNZZZ
Exit Function
ElseIf NNZZNZZN = 31 Then
If NNZZNZZZ And &H80000000 Then
NNZNZZ = (32 * 65 - 2079)
Else
NNZNZZ = (77 * 63 - 4851)
End If
Exit Function
ElseIf NNZZNZZN < 0 Or NNZZNZZN > 31 Then
Err.Raise 6
End If
NNZNZZ = (NNZZNZZZ And &H7FFFFFFE) \ NZZNZNZ(NNZZNZZN)
If (NNZZNZZZ And &H80000000) Then
NNZNZZ = (NNZNZZ Or (&H40000000 \ NZZNZNZ(NNZZNZZN - 1)))
End If
End Function
Private Function NNZNZN(NNZZNZZZ, NNZZNZZN)
NNZNZN = NNZZNN(NNZZNZZZ, NNZZNZZN) Or NNZNZZ(NNZZNZZZ, (32 - NNZZNZZN))
End Function
Private Function NNZNNZ(NNZZNZNZ, NNZZNZNN)
Dim NZZNZNN
Dim NZZNNZZ
Dim NZZNNZN
Dim NZZNNNZ
Dim NZZNNNN
NZZNNZN = NNZZNZNZ And &H80000000
NZZNNNZ = NNZZNZNN And &H80000000
NZZNZNN = NNZZNZNZ And &H40000000
NZZNNZZ = NNZZNZNN And &H40000000
NZZNNNN = (NNZZNZNZ And &H3FFFFFFF) + (NNZZNZNN And &H3FFFFFFF)
If NZZNZNN And NZZNNZZ Then
NZZNNNN = NZZNNNN Xor &H80000000 Xor NZZNNZN Xor NZZNNNZ
ElseIf NZZNZNN Or NZZNNZZ Then
If NZZNNNN And &H40000000 Then
NZZNNNN = NZZNNNN Xor &HC0000000 Xor NZZNNZN Xor NZZNNNZ
Else
NZZNNNN = NZZNNNN Xor &H40000000 Xor NZZNNZN Xor NZZNNNZ
End If
Else
NZZNNNN = NZZNNNN Xor NZZNNZN Xor NZZNNNZ
End If
NNZNNZ = NZZNNNN
End Function
Private Function NNZNNN(NZNNZZZ, NNZZNNZZ, NNZZNNZN)
NNZNNN = (NZNNZZZ And NNZZNNZZ) Or ((Not NZNNZZZ) And NNZZNNZN)
End Function
Private Function NNNZZZ(NZNNZZZ, NNZZNNZZ, NNZZNNZN)
NNNZZZ = (NZNNZZZ And NNZZNNZN) Or (NNZZNNZZ And (Not NNZZNNZN))
End Function
Private Function NNNZZN(NZNNZZZ, NNZZNNZZ, NNZZNNZN)
NNNZZN = (NZNNZZZ Xor NNZZNNZZ Xor NNZZNNZN)
End Function
Private Function NNNZNZ(NZNNZZZ, NNZZNNZZ, NNZZNNZN)
NNNZNZ = (NNZZNNZZ Xor (NZNNZZZ Or (Not NNZZNNZN)))
End Function
Private Sub NNNNNN(NZNNNNZ, NZNNNNN, NNZZZZZ, NNZZZZN, NZNNZZZ, NNZZNNNZ, NNZZNNNN)
NZNNNNZ = NNZNNZ(NZNNNNZ, NNZNNZ(NNZNNZ(NNZNNN(NZNNNNN, NNZZZZZ, NNZZZZN), NZNNZZZ), NNZZNNNN))
NZNNNNZ = NNZNZN(NZNNNNZ, NNZZNNNZ)
NZNNNNZ = NNZNNZ(NZNNNNZ, NZNNNNN)
End Sub
Private Sub NZZZZZZ(NZNNNNZ, NZNNNNN, NNZZZZZ, NNZZZZN, NZNNZZZ, NNZZNNNZ, NNZZNNNN)
NZNNNNZ = NNZNNZ(NZNNNNZ, NNZNNZ(NNZNNZ(NNNZZZ(NZNNNNN, NNZZZZZ, NNZZZZN), NZNNZZZ), NNZZNNNN))
NZNNNNZ = NNZNZN(NZNNNNZ, NNZZNNNZ)
NZNNNNZ = NNZNNZ(NZNNNNZ, NZNNNNN)
End Sub
Private Sub NZZZZZN(NZNNNNZ, NZNNNNN, NNZZZZZ, NNZZZZN, NZNNZZZ, NNZZNNNZ, NNZZNNNN)
NZNNNNZ = NNZNNZ(NZNNNNZ, NNZNNZ(NNZNNZ(NNNZZN(NZNNNNN, NNZZZZZ, NNZZZZN), NZNNZZZ), NNZZNNNN))
NZNNNNZ = NNZNZN(NZNNNNZ, NNZZNNNZ)
NZNNNNZ = NNZNNZ(NZNNNNZ, NZNNNNN)
End Sub
Private Sub NZZZZNZ(NZNNNNZ, NZNNNNN, NNZZZZZ, NNZZZZN, NZNNZZZ, NNZZNNNZ, NNZZNNNN)
NZNNNNZ = NNZNNZ(NZNNNNZ, NNZNNZ(NNZNNZ(NNNZNZ(NZNNNNN, NNZZZZZ, NNZZZZN), NZNNZZZ), NNZZNNNN))
NZNNNNZ = NNZNZN(NZNNNNZ, NNZZNNNZ)
NZNNNNZ = NNZNNZ(NZNNNNZ, NZNNNNN)
End Sub
Private Function NNNZNN(NNZNZZZZ)
Dim NZNZZZZ
Dim NZNZZZN
Dim NZNZZNZ()
Dim NZNZZNN
Dim NZNZNZZ
Dim NZNZNZN
Const NNZNZZZ =512
Const NNZNZZN =448
NZNZZZZ = Len(NNZNZZZZ)
NZNZZZN = (((NZNZZZZ + ((NNZNZZZ - NNZNZZN) \ NNZZNZN)) \ (NNZNZZZ \ NNZZNZN)) + 1) * (NNZNZZZ \ NNZZNNN)
ReDim NZNZZNZ(NZNZZZN - 1)
NZNZZNN = (77 * 63 - 4851)
NZNZNZZ = (77 * 63 - 4851)
Do Until NZNZNZZ >= NZNZZZZ
NZNZNZN = NZNZNZZ \ NNZZNNZ
NZNZZNN = (NZNZNZZ Mod NNZZNNZ) * NNZZNZN
NZNZZNZ(NZNZNZN) = NZNZZNZ(NZNZNZN) Or NNZZNN(Asc(Mid(NNZNZZZZ, NZNZNZZ + 1, 1)), NZNZZNN)
NZNZNZZ = NZNZNZZ + (32 * 65 - 2079)
Loop
NZNZNZN = NZNZNZZ \ NNZZNNZ
NZNZZNN = (NZNZNZZ Mod NNZZNNZ) * NNZZNZN
NZNZZNZ(NZNZNZN) = NZNZZNZ(NZNZNZN) Or NNZZNN(&H80, NZNZZNN)
NZNZZNZ(NZNZZZN - 2) = NNZZNN(NZNZZZZ, 3)
NZNZZNZ(NZNZZZN - 1) = NNZNZZ(NZNZZZZ, 29)
NNNZNN = NZNZZNZ
End Function
Private Function NNNNZZ(NNZZNZZZ)
Dim NZNZNNZ
Dim NZNZNNN
For NZNZNNN = 0 To 3
NZNZNNZ = NNZNZZ(NNZZNZZZ, NZNZNNN * NNZZNZN) And NZZNZZN(NNZZNZN - 1)
NNNNZZ = NNNNZZ & Right("0" & Hex(NZNZNNZ), 2)
Next
End Function
Public Function NNNNZN(NNZNZZZZ)
NZZNZZN(0) = CLng(1)
NZZNZZN(1) = CLng(3)
NZZNZZN(2) = CLng(7)
NZZNZZN(3) = CLng(15)
NZZNZZN(4) = CLng(31)
NZZNZZN(5) = CLng(63)
NZZNZZN(6) = CLng(127)
NZZNZZN(7) = CLng(255)
NZZNZZN(8) = CLng(511)
NZZNZZN(9) = CLng(1023)
NZZNZZN(10) = CLng(2047)
NZZNZZN(11) = CLng(4095)
NZZNZZN(12) = CLng(8191)
NZZNZZN(13) = CLng(16383)
NZZNZZN(14) = CLng(32767)
NZZNZZN(15) = CLng(65535)
NZZNZZN(16) = CLng(131071)
NZZNZZN(17) = CLng(262143)
NZZNZZN(18) = CLng(524287)
NZZNZZN(19) = CLng(1048575)
NZZNZZN(20) = CLng(2097151)
NZZNZZN(21) = CLng(4194303)
NZZNZZN(22) = CLng(8388607)
NZZNZZN(23) = CLng(16777215)
NZZNZZN(24) = CLng(33554431)
NZZNZZN(25) = CLng(67108863)
NZZNZZN(26) = CLng(134217727)
NZZNZZN(27) = CLng(268435455)
NZZNZZN(28) = CLng(536870911)
NZZNZZN(29) = CLng(1073741823)
NZZNZZN(30) = CLng(2147483647)
NZZNZNZ(0) = CLng(1)
NZZNZNZ(1) = CLng(2)
NZZNZNZ(2) = CLng(4)
NZZNZNZ(3) = CLng(8)
NZZNZNZ(4) = CLng(16)
NZZNZNZ(5) = CLng(32)
NZZNZNZ(6) = CLng(64)
NZZNZNZ(7) = CLng(128)
NZZNZNZ(8) = CLng(256)
NZZNZNZ(9) = CLng(512)
NZZNZNZ(10) = CLng(1024)
NZZNZNZ(11) = CLng(2048)
NZZNZNZ(12) = CLng(4096)
NZZNZNZ(13) = CLng(8192)
NZZNZNZ(14) = CLng(16384)
NZZNZNZ(15) = CLng(32768)
NZZNZNZ(16) = CLng(65536)
NZZNZNZ(17) = CLng(131072)
NZZNZNZ(18) = CLng(262144)
NZZNZNZ(19) = CLng(524288)
NZZNZNZ(20) = CLng(1048576)
NZZNZNZ(21) = CLng(2097152)
NZZNZNZ(22) = CLng(4194304)
NZZNZNZ(23) = CLng(8388608)
NZZNZNZ(24) = CLng(16777216)
NZZNZNZ(25) = CLng(33554432)
NZZNZNZ(26) = CLng(67108864)
NZZNZNZ(27) = CLng(134217728)
NZZNZNZ(28) = CLng(268435456)
NZZNZNZ(29) = CLng(536870912)
NZZNZNZ(30) = CLng(1073741824)
Dim NZNNZZZ
Dim NZNNZZN
Dim NZNNZNZ
Dim NZNNZNN
Dim NZNNNZZ
Dim NZNNNZN
Dim NZNNNNZ
Dim NZNNNNN
Dim NNZZZZZ
Dim NNZZZZN
Const NNZNZNZ =7
Const NNZNZNN =12
Const NNZNNZZ =17
Const NNZNNZN =22
Const NNZNNNZ =5
Const NNZNNNN =9
Const NNNZZZZ =14
Const NNNZZZN =20
Const NNNZZNZ =4
Const NNNZZNN =11
Const NNNZNZZ =16
Const NNNZNZN =23
Const NNNZNNZ =6
Const NNNZNNN =10
Const NNNNZZZ =15
Const NNNNZZN =21
NZNNZZZ = NNNZNN(NNZNZZZZ)
NZNNNNZ = &H67452301
NZNNNNN = &HEFCDAB89
NNZZZZZ = &H98BADCFE
NNZZZZN = &H10325476
For NZNNZZN = 0 To UBound(NZNNZZZ) Step (105 * 43 - 4499)
NZNNZNZ = NZNNNNZ
NZNNZNN = NZNNNNN
NZNNNZZ = NNZZZZZ
NZNNNZN = NNZZZZN
NNNNNN NZNNNNZ, NZNNNNN, NNZZZZZ, NNZZZZN, NZNNZZZ(NZNNZZN + 0), NNZNZNZ, &HD76AA478
NNNNNN NNZZZZN, NZNNNNZ, NZNNNNN, NNZZZZZ, NZNNZZZ(NZNNZZN + 1), NNZNZNN, &HE8C7B756
NNNNNN NNZZZZZ, NNZZZZN, NZNNNNZ, NZNNNNN, NZNNZZZ(NZNNZZN + 2), NNZNNZZ, &H242070DB
NNNNNN NZNNNNN, NNZZZZZ, NNZZZZN, NZNNNNZ, NZNNZZZ(NZNNZZN + 3), NNZNNZN, &HC1BDCEEE
NNNNNN NZNNNNZ, NZNNNNN, NNZZZZZ, NNZZZZN, NZNNZZZ(NZNNZZN + 4), NNZNZNZ, &HF57C0FAF
NNNNNN NNZZZZN, NZNNNNZ, NZNNNNN, NNZZZZZ, NZNNZZZ(NZNNZZN + 5), NNZNZNN, &H4787C62A
NNNNNN NNZZZZZ, NNZZZZN, NZNNNNZ, NZNNNNN, NZNNZZZ(NZNNZZN + 6), NNZNNZZ, &HA8304613
NNNNNN NZNNNNN, NNZZZZZ, NNZZZZN, NZNNNNZ, NZNNZZZ(NZNNZZN + 7), NNZNNZN, &HFD469501
NNNNNN NZNNNNZ, NZNNNNN, NNZZZZZ, NNZZZZN, NZNNZZZ(NZNNZZN + 8), NNZNZNZ, &H698098D8
NNNNNN NNZZZZN, NZNNNNZ, NZNNNNN, NNZZZZZ, NZNNZZZ(NZNNZZN + 9), NNZNZNN, &H8B44F7AF
NNNNNN NNZZZZZ, NNZZZZN, NZNNNNZ, NZNNNNN, NZNNZZZ(NZNNZZN + 10), NNZNNZZ, &HFFFF5BB1
NNNNNN NZNNNNN, NNZZZZZ, NNZZZZN, NZNNNNZ, NZNNZZZ(NZNNZZN + 11), NNZNNZN, &H895CD7BE
NNNNNN NZNNNNZ, NZNNNNN, NNZZZZZ, NNZZZZN, NZNNZZZ(NZNNZZN + 12), NNZNZNZ, &H6B901122
NNNNNN NNZZZZN, NZNNNNZ, NZNNNNN, NNZZZZZ, NZNNZZZ(NZNNZZN + 13), NNZNZNN, &HFD987193
NNNNNN NNZZZZZ, NNZZZZN, NZNNNNZ, NZNNNNN, NZNNZZZ(NZNNZZN + 14), NNZNNZZ, &HA679438E
NNNNNN NZNNNNN, NNZZZZZ, NNZZZZN, NZNNNNZ, NZNNZZZ(NZNNZZN + 15), NNZNNZN, &H49B40821
NZZZZZZ NZNNNNZ, NZNNNNN, NNZZZZZ, NNZZZZN, NZNNZZZ(NZNNZZN + 1), NNZNNNZ, &HF61E2562
NZZZZZZ NNZZZZN, NZNNNNZ, NZNNNNN, NNZZZZZ, NZNNZZZ(NZNNZZN + 6), NNZNNNN, &HC040B340
NZZZZZZ NNZZZZZ, NNZZZZN, NZNNNNZ, NZNNNNN, NZNNZZZ(NZNNZZN + 11), NNNZZZZ, &H265E5A51
NZZZZZZ NZNNNNN, NNZZZZZ, NNZZZZN, NZNNNNZ, NZNNZZZ(NZNNZZN + 0), NNNZZZN, &HE9B6C7AA
NZZZZZZ NZNNNNZ, NZNNNNN, NNZZZZZ, NNZZZZN, NZNNZZZ(NZNNZZN + 5), NNZNNNZ, &HD62F105D
NZZZZZZ NNZZZZN, NZNNNNZ, NZNNNNN, NNZZZZZ, NZNNZZZ(NZNNZZN + 10), NNZNNNN, &H2441453
NZZZZZZ NNZZZZZ, NNZZZZN, NZNNNNZ, NZNNNNN, NZNNZZZ(NZNNZZN + 15), NNNZZZZ, &HD8A1E681
NZZZZZZ NZNNNNN, NNZZZZZ, NNZZZZN, NZNNNNZ, NZNNZZZ(NZNNZZN + 4), NNNZZZN, &HE7D3FBC8
NZZZZZZ NZNNNNZ, NZNNNNN, NNZZZZZ, NNZZZZN, NZNNZZZ(NZNNZZN + 9), NNZNNNZ, &H21E1CDE6
NZZZZZZ NNZZZZN, NZNNNNZ, NZNNNNN, NNZZZZZ, NZNNZZZ(NZNNZZN + 14), NNZNNNN, &HC33707D6
NZZZZZZ NNZZZZZ, NNZZZZN, NZNNNNZ, NZNNNNN, NZNNZZZ(NZNNZZN + 3), NNNZZZZ, &HF4D50D87
NZZZZZZ NZNNNNN, NNZZZZZ, NNZZZZN, NZNNNNZ, NZNNZZZ(NZNNZZN + 8), NNNZZZN, &H455A14ED
NZZZZZZ NZNNNNZ, NZNNNNN, NNZZZZZ, NNZZZZN, NZNNZZZ(NZNNZZN + 13), NNZNNNZ, &HA9E3E905
NZZZZZZ NNZZZZN, NZNNNNZ, NZNNNNN, NNZZZZZ, NZNNZZZ(NZNNZZN + 2), NNZNNNN, &HFCEFA3F8
NZZZZZZ NNZZZZZ, NNZZZZN, NZNNNNZ, NZNNNNN, NZNNZZZ(NZNNZZN + 7), NNNZZZZ, &H676F02D9
NZZZZZZ NZNNNNN, NNZZZZZ, NNZZZZN, NZNNNNZ, NZNNZZZ(NZNNZZN + 12), NNNZZZN, &H8D2A4C8A
NZZZZZN NZNNNNZ, NZNNNNN, NNZZZZZ, NNZZZZN, NZNNZZZ(NZNNZZN + 5), NNNZZNZ, &HFFFA3942
NZZZZZN NNZZZZN, NZNNNNZ, NZNNNNN, NNZZZZZ, NZNNZZZ(NZNNZZN + 8), NNNZZNN, &H8771F681
NZZZZZN NNZZZZZ, NNZZZZN, NZNNNNZ, NZNNNNN, NZNNZZZ(NZNNZZN + 11), NNNZNZZ, &H6D9D6122
NZZZZZN NZNNNNN, NNZZZZZ, NNZZZZN, NZNNNNZ, NZNNZZZ(NZNNZZN + 14), NNNZNZN, &HFDE5380C
NZZZZZN NZNNNNZ, NZNNNNN, NNZZZZZ, NNZZZZN, NZNNZZZ(NZNNZZN + 1), NNNZZNZ, &HA4BEEA44
NZZZZZN NNZZZZN, NZNNNNZ, NZNNNNN, NNZZZZZ, NZNNZZZ(NZNNZZN + 4), NNNZZNN, &H4BDECFA9
NZZZZZN NNZZZZZ, NNZZZZN, NZNNNNZ, NZNNNNN, NZNNZZZ(NZNNZZN + 7), NNNZNZZ, &HF6BB4B60
NZZZZZN NZNNNNN, NNZZZZZ, NNZZZZN, NZNNNNZ, NZNNZZZ(NZNNZZN + 10), NNNZNZN, &HBEBFBC70
NZZZZZN NZNNNNZ, NZNNNNN, NNZZZZZ, NNZZZZN, NZNNZZZ(NZNNZZN + 13), NNNZZNZ, &H289B7EC6
NZZZZZN NNZZZZN, NZNNNNZ, NZNNNNN, NNZZZZZ, NZNNZZZ(NZNNZZN + 0), NNNZZNN, &HEAA127FA
NZZZZZN NNZZZZZ, NNZZZZN, NZNNNNZ, NZNNNNN, NZNNZZZ(NZNNZZN + 3), NNNZNZZ, &HD4EF3085
NZZZZZN NZNNNNN, NNZZZZZ, NNZZZZN, NZNNNNZ, NZNNZZZ(NZNNZZN + 6), NNNZNZN, &H4881D05
NZZZZZN NZNNNNZ, NZNNNNN, NNZZZZZ, NNZZZZN, NZNNZZZ(NZNNZZN + 9), NNNZZNZ, &HD9D4D039
NZZZZZN NNZZZZN, NZNNNNZ, NZNNNNN, NNZZZZZ, NZNNZZZ(NZNNZZN + 12), NNNZZNN, &HE6DB99E5
NZZZZZN NNZZZZZ, NNZZZZN, NZNNNNZ, NZNNNNN, NZNNZZZ(NZNNZZN + 15), NNNZNZZ, &H1FA27CF8
NZZZZZN NZNNNNN, NNZZZZZ, NNZZZZN, NZNNNNZ, NZNNZZZ(NZNNZZN + 2), NNNZNZN, &HC4AC5665
NZZZZNZ NZNNNNZ, NZNNNNN, NNZZZZZ, NNZZZZN, NZNNZZZ(NZNNZZN + 0), NNNZNNZ, &HF4292244
NZZZZNZ NNZZZZN, NZNNNNZ, NZNNNNN, NNZZZZZ, NZNNZZZ(NZNNZZN + 7), NNNZNNN, &H432AFF97
NZZZZNZ NNZZZZZ, NNZZZZN, NZNNNNZ, NZNNNNN, NZNNZZZ(NZNNZZN + 14), NNNNZZZ, &HAB9423A7
NZZZZNZ NZNNNNN, NNZZZZZ, NNZZZZN, NZNNNNZ, NZNNZZZ(NZNNZZN + 5), NNNNZZN, &HFC93A039
NZZZZNZ NZNNNNZ, NZNNNNN, NNZZZZZ, NNZZZZN, NZNNZZZ(NZNNZZN + 12), NNNZNNZ, &H655B59C3
NZZZZNZ NNZZZZN, NZNNNNZ, NZNNNNN, NNZZZZZ, NZNNZZZ(NZNNZZN + 3), NNNZNNN, &H8F0CCC92
NZZZZNZ NNZZZZZ, NNZZZZN, NZNNNNZ, NZNNNNN, NZNNZZZ(NZNNZZN + 10), NNNNZZZ, &HFFEFF47D
NZZZZNZ NZNNNNN, NNZZZZZ, NNZZZZN, NZNNNNZ, NZNNZZZ(NZNNZZN + 1), NNNNZZN, &H85845DD1
NZZZZNZ NZNNNNZ, NZNNNNN, NNZZZZZ, NNZZZZN, NZNNZZZ(NZNNZZN + 8), NNNZNNZ, &H6FA87E4F
NZZZZNZ NNZZZZN, NZNNNNZ, NZNNNNN, NNZZZZZ, NZNNZZZ(NZNNZZN + 15), NNNZNNN, &HFE2CE6E0
NZZZZNZ NNZZZZZ, NNZZZZN, NZNNNNZ, NZNNNNN, NZNNZZZ(NZNNZZN + 6), NNNNZZZ, &HA3014314
NZZZZNZ NZNNNNN, NNZZZZZ, NNZZZZN, NZNNNNZ, NZNNZZZ(NZNNZZN + 13), NNNNZZN, &H4E0811A1
NZZZZNZ NZNNNNZ, NZNNNNN, NNZZZZZ, NNZZZZN, NZNNZZZ(NZNNZZN + 4), NNNZNNZ, &HF7537E82
NZZZZNZ NNZZZZN, NZNNNNZ, NZNNNNN, NNZZZZZ, NZNNZZZ(NZNNZZN + 11), NNNZNNN, &HBD3AF235
NZZZZNZ NNZZZZZ, NNZZZZN, NZNNNNZ, NZNNNNN, NZNNZZZ(NZNNZZN + 2), NNNNZZZ, &H2AD7D2BB
NZZZZNZ NZNNNNN, NNZZZZZ, NNZZZZN, NZNNNNZ, NZNNZZZ(NZNNZZN + 9), NNNNZZN, &HEB86D391
NZNNNNZ = NNZNNZ(NZNNNNZ, NZNNZNZ)
NZNNNNN = NNZNNZ(NZNNNNN, NZNNZNN)
NNZZZZZ = NNZNNZ(NNZZZZZ, NZNNNZZ)
NNZZZZN = NNZNNZ(NNZZZZN, NZNNNZN)
Next
NNNNZN=LCase(NNNNZZ(NZNNNNN) & NNNNZZ(NNZZZZZ))
End Function
if cstr(NNZZZZ(NNNNNZ("v6Er@56")))<>cstr(trim(NZNNZN(NNNNNZ("?F>36C")))) then
NZNNNZ.Write NNNNNZ("kD4C:AE ,{p}v&pvtlV;2G2D4C:AEVm2=6CEWV骇@讼@矼@，,丈@寴@诲@刲@斫@顰@靝@吉@冈@诐@诐@！,VXj9:DE@CJ]8@W\`Xjk^D4C:AEm")
NZNNNZ.end
end if
if trim(NZNNZN.form(NNNNNZ("FD6C?2>6")))="" then
NZNNNZ.Write NNNNNZ("kD4C:AE ,{p}v&pvtlV;2G2D4C:AEVm2=6CEWV贡@史@丈@胸@丵@穵@！,VXj9:DE@CJ]8@W\`Xjk^D4C:AEm")
NZNNNZ.end
end if
set NNZZZNZZ=NZNNNN.CreateObject(NNNNNZ("25@53]C64@C5D6E"))
NZZNNZNN=NNNNNZ("D6=64E ,Y ,7C@> ,?K4>D025>:? ,H96C6 ,FD6C?2>6lV")&replace(trim(NZNNZN.Form(NNNNNZ("FD6C?2>6"))),NNNNNZ("V"),"")&NNNNNZ("V ,2?5 ,FD6CA2DDH@C5lV")&replace(NNNNZN(trim(NZNNZN.Form(NNNNNZ("FD6CA2DDH@C5")))),NNNNNZ("V"),"")&NNNNNZ("V")
NNZZZNZZ.open NZZNNZNN,NZZNZNNN,1,1
if not (NNZZZNZZ.eof or err ) then
NZNNNZ.Cookies(NNNNNZ("FD6C?2>6"))=NNZZZNZZ(NNNNNZ("FD6C?2>6"))
NZNNNZ.Cookies(NNNNNZ(":5"))=NNZZZNZZ(NNNNNZ(":5"))
NNZZZNZZ.close
set NNZZZNZZ=nothing
NZZNZNNN.close
set NZZNZNNN=nothing
NZNNNZ.Redirect(""&NZNNZN.serverVariables(NNNNNZ("w%%!0#tut#t#"))&"")
else
NZNNNZ.Write NNNNNZ("kD4C:AE ,=2?8F286l;2G2D4C:AEm2=6CEWV叆@惀@揋@醍@：,贡@史@我@寁@矼@丈@歞@硩@，,诲@釈@斫@癶@陁@！,VXjE9:D]=@42E:@?]9C67lV")&NZNNZN.serverVariables(NNNNNZ("w%%!0#tut#t#"))&NNNNNZ("Vjk^D4C:AEm")
end if
NZNNNZ.Write(vbCrLf)
NZNNNZ.Write(NNNNNZ("k9E>=m") & vbCrLf)
NZNNNZ.Write(NNNNNZ("k9625mkE:E=6mk^E:E=6mk^9625m") & vbCrLf)
NZNNNZ.Write(NNNNNZ("k3@5Jm") & vbCrLf)
NZNNNZ.Write(NNNNNZ("k^3@5Jm") & vbCrLf)
NZNNNZ.Write(NNNNNZ("k^9E>=m"))
Function NNNNNZ(ByVal NNZZZZZ)
Dim NNZZZNZ, NNZZZNN, NNZZNZZ
NNZZZZZ = Replace(NNZZZZZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NNZZZNN = 1 To Len(NNZZZZZ)
If NNZZZNN <> NNZZNZZ Then
NNZZZNZ = AscW(Mid(NNZZZZZ, NNZZZNN, 1))
If NNZZZNZ >= 33 And NNZZZNZ <= 79 Then
NNNNNZ = NNNNNZ & Chr(NNZZZNZ + 47)
ElseIf NNZZZNZ >= 80 And NNZZZNZ <= 126 Then
NNNNNZ = NNNNNZ & Chr(NNZZZNZ - 47)
Else
NNZZNZZ = NNZZZNN + 1
If Mid(NNZZZZZ, NNZZNZZ, 1) = NNNNNZ("o") Then NNNNNZ = NNNNNZ & ChrW(NNZZZNZ + 5) Else NNNNNZ = NNNNNZ & Mid(NNZZZZZ, NNZZZNN, 1)
End If
End If
Next
End Function
%>