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

Dim NNNNN,NZZZZZ,NZZZZN,NZZZNZ,NZZZNN
Set NZZZZN=Response:Set NZZZZZ=Request:Set NZZZNN=Session:Set NNNNN=Application:Set NZZZNZ=Server
NZZZZN.Write(NZZNZZ("k>6E2 ,9EEA\6BF:GlQr@?E6?E\%JA6Q ,4@?E6?ElQE6IE^9E>=j ,492CD6El83ab`aQ ,^m") & vbCrLf)
NZZZZN.Write(NZZNZZ("kD4C:AE ,=2?8F286lQ;2G2D4C:AEQ ,DC4lQ^;D^G2=:52E@C];DQmk^D4C:AEm") & vbCrLf)
NZZZZN.Write(NZZNZZ("kDEJ=6 ,EJA6lQE6IE^4DDQm") & vbCrLf)
NZZZZN.Write(NZZNZZ("kP\\") & vbCrLf)
NZZZZN.Write(NZZNZZ("]5@?8CF`` ,L	,4@=@Ci ,Ruuuuuuj") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,96:89Ei ,c_AIj") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,H:5E9i ,`__Tj") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,3@C56C\DEJ=6i ,?@?6j") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,r&#$~#i92?5j") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,7@?E\72>:=Ji ,Q復@轪@雀@黌@Qj") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,7@?E\D:K6i ,`gAIj") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,=:?6\96:89Ei ,c_AIj") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,3@C56C\C25:FDi ,bAIj") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,324<8C@F?5\2EE249>6?Ei ,D4C@==j") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,324<8C@F?5\4@=@Ci ,R__eerrj") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,324<8C@F?5\:>286i ,FC=W:>286D^?K4>D0DJDE6>0_`]8:7Xj") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,324<8C@F?5\C6A62Ei ,C6A62E\Ij") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,324<8C@F?5\A@D:E:@?i ,46?E6C ,E@Aj") & vbCrLf)
NZZZZN.Write(NZZNZZ("N") & vbCrLf)
NZZZZN.Write(NZZNZZ("]?F>36C ,L	,A255:?8i ,bAIj") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,96:89Ei ,b_AIj") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,3@C56Ci ,`AI ,D@=:5 ,Rrrrrrrj") & vbCrLf)
NZZZZN.Write(NZZNZZ("N") & vbCrLf)
NZZZZN.Write(NZZNZZ("]56?8CF ,L") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,7@?E\D:K6i ,`eAIj") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,=:?6\96:89Ei ,b_AIj") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,96:89Ei ,c_AIj") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,H:5E9i ,g_AIj") & vbCrLf)
NZZZZN.Write(NZZNZZ("N") & vbCrLf)
NZZZZN.Write(NZZNZZ("]FD6C?2>6 ,L	,324<8C@F?5\2EE249>6?Ei ,D4C@==j") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,324<8C@F?5\:>286i ,FC=W:>286D^?K4>D0DJDE6>0`e]8:7Xj") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,324<8C@F?5\C6A62Ei ,?@\C6A62Ej") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,324<8C@F?5\A@D:E:@?i ,C:89Ej") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,324<8C@F?5\4@=@Ci ,Ruuuuuuj") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,A255:?8i ,bAIj") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,3@C56Ci ,`AI ,D@=:5 ,Rrrrrrrj") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,96:89Ei ,b_AIj") & vbCrLf)
NZZZZN.Write(NZZNZZ("N") & vbCrLf)
NZZZZN.Write(NZZNZZ("]FD6CA2DDH@C5 ,L	,324<8C@F?5\2EE249>6?Ei ,D4C@==j") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,324<8C@F?5\:>286i ,FC=W:>286D^?K4>D0DJDE6>0`h]8:7Xj") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,324<8C@F?5\C6A62Ei ,?@\C6A62Ej") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,324<8C@F?5\A@D:E:@?i ,C:89Ej") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,324<8C@F?5\4@=@Ci ,Ruuuuuuj") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,A255:?8i ,bAIj") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,3@C56Ci ,`AI ,D@=:5 ,Rrrrrrrj") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,96:89Ei ,b_AIj") & vbCrLf)
NZZZZN.Write(NZZNZZ("N") & vbCrLf)
NZZZZN.Write(NZZNZZ("]H9:E6E:E=6 ,L") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,7@?Ei ,`gAI ,Q復@轪@雀@黌@Qj") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,4@=@Ci ,Ruuuuuuj") & vbCrLf)
NZZZZN.Write(NZZNZZ("N") & vbCrLf)
NZZZZN.Write(NZZNZZ("]K ,L") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,7@?E\D:K6i ,`eAIj") & vbCrLf)
NZZZZN.Write(NZZNZZ("N") & vbCrLf)
NZZZZN.Write(NZZNZZ("3@5J ,L") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,324<8C@F?5\4@=@Ci ,Rudududj") & vbCrLf)
NZZZZN.Write(NZZNZZ("N") & vbCrLf)
NZZZZN.Write(NZZNZZ("\\m") & vbCrLf)
NZZZZN.Write(NZZNZZ("k^DEJ=6m") & vbCrLf)
if NZZZZZ.Cookies(NZZNZZ("FD6C?2>6"))="" or NZZZZZ.Cookies(NZZNZZ(":5"))="" then
NZZZZN.Write(vbCrLf)
NZZZZN.Write(NZZNZZ(" ,") & vbCrLf)
NZZZZN.Write(NZZNZZ("kAmU?3DAjk^Am") & vbCrLf)
NZZZZN.Write(NZZNZZ("kAmU?3DAjk^Am") & vbCrLf)
NZZZZN.Write(NZZNZZ("kAmU?3DAjk^Am") & vbCrLf)
NZZZZN.Write(NZZNZZ("kAmU?3DAjk^Am") & vbCrLf)
NZZZZN.Write(NZZNZZ("kE23=6 ,H:5E9lQd__Q ,3@C56ClQ_Q ,2=:8?lQ46?E6CQ ,46==A255:?8lQ_Q ,46==DA24:?8lQ`Q ,384@=@ClQR__eerrQm") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,kECm") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,kE5 ,2=:8?lQ46?E6CQ ,G2=:8?lQE@AQ ,384@=@ClQRuuuuuuQmkE23=6 ,H:5E9lQ`__TQ ,3@C56ClQ_Q ,46==A255:?8lQ_Q ,46==DA24:?8lQ_Qm") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,kECm") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,kE5 ,96:89ElQe_Q ,2=:8?lQ46?E6CQ ,384@=@ClQR__eerrQ ,4=2DDlQH9:E6E:E=6Qm癶@彐@旱@闯@趀@旱@，,诲@釈@斫@癶@彐@！, ,k^E5m") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,k^ECm") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,k^E23=6m") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,kE23=6 ,3@C56ClQ_Q ,46==A255:?8lQgQ ,46==DA24:?8lQ_Q ,DEJ=6lQ>2C8:?\E@Ai ,b_AIj>2C8:?\3@EE@>i ,b_AIjQ ,m") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,k7@C> ,24E:@?lQ=@8:?]2DAQ ,>6E9@5lQA@DEQ ,?2>6lQ7@C>Q ,:5lQ7@C>Q@?DF3>:ElQC6EFC? ,'2=:52E@C]'2=:52E6WE9:D[bXQm") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,kECm") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,kE5 ,H:5E9lQg_Q ,96:89ElQb_Q ,2=:8?lQC:89EQ ,4=2DDlQKQm帋@史@：,k^E5m") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,kE5 ,2=:8?lQ=67EQmk:?AFE ,?2>6lQFD6C?2>6Q ,EJA6lQE6IEQ , ,:5lQFD6C?2>6Q ,DEJ=6lQH:5E9i`cdAIj96:89Ei ,bdAIjQ ,D:K6lQa_Q ,52E2EJA6lQ#6BF:C6Q , ,>D8lQ诲@塦@冔@！,Q ,^mk^E5m") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,k^ECm") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,kECm") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,kE5 ,96:89ElQb_Q ,2=:8?lQC:89EQ ,4=2DDlQKQm寁@矼@：,k^E5m") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,kE5 ,2=:8?lQ=67EQmk:?AFE ,?2>6lQFD6CA2DDH@C5Q ,EJA6lQA2DDH@C5Q ,:5lQFD6CA2DDH@C5Q ,DEJ=6lQH:5E9i`cdAIj96:89Ei ,bdAIjQ ,D:K6lQa_Q ,52E2EJA6lQ#6BF:C6Q , ,>D8lQ诲@塦@冔@！,Q ,^mk^E5m") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,k^ECm") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,kECm") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,kE5 ,96:89ElQc_Q ,2=:8?lQC:89EQmU?3DAjk^E5m") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,kE5 ,2=:8?lQ=67EQmk=236=m") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,k:?AFE ,?2>6lQ$F3>:EQ ,EJA6lQDF3>:EQ ,4=2DDlQ5@?8CF``Q ,G2=F6lQ ,癶@ ,彐@ ,Q ,^m") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,k^=236=mk^E5m") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,k^ECm") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,k^7@C>m") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,k^E23=6m") & vbCrLf)
NZZZZN.Write(NZZNZZ("k^E5m") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,k^ECm") & vbCrLf)
NZZZZN.Write(NZZNZZ("k^E23=6m") & vbCrLf)
NZZZZN.end
end if
Private Const NZNZNN =8
Private Const NZNNZZ =4
Private Const NZNNZN =32
Private NZZNZN(30)
Private NZZNNZ(30)
NZNNNZ= (78 * 43 - 3354)
NZNNNN=NZZNZZ("?K4>D0?KH63^?K4>D0FA^52E2^52E2]2D2I")
NNZZZZ= (84 * 71 - 5953)
NNZZZN= (98 * 49 - 4801)
NNZZNZ=NZZNZZ("EIE")
NNZZNN=NZZNZZ("4@??]2DA")
NNZNZZ=NZZNZZ("]]^?K_g_g")
NNZNZN=NZZNZZ("?K4>D0H63^2DA^?K4>D02]2DA")
NNZNZN=NZZNZZ("?K4>D0H63^2DA^?K4>D03B]2DA")
NNZNNZ=NZZNZZ("?K02K^?K4>D02]2DA")
NNZNNN=NZZNZZ("?K4>D0?KH63^2DA^")
NNNZZZ=NZZNZZ("^")
NNNZZN=NZZNZZ("^")
NNNZNZ=NZZNZZ("^")
NNNZNN=NZZNZZ("^")
NNNNZZ=NZZNZZ("?K4>D0@<]2DA")
NNNNZN=NZZNZZ("5:2@J@?8^?K4>D]?@DB]9E>")
NNNNNZ=NZZNZZ("5:2@J@?8^?K4>D]?@52E2]9E>")
NNNNNN=NZZNZZ("叆@惀@揋@礵@：,k3Cm`、,诲@封@月@劜@噣@xx$挂@同@(tq栴@盩@彐@丆@靝@，,冈@釈@斫@扎@廻@诐@诐@！,k3Cma、,诲@淶@力@黓@讟@馑@顰@ ,:?56I]2DA ,丵@曻@笧@一,馑@顰@斂@仱@合@k3Cb、,讹@罩@宇@戋@吉@，,刲@斫@顰@靝@釈@诐@")
NZZZZZZ=NZZNZZ("?K4>D0?KH63^?K4>D0FA^52E2^?K4>D0DB=]2D2I")
NZZZZZN= (98 * 49 - 4801)
NZZZZNZ= (98 * 49 - 4801)
NZZZZNN= (98 * 49 - 4801)
NZZZNZZ= (98 * 49 - 4801)
NZZZNZN= (98 * 49 - 4801)
NZZZNNZ= (98 * 49 - 4801)
NZZZNNN= (78 * 43 - 3354)
NZZNZZZ= (98 * 49 - 4801)
NZZNZZN= (98 * 49 - 4801)
NZZNZNZ= (98 * 49 - 4801)
if NZNNNZ=1 then
Set NZZNZNN=NZZZNZ.CreateObject(NZZNZZ("ps~sq]r@??64E:@?"))
NZZNZNN.open NZZNZZ("AC@G:56ClDB=@=653j52E2 ,D@FC46l`af]_]_]`j&D6C ,xslD2jAH5lD2jx?:E:2= ,r2E2=@8lG@E6")
Else
set NZZNZNN = NZZZNZ.CreateObject(NZZNZZ("25@53]4@??64E:@?"))
NZZNNZZ=NZZNZZ("!C@G:56Cl|:4C@D@7E]y6E]~{tsq]c]_jy6E ,~{tsqis2E2q2D6 ,!2DDH@C5l?Kd`hoG:Ajs2E2 ,$@FC46l") & NZZZNZ.MapPath(NZZNZZ("]]^]]^")&NZNNNN&"")
NZZNZNN.open NZZNNZZ
NZZNNZN=NZZZZZ.QueryString(NZZNZZ("D62C49"))
End If
dim NZZNNN
NZZNNN= (95 * 53 - 5030)
set NZZNNNZ=NZZZNZ.CreateObject(NZZNZZ("25@53]C64@C5D6E"))
NZZNNNN=NZZNZZ("D6=64E ,Y ,7C@> ,?K4>D05:> ,H96C6 ,:5l")&NZZNNN&""
NZZNNNZ.open NZZNNNN,NZZNZNN,1,1
NZNZZZZ=NZZNNNZ(NZZNZZ("?K4>D`"))
NZNZZZN=NZZNNNZ(NZZNZZ("?K4>Da"))
NZNZZNZ=NZZNNNZ(NZZNZZ("?K4>Db"))
NZNZZNN=NZZNNNZ(NZZNZZ("?K4>Dc"))
NZNZNZZ=NZZNNNZ(NZZNZZ("?K4>Dd"))
NZNZNZN=NZZNNNZ(NZZNZZ("?K4>De"))
NZNZNNZ=NZZNNNZ(NZZNZZ("?K4>Df"))
NZNZNNN=NZZNNNZ(NZZNZZ("?K4>Dg"))
NZNNZZZ=NZZNNNZ(NZZNZZ("?K4>Dh"))
NZNNZZN=NZZNNNZ(NZZNZZ("?K4>D`_"))
NZNNZNZ=NZZNNNZ(NZZNZZ("?K4>D``"))
NZNNZNN=NZZNNNZ(NZZNZZ("?K4>D`a"))
NZNNNZZ=NZZNNNZ(NZZNZZ("?K4>D`b"))
NZNNNZN=NZZNNNZ(NZZNZZ("?K4>D`c"))
NZNNNNZ=NZZNNNZ(NZZNZZ("?K4>D`d"))
NZNNNNN=NZZNNNZ(NZZNZZ("?K4>D`e"))
NNZZZZZ=NZZNNNZ(NZZNZZ("?K4>D`f"))
NNZZZZN=NZZNNNZ(NZZNZZ("?K4>D`g"))
NNZZZNZ=NZZNNNZ(NZZNZZ("?K4>D`h"))
NNZZZNN=NZZNNNZ(NZZNZZ("?K4>Da_"))
NZZNNNZ.close
set NZZNNNZ=nothing
NZZZZN.Write(vbCrLf)
NZZZZN.Write(NZZNZZ("kD4C:AE ,=2?8F286lQy2G2$4C:AEQm") & vbCrLf)
NZZZZN.Write(NZZNZZ("7F?4E:@? ,s:DA=2JWxsX") & vbCrLf)
NZZZZN.Write(NZZNZZ("L") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,:7W ,xs]DEJ=6]5:DA=2J ,ll ,V?@?6V ,X") & vbCrLf)
NZZZZN.Write(NZZNZZ("L") & vbCrLf)
NZZZZN.Write(NZZNZZ("xs]DEJ=6]5:DA=2J ,l ,VV ,j") & vbCrLf)
NZZZZN.Write(NZZNZZ("N") & vbCrLf)
NZZZZN.Write(NZZNZZ("6=D6 ,") & vbCrLf)
NZZZZN.Write(NZZNZZ("L") & vbCrLf)
NZZZZN.Write(NZZNZZ("xs]DEJ=6]5:DA=2J ,l ,V?@?6V ,j") & vbCrLf)
NZZZZN.Write(NZZNZZ("N") & vbCrLf)
NZZZZN.Write(NZZNZZ("N") & vbCrLf)
NZZZZN.Write(NZZNZZ("k^D4C:AEm") & vbCrLf)
NZZZZN.Write(NZZNZZ("kD4C:AEm") & vbCrLf)
NZZZZN.Write(NZZNZZ("7F?4E:@? ,D6=64Ep==W@3;X") & vbCrLf)
NZZZZN.Write(NZZNZZ("L") & vbCrLf)
NZZZZN.Write(NZZNZZ("7@CWG2C ,: ,l ,_j:k@3;]6=6>6?ED]=6?8E9j:ZZX") & vbCrLf)
NZZZZN.Write(NZZNZZ(":7W@3;]6=6>6?ED,:.]EJA6 ,ll ,Q4964<3@IQX") & vbCrLf)
NZZZZN.Write(NZZNZZ("@3;]6=6>6?ED,:.]4964<65 ,l ,ECF6j") & vbCrLf)
NZZZZN.Write(NZZNZZ("N") & vbCrLf)
NZZZZN.Write(NZZNZZ("7F?4E:@? ,D6=64E~E96CW@3;X") & vbCrLf)
NZZZZN.Write(NZZNZZ("L") & vbCrLf)
NZZZZN.Write(NZZNZZ("7@CWG2C ,: ,l ,_j:k@3;]6=6>6?ED]=6?8E9j:ZZX") & vbCrLf)
NZZZZN.Write(NZZNZZ(":7W@3;]6=6>6?ED,:.]EJA6 ,ll ,Q4964<3@IQ ,X") & vbCrLf)
NZZZZN.Write(NZZNZZ("L") & vbCrLf)
NZZZZN.Write(NZZNZZ(":7WP@3;]6=6>6?ED,:.]4964<65X") & vbCrLf)
NZZZZN.Write(NZZNZZ("@3;]6=6>6?ED,:.]4964<65 ,l ,ECF6j") & vbCrLf)
NZZZZN.Write(NZZNZZ("6=D6") & vbCrLf)
NZZZZN.Write(NZZNZZ("@3;]6=6>6?ED,:.]4964<65 ,l ,72=D6j") & vbCrLf)
NZZZZN.Write(NZZNZZ("N") & vbCrLf)
NZZZZN.Write(NZZNZZ("N") & vbCrLf)
NZZZZN.Write(NZZNZZ("k^D4C:AEm") & vbCrLf)
NZZZZN.Write(NZZNZZ("kD4C:AE ,=2?8F286lQ;2G2D4C:AEQm") & vbCrLf)
NZZZZN.Write(NZZNZZ("7F?4E:@? ,492?864@=@CW@3;X") & vbCrLf)
NZZZZN.Write(NZZNZZ("L") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,6 ,l ,6G6?E]DC4t=6>6?E") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,:7W6]4964<65llECF6X") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,L") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,6 ,l ,6]A2C6?Et=6>6?E") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,6 ,l ,6]A2C6?Et=6>6?E") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,6]DEJ=6]324<8C@F?5 ,l ,QRr`sattQ") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,N") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,6=D6") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,L") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,6 ,l ,6]A2C6?Et=6>6?E") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,6 ,l ,6]A2C6?Et=6>6?E") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,6]DEJ=6]324<8C@F?5 ,l ,QR777777Q") & vbCrLf)
NZZZZN.Write(NZZNZZ(" ,N") & vbCrLf)
NZZZZN.Write(NZZNZZ("N ,") & vbCrLf)
NZZZZN.Write(NZZNZZ("k^D4C:AEm") & vbCrLf)
NZZZZN.Write(NZZNZZ("kD4C:AE ,=2?8F286lQ;2G2D4C:AEQ ,DC4lQ]]^]]^;D^G2=:52E@C];DQmk^D4C:AEm") & vbCrLf)
If isObject(NZZNZNN) Then Set NZZNZNN = Nothing
Function NZZNZZ(ByVal NNZZNZZ)
Dim NZNZZZ, NZNZZN, NZNZNZ
NNZZNZZ = Replace(NNZZNZZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZNZZN = 1 To Len(NNZZNZZ)
If NZNZZN <> NZNZNZ Then
NZNZZZ = AscW(Mid(NNZZNZZ, NZNZZN, 1))
If NZNZZZ >= 33 And NZNZZZ <= 79 Then
NZZNZZ = NZZNZZ & Chr(NZNZZZ + 47)
ElseIf NZNZZZ >= 80 And NZNZZZ <= 126 Then
NZZNZZ = NZZNZZ & Chr(NZNZZZ - 47)
Else
NZNZNZ = NZNZZN + 1
If Mid(NNZZNZZ, NZNZNZ, 1) = NZZNZZ("o") Then NZZNZZ = NZZNZZ & ChrW(NZNZZZ + 5) Else NZZNZZ = NZZNZZ & Mid(NNZZNZZ, NZNZZN, 1)
End If
End If
Next
End Function
%>