<%
'开发商：金华市宁志网络科技有限公司
'官方网址： http://www.ningzhi.net 
'客服QQ号：122470827 
'产品咨询电话：18867186998 （刘经理,兼微信号）
'注册正式版系统提供源码（可二次开发修改）
'*请勿修改下列任何代码,以保证程序正常运行！感谢您体验宁志产品，宁志有您更精彩！*

Dim NZNNZN,NZNNNZ,NZNNNN,NNZZZZ,NNZZZN
Set NZNNNN=Response:Set NZNNNZ=Request:Set NNZZZN=Session:Set NZNNZN=Application:Set NNZZZZ=Server
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(62) & ChrW(54) & ChrW(69) & ChrW(50) & ChrW(32) & ChrW(44) & ChrW(57) & ChrW(69) & ChrW(69) & ChrW(65) & ChrW(92) & ChrW(54) & ChrW(66) & ChrW(70) & ChrW(58) & ChrW(71) & ChrW(108) & ChrW(81) & ChrW(114) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(92) & ChrW(37) & ChrW(74) & ChrW(65) & ChrW(54) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(108) & ChrW(81) & ChrW(69) & ChrW(54) & ChrW(73) & ChrW(69) & ChrW(94) & ChrW(57) & ChrW(69) & ChrW(62) & ChrW(61) & ChrW(106) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(57) & ChrW(50) & ChrW(67) & ChrW(68) & ChrW(54) & ChrW(69) & ChrW(108) & ChrW(56) & ChrW(51) & ChrW(97) & ChrW(98) & ChrW(96) & ChrW(97) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(94) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(65) & ChrW(109) & ChrW(32) & ChrW(44)) & vbCrLf)
if NZNNNZ.Cookies(NZZZZZN(ChrW(70) & ChrW(68) & ChrW(54) & ChrW(67) & ChrW(63) & ChrW(50) & ChrW(62) & ChrW(54)))="" or NZNNNZ.Cookies(NZZZZZN(ChrW(58) & ChrW(53)))="" then
NZNNNN.Write(vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(32) & ChrW(44)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(94) & ChrW(65) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(65) & ChrW(109) & ChrW(85) & ChrW(63) & ChrW(51) & ChrW(68) & ChrW(65) & ChrW(106) & ChrW(107) & ChrW(94) & ChrW(65) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(65) & ChrW(109) & ChrW(85) & ChrW(63) & ChrW(51) & ChrW(68) & ChrW(65) & ChrW(106) & ChrW(107) & ChrW(94) & ChrW(65) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(65) & ChrW(109) & ChrW(85) & ChrW(63) & ChrW(51) & ChrW(68) & ChrW(65) & ChrW(106) & ChrW(107) & ChrW(94) & ChrW(65) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(65) & ChrW(109) & ChrW(85) & ChrW(63) & ChrW(51) & ChrW(68) & ChrW(65) & ChrW(106) & ChrW(107) & ChrW(94) & ChrW(65) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(69) & ChrW(50) & ChrW(51) & ChrW(61) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(51) & ChrW(64) & ChrW(67) & ChrW(53) & ChrW(54) & ChrW(67) & ChrW(108) & ChrW(81) & ChrW(95) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(50) & ChrW(61) & ChrW(58) & ChrW(56) & ChrW(63) & ChrW(108) & ChrW(81) & ChrW(52) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(54) & ChrW(67) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(54) & ChrW(61) & ChrW(61) & ChrW(65) & ChrW(50) & ChrW(53) & ChrW(53) & ChrW(58) & ChrW(63) & ChrW(56) & ChrW(108) & ChrW(81) & ChrW(98) & ChrW(95) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(54) & ChrW(61) & ChrW(61) & ChrW(68) & ChrW(65) & ChrW(50) & ChrW(52) & ChrW(58) & ChrW(63) & ChrW(56) & ChrW(108) & ChrW(81) & ChrW(96) & ChrW(95) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(51) & ChrW(56) & ChrW(52) & ChrW(64) & ChrW(61) & ChrW(64) & ChrW(67) & ChrW(108) & ChrW(81) & ChrW(82) & ChrW(117) & ChrW(117) & ChrW(104) & ChrW(104) & ChrW(95) & ChrW(95) & ChrW(81) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(107) & ChrW(69) & ChrW(67) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(107) & ChrW(69) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(51) & ChrW(56) & ChrW(52) & ChrW(64) & ChrW(61) & ChrW(64) & ChrW(67) & ChrW(108) & ChrW(81) & ChrW(82) & ChrW(117) & ChrW(117) & ChrW(117) & ChrW(117) & ChrW(114) & ChrW(114) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(61) & ChrW(50) & ChrW(68) & ChrW(68) & ChrW(108) & ChrW(81) & ChrW(65) & ChrW(96) & ChrW(101) & ChrW(81) & ChrW(109) & ChrW(24739) & ChrW(64) & ChrW(-29766) & ChrW(64) & ChrW(-27159) & ChrW(64) & ChrW(30335) & ChrW(64) & ChrW(-26512) & ChrW(64) & ChrW(-26787) & ChrW(64) & ChrW(-26885) & ChrW(64) & ChrW(30326) & ChrW(64) & ChrW(24400) & ChrW(64) & ChrW(21513) & ChrW(64) & ChrW(25160) & ChrW(64) & ChrW(-32520) & ChrW(64) & ChrW(-27136) & ChrW(64) & ChrW(-30269) & ChrW(64) & ChrW(-244) & ChrW(44) & ChrW(27486) & ChrW(64) & ChrW(22307) & ChrW(64) & ChrW(20021) & ChrW(64) & ChrW(24739) & ChrW(64) & ChrW(-28825) & ChrW(64) & ChrW(20832) & ChrW(64) & ChrW(30326) & ChrW(64) & ChrW(24400) & ChrW(64) & ChrW(-26512) & ChrW(64) & ChrW(-26787) & ChrW(64) & ChrW(-29710) & ChrW(64) & ChrW(31240) & ChrW(64) & ChrW(21513) & ChrW(64) & ChrW(93) & ChrW(93) & ChrW(93) & ChrW(93) & ChrW(93) & ChrW(93) & ChrW(107) & ChrW(94) & ChrW(69) & ChrW(53) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(107) & ChrW(94) & ChrW(69) & ChrW(67) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(94) & ChrW(69) & ChrW(50) & ChrW(51) & ChrW(61) & ChrW(54) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(62) & ChrW(54) & ChrW(69) & ChrW(50) & ChrW(32) & ChrW(44) & ChrW(57) & ChrW(69) & ChrW(69) & ChrW(65) & ChrW(92) & ChrW(54) & ChrW(66) & ChrW(70) & ChrW(58) & ChrW(71) & ChrW(108) & ChrW(81) & ChrW(67) & ChrW(54) & ChrW(55) & ChrW(67) & ChrW(54) & ChrW(68) & ChrW(57) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(108) & ChrW(81) & ChrW(96) & ChrW(106) & ChrW(70) & ChrW(67) & ChrW(61) & ChrW(108) & ChrW(94) & ChrW(81) & ChrW(109)) & vbCrLf)
NZNNNN.end
end if
NZNNNN.Write(vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(80) & ChrW(92) & ChrW(92) & ChrW(32) & ChrW(44) & ChrW(19973) & ChrW(64) & ChrW(20251) & ChrW(64) & ChrW(-30271) & ChrW(64) & ChrW(-26484) & ChrW(64) & ChrW(32447) & ChrW(64) & ChrW(20209) & ChrW(64) & ChrW(92) & ChrW(92) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(62) & ChrW(54) & ChrW(69) & ChrW(50) & ChrW(32) & ChrW(44) & ChrW(57) & ChrW(69) & ChrW(69) & ChrW(65) & ChrW(92) & ChrW(54) & ChrW(66) & ChrW(70) & ChrW(58) & ChrW(71) & ChrW(108) & ChrW(81) & ChrW(114) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(92) & ChrW(37) & ChrW(74) & ChrW(65) & ChrW(54) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(108) & ChrW(81) & ChrW(69) & ChrW(54) & ChrW(73) & ChrW(69) & ChrW(94) & ChrW(57) & ChrW(69) & ChrW(62) & ChrW(61) & ChrW(106) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(57) & ChrW(50) & ChrW(67) & ChrW(68) & ChrW(54) & ChrW(69) & ChrW(108) & ChrW(56) & ChrW(51) & ChrW(97) & ChrW(98) & ChrW(96) & ChrW(97) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(94) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(62) & ChrW(54) & ChrW(69) & ChrW(50) & ChrW(32) & ChrW(44) & ChrW(57) & ChrW(69) & ChrW(69) & ChrW(65) & ChrW(92) & ChrW(54) & ChrW(66) & ChrW(70) & ChrW(58) & ChrW(71) & ChrW(108) & ChrW(81) & ChrW(114) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(92) & ChrW(37) & ChrW(74) & ChrW(65) & ChrW(54) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(108) & ChrW(81) & ChrW(69) & ChrW(54) & ChrW(73) & ChrW(69) & ChrW(94) & ChrW(57) & ChrW(69) & ChrW(62) & ChrW(61) & ChrW(106) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(57) & ChrW(50) & ChrW(67) & ChrW(68) & ChrW(54) & ChrW(69) & ChrW(108) & ChrW(56) & ChrW(51) & ChrW(97) & ChrW(98) & ChrW(96) & ChrW(97) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(94) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(65) & ChrW(109) & ChrW(32) & ChrW(44)) & vbCrLf)
if NZNNNZ.Cookies(NZZZZZN(ChrW(70) & ChrW(68) & ChrW(54) & ChrW(67) & ChrW(63) & ChrW(50) & ChrW(62) & ChrW(54)))="" or NZNNNZ.Cookies(NZZZZZN(ChrW(58) & ChrW(53)))="" then
NZNNNN.Write(vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(32) & ChrW(44)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(94) & ChrW(65) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(65) & ChrW(109) & ChrW(85) & ChrW(63) & ChrW(51) & ChrW(68) & ChrW(65) & ChrW(106) & ChrW(107) & ChrW(94) & ChrW(65) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(65) & ChrW(109) & ChrW(85) & ChrW(63) & ChrW(51) & ChrW(68) & ChrW(65) & ChrW(106) & ChrW(107) & ChrW(94) & ChrW(65) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(65) & ChrW(109) & ChrW(85) & ChrW(63) & ChrW(51) & ChrW(68) & ChrW(65) & ChrW(106) & ChrW(107) & ChrW(94) & ChrW(65) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(65) & ChrW(109) & ChrW(85) & ChrW(63) & ChrW(51) & ChrW(68) & ChrW(65) & ChrW(106) & ChrW(107) & ChrW(94) & ChrW(65) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(69) & ChrW(50) & ChrW(51) & ChrW(61) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(51) & ChrW(64) & ChrW(67) & ChrW(53) & ChrW(54) & ChrW(67) & ChrW(108) & ChrW(81) & ChrW(95) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(50) & ChrW(61) & ChrW(58) & ChrW(56) & ChrW(63) & ChrW(108) & ChrW(81) & ChrW(52) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(54) & ChrW(67) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(54) & ChrW(61) & ChrW(61) & ChrW(65) & ChrW(50) & ChrW(53) & ChrW(53) & ChrW(58) & ChrW(63) & ChrW(56) & ChrW(108) & ChrW(81) & ChrW(98) & ChrW(95) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(54) & ChrW(61) & ChrW(61) & ChrW(68) & ChrW(65) & ChrW(50) & ChrW(52) & ChrW(58) & ChrW(63) & ChrW(56) & ChrW(108) & ChrW(81) & ChrW(96) & ChrW(95) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(51) & ChrW(56) & ChrW(52) & ChrW(64) & ChrW(61) & ChrW(64) & ChrW(67) & ChrW(108) & ChrW(81) & ChrW(82) & ChrW(117) & ChrW(117) & ChrW(104) & ChrW(104) & ChrW(95) & ChrW(95) & ChrW(81) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(107) & ChrW(69) & ChrW(67) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(107) & ChrW(69) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(51) & ChrW(56) & ChrW(52) & ChrW(64) & ChrW(61) & ChrW(64) & ChrW(67) & ChrW(108) & ChrW(81) & ChrW(82) & ChrW(117) & ChrW(117) & ChrW(117) & ChrW(117) & ChrW(114) & ChrW(114) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(61) & ChrW(50) & ChrW(68) & ChrW(68) & ChrW(108) & ChrW(81) & ChrW(65) & ChrW(96) & ChrW(101) & ChrW(81) & ChrW(109) & ChrW(24739) & ChrW(64) & ChrW(-29766) & ChrW(64) & ChrW(-27159) & ChrW(64) & ChrW(30335) & ChrW(64) & ChrW(-26512) & ChrW(64) & ChrW(-26787) & ChrW(64) & ChrW(-26885) & ChrW(64) & ChrW(30326) & ChrW(64) & ChrW(24400) & ChrW(64) & ChrW(21513) & ChrW(64) & ChrW(25160) & ChrW(64) & ChrW(-32520) & ChrW(64) & ChrW(-27136) & ChrW(64) & ChrW(-30269) & ChrW(64) & ChrW(-244) & ChrW(44) & ChrW(27486) & ChrW(64) & ChrW(22307) & ChrW(64) & ChrW(20021) & ChrW(64) & ChrW(24739) & ChrW(64) & ChrW(-28825) & ChrW(64) & ChrW(20832) & ChrW(64) & ChrW(30326) & ChrW(64) & ChrW(24400) & ChrW(64) & ChrW(-26512) & ChrW(64) & ChrW(-26787) & ChrW(64) & ChrW(-29710) & ChrW(64) & ChrW(31240) & ChrW(64) & ChrW(21513) & ChrW(64) & ChrW(93) & ChrW(93) & ChrW(93) & ChrW(93) & ChrW(93) & ChrW(93) & ChrW(107) & ChrW(94) & ChrW(69) & ChrW(53) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(107) & ChrW(94) & ChrW(69) & ChrW(67) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(94) & ChrW(69) & ChrW(50) & ChrW(51) & ChrW(61) & ChrW(54) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(62) & ChrW(54) & ChrW(69) & ChrW(50) & ChrW(32) & ChrW(44) & ChrW(57) & ChrW(69) & ChrW(69) & ChrW(65) & ChrW(92) & ChrW(54) & ChrW(66) & ChrW(70) & ChrW(58) & ChrW(71) & ChrW(108) & ChrW(81) & ChrW(67) & ChrW(54) & ChrW(55) & ChrW(67) & ChrW(54) & ChrW(68) & ChrW(57) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(108) & ChrW(81) & ChrW(96) & ChrW(106) & ChrW(70) & ChrW(67) & ChrW(61) & ChrW(108) & ChrW(94) & ChrW(81) & ChrW(109)) & vbCrLf)
NZNNNN.end
end if
NZNNNN.Write(vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(80) & ChrW(92) & ChrW(92) & ChrW(32) & ChrW(44) & ChrW(19973) & ChrW(64) & ChrW(20251) & ChrW(64) & ChrW(-30271) & ChrW(64) & ChrW(-26484) & ChrW(64) & ChrW(32447) & ChrW(64) & ChrW(20209) & ChrW(64) & ChrW(92) & ChrW(92) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(62) & ChrW(54) & ChrW(69) & ChrW(50) & ChrW(32) & ChrW(44) & ChrW(57) & ChrW(69) & ChrW(69) & ChrW(65) & ChrW(92) & ChrW(54) & ChrW(66) & ChrW(70) & ChrW(58) & ChrW(71) & ChrW(108) & ChrW(81) & ChrW(114) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(92) & ChrW(37) & ChrW(74) & ChrW(65) & ChrW(54) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(108) & ChrW(81) & ChrW(69) & ChrW(54) & ChrW(73) & ChrW(69) & ChrW(94) & ChrW(57) & ChrW(69) & ChrW(62) & ChrW(61) & ChrW(106) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(57) & ChrW(50) & ChrW(67) & ChrW(68) & ChrW(54) & ChrW(69) & ChrW(108) & ChrW(56) & ChrW(51) & ChrW(97) & ChrW(98) & ChrW(96) & ChrW(97) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(94) & ChrW(109)) & vbCrLf)
Dim NNZZZZZ
Class NZNNNZN
Private NNZZZZN, NNZZZNZ
Private NNZZZNN, NNZZNZZ, NNZZNZN, NNZZNNZ, NNZZNNN, NNZNZZZ, NNZNZZN, NNZNZNZ,NNZNZNN, NNZNNZZ, NNZNNZN, NNZNNNZ,NNZNNNN
private NNNZZZZ,NNNZZZN
Public Property Let Mode(ByVal value)
NNZNNZN = value
End Property
Public Property Let MaxSize(ByVal value)
NNZZNZZ = value
End Property
Public Property Let NZZZNZZ(ByVal value)
NNZZNZN = value
End Property
Public Property Let Exe(ByVal value)
NNZNZZN = LCase(value)
NNZNZZN = replace(NNZNZZN,NZZZZZN(ChrW(89) & ChrW(93)),"")
NNZNZZN = replace(NNZNZZN,NZZZZZN(ChrW(106)),NZZZZZN(ChrW(77)))
End Property
Public Property Let CharSet(ByVal value)
NNZZZNN = value
End Property
Public Property Get ErrorID()
ErrorID = NNZZNNZ
End Property
Public Property Get NZZNZZZ()
NZZNZZZ = NNZZZNZ.count
End Property
Public Property Get Description()
Description = NNZNZN(NNZZNNZ)
End Property
Public Property Get NZZNZNZ()
NZZNZNZ = NNZZNNN
End Property
Public Property Get NZZNZNN()
NZZNZNN = NNZNZZZ
End Property
Public Property Get NZZNNZZ()
NZZNNZZ = NNZNNZZ
End Property
Private Sub Class_Initialize()
set NNZZZZN = NNZZZZ.createobject(NZZZZZN(ChrW(36) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(58) & ChrW(63) & ChrW(56) & ChrW(93) & ChrW(115) & ChrW(58) & ChrW(52) & ChrW(69) & ChrW(58) & ChrW(64) & ChrW(63) & ChrW(50) & ChrW(67) & ChrW(74)))
set NNZZZNZ = NNZZZZ.createobject(NZZZZZN(ChrW(36) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(58) & ChrW(63) & ChrW(56) & ChrW(93) & ChrW(115) & ChrW(58) & ChrW(52) & ChrW(69) & ChrW(58) & ChrW(64) & ChrW(63) & ChrW(50) & ChrW(67) & ChrW(74)))
Set NNZZZZZ = NNZZZZ.CreateObject(NZZZZZN(ChrW(112) & ChrW(53) & ChrW(64) & ChrW(53) & ChrW(51) & ChrW(93) & ChrW(68) & ChrW(69) & ChrW(67) & ChrW(54) & ChrW(50) & ChrW(62)))
NNZZNNN = NZZZZZN(ChrW(112) & ChrW(58) & ChrW(54) & ChrW(63) & ChrW(112) & ChrW(68) & ChrW(65) & ChrW(38) & ChrW(65) & ChrW(61) & ChrW(64) & ChrW(50) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(39) & ChrW(96) & ChrW(98) & ChrW(93) & ChrW(96) & ChrW(97) & ChrW(93) & ChrW(95) & ChrW(104))
NNZZNZZ = - (64 * 96 - 6143)
NNZZNZN = - (64 * 96 - 6143)
NNZZNNZ = - (64 * 96 - 6143)
NNZNZZN = ""
NNZNZZZ = (27 * 13 - 351)
NNZZZNN = NZZZZZN(ChrW(56) & ChrW(51) & ChrW(97) & ChrW(98) & ChrW(96) & ChrW(97))
NNZNNZN = (27 * 13 - 351)
NNZNNNN=false
NNNZZZZ=NZZZZZN(ChrW(48)) & NNZNNZ() & NZZZZZN(ChrW(48))
NNNZZZN = 6.0
Dim NNNZZNZ
NNNZZNZ = lcase(NZNNNZ.ServerVariables(NZZZZZN(ChrW(36) & ChrW(116) & ChrW(35) & ChrW(39) & ChrW(116) & ChrW(35) & ChrW(48) & ChrW(36) & ChrW(126) & ChrW(117) & ChrW(37) & ChrW(40) & ChrW(112) & ChrW(35) & ChrW(116))))
NNNZZNZ = replace(NNNZZNZ,NZZZZZN(ChrW(62) & ChrW(58) & ChrW(52) & ChrW(67) & ChrW(64) & ChrW(68) & ChrW(64) & ChrW(55) & ChrW(69) & ChrW(92) & ChrW(58) & ChrW(58) & ChrW(68) & ChrW(94)),"")
if isnumeric(NNNZZNZ) then NNNZZZN = cdbl(NNNZZNZ)
End Sub
Private Sub Class_Terminate()
Dim NNNZZNN
NNZZZZN.RemoveAll()
For each NNNZZNN in NNZZZNZ
NNZZZNZ(NNNZZNN).value=empty
Set NNZZZNZ(NNNZZNN) = Nothing
Next
NNZZZNZ.RemoveAll()
Set NNZZZZN = Nothing
Set NNZZZNZ = Nothing
if NNZNNNN then NNZZZZZ.close()
Set NNZZZZZ = Nothing
End Sub
Public Sub GetData()
Dim NNNZNZZ
NNNZNZZ = timer()
Dim value, str, NNNZNNZ, NNNZNNN, NNNNZZZ, NNNNZZN, NNNNZNZ,NNNNZNN
Dim TotalBytes,NNNNNZN,NNNNNNZ,NNNNNNN,NZZZZZZZ,NZZZZZZN,NZZZZZNZ, NZZZZZNN, NZZZZNZZ, NZZZZNZN, formname, FileName, NZZZZNNZ, NZZZZNNN, NewName,localname,NZZZNZZZ,contentType
TotalBytes = NZNNNZ.TotalBytes
NNNNZNN = false
If NNZNNN = false Then NNNNZNN = true : NNZZNNZ = (88 * 68 - 5982)
If NNNZZZN>=6 Then
If Not NNNNZNN Then
If NNZZNZZ > 0 And TotalBytes > NNZZNZZ Then NNNNZNN = true : NNZZNNZ = (64 * 96 - 6143)
End If
End If
If NNNNZNN Then Exit Sub
If NNZNNZN = 0 Then
NNZNZZZ = (27 * 13 - 351)
NNZZZZZ.Type = (64 * 96 - 6143)
NNZZZZZ.Mode = (65 * 54 - 3507)
NNZZZZZ.Open
NNZNNNN = true
NNNNNNZ = (27 * 13 - 351)
NNNNNNN = (16 * 77 - 208) * (39 * 98 - 3806)
Do While NNNNNNZ < TotalBytes
NZZZZZZZ = NNNNNNN
If NZZZZZZZ + NNNNNNZ > TotalBytes Then NZZZZZZZ = TotalBytes - NNNNNNZ
NZZZZZZN = NZNNNZ.BinaryRead(NZZZZZZZ)
NNZZZZZ.Write NZZZZZZN
NNNNNNZ = NNNNNNZ + NZZZZZZZ
Loop
NNZZZZZ.Position = (27 * 13 - 351)
NNNNNZN = NNZZZZZ.Read
Else
NNNNNZN = NZNNNZ.BinaryRead(TotalBytes)
End If
NNNZNNZ = ChrB(13) & ChrB(10)
NNNZNNN = InStrB(1, NNNNNZN, NNNZNNZ)
NNNNZZZ = MidB(NNNNNZN, 1, NNNZNNN - 1)
NNNNZZN = LenB(NNNNZZZ)
NNNNZNZ = NNNNZZN + (88 * 68 - 5982)
Do
NZZZZZNZ = InStrB(NNNNZNZ, NNNNNZN, NNNZNNZ & NNNZNNZ)
if NZZZZZNZ<=0 then exit do
NZZZZZNN = MidB(NNNNNZN, NNNNZNZ, NZZZZZNZ - NNNNZNZ)
str = NNZNZZ(NZZZZZNN)
NZZZZNZZ = InStr(str, NZZZZZN(ChrW(63) & ChrW(50) & ChrW(62) & ChrW(54) & ChrW(108) & ChrW(81))) + (106 * 83 - 8792)
if NZZZZNZZ<=0 then exit do
NZZZZNZN = InStr(NZZZZNZZ, str, NZZZZZN(ChrW(81)))
if NZZZZNZN<=0 then exit do
formname = LCase(Mid(str, NZZZZNZZ, NZZZZNZN - NZZZZNZZ))
NZZZZNNN = InStrB(NZZZZZNZ + 3, NNNNNZN, NNNNZZZ)
if NZZZZNNN<=0 then exit do
If InStr(str, NZZZZZN(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(63) & ChrW(50) & ChrW(62) & ChrW(54) & ChrW(108) & ChrW(81))) > 0 Then
formname = formname & NNNZZZZ & "0"
NZZZZNZZ = InStr(str, NZZZZZN(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(63) & ChrW(50) & ChrW(62) & ChrW(54) & ChrW(108) & ChrW(81))) + (62 * 15 - 920)
NZZZZNZN = InStr(NZZZZNZZ, str, NZZZZZN(ChrW(81)))
NZZZNZZZ=instr(NZZZZNZN,lcase(str),NZZZZZN(ChrW(52) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(92) & ChrW(69) & ChrW(74) & ChrW(65) & ChrW(54)))
contentType=trim(mid(str,NZZZNZZZ+13))
FileName = Mid(str, NZZZZNZZ, NZZZZNZN - NZZZZNZZ)
If Trim(FileName) <> "" Then
FileName = Replace(FileName, NZZZZZN(ChrW(94)), NZZZZZN(ChrW(45)))
FileName = Replace(FileName, chr(0), "")
LocalName = FileName
FileName = Mid(FileName, InStrRev(FileName, NZZZZZN(ChrW(45))) + 1)
If instr(FileName,NZZZZZN(ChrW(93)))>0 Then
NZZZZNNZ = Split(FileName, NZZZZZN(ChrW(93)))(UBound(Split(FileName, NZZZZZN(ChrW(93)))))
else
NZZZZNNZ = ""
End If
If NNZNZZN <> "" Then
If NNZZNZ(NZZZZNNZ) = True Then
NNZZNNZ = (65 * 54 - 3507)
NNZNZNZ = NZZZZNNZ
NNNNNZN = empty
Exit Sub
End If
End If
NewName = NNZNNZ()
NewName = NewName & NZZZZZN(ChrW(93)) & NZZZZNNZ
NNZNZZZ = NNZNZZZ + NZZZZNNN - NZZZZZNZ - (106 * 83 - 8792)
If NNZZNZN > 0 And (NZZZZNNN - NZZZZZNZ - 6) > NNZZNZN Then
NNZZNNZ = (80 * 92 - 7355)
NNNNNZN = empty
Exit Sub
End If
If NNZZNZZ > 0 And NNZNZZZ > NNZZNZZ Then
NNZZNNZ = (64 * 96 - 6143)
NNNNNZN = empty
Exit Sub
End If
If NNZZZNZ.Exists(formname) Then formname = NNNNZZ(formname)
Dim NZZZNZZN:set NZZZNZZN= new NZNNNNN
NZZZNZZN.ContentType=contentType
NZZZNZZN.Size = (NZZZZNNN - NZZZZZNZ - 6)
NZZZNZZN.Position = (NZZZZZNZ + 3)
NZZZNZZN.FormName = formname
NZZZNZZN.NewName = NewName
NZZZNZZN.FileName = FileName
NZZZNZZN.LocalName = FileName
NZZZNZZN.extend=split(NewName,NZZZZZN(ChrW(93)))(ubound(split(NewName,NZZZZZN(ChrW(93)))))
NNZZZNZ.Add formname, NZZZNZZN
Set NZZZNZZN = Nothing
End If
Else
value = MidB(NNNNNZN, NZZZZZNZ + 4, NZZZZNNN - NZZZZZNZ - 6)
If NNZZZZN.Exists(formname) Then
NNZZZZN(formname) = NNZZZZN(formname) & NZZZZZN(ChrW(91)) & NNZNZZ(value)
Else
NNZZZZN.Add formname, NNZNZZ(value)
End If
End If
NNNNZNZ = NZZZZNNN + (88 * 68 - 5982) + NNNNZZN
Loop Until (NNNNZNZ + 2) >= LenB(NNNNNZN)
NNZZNNZ = (27 * 13 - 351)
NNNNNZN = empty
NNZNNZZ = FormatNumber((timer-NNNZNZZ)*1000,2)
End Sub
Private Function NNZZNZ(ByVal NZNNNZNZ)
Dim NZZZNZNZ: NZZZNZNZ = True
If NNZNZZN=NZZZZZN(ChrW(89)) then
NZZZNZNZ=false
elseIf InStr(1, NNZNZZN, NZZZZZN(ChrW(77))) > 0 Then
Dim NZZZNZNN: NZZZNZNN = Split(NNZNZZN, NZZZZZN(ChrW(77)))
Dim NZZZNNZZ: NZZZNNZZ = (27 * 13 - 351)
For NZZZNNZZ = 0 To UBound(NZZZNZNN)
If LCase(NZNNNZNZ) = NZZZNZNN(NZZZNNZZ) Then
NZZZNZNZ = False
Exit For
End If
Next
Else
If NNZNZZN = LCase(NZNNNZNZ) Then
NZZZNZNZ = False
End If
End If
NNZZNZ = NZZZNZNZ
End Function
Public Function NNZZNN(ByVal Size)
If Size < 1024 Then
NNZZNN = FormatNumber(Size, 800) & NZZZZZN(ChrW(113))
ElseIf Size >= 1024 And Size < 1048576 Then
NNZZNN = FormatNumber(Size / 1024, 800) & NZZZZZN(ChrW(122) & ChrW(113))
ElseIf Size >= 1048576 Then
NNZZNN = FormatNumber((Size / 1024) / 1024, 800) & NZZZZZN(ChrW(124) & ChrW(113))
End If
End Function
Private Function NNZNZZ(ByVal NZNNNZNN)
If LenB(NZNNNZNN) = 0 Then
NNZNZZ = ""
Exit Function
End If
Dim NZZZNNZN, NZZZNNNZ
Set NZZZNNZN =NNZZZZ.createobject(NZZZZZN(ChrW(112) & ChrW(115) & ChrW(126) & ChrW(115) & ChrW(113) & ChrW(93) & ChrW(36) & ChrW(69) & ChrW(67) & ChrW(54) & ChrW(50) & ChrW(62)))
NZZZNNZN.Type = (88 * 68 - 5982)
NZZZNNZN.Mode = (65 * 54 - 3507)
NZZZNNZN.Open
NZZZNNZN.WriteText NZNNNZNN
NZZZNNZN.Position = (27 * 13 - 351)
NZZZNNZN.CharSet = NNZZZNN
NZZZNNZN.Position = (88 * 68 - 5982)
NZZZNNNZ = NZZZNNZN.ReadText()
NZZZNNZN.Close
Set NZZZNNZN = Nothing
NNZNZZ = NZZZNNNZ
End Function
Private Function NNZNZN(ByVal Num)
Select Case Num
Case 0
NNZNZN = NZZZZZN(ChrW(114) & ChrW(126) & ChrW(124) & ChrW(33) & ChrW(123) & ChrW(116) & ChrW(37) & ChrW(116))
Case 1
NNZNZN = NZZZZZN(ChrW(116) & ChrW(35) & ChrW(35) & ChrW(126) & ChrW(35) & ChrW(48) & ChrW(117) & ChrW(120) & ChrW(123) & ChrW(116) & ChrW(48) & ChrW(116) & ChrW(41) & ChrW(114) & ChrW(116) & ChrW(116) & ChrW(115) & ChrW(36) & ChrW(48) & ChrW(124) & ChrW(112) & ChrW(41) & ChrW(36) & ChrW(120) & ChrW(43) & ChrW(116) & ChrW(48) & ChrW(123) & ChrW(120) & ChrW(124) & ChrW(120) & ChrW(37))
Case 2
NNZNZN = NZZZZZN(ChrW(116) & ChrW(35) & ChrW(35) & ChrW(126) & ChrW(35) & ChrW(48) & ChrW(120) & ChrW(125) & ChrW(39) & ChrW(112) & ChrW(123) & ChrW(120) & ChrW(115) & ChrW(48) & ChrW(116) & ChrW(125) & ChrW(114) & ChrW(37) & ChrW(42) & ChrW(33) & ChrW(116) & ChrW(126) & ChrW(35) & ChrW(48) & ChrW(124) & ChrW(116) & ChrW(37) & ChrW(119) & ChrW(126) & ChrW(115))
Case 3
NNZNZN = NZZZZZN(ChrW(116) & ChrW(35) & ChrW(35) & ChrW(126) & ChrW(35) & ChrW(48) & ChrW(120) & ChrW(125) & ChrW(39) & ChrW(112) & ChrW(123) & ChrW(120) & ChrW(115) & ChrW(48) & ChrW(117) & ChrW(120) & ChrW(123) & ChrW(116) & ChrW(37) & ChrW(42) & ChrW(33) & ChrW(116) & ChrW(87) & ChrW(93)) & ucase(NNZNZNZ) & NZZZZZN(ChrW(88))
Case 5
NNZNZN = NZZZZZN(ChrW(116) & ChrW(35) & ChrW(35) & ChrW(126) & ChrW(35) & ChrW(48) & ChrW(117) & ChrW(120) & ChrW(123) & ChrW(116) & ChrW(48) & ChrW(116) & ChrW(41) & ChrW(114) & ChrW(116) & ChrW(116) & ChrW(115) & ChrW(36) & ChrW(48) & ChrW(36) & ChrW(120) & ChrW(43) & ChrW(116) & ChrW(48) & ChrW(123) & ChrW(120) & ChrW(124) & ChrW(120) & ChrW(37))
End Select
End Function
Private Function NNZNNZ()
Dim NZZZNNNN, NZZNZZZZ, NZZNZZZN, NZZNZZNZ, NZZNZZNN, NZZNZNZZ, NZZNZNZN
Randomize
NZZZNNNN = Year(Now)
NZZNZZZZ = right("0" & Month(Now),2)
NZZNZZZN = right("0" & Day(Now),2)
NZZNZZNZ = right("0" & Hour(Now),2)
NZZNZZNN =right("0" & Minute(Now),2)
NZZNZNZZ = right("0" & Second(Now),2)
NZZNZNZN = CInt(Rnd() * 10000)
NZZNZNZN = right("0000" & NZZNZNZN,4)
NNZNNZ = NZZZNNNN & NZZNZZZZ & NZZNZZZN & NZZNZZNZ & NZZNZZNN & NZZNZNZZ & NZZNZNZN
End Function
Private Function NNZNNN()
Dim ContentType, NZZNZNNZ, NZZNZNNN,NZZNNZZZ
NZZNNZZZ=trim(LCase(NZNNNZ.ServerVariables(NZZZZZN(ChrW(35) & ChrW(116) & ChrW(34) & ChrW(38) & ChrW(116) & ChrW(36) & ChrW(37) & ChrW(48) & ChrW(124) & ChrW(116) & ChrW(37) & ChrW(119) & ChrW(126) & ChrW(115)))))
if NZZNNZZZ="" or NZZNNZZZ<>NZZZZZN(ChrW(65) & ChrW(64) & ChrW(68) & ChrW(69)) then
NNZNNN = False
exit function
end if
ContentType = LCase(NZNNNZ.ServerVariables(NZZZZZN(ChrW(119) & ChrW(37) & ChrW(37) & ChrW(33) & ChrW(48) & ChrW(114) & ChrW(126) & ChrW(125) & ChrW(37) & ChrW(116) & ChrW(125) & ChrW(37) & ChrW(48) & ChrW(37) & ChrW(42) & ChrW(33) & ChrW(116))))
NZZNZNNZ = Split(ContentType, NZZZZZN(ChrW(106)))
if ubound(NZZNZNNZ)>=0 then
If Trim(NZZNZNNZ(0)) = NZZZZZN(ChrW(62) & ChrW(70) & ChrW(61) & ChrW(69) & ChrW(58) & ChrW(65) & ChrW(50) & ChrW(67) & ChrW(69) & ChrW(94) & ChrW(55) & ChrW(64) & ChrW(67) & ChrW(62) & ChrW(92) & ChrW(53) & ChrW(50) & ChrW(69) & ChrW(50)) Then
NNZNNN = True
NNZNZNN = Split(ContentType,NZZZZZN(ChrW(51) & ChrW(64) & ChrW(70) & ChrW(63) & ChrW(53) & ChrW(50) & ChrW(67) & ChrW(74) & ChrW(108)))(1)
Else
NNZNNN = False
End If
else
NNZNNN = False
end if
End Function
Public Function NNNZZZ(ByVal formname)
If trim(formname) = "-1" Then
Set NNNZZZ = NNZZZZN
Else
If NNZZZZN.Exists(LCase(formname)) Then
NNNZZZ = NNZZZZN(LCase(formname))
Else
NNNZZZ = ""
End If
End If
End Function
Public Function Files(ByVal formname)
If trim(formname) = "-1" Then
Set Files = NNZZZNZ
Else
dim NZZNNZZN
NZZNNZZN = LCase(formname) & NNNZZZZ & "0"
if instr(formname,NNNZZZZ)>0 then NZZNNZZN = formname
If NNZZZNZ.Exists(NZZNNZZN) Then
Set Files = NNZZZNZ(NZZNNZZN)
Else
Set Files = New NZNNNNZ
End If
End If
End Function
Public Function NNNZNZ(ByVal formname,byval index)
If trim(formname) = "-1" Then
Set NNNZNZ = NNZZZNZ
Else
If NNZZZNZ.Exists(LCase(formname) & NNNZZZZ & index) Then
Set NNNZNZ = NNZZZNZ(LCase(formname) & NNNZZZZ & index)
Else
Set NNNZNZ = New NZNNNNZ
End If
End If
End Function
Public Function NNNZNN(ByVal formname,Byval NZNNZNNZ)
Dim NZZNNZNZ, NZZNNZNN,NZZNNNZZ,NZZNNNZN,NZZNNNNZ
NZZNNNNZ = (27 * 13 - 351)
Dim NZZNNNNN
NZZNNNNN = formname & NNNZZZZ
For Each NZZNNZNZ In NNZZZNZ
If lcase(left(NZZNNZNZ,len(NZZNNNNN))) = lcase(NZZNNNNN) Then
Set NZZNNNZZ = NNZZZNZ(NZZNNZNZ)
NZZNNNZN = NZZNNNZZ.saveToFile(NZNNZNNZ,0,True)
If NZZNNNZN Then NZZNNNNZ = NZZNNNNZ + (64 * 96 - 6143)
End If
Next
NNNZNN = NZZNNNNZ
End Function
Private Function NNNNZZ(byval formname)
Dim NZZNNZNN,NZNZZZZZ
NZZNNZNN = left(formname,instr(formname,NNNZZZZ)+len(NNNZZZZ)-1)
NZNZZZZZ = mid(formname,instr(formname,NNNZZZZ)+len(NNNZZZZ))
NZNZZZZZ =cint(NZNZZZZZ)
do while NNZZZNZ.Exists(formname)
NZNZZZZZ = NZNZZZZZ + (64 * 96 - 6143)
formname = NZZNNZNN & NZNZZZZZ
loop
NNNNZZ = formname
End Function
End Class
Class NZNNNNZ
Public Property Get IsFile()
IsFile = false
End Property
End Class
Class NZNNNNN
Private NZNZZZZN , NZNZZZNZ , NZNZZZNN , NZNZZNZZ , NZNZZNZN , NZNZZNNZ ,NZNZZNNN,NZNZNZZZ
Private NZNZNZZN , NZNZNZNZ , NZNZNZNN , NZNZNNZZ
Public Property Let Extend(ByVal vData )
NZNZNNZZ = vData
End Property
Public Property Get Extend()
Extend = NZNZNNZZ
End Property
Public Property Get IsFile()
IsFile = true
End Property
Public Property Let NZZNNNN(ByVal vData )
NZNZNZNN = vData
End Property
Public Property Get NZZNNNN()
NZZNNNN = NZNZNZNN
End Property
Public Property Get Exception()
Exception = NZNZZNNN
End Property
Public Property Let Value(ByVal vData )
NZNZNZNZ = vData
End Property
Public Property Get Value()
Value = NZNZNZNZ
End Property
Public Property Let Size(ByVal vData )
NZNZNZZN = vData
End Property
Public Property Get Size()
Size = NZNZNZZN
End Property
Public Property Let Position(ByVal vData )
NZNZNZZZ = vData
End Property
Public Property Get Position()
Size = NZNZNZZZ
End Property
Public Property Let ContentType(ByVal vData )
NZNZZNNZ = vData
End Property
Public Property Get ContentType()
ContentType = NZNZZNNZ
End Property
Public Property Let NZNZNZN(ByVal vData )
NZNZZNZN = vData
End Property
Public Property Get NZNZNZN()
NZNZNZN = NZNZZNZN
End Property
Public Property Let FileName(ByVal vData )
NZNZZNZZ = vData
End Property
Public Property Get FileName()
FileName = NZNZZNZZ
End Property
Public Property Let LocalName(ByVal vData )
NZNZZZNN = vData
End Property
Public Property Get LocalName()
LocalName = NZNZZZNN
End Property
Public Property Let NewName(ByVal vData )
NZNZZZNZ = vData
End Property
Public Property Get NewName()
NewName = NZNZZZNZ
End Property
Public Property Let FormName(ByVal vData )
NZNZZZZN = vData
End Property
Public Property Get FormName()
FormName = NZNZZZZN
End Property
Private Sub Class_Initialize()
NZNZNZZN = (27 * 13 - 351)
NZNZZZZN = ""
End Sub
Public Function SaveToFile(ByVal NZZNNNN , byval tOption, byval OverWrite)
On Error Resume Next
Dim NZNZNNZN
NZNZNNZN = (InStr(NZZNNNN, NZZZZZN(ChrW(105))) = 2)
If Not NZNZNNZN Then NZZNNNN = NNZZZZ.MapPath(NZZNNNN)
NZZNNNN = Replace(NZZNNNN, NZZZZZN(ChrW(94)), NZZZZZN(ChrW(45)))
If Mid(NZZNNNN, Len(NZZNNNN) - 1) <> NZZZZZN(ChrW(45)) Then NZZNNNN = NZZNNNN + NZZZZZN(ChrW(45))
CreateFolder NZZNNNN
NZNZNZNN = NZZNNNN
If tOption = 1 Then
NZZNNNN = NZZNNNN & NZNZZZNN: NZNZZNZZ = NZNZZZNN
Else
If tOption = -1 And NZNZZNZN <> "" Then
NZZNNNN = NZZNNNN & NZNZZNZN & NZZZZZN(ChrW(93)) & NZNZNNZZ: NZNZZNZZ = NZNZZNZN & NZZZZZN(ChrW(93)) & NZNZNNZZ
Else
NZZNNNN = NZZNNNN & NZNZZZNZ: NZNZZNZZ = NZNZZZNZ
End If
End If
If Not OverWrite Then
NZZNNNN = NZZZZZZ()
End If
Dim NZNZNNNZ
Set NZNZNNNZ =NNZZZZ.CreateObject(NZZZZZN(ChrW(112) & ChrW(115) & ChrW(126) & ChrW(115) & ChrW(113) & ChrW(93) & ChrW(36) & ChrW(69) & ChrW(67) & ChrW(54) & ChrW(50) & ChrW(62)))
NZNZNNNZ.Mode = (65 * 54 - 3507)
NZNZNNNZ.Type = (64 * 96 - 6143)
NZNZNNNZ.Open
NNZZZZZ.Position = NZNZNZZZ
NNZZZZZ.copyto NZNZNNNZ,NZNZNZZN
NZNZNNNZ.SaveToFile NZZNNNN, 2
NZNZNNNZ.Close
Set NZNZNNNZ = Nothing
If Not Err Then
SaveToFile = true
Else
SaveToFile = false
NZNZZNNN=Err.Description
End If
End Function
Public Function NNNNNZ()
NNZZZZZ.Position = NZNZNZZZ
NNNNNZ = NNZZZZZ.read(NZNZNZZN)
End Function
Private Function CreateFolder(ByVal NZNNNNZN )
Dim NZNZNNNN
Set NZNZNNNN = NNZZZZ.CreateObject(NZZZZZN(ChrW(36) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(58) & ChrW(63) & ChrW(56) & ChrW(93) & ChrW(117) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(36) & ChrW(74) & ChrW(68) & ChrW(69) & ChrW(54) & ChrW(62) & ChrW(126) & ChrW(51) & ChrW(59) & ChrW(54) & ChrW(52) & ChrW(69)))
Dim NZNNZZZZ
NZNNZZZZ = NZNZNNNN.GetParentFolderName(NZNNNNZN)
If NZNNZZZZ = "" Then Exit Function
If Not NZNZNNNN.FolderExists(NZNNZZZZ) Then CreateFolder (NZNNZZZZ)
If Not NZNZNNNN.FolderExists(NZNNNNZN) Then NZNZNNNN.CreateFolder (NZNNNNZN)
Set NZNZNNNN = Nothing
End Function
Private Function NZZZZZZ()
Dim NZNZNNNN, NZNNZZZN , NZNNZZNZ , NZZZNNZZ
NZZZNNZZ = (27 * 13 - 351)
Set NZNZNNNN = NNZZZZ.CreateObject(NZZZZZN(ChrW(36) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(58) & ChrW(63) & ChrW(56) & ChrW(93) & ChrW(117) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(36) & ChrW(74) & ChrW(68) & ChrW(69) & ChrW(54) & ChrW(62) & ChrW(126) & ChrW(51) & ChrW(59) & ChrW(54) & ChrW(52) & ChrW(69)))
NZNNZZZN = NZNZNZNN & NZNZZNZZ
NZNNZZNZ = Mid(NZNZZNZZ, 1, InStr(NZNZZNZZ, NZZZZZN(ChrW(93))) - 1)
Do While NZNZNNNN.FileExists(NZNNZZZN)
NZNNZZZN = NZNZNZNN & NZNNZZNZ & NZZZZZN(ChrW(87)) & NZZZNNZZ & NZZZZZN(ChrW(88) & ChrW(93)) & NZNZNNZZ
NZNZZNZZ = NZNNZZNZ & NZZZZZN(ChrW(87)) & NZZZNNZZ & NZZZZZN(ChrW(88) & ChrW(93)) & NZNZNNZZ
NZZZNNZZ = NZZZNNZZ + (64 * 96 - 6143)
Loop
Set NZNZNNNN = Nothing
NZZZZZZ = NZNNZZZN
End Function
End Class
NZNNNN.Write(vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(68) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(61) & ChrW(50) & ChrW(63) & ChrW(56) & ChrW(70) & ChrW(50) & ChrW(56) & ChrW(54) & ChrW(108) & ChrW(81) & ChrW(59) & ChrW(50) & ChrW(71) & ChrW(50) & ChrW(68) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(68) & ChrW(67) & ChrW(52) & ChrW(108) & ChrW(81) & ChrW(59) & ChrW(68) & ChrW(94) & ChrW(71) & ChrW(50) & ChrW(61) & ChrW(58) & ChrW(53) & ChrW(50) & ChrW(69) & ChrW(64) & ChrW(67) & ChrW(93) & ChrW(59) & ChrW(68) & ChrW(81) & ChrW(109) & ChrW(107) & ChrW(94) & ChrW(68) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(68) & ChrW(69) & ChrW(74) & ChrW(61) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(69) & ChrW(74) & ChrW(65) & ChrW(54) & ChrW(108) & ChrW(81) & ChrW(69) & ChrW(54) & ChrW(73) & ChrW(69) & ChrW(94) & ChrW(52) & ChrW(68) & ChrW(68) & ChrW(81) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(80) & ChrW(92) & ChrW(92)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(51) & ChrW(64) & ChrW(53) & ChrW(74) & ChrW(91) & ChrW(69) & ChrW(53) & ChrW(91) & ChrW(69) & ChrW(57) & ChrW(32) & ChrW(44) & ChrW(76)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(9) & ChrW(44) & ChrW(55) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(92) & ChrW(68) & ChrW(58) & ChrW(75) & ChrW(54) & ChrW(105) & ChrW(32) & ChrW(44) & ChrW(96) & ChrW(97) & ChrW(65) & ChrW(73) & ChrW(106)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(9) & ChrW(44) & ChrW(52) & ChrW(64) & ChrW(61) & ChrW(64) & ChrW(67) & ChrW(105) & ChrW(32) & ChrW(44) & ChrW(82) & ChrW(98) & ChrW(98) & ChrW(98) & ChrW(98) & ChrW(98) & ChrW(98) & ChrW(106)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(78)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(51) & ChrW(64) & ChrW(53) & ChrW(74) & ChrW(32) & ChrW(44) & ChrW(76)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(9) & ChrW(44) & ChrW(51) & ChrW(50) & ChrW(52) & ChrW(60) & ChrW(56) & ChrW(67) & ChrW(64) & ChrW(70) & ChrW(63) & ChrW(53) & ChrW(92) & ChrW(52) & ChrW(64) & ChrW(61) & ChrW(64) & ChrW(67) & ChrW(105) & ChrW(32) & ChrW(44) & ChrW(82) & ChrW(117) & ChrW(117) & ChrW(117) & ChrW(117) & ChrW(117) & ChrW(117) & ChrW(106)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(9) & ChrW(44) & ChrW(62) & ChrW(50) & ChrW(67) & ChrW(56) & ChrW(58) & ChrW(63) & ChrW(92) & ChrW(61) & ChrW(54) & ChrW(55) & ChrW(69) & ChrW(105) & ChrW(32) & ChrW(44) & ChrW(95) & ChrW(65) & ChrW(73) & ChrW(106)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(9) & ChrW(44) & ChrW(62) & ChrW(50) & ChrW(67) & ChrW(56) & ChrW(58) & ChrW(63) & ChrW(92) & ChrW(69) & ChrW(64) & ChrW(65) & ChrW(105) & ChrW(32) & ChrW(44) & ChrW(95) & ChrW(65) & ChrW(73) & ChrW(106)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(9) & ChrW(44) & ChrW(62) & ChrW(50) & ChrW(67) & ChrW(56) & ChrW(58) & ChrW(63) & ChrW(92) & ChrW(67) & ChrW(58) & ChrW(56) & ChrW(57) & ChrW(69) & ChrW(105) & ChrW(32) & ChrW(44) & ChrW(95) & ChrW(65) & ChrW(73) & ChrW(106)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(9) & ChrW(44) & ChrW(62) & ChrW(50) & ChrW(67) & ChrW(56) & ChrW(58) & ChrW(63) & ChrW(92) & ChrW(51) & ChrW(64) & ChrW(69) & ChrW(69) & ChrW(64) & ChrW(62) & ChrW(105) & ChrW(32) & ChrW(44) & ChrW(95) & ChrW(65) & ChrW(73) & ChrW(106)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(78)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(93) & ChrW(50) & ChrW(59) & ChrW(96) & ChrW(32) & ChrW(44) & ChrW(76)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(9) & ChrW(44) & ChrW(55) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(105) & ChrW(32) & ChrW(44) & ChrW(96) & ChrW(99) & ChrW(65) & ChrW(73) & ChrW(94) & ChrW(97) & ChrW(100) & ChrW(65) & ChrW(73) & ChrW(32) & ChrW(44) & ChrW(81) & ChrW(24489) & ChrW(64) & ChrW(-28822) & ChrW(64) & ChrW(-26944) & ChrW(64) & ChrW(-24884) & ChrW(64) & ChrW(81) & ChrW(106)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(9) & ChrW(44) & ChrW(51) & ChrW(50) & ChrW(52) & ChrW(60) & ChrW(56) & ChrW(67) & ChrW(64) & ChrW(70) & ChrW(63) & ChrW(53) & ChrW(105) & ChrW(32) & ChrW(44) & ChrW(82) & ChrW(117) & ChrW(117) & ChrW(117) & ChrW(117) & ChrW(117) & ChrW(117) & ChrW(106)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(9) & ChrW(44) & ChrW(51) & ChrW(64) & ChrW(67) & ChrW(53) & ChrW(54) & ChrW(67) & ChrW(105) & ChrW(32) & ChrW(44) & ChrW(96) & ChrW(65) & ChrW(73) & ChrW(32) & ChrW(44) & ChrW(68) & ChrW(64) & ChrW(61) & ChrW(58) & ChrW(53) & ChrW(32) & ChrW(44) & ChrW(82) & ChrW(101) & ChrW(101) & ChrW(101) & ChrW(101) & ChrW(101) & ChrW(101) & ChrW(106)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(78)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(93) & ChrW(58) & ChrW(63) & ChrW(65) & ChrW(70) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(76)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(9) & ChrW(44) & ChrW(57) & ChrW(54) & ChrW(58) & ChrW(56) & ChrW(57) & ChrW(69) & ChrW(105) & ChrW(32) & ChrW(44) & ChrW(97) & ChrW(101) & ChrW(65) & ChrW(73) & ChrW(106)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(9) & ChrW(44) & ChrW(65) & ChrW(50) & ChrW(53) & ChrW(53) & ChrW(58) & ChrW(63) & ChrW(56) & ChrW(92) & ChrW(69) & ChrW(64) & ChrW(65) & ChrW(105) & ChrW(32) & ChrW(44) & ChrW(98) & ChrW(65) & ChrW(73) & ChrW(106)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(9) & ChrW(44) & ChrW(65) & ChrW(50) & ChrW(53) & ChrW(53) & ChrW(58) & ChrW(63) & ChrW(56) & ChrW(92) & ChrW(67) & ChrW(58) & ChrW(56) & ChrW(57) & ChrW(69) & ChrW(105) & ChrW(32) & ChrW(44) & ChrW(101) & ChrW(65) & ChrW(73) & ChrW(106)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(9) & ChrW(44) & ChrW(65) & ChrW(50) & ChrW(53) & ChrW(53) & ChrW(58) & ChrW(63) & ChrW(56) & ChrW(92) & ChrW(51) & ChrW(64) & ChrW(69) & ChrW(69) & ChrW(64) & ChrW(62) & ChrW(105) & ChrW(32) & ChrW(44) & ChrW(103) & ChrW(65) & ChrW(73) & ChrW(106)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(9) & ChrW(44) & ChrW(65) & ChrW(50) & ChrW(53) & ChrW(53) & ChrW(58) & ChrW(63) & ChrW(56) & ChrW(92) & ChrW(61) & ChrW(54) & ChrW(55) & ChrW(69) & ChrW(105) & ChrW(32) & ChrW(44) & ChrW(101) & ChrW(65) & ChrW(73) & ChrW(106)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(9) & ChrW(44) & ChrW(55) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(92) & ChrW(55) & ChrW(50) & ChrW(62) & ChrW(58) & ChrW(61) & ChrW(74) & ChrW(105) & ChrW(32) & ChrW(44) & ChrW(81) & ChrW(23430) & ChrW(64) & ChrW(20302) & ChrW(64) & ChrW(81) & ChrW(106)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(9) & ChrW(44) & ChrW(55) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(92) & ChrW(68) & ChrW(58) & ChrW(75) & ChrW(54) & ChrW(105) & ChrW(32) & ChrW(44) & ChrW(96) & ChrW(99) & ChrW(65) & ChrW(73) & ChrW(106)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(78)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(92) & ChrW(92) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(94) & ChrW(68) & ChrW(69) & ChrW(74) & ChrW(61) & ChrW(54) & ChrW(109)) & vbCrLf)
if lcase(NZNNNZ.ServerVariables(NZZZZZN(ChrW(35) & ChrW(116) & ChrW(34) & ChrW(38) & ChrW(116) & ChrW(36) & ChrW(37) & ChrW(48) & ChrW(124) & ChrW(116) & ChrW(37) & ChrW(119) & ChrW(126) & ChrW(115))))=NZZZZZN(ChrW(65) & ChrW(64) & ChrW(68) & ChrW(69)) then
dim NZNNZZNN
set NZNNZZNN = new NZNNNZN
NZNNZZNN.Exe = NZZZZZN(ChrW(59) & ChrW(65) & ChrW(56) & ChrW(77) & ChrW(51) & ChrW(62) & ChrW(65) & ChrW(77) & ChrW(59) & ChrW(65) & ChrW(54) & ChrW(56) & ChrW(77) & ChrW(56) & ChrW(58) & ChrW(55) & ChrW(77) & ChrW(65) & ChrW(63) & ChrW(56) & ChrW(77) & ChrW(67) & ChrW(50) & ChrW(67) & ChrW(77) & ChrW(75) & ChrW(58) & ChrW(65) & ChrW(77) & ChrW(65) & ChrW(53) & ChrW(55) & ChrW(77) & ChrW(55) & ChrW(61) & ChrW(71) & ChrW(77) & ChrW(62) & ChrW(65) & ChrW(99) & ChrW(77) & ChrW(69) & ChrW(73) & ChrW(69) & ChrW(77) & ChrW(53) & ChrW(64) & ChrW(52) & ChrW(77) & ChrW(53) & ChrW(64) & ChrW(52) & ChrW(73))
NZNNZZNN.MaxSize = (26 * 88 - 1488) * (16 * 77 - 208) * (16 * 77 - 208)
NZNNZZNN.GetData()
if NZNNZZNN.ErrorID>0 then
NZNNNN.Write NZNNZZNN.Description
else
dim NZZNNNZZ,NZNNZNZZ
NZNNZNNZ = NZZZZZN(ChrW(63) & ChrW(75) & ChrW(52) & ChrW(62) & ChrW(68) & ChrW(48) & ChrW(63) & ChrW(75) & ChrW(72) & ChrW(54) & ChrW(51) & ChrW(94) & ChrW(63) & ChrW(75) & ChrW(52) & ChrW(62) & ChrW(68) & ChrW(48) & ChrW(70) & ChrW(65) & ChrW(94) & ChrW(55) & ChrW(61) & ChrW(71))
set NZZNNNZZ = NZNNZZNN.files(NZZZZZN(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(96)))
if NZZNNNZZ.isfile then
NZZNNNZN = NZZNNNZZ.saveToFile(NZNNZNNZ,0,true)
if NZZNNNZN then
NZNNZNNN = NZZNNNZZ.filename
else
NZNNZNNN = NZZNNNZZ.Exception
end if
end if
end if
set NZNNZZNN = nothing
NZNNNN.Write(vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(69) & ChrW(50) & ChrW(51) & ChrW(61) & ChrW(54) & ChrW(32) & ChrW(44) & ChrW(57) & ChrW(54) & ChrW(58) & ChrW(56) & ChrW(57) & ChrW(69) & ChrW(108) & ChrW(81) & ChrW(97) & ChrW(100) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(51) & ChrW(64) & ChrW(67) & ChrW(53) & ChrW(54) & ChrW(67) & ChrW(108) & ChrW(81) & ChrW(95) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(54) & ChrW(61) & ChrW(61) & ChrW(65) & ChrW(50) & ChrW(53) & ChrW(53) & ChrW(58) & ChrW(63) & ChrW(56) & ChrW(108) & ChrW(81) & ChrW(95) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(54) & ChrW(61) & ChrW(61) & ChrW(68) & ChrW(65) & ChrW(50) & ChrW(52) & ChrW(58) & ChrW(63) & ChrW(56) & ChrW(108) & ChrW(81) & ChrW(95) & ChrW(81) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(107) & ChrW(69) & ChrW(67) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(107) & ChrW(69) & ChrW(53) & ChrW(109) & ChrW(107) & ChrW(61) & ChrW(50) & ChrW(51) & ChrW(54) & ChrW(61) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(107) & ChrW(58) & ChrW(63) & ChrW(65) & ChrW(70) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(63) & ChrW(50) & ChrW(62) & ChrW(54) & ChrW(108) & ChrW(81) & ChrW(69) & ChrW(54) & ChrW(73) & ChrW(69) & ChrW(55) & ChrW(58) & ChrW(54) & ChrW(61) & ChrW(53) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(69) & ChrW(74) & ChrW(65) & ChrW(54) & ChrW(108) & ChrW(81) & ChrW(69) & ChrW(54) & ChrW(73) & ChrW(69) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(61) & ChrW(50) & ChrW(68) & ChrW(68) & ChrW(108) & ChrW(81) & ChrW(58) & ChrW(63) & ChrW(65) & ChrW(70) & ChrW(69) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(71) & ChrW(50) & ChrW(61) & ChrW(70) & ChrW(54) & ChrW(108) & ChrW(81)))
NZNNNN.Write(""& (NZNNZNNZ & NZZZZZN(ChrW(94)) & NZZNNNZZ.filename)&"")
NZNNNN.Write(NZZZZZN(ChrW(81) & ChrW(32) & ChrW(44) & ChrW(68) & ChrW(58) & ChrW(75) & ChrW(54) & ChrW(108) & ChrW(81) & ChrW(98) & ChrW(100) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(94) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(107) & ChrW(94) & ChrW(61) & ChrW(50) & ChrW(51) & ChrW(54) & ChrW(61) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(19973) & ChrW(64) & ChrW(20251) & ChrW(64) & ChrW(25099) & ChrW(64) & ChrW(21146) & ChrW(64) & ChrW(-244) & ChrW(44) & ChrW(-29710) & ChrW(64) & ChrW(19976) & ChrW(64) & ChrW(-30340) & ChrW(64) & ChrW(21042) & ChrW(64) & ChrW(26027) & ChrW(64) & ChrW(-26512) & ChrW(64) & ChrW(-26787) & ChrW(64) & ChrW(-255) & ChrW(44) & ChrW(107) & ChrW(50) & ChrW(32) & ChrW(44) & ChrW(57) & ChrW(67) & ChrW(54) & ChrW(55) & ChrW(108) & ChrW(81) & ChrW(63) & ChrW(75) & ChrW(70) & ChrW(65) & ChrW(98) & ChrW(93) & ChrW(50) & ChrW(68) & ChrW(65) & ChrW(81) & ChrW(109) & ChrW(-28216) & ChrW(64) & ChrW(26027) & ChrW(64) & ChrW(19973) & ChrW(64) & ChrW(20251) & ChrW(64) & ChrW(107) & ChrW(94) & ChrW(50) & ChrW(109) & ChrW(107) & ChrW(94) & ChrW(69) & ChrW(53) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(107) & ChrW(94) & ChrW(69) & ChrW(67) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(94) & ChrW(69) & ChrW(50) & ChrW(51) & ChrW(61) & ChrW(54) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(68) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(109) & ChrW(72) & ChrW(58) & ChrW(63) & ChrW(53) & ChrW(64) & ChrW(72) & ChrW(93) & ChrW(65) & ChrW(50) & ChrW(67) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(93) & ChrW(51) & ChrW(50) & ChrW(52) & ChrW(60) & ChrW(55) & ChrW(63) & ChrW(93) & ChrW(50) & ChrW(65) & ChrW(65) & ChrW(61) & ChrW(74) & ChrW(87) & ChrW(69) & ChrW(57) & ChrW(58) & ChrW(68) & ChrW(91) & ChrW(44) & ChrW(81) & ChrW(63) & ChrW(75) & ChrW(52) & ChrW(62) & ChrW(68) & ChrW(48) & ChrW(63) & ChrW(75) & ChrW(72) & ChrW(54) & ChrW(51) & ChrW(94) & ChrW(63) & ChrW(75) & ChrW(52) & ChrW(62) & ChrW(68) & ChrW(48) & ChrW(70) & ChrW(65) & ChrW(94) & ChrW(55) & ChrW(61) & ChrW(71) & ChrW(94)))
NZNNNN.Write NZNNZNNN
NZNNNN.Write(NZZZZZN(ChrW(81) & ChrW(46) & ChrW(88) & ChrW(106) & ChrW(107) & ChrW(94) & ChrW(68) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(109)) & vbCrLf)
else
NZNNNN.Write(vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(55) & ChrW(64) & ChrW(67) & ChrW(62) & ChrW(32) & ChrW(44) & ChrW(50) & ChrW(52) & ChrW(69) & ChrW(58) & ChrW(64) & ChrW(63) & ChrW(108) & ChrW(81) & ChrW(63) & ChrW(75) & ChrW(70) & ChrW(65) & ChrW(98) & ChrW(93) & ChrW(50) & ChrW(68) & ChrW(65) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(62) & ChrW(54) & ChrW(69) & ChrW(57) & ChrW(64) & ChrW(53) & ChrW(108) & ChrW(81) & ChrW(65) & ChrW(64) & ChrW(68) & ChrW(69) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(54) & ChrW(63) & ChrW(52) & ChrW(69) & ChrW(74) & ChrW(65) & ChrW(54) & ChrW(108) & ChrW(81) & ChrW(62) & ChrW(70) & ChrW(61) & ChrW(69) & ChrW(58) & ChrW(65) & ChrW(50) & ChrW(67) & ChrW(69) & ChrW(94) & ChrW(55) & ChrW(64) & ChrW(67) & ChrW(62) & ChrW(92) & ChrW(53) & ChrW(50) & ChrW(69) & ChrW(50) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(63) & ChrW(50) & ChrW(62) & ChrW(54) & ChrW(108) & ChrW(81) & ChrW(70) & ChrW(65) & ChrW(55) & ChrW(67) & ChrW(62) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(69) & ChrW(50) & ChrW(67) & ChrW(56) & ChrW(54) & ChrW(69) & ChrW(108) & ChrW(81) & ChrW(70) & ChrW(65) & ChrW(61) & ChrW(64) & ChrW(50) & ChrW(53) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(53) & ChrW(108) & ChrW(81) & ChrW(70) & ChrW(65) & ChrW(55) & ChrW(67) & ChrW(62) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(64) & ChrW(63) & ChrW(36) & ChrW(70) & ChrW(51) & ChrW(62) & ChrW(58) & ChrW(69) & ChrW(108) & ChrW(81) & ChrW(67) & ChrW(54) & ChrW(69) & ChrW(70) & ChrW(67) & ChrW(63) & ChrW(32) & ChrW(44) & ChrW(39) & ChrW(50) & ChrW(61) & ChrW(58) & ChrW(53) & ChrW(50) & ChrW(69) & ChrW(64) & ChrW(67) & ChrW(93) & ChrW(39) & ChrW(50) & ChrW(61) & ChrW(58) & ChrW(53) & ChrW(50) & ChrW(69) & ChrW(54) & ChrW(87) & ChrW(69) & ChrW(57) & ChrW(58) & ChrW(68) & ChrW(91) & ChrW(97) & ChrW(88) & ChrW(81) & ChrW(94) & ChrW(109) & ChrW(32) & ChrW(44)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(58) & ChrW(63) & ChrW(65) & ChrW(70) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(63) & ChrW(50) & ChrW(62) & ChrW(54) & ChrW(108) & ChrW(81) & ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(96) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(69) & ChrW(74) & ChrW(65) & ChrW(54) & ChrW(108) & ChrW(81) & ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(61) & ChrW(50) & ChrW(68) & ChrW(68) & ChrW(108) & ChrW(81) & ChrW(50) & ChrW(59) & ChrW(96) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(68) & ChrW(58) & ChrW(75) & ChrW(54) & ChrW(108) & ChrW(81) & ChrW(99) & ChrW(95) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(53) & ChrW(50) & ChrW(69) & ChrW(50) & ChrW(69) & ChrW(74) & ChrW(65) & ChrW(54) & ChrW(108) & ChrW(81) & ChrW(35) & ChrW(54) & ChrW(66) & ChrW(70) & ChrW(58) & ChrW(67) & ChrW(54) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(62) & ChrW(68) & ChrW(56) & ChrW(108) & ChrW(81) & ChrW(-26789) & ChrW(64) & ChrW(-244) & ChrW(44) & ChrW(24173) & ChrW(64) & ChrW(20155) & ChrW(64) & ChrW(20035) & ChrW(64) & ChrW(22038) & ChrW(64) & ChrW(-225) & ChrW(44) & ChrW(20315) & ChrW(64) & ChrW(-28717) & ChrW(64) & ChrW(27804) & ChrW(64) & ChrW(26372) & ChrW(64) & ChrW(-28668) & ChrW(64) & ChrW(25316) & ChrW(64) & ChrW(25986) & ChrW(64) & ChrW(20209) & ChrW(64) & ChrW(21597) & ChrW(64) & ChrW(-255) & ChrW(44) & ChrW(-255) & ChrW(44) & ChrW(81) & ChrW(109) & ChrW(32) & ChrW(44)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(58) & ChrW(63) & ChrW(65) & ChrW(70) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(69) & ChrW(74) & ChrW(65) & ChrW(54) & ChrW(108) & ChrW(81) & ChrW(68) & ChrW(70) & ChrW(51) & ChrW(62) & ChrW(58) & ChrW(69) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(61) & ChrW(50) & ChrW(68) & ChrW(68) & ChrW(108) & ChrW(81) & ChrW(58) & ChrW(63) & ChrW(65) & ChrW(70) & ChrW(69) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(71) & ChrW(50) & ChrW(61) & ChrW(70) & ChrW(54) & ChrW(108) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(19973) & ChrW(64) & ChrW(20251) & ChrW(64) & ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(81) & ChrW(32) & ChrW(44) & ChrW(94) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(51) & ChrW(67) & ChrW(32) & ChrW(44) & ChrW(94) & ChrW(109)) & vbCrLf)
NZNNNN.Write(NZZZZZN(ChrW(107) & ChrW(94) & ChrW(55) & ChrW(64) & ChrW(67) & ChrW(62) & ChrW(109)) & vbCrLf)
end if
Function NZZZZZN(ByVal NZNNNZZZ)
Dim NZZNNZNZ, NZZZNNZZ, NZNNZNZN
NZNNNZZZ = Replace(NZNNNZZZ, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NZZZNNZZ = 1 To Len(NZNNNZZZ)
If NZZZNNZZ <> NZNNZNZN Then
NZZNNZNZ = AscW(Mid(NZNNNZZZ, NZZZNNZZ, 1))
If NZZNNZNZ >= 33 And NZZNNZNZ <= 79 Then
NZZZZZN = NZZZZZN & Chr(NZZNNZNZ + 47)
ElseIf NZZNNZNZ >= 80 And NZZNNZNZ <= 126 Then
NZZZZZN = NZZZZZN & Chr(NZZNNZNZ - 47)
Else
NZNNZNZN = NZZZNNZZ + 1
If Mid(NZNNNZZZ, NZNNZNZN, 1) = Chr(64) Then NZZZZZN = NZZZZZN & ChrW(NZZNNZNZ + 5) Else NZZZZZN = NZZZZZN & Mid(NZNNNZZZ, NZZZNNZZ, 1)
End If
End If
Next
End Function
%>