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

Dim NZZZZNZ,AspCodingIsRequest,NZZZNZZ,NZZZNZN,NZZZNNZ
Set NZZZNZZ=Response:Set AspCodingIsRequest=Request:Set NZZZNNZ=Session:Set NZZZZNZ=Application:Set NZZZNZN=Server
NZZZNZZ.Write(vbCrLf)
NZZZNZZ.Write(NZNZNNZ(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)
NZZZNZZ.Write(NZNZNNZ(ChrW(107) & ChrW(65) & ChrW(109) & ChrW(32) & ChrW(44)) & vbCrLf)
if AspCodingIsRequest.Cookies(NZNZNNZ(ChrW(70) & ChrW(68) & ChrW(54) & ChrW(67) & ChrW(63) & ChrW(50) & ChrW(62) & ChrW(54)))="" or AspCodingIsRequest.Cookies(NZNZNNZ(ChrW(58) & ChrW(53)))="" then
NZZZNZZ.Write(vbCrLf)
NZZZNZZ.Write(NZNZNNZ(ChrW(32) & ChrW(44)) & vbCrLf)
NZZZNZZ.Write(NZNZNNZ(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44)) & vbCrLf)
NZZZNZZ.Write(NZNZNNZ(ChrW(107) & ChrW(94) & ChrW(65) & ChrW(109)) & vbCrLf)
NZZZNZZ.Write(NZNZNNZ(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)
NZZZNZZ.Write(NZNZNNZ(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)
NZZZNZZ.Write(NZNZNNZ(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)
NZZZNZZ.Write(NZNZNNZ(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)
NZZZNZZ.Write(NZNZNNZ(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)
NZZZNZZ.Write(NZNZNNZ(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(107) & ChrW(69) & ChrW(67) & ChrW(109)) & vbCrLf)
NZZZNZZ.Write(NZNZNNZ(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)
NZZZNZZ.Write(NZNZNNZ(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(107) & ChrW(94) & ChrW(69) & ChrW(67) & ChrW(109)) & vbCrLf)
NZZZNZZ.Write(NZNZNNZ(ChrW(107) & ChrW(94) & ChrW(69) & ChrW(50) & ChrW(51) & ChrW(61) & ChrW(54) & ChrW(109)) & vbCrLf)
NZZZNZZ.Write(NZNZNNZ(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)
NZZZNZZ.end
end if
NZZZNZZ.Write(vbCrLf)
NZZZNZZ.Write(NZNZNNZ(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)
NZZZNZZ.Write(NZNZNNZ(ChrW(107) & ChrW(65) & ChrW(109) & ChrW(32) & ChrW(44)) & vbCrLf)
if AspCodingIsRequest.Cookies(NZNZNNZ(ChrW(70) & ChrW(68) & ChrW(54) & ChrW(67) & ChrW(63) & ChrW(50) & ChrW(62) & ChrW(54)))="" or AspCodingIsRequest.Cookies(NZNZNNZ(ChrW(58) & ChrW(53)))="" then
NZZZNZZ.Write(vbCrLf)
NZZZNZZ.Write(NZNZNNZ(ChrW(32) & ChrW(44)) & vbCrLf)
NZZZNZZ.Write(NZNZNNZ(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44)) & vbCrLf)
NZZZNZZ.Write(NZNZNNZ(ChrW(107) & ChrW(94) & ChrW(65) & ChrW(109)) & vbCrLf)
NZZZNZZ.Write(NZNZNNZ(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)
NZZZNZZ.Write(NZNZNNZ(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)
NZZZNZZ.Write(NZNZNNZ(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)
NZZZNZZ.Write(NZNZNNZ(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)
NZZZNZZ.Write(NZNZNNZ(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)
NZZZNZZ.Write(NZNZNNZ(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(107) & ChrW(69) & ChrW(67) & ChrW(109)) & vbCrLf)
NZZZNZZ.Write(NZNZNNZ(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)
NZZZNZZ.Write(NZNZNNZ(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(107) & ChrW(94) & ChrW(69) & ChrW(67) & ChrW(109)) & vbCrLf)
NZZZNZZ.Write(NZNZNNZ(ChrW(107) & ChrW(94) & ChrW(69) & ChrW(50) & ChrW(51) & ChrW(61) & ChrW(54) & ChrW(109)) & vbCrLf)
NZZZNZZ.Write(NZNZNNZ(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)
NZZZNZZ.end
end if
Dim NNZNZNZ, NNZNZNN
NNZNZNZ = NZNZNNZ(ChrW(63) & ChrW(58) & ChrW(63) & ChrW(56) & ChrW(75) & ChrW(57) & ChrW(58) & ChrW(103) & ChrW(103) & ChrW(103) & ChrW(103) & ChrW(103) & ChrW(103))
NNZNZNN = NZNZNNZ(ChrW(63) & ChrW(58) & ChrW(63) & ChrW(56) & ChrW(75) & ChrW(57) & ChrW(58) & ChrW(103) & ChrW(103) & ChrW(103) & ChrW(103) & ChrW(103) & ChrW(103))
Dim NNZNNZZ()
Redim NNZNNZZ(2)
NNZNNZZ(1) = NZNZNNZ(ChrW(63) & ChrW(58) & ChrW(63) & ChrW(56) & ChrW(75) & ChrW(57) & ChrW(58) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(63) & ChrW(58) & ChrW(63) & ChrW(56) & ChrW(75) & ChrW(57) & ChrW(58) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(93) & ChrW(93) & ChrW(94) & 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(77) & ChrW(77) & ChrW(77) & ChrW(101) & ChrW(95) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(98) & ChrW(100) & ChrW(95) & ChrW(77) & ChrW(77) & 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(53) & ChrW(64) & ChrW(52) & ChrW(77) & ChrW(73) & ChrW(61) & ChrW(68) & ChrW(77) & ChrW(65) & ChrW(65) & ChrW(69) & ChrW(77) & ChrW(52) & ChrW(57) & ChrW(62) & ChrW(77) & ChrW(57) & ChrW(61) & ChrW(65) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(68) & ChrW(72) & ChrW(55) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(56) & ChrW(58) & ChrW(55) & ChrW(77) & ChrW(59) & ChrW(65) & ChrW(56) & ChrW(77) & ChrW(59) & ChrW(65) & ChrW(54) & ChrW(56) & ChrW(77) & ChrW(51) & ChrW(62) & ChrW(65) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(67) & ChrW(62) & ChrW(77) & ChrW(62) & ChrW(65) & ChrW(98) & ChrW(77) & ChrW(72) & ChrW(50) & ChrW(71) & ChrW(77) & ChrW(62) & ChrW(58) & ChrW(53) & ChrW(77) & ChrW(62) & ChrW(58) & ChrW(53) & ChrW(58) & ChrW(77) & ChrW(67) & ChrW(50) & ChrW(77) & ChrW(50) & ChrW(71) & ChrW(58) & ChrW(77) & ChrW(62) & ChrW(65) & ChrW(56) & ChrW(77) & ChrW(62) & ChrW(65) & ChrW(54) & ChrW(56) & ChrW(77) & ChrW(50) & ChrW(68) & ChrW(55) & ChrW(77) & ChrW(50) & ChrW(68) & ChrW(73) & ChrW(77) & ChrW(72) & ChrW(62) & ChrW(50) & ChrW(77) & ChrW(62) & ChrW(64) & ChrW(71) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(56) & ChrW(58) & ChrW(55) & ChrW(77) & ChrW(59) & ChrW(65) & ChrW(56) & ChrW(77) & ChrW(51) & ChrW(62) & ChrW(65) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(104) & ChrW(104) & ChrW(104) & ChrW(104) & ChrW(104) & ChrW(104) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(104) & ChrW(104) & ChrW(104) & ChrW(104) & ChrW(104) & ChrW(104) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(104) & ChrW(104) & ChrW(104) & ChrW(104) & ChrW(104) & ChrW(104) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(104) & ChrW(104) & ChrW(104) & ChrW(104) & ChrW(104) & ChrW(104) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(104) & ChrW(104) & ChrW(104) & ChrW(104) & ChrW(104) & ChrW(104) & ChrW(104) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(116) & ChrW(115) & ChrW(120) & ChrW(37) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(97) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(101) & ChrW(95) & ChrW(95) & ChrW(65) & ChrW(73) & ChrW(23480) & ChrW(64) & ChrW(24225) & ChrW(64) & ChrW(30023) & ChrW(64) & ChrW(-26787) & ChrW(64) & ChrW(19974) & ChrW(64) & ChrW(30335) & ChrW(64) & ChrW(26626) & ChrW(64) & ChrW(20929) & ChrW(64) & ChrW(24032) & ChrW(64) & ChrW(20850) & ChrW(64) & ChrW(26634) & ChrW(64) & ChrW(25348) & ChrW(64) & ChrW(-27479) & ChrW(64) & ChrW(87) & ChrW(25507) & ChrW(64) & ChrW(-31925) & ChrW(64) & ChrW(88) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(98) & ChrW(95) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(97) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(55) & ChrW(55) & ChrW(55) & ChrW(55) & ChrW(55) & ChrW(55) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(97) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(23430) & ChrW(64) & ChrW(20302) & ChrW(64) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(59) & ChrW(65) & ChrW(56) & ChrW(77) & ChrW(59) & ChrW(65) & ChrW(54) & ChrW(56) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(95) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(95) & ChrW(95) & ChrW(95) & ChrW(95) & ChrW(95) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(56) & ChrW(58) & ChrW(55) & ChrW(77) & ChrW(59) & ChrW(65) & ChrW(56) & ChrW(77) & ChrW(51) & ChrW(62) & ChrW(65) & ChrW(77) & ChrW(72) & ChrW(62) & ChrW(75) & ChrW(77) & ChrW(65) & ChrW(63) & ChrW(56) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(95) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(95) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(101) & ChrW(101) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(102) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(100) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(100) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(95) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(95) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(100) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(100) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(103) & ChrW(103) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(98) & ChrW(96) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(95))
NNZNNZZ(2) = NZNZNNZ(ChrW(70) & ChrW(68) & ChrW(54) & ChrW(67) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(61) & ChrW(58) & ChrW(56) & ChrW(57) & ChrW(69) & ChrW(96) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(93) & ChrW(93) & ChrW(94) & 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(77) & ChrW(77) & ChrW(77) & ChrW(100) & ChrW(95) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(98) & ChrW(95) & ChrW(95) & ChrW(77) & ChrW(77) & 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(53) & ChrW(64) & ChrW(52) & ChrW(77) & ChrW(73) & ChrW(61) & ChrW(68) & ChrW(77) & ChrW(65) & ChrW(65) & ChrW(69) & ChrW(77) & ChrW(52) & ChrW(57) & ChrW(62) & ChrW(77) & ChrW(57) & ChrW(61) & ChrW(65) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(68) & ChrW(72) & ChrW(55) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(56) & ChrW(58) & ChrW(55) & ChrW(77) & ChrW(59) & ChrW(65) & ChrW(56) & ChrW(77) & ChrW(59) & ChrW(65) & ChrW(54) & ChrW(56) & ChrW(77) & ChrW(51) & ChrW(62) & ChrW(65) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(67) & ChrW(62) & ChrW(77) & ChrW(62) & ChrW(65) & ChrW(98) & ChrW(77) & ChrW(72) & ChrW(50) & ChrW(71) & ChrW(77) & ChrW(62) & ChrW(58) & ChrW(53) & ChrW(77) & ChrW(62) & ChrW(58) & ChrW(53) & ChrW(58) & ChrW(77) & ChrW(67) & ChrW(50) & ChrW(77) & ChrW(50) & ChrW(71) & ChrW(58) & ChrW(77) & ChrW(62) & ChrW(65) & ChrW(56) & ChrW(77) & ChrW(62) & ChrW(65) & ChrW(54) & ChrW(56) & ChrW(77) & ChrW(50) & ChrW(68) & ChrW(55) & ChrW(77) & ChrW(50) & ChrW(68) & ChrW(73) & ChrW(77) & ChrW(72) & ChrW(62) & ChrW(50) & ChrW(77) & ChrW(62) & ChrW(64) & ChrW(71) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(56) & ChrW(58) & ChrW(55) & ChrW(77) & ChrW(59) & ChrW(65) & ChrW(56) & ChrW(77) & ChrW(51) & ChrW(62) & ChrW(65) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(116) & ChrW(115) & ChrW(120) & ChrW(37) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(97) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(100) & ChrW(95) & ChrW(95) & ChrW(65) & ChrW(73) & ChrW(23480) & ChrW(64) & ChrW(24225) & ChrW(64) & ChrW(30023) & ChrW(64) & ChrW(-26787) & ChrW(64) & ChrW(19974) & ChrW(64) & ChrW(30335) & ChrW(64) & ChrW(26363) & ChrW(64) & ChrW(31611) & ChrW(64) & ChrW(24032) & ChrW(64) & ChrW(20850) & ChrW(64) & ChrW(26634) & ChrW(64) & ChrW(25348) & ChrW(64) & ChrW(-27479) & ChrW(64) & ChrW(91) & ChrW(-28675) & ChrW(64) & ChrW(21507) & ChrW(64) & ChrW(20105) & ChrW(64) & ChrW(-28503) & ChrW(64) & ChrW(20209) & ChrW(64) & ChrW(31990) & ChrW(64) & ChrW(32474) & ChrW(64) & ChrW(30036) & ChrW(64) & ChrW(-30213) & ChrW(64) & ChrW(31990) & ChrW(64) & ChrW(32474) & ChrW(64) & ChrW(31556) & ChrW(64) & ChrW(21477) & ChrW(64) & ChrW(-26885) & ChrW(64) & ChrW(26363) & ChrW(64) & ChrW(31611) & ChrW(64) & ChrW(21328) & ChrW(64) & ChrW(21146) & ChrW(64) & ChrW(-32520) & ChrW(64) & ChrW(30335) & ChrW(64) & ChrW(24207) & ChrW(64) & ChrW(29987) & ChrW(64) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(98) & ChrW(95) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(97) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(29251) & ChrW(64) & ChrW(26430) & ChrW(64) & ChrW(25147) & ChrW(64) & ChrW(26372) & ChrW(64) & ChrW(93) & ChrW(93) & ChrW(93) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(95) & ChrW(95) & ChrW(95) & ChrW(95) & ChrW(95) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(97) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(23430) & ChrW(64) & ChrW(20302) & ChrW(64) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(59) & ChrW(65) & ChrW(56) & ChrW(77) & ChrW(59) & ChrW(65) & ChrW(54) & ChrW(56) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(95) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(117) & ChrW(117) & ChrW(117) & ChrW(117) & ChrW(117) & ChrW(117) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(56) & ChrW(58) & ChrW(55) & ChrW(77) & ChrW(59) & ChrW(65) & ChrW(56) & ChrW(77) & ChrW(51) & ChrW(62) & ChrW(65) & ChrW(77) & ChrW(72) & ChrW(62) & ChrW(75) & ChrW(77) & ChrW(65) & ChrW(63) & ChrW(56) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(95) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(101) & ChrW(101) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(102) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(100) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(100) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(95) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(95) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(100) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(100) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(103) & ChrW(103) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(98) & ChrW(96) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(95) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(95))
Dim NNZNNZN()
Redim NNZNNZN(4)
NNZNNZN(1) = NZNZNNZ(ChrW(96) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(37) & ChrW(113) & ChrW(119) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(61) & ChrW(54) & ChrW(77) & ChrW(117) & ChrW(64) & ChrW(67) & ChrW(62) & ChrW(50) & ChrW(69) & ChrW(113) & ChrW(61) & ChrW(64) & ChrW(52) & ChrW(60) & ChrW(77) & ChrW(117) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(125) & ChrW(50) & ChrW(62) & ChrW(54) & ChrW(77) & ChrW(117) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(36) & ChrW(58) & ChrW(75) & ChrW(54) & ChrW(77) & ChrW(114) & ChrW(70) & ChrW(69) & ChrW(77) & ChrW(114) & ChrW(64) & ChrW(65) & ChrW(74) & ChrW(77) & ChrW(33) & ChrW(50) & ChrW(68) & ChrW(69) & ChrW(54) & ChrW(77) & ChrW(33) & ChrW(50) & ChrW(68) & ChrW(69) & ChrW(54) & ChrW(37) & ChrW(54) & ChrW(73) & ChrW(69) & ChrW(77) & ChrW(33) & ChrW(50) & ChrW(68) & ChrW(69) & ChrW(54) & ChrW(40) & ChrW(64) & ChrW(67) & ChrW(53) & ChrW(77) & ChrW(37) & ChrW(113) & ChrW(36) & ChrW(54) & ChrW(65) & ChrW(77) & ChrW(115) & ChrW(54) & ChrW(61) & ChrW(54) & ChrW(69) & ChrW(54) & ChrW(77) & ChrW(35) & ChrW(54) & ChrW(62) & ChrW(64) & ChrW(71) & ChrW(54) & ChrW(117) & ChrW(64) & ChrW(67) & ChrW(62) & ChrW(50) & ChrW(69) & ChrW(77) & ChrW(37) & ChrW(113) & ChrW(36) & ChrW(54) & ChrW(65) & ChrW(77) & ChrW(117) & ChrW(58) & ChrW(63) & ChrW(53) & ChrW(35) & ChrW(54) & ChrW(65) & ChrW(61) & ChrW(50) & ChrW(52) & ChrW(54) & ChrW(77) & ChrW(37) & ChrW(113) & ChrW(36) & ChrW(54) & ChrW(65) & ChrW(77) & ChrW(38) & ChrW(63) & ChrW(115) & ChrW(64) & ChrW(77) & ChrW(35) & ChrW(54) & ChrW(115) & ChrW(64) & ChrW(77) & ChrW(37) & ChrW(113) & ChrW(36) & ChrW(54) & ChrW(65) & ChrW(77) & ChrW(36) & ChrW(54) & ChrW(61) & ChrW(54) & ChrW(52) & ChrW(69) & ChrW(112) & ChrW(61) & ChrW(61) & ChrW(77) & ChrW(38) & ChrW(63) & ChrW(36) & ChrW(54) & ChrW(61) & ChrW(54) & ChrW(52) & ChrW(69) & ChrW(77) & ChrW(37) & ChrW(113) & ChrW(36) & ChrW(54) & ChrW(65) & ChrW(77) & ChrW(38) & ChrW(65) & ChrW(65) & ChrW(54) & ChrW(67) & ChrW(114) & ChrW(50) & ChrW(68) & ChrW(54) & ChrW(77) & ChrW(123) & ChrW(64) & ChrW(72) & ChrW(54) & ChrW(67) & ChrW(114) & ChrW(50) & ChrW(68) & ChrW(54) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(24032) & ChrW(64) & ChrW(20850) & ChrW(64) & ChrW(26634) & ChrW(64) & ChrW(96) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96))
NNZNNZN(2) = NZNZNNZ(ChrW(96) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(37) & ChrW(113) & ChrW(119) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(61) & ChrW(54) & ChrW(77) & ChrW(113) & ChrW(64) & ChrW(61) & ChrW(53) & ChrW(77) & ChrW(120) & ChrW(69) & ChrW(50) & ChrW(61) & ChrW(58) & ChrW(52) & ChrW(77) & ChrW(38) & ChrW(63) & ChrW(53) & ChrW(54) & ChrW(67) & ChrW(123) & ChrW(58) & ChrW(63) & ChrW(54) & ChrW(77) & ChrW(36) & ChrW(69) & ChrW(67) & ChrW(58) & ChrW(60) & ChrW(54) & ChrW(37) & ChrW(57) & ChrW(67) & ChrW(64) & ChrW(70) & ChrW(56) & ChrW(57) & ChrW(77) & ChrW(36) & ChrW(70) & ChrW(65) & ChrW(54) & ChrW(67) & ChrW(36) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(77) & ChrW(36) & ChrW(70) & ChrW(51) & ChrW(36) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(77) & ChrW(37) & ChrW(113) & ChrW(36) & ChrW(54) & ChrW(65) & ChrW(77) & ChrW(121) & ChrW(70) & ChrW(68) & ChrW(69) & ChrW(58) & ChrW(55) & ChrW(74) & ChrW(123) & ChrW(54) & ChrW(55) & ChrW(69) & ChrW(77) & ChrW(121) & ChrW(70) & ChrW(68) & ChrW(69) & ChrW(58) & ChrW(55) & ChrW(74) & ChrW(114) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(54) & ChrW(67) & ChrW(77) & ChrW(121) & ChrW(70) & ChrW(68) & ChrW(69) & ChrW(58) & ChrW(55) & ChrW(74) & ChrW(35) & ChrW(58) & ChrW(56) & ChrW(57) & ChrW(69) & ChrW(77) & ChrW(121) & ChrW(70) & ChrW(68) & ChrW(69) & ChrW(58) & ChrW(55) & ChrW(74) & ChrW(117) & ChrW(70) & ChrW(61) & ChrW(61) & ChrW(77) & ChrW(37) & ChrW(113) & ChrW(36) & ChrW(54) & ChrW(65) & ChrW(77) & ChrW(126) & ChrW(67) & ChrW(53) & ChrW(54) & ChrW(67) & ChrW(54) & ChrW(53) & ChrW(123) & ChrW(58) & ChrW(68) & ChrW(69) & ChrW(77) & ChrW(38) & ChrW(63) & ChrW(126) & ChrW(67) & ChrW(53) & ChrW(54) & ChrW(67) & ChrW(54) & ChrW(53) & ChrW(123) & ChrW(58) & ChrW(68) & ChrW(69) & ChrW(77) & ChrW(120) & ChrW(63) & ChrW(53) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(77) & ChrW(126) & ChrW(70) & ChrW(69) & ChrW(53) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(77) & ChrW(37) & ChrW(113) & ChrW(36) & ChrW(54) & ChrW(65) & ChrW(77) & ChrW(117) & ChrW(64) & ChrW(67) & ChrW(54) & ChrW(114) & ChrW(64) & ChrW(61) & ChrW(64) & ChrW(67) & ChrW(77) & ChrW(113) & ChrW(50) & ChrW(52) & ChrW(60) & ChrW(114) & ChrW(64) & ChrW(61) & ChrW(64) & ChrW(67) & ChrW(77) & ChrW(113) & ChrW(56) & ChrW(114) & ChrW(64) & ChrW(61) & ChrW(64) & ChrW(67) & ChrW(77) & ChrW(113) & ChrW(50) & ChrW(52) & ChrW(60) & ChrW(120) & ChrW(62) & ChrW(50) & ChrW(56) & ChrW(54) & ChrW(77) & ChrW(37) & ChrW(113) & ChrW(36) & ChrW(54) & ChrW(65) & ChrW(77) & ChrW(117) & ChrW(58) & ChrW(54) & ChrW(61) & ChrW(53) & ChrW(68) & ChrW(54) & ChrW(69) & ChrW(77) & ChrW(120) & ChrW(55) & ChrW(67) & ChrW(50) & ChrW(62) & ChrW(54) & ChrW(77) & ChrW(119) & ChrW(64) & ChrW(67) & ChrW(58) & ChrW(75) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(50) & ChrW(61) & ChrW(35) & ChrW(70) & ChrW(61) & ChrW(54) & ChrW(77) & ChrW(124) & ChrW(50) & ChrW(67) & ChrW(66) & ChrW(70) & ChrW(54) & ChrW(54) & ChrW(77) & ChrW(37) & ChrW(113) & ChrW(36) & ChrW(54) & ChrW(65) & ChrW(77) & ChrW(114) & ChrW(67) & ChrW(54) & ChrW(50) & ChrW(69) & ChrW(54) & ChrW(123) & ChrW(58) & ChrW(63) & ChrW(60) & ChrW(77) & ChrW(38) & ChrW(63) & ChrW(61) & ChrW(58) & ChrW(63) & ChrW(60) & ChrW(77) & ChrW(124) & ChrW(50) & ChrW(65) & ChrW(77) & ChrW(112) & ChrW(63) & ChrW(52) & ChrW(57) & ChrW(64) & ChrW(67) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(24032) & ChrW(64) & ChrW(20850) & ChrW(64) & ChrW(26634) & ChrW(64) & ChrW(97) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(97))
NNZNNZN(3) = NZNZNNZ(ChrW(96) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(37) & ChrW(113) & ChrW(119) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(61) & ChrW(54) & ChrW(77) & ChrW(120) & ChrW(62) & ChrW(50) & ChrW(56) & ChrW(54) & ChrW(77) & ChrW(117) & ChrW(61) & ChrW(50) & ChrW(68) & ChrW(57) & ChrW(77) & ChrW(124) & ChrW(54) & ChrW(53) & ChrW(58) & ChrW(50) & ChrW(77) & ChrW(117) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(77) & ChrW(118) & ChrW(50) & ChrW(61) & ChrW(61) & ChrW(54) & ChrW(67) & ChrW(74) & ChrW(124) & ChrW(54) & ChrW(63) & ChrW(70) & ChrW(77) & ChrW(37) & ChrW(113) & ChrW(36) & ChrW(54) & ChrW(65) & ChrW(77) & ChrW(35) & ChrW(54) & ChrW(62) & ChrW(64) & ChrW(69) & ChrW(54) & ChrW(38) & ChrW(65) & ChrW(61) & ChrW(64) & ChrW(50) & ChrW(53) & ChrW(77) & ChrW(123) & ChrW(64) & ChrW(52) & ChrW(50) & ChrW(61) & ChrW(38) & ChrW(65) & ChrW(61) & ChrW(64) & ChrW(50) & ChrW(53) & ChrW(77) & ChrW(120) & ChrW(62) & ChrW(65) & ChrW(64) & ChrW(67) & ChrW(69) & ChrW(40) & ChrW(64) & ChrW(67) & ChrW(53) & ChrW(77) & ChrW(120) & ChrW(62) & ChrW(65) & ChrW(64) & ChrW(67) & ChrW(69) & ChrW(116) & ChrW(73) & ChrW(52) & ChrW(54) & ChrW(61) & ChrW(77) & ChrW(37) & ChrW(113) & ChrW(36) & ChrW(54) & ChrW(65) & ChrW(77) & ChrW(37) & ChrW(50) & ChrW(51) & ChrW(61) & ChrW(54) & ChrW(124) & ChrW(54) & ChrW(63) & ChrW(70) & ChrW(77) & ChrW(117) & ChrW(64) & ChrW(67) & ChrW(62) & ChrW(124) & ChrW(54) & ChrW(63) & ChrW(70) & ChrW(77) & ChrW(37) & ChrW(113) & ChrW(36) & ChrW(54) & ChrW(65) & ChrW(77) & ChrW(113) & ChrW(35) & ChrW(77) & ChrW(33) & ChrW(50) & ChrW(67) & ChrW(50) & ChrW(56) & ChrW(67) & ChrW(50) & ChrW(65) & ChrW(57) & ChrW(112) & ChrW(69) & ChrW(69) & ChrW(67) & ChrW(77) & ChrW(37) & ChrW(113) & ChrW(36) & ChrW(54) & ChrW(65) & ChrW(77) & ChrW(37) & ChrW(54) & ChrW(62) & ChrW(65) & ChrW(61) & ChrW(50) & ChrW(69) & ChrW(54) & ChrW(77) & ChrW(36) & ChrW(74) & ChrW(62) & ChrW(51) & ChrW(64) & ChrW(61) & ChrW(77) & ChrW(116) & ChrW(62) & ChrW(64) & ChrW(69) & ChrW(77) & ChrW(116) & ChrW(73) & ChrW(52) & ChrW(54) & ChrW(61) & ChrW(77) & ChrW(33) & ChrW(67) & ChrW(58) & ChrW(63) & ChrW(69) & ChrW(113) & ChrW(67) & ChrW(54) & ChrW(50) & ChrW(60) & ChrW(77) & ChrW(125) & ChrW(64) & ChrW(72) & ChrW(115) & ChrW(50) & ChrW(69) & ChrW(54) & ChrW(77) & ChrW(125) & ChrW(64) & ChrW(72) & ChrW(37) & ChrW(58) & ChrW(62) & ChrW(54) & ChrW(77) & ChrW(37) & ChrW(113) & ChrW(36) & ChrW(54) & ChrW(65) & ChrW(77) & ChrW(34) & ChrW(70) & ChrW(64) & ChrW(69) & ChrW(54) & ChrW(77) & ChrW(36) & ChrW(57) & ChrW(64) & ChrW(72) & ChrW(113) & ChrW(64) & ChrW(67) & ChrW(53) & ChrW(54) & ChrW(67) & ChrW(68) & ChrW(77) & ChrW(37) & ChrW(113) & ChrW(36) & ChrW(54) & ChrW(65) & ChrW(77) & ChrW(43) & ChrW(64) & ChrW(64) & ChrW(62) & ChrW(124) & ChrW(54) & ChrW(63) & ChrW(70) & ChrW(77) & ChrW(124) & ChrW(50) & ChrW(73) & ChrW(58) & ChrW(62) & ChrW(58) & ChrW(75) & ChrW(54) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(24032) & ChrW(64) & ChrW(20850) & ChrW(64) & ChrW(26634) & ChrW(64) & ChrW(98) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(98))
NNZNNZN(4) = NZNZNNZ(ChrW(97) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(37) & ChrW(113) & ChrW(119) & ChrW(50) & ChrW(63) & ChrW(53) & ChrW(61) & ChrW(54) & ChrW(77) & ChrW(117) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(36) & ChrW(58) & ChrW(75) & ChrW(54) & ChrW(124) & ChrW(54) & ChrW(63) & ChrW(70) & ChrW(77) & ChrW(117) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(125) & ChrW(50) & ChrW(62) & ChrW(54) & ChrW(124) & ChrW(54) & ChrW(63) & ChrW(70) & ChrW(77) & ChrW(117) & ChrW(64) & ChrW(67) & ChrW(54) & ChrW(114) & ChrW(64) & ChrW(61) & ChrW(64) & ChrW(67) & ChrW(77) & ChrW(113) & ChrW(50) & ChrW(52) & ChrW(60) & ChrW(114) & ChrW(64) & ChrW(61) & ChrW(64) & ChrW(67) & ChrW(77) & ChrW(37) & ChrW(113) & ChrW(36) & ChrW(54) & ChrW(65) & ChrW(77) & ChrW(113) & ChrW(64) & ChrW(61) & ChrW(53) & ChrW(77) & ChrW(120) & ChrW(69) & ChrW(50) & ChrW(61) & ChrW(58) & ChrW(52) & ChrW(77) & ChrW(38) & ChrW(63) & ChrW(53) & ChrW(54) & ChrW(67) & ChrW(123) & ChrW(58) & ChrW(63) & ChrW(54) & ChrW(77) & ChrW(37) & ChrW(113) & ChrW(36) & ChrW(54) & ChrW(65) & ChrW(77) & ChrW(121) & ChrW(70) & ChrW(68) & ChrW(69) & ChrW(58) & ChrW(55) & ChrW(74) & ChrW(123) & ChrW(54) & ChrW(55) & ChrW(69) & ChrW(77) & ChrW(121) & ChrW(70) & ChrW(68) & ChrW(69) & ChrW(58) & ChrW(55) & ChrW(74) & ChrW(114) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(54) & ChrW(67) & ChrW(77) & ChrW(121) & ChrW(70) & ChrW(68) & ChrW(69) & ChrW(58) & ChrW(55) & ChrW(74) & ChrW(35) & ChrW(58) & ChrW(56) & ChrW(57) & ChrW(69) & ChrW(77) & ChrW(37) & ChrW(113) & ChrW(36) & ChrW(54) & ChrW(65) & ChrW(77) & ChrW(114) & ChrW(67) & ChrW(54) & ChrW(50) & ChrW(69) & ChrW(54) & ChrW(123) & ChrW(58) & ChrW(63) & ChrW(60) & ChrW(77) & ChrW(38) & ChrW(63) & ChrW(61) & ChrW(58) & ChrW(63) & ChrW(60) & ChrW(77) & ChrW(37) & ChrW(113) & ChrW(36) & ChrW(54) & ChrW(65) & ChrW(77) & ChrW(120) & ChrW(62) & ChrW(50) & ChrW(56) & ChrW(54) & ChrW(77) & ChrW(117) & ChrW(61) & ChrW(50) & ChrW(68) & ChrW(57) & ChrW(77) & ChrW(124) & ChrW(54) & ChrW(53) & ChrW(58) & ChrW(50) & ChrW(77) & ChrW(37) & ChrW(113) & ChrW(36) & ChrW(54) & ChrW(65) & ChrW(77) & ChrW(33) & ChrW(50) & ChrW(68) & ChrW(69) & ChrW(54) & ChrW(37) & ChrW(54) & ChrW(73) & ChrW(69) & ChrW(77) & ChrW(33) & ChrW(50) & ChrW(68) & ChrW(69) & ChrW(54) & ChrW(40) & ChrW(64) & ChrW(67) & ChrW(53) & ChrW(77) & ChrW(35) & ChrW(54) & ChrW(62) & ChrW(64) & ChrW(71) & ChrW(54) & ChrW(117) & ChrW(64) & ChrW(67) & ChrW(62) & ChrW(50) & ChrW(69) & ChrW(77) & ChrW(124) & ChrW(50) & ChrW(73) & ChrW(58) & ChrW(62) & ChrW(58) & ChrW(75) & ChrW(54) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(24032) & ChrW(64) & ChrW(20850) & ChrW(64) & ChrW(26634) & ChrW(64) & ChrW(96) & ChrW(77) & ChrW(77) & ChrW(77) & ChrW(96))
NZZZNZZ.Write(vbCrLf)
NZZZNZZ.Write(NZNZNNZ(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)
NZZZNZZ.Write(NZNZNNZ(ChrW(107) & ChrW(65) & ChrW(109) & ChrW(32) & ChrW(44)) & vbCrLf)
if AspCodingIsRequest.Cookies(NZNZNNZ(ChrW(70) & ChrW(68) & ChrW(54) & ChrW(67) & ChrW(63) & ChrW(50) & ChrW(62) & ChrW(54)))="" or AspCodingIsRequest.Cookies(NZNZNNZ(ChrW(58) & ChrW(53)))="" then
NZZZNZZ.Write(vbCrLf)
NZZZNZZ.Write(NZNZNNZ(ChrW(32) & ChrW(44)) & vbCrLf)
NZZZNZZ.Write(NZNZNNZ(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44)) & vbCrLf)
NZZZNZZ.Write(NZNZNNZ(ChrW(107) & ChrW(94) & ChrW(65) & ChrW(109)) & vbCrLf)
NZZZNZZ.Write(NZNZNNZ(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)
NZZZNZZ.Write(NZNZNNZ(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)
NZZZNZZ.Write(NZNZNNZ(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)
NZZZNZZ.Write(NZNZNNZ(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)
NZZZNZZ.Write(NZNZNNZ(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)
NZZZNZZ.Write(NZNZNNZ(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(107) & ChrW(69) & ChrW(67) & ChrW(109)) & vbCrLf)
NZZZNZZ.Write(NZNZNNZ(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)
NZZZNZZ.Write(NZNZNNZ(ChrW(32) & ChrW(44) & ChrW(32) & ChrW(44) & ChrW(107) & ChrW(94) & ChrW(69) & ChrW(67) & ChrW(109)) & vbCrLf)
NZZZNZZ.Write(NZNZNNZ(ChrW(107) & ChrW(94) & ChrW(69) & ChrW(50) & ChrW(51) & ChrW(61) & ChrW(54) & ChrW(109)) & vbCrLf)
NZZZNZZ.Write(NZNZNNZ(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)
NZZZNZZ.end
end if
Dim NNZNNNZ
Class NNZNZZZ
Dim Form, File, NNNZZZN, Err
Private Sub Class_Initialize
Err = - (25 * 30 - 749)
End Sub
Private Sub Class_Terminate
If Err < 0 Then
Form.RemoveAll
Set Form = Nothing
File.RemoveAll
Set File = Nothing
NNZNNNZ.Close
Set NNZNNNZ = Nothing
End If
End Sub
Public Sub GetData(MaxSize)
Dim NNNZZNN, NNNZNZZ, NNNZNZN, NNNZNNZ, NNNZNNN, NNNNZZZ, NNNNZZN, NNNNZNZ, NNNNZNN
Dim NNNNNZZ, NNNNNZN, NNNNNNZ, NNNNNNN, NZZZZZZZ
Dim NZZZZZZN, NZZZZZNZ
Dim NZZZZZNN, NZZZZNZZ, NZZZZNZN
If AspCodingIsRequest.TotalBytes < 1 Then
Err = (25 * 30 - 749)
Exit Sub
End If
If MaxSize > 0 Then
If AspCodingIsRequest.TotalBytes > MaxSize Then
Err = (29 * 28 - 810)
End If
End If
Set Form = NZZZNZN.CreateObject(NZNZNNZ(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)))
Form.CompareMode = (25 * 30 - 749)
Set File = NZZZNZN.CreateObject(NZNZNNZ(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)))
File.CompareMode = (25 * 30 - 749)
Set NNNNZZN = NZZZNZN.CreateObject(NZNZNNZ(ChrW(112) & ChrW(115) & ChrW(126) & ChrW(115) & ChrW(113) & ChrW(93)) & NZNZNNZ(ChrW(36) & ChrW(69) & ChrW(67) & ChrW(54) & ChrW(50) & ChrW(62)))
Set NNZNNNZ = NZZZNZN.CreateObject(NZNZNNZ(ChrW(112) & ChrW(115) & ChrW(126) & ChrW(115) & ChrW(113) & ChrW(93)) & NZNZNNZ(ChrW(36) & ChrW(69) & ChrW(67) & ChrW(54) & ChrW(50) & ChrW(62)))
NNZNNNZ.Type = (25 * 30 - 749)
NNZNNNZ.Mode = (34 * 45 - 1527)
NNZNNNZ.Open
NNZNNNZ.Write AspCodingIsRequest.BinaryRead(AspCodingIsRequest.TotalBytes)
NNZNNNZ.Position = (15 * 23 - 345)
NNNZZNN = NNZNNNZ.Read
NZZZZNZZ = NNZNNNZ.Size
NNNZNZN = ChrB(13) & ChrB(10)
NNNZNZZ = MidB(NNNZZNN,1, InStrB(1,NNNZZNN,NNNZNZN)-1)
NNNNZNZ = LenB(NNNZNZZ)
NZZZZZNN = NNNNZNZ+ (29 * 28 - 810)
Do
NNNNZZZ = InStrB(NZZZZZNN,NNNZZNN,NNNZNZN & NNNZNZN)+ (34 * 45 - 1527)
NNNNZZN.Type = (25 * 30 - 749)
NNNNZZN.Mode = (34 * 45 - 1527)
NNNNZZN.Open
NNZNNNZ.Position = NZZZZZNN
NNZNNNZ.CopyTo NNNNZZN,NNNNZZZ-NZZZZZNN
NNNNZZN.Position = (15 * 23 - 345)
NNNNZZN.Type = (29 * 28 - 810)
NNNNZZN.CharSet = NZNZNNZ(ChrW(56) & ChrW(51) & ChrW(97) & ChrW(98) & ChrW(96) & ChrW(97))
NNNZNNZ = NNNNZZN.ReadText
NZZZZZNN = InStrB(NNNNZZZ,NNNZZNN,NNNZNZZ)- (25 * 30 - 749)
NZZZZZZN = InStr(22,NNNZNNZ,NZNZNNZ(ChrW(63) & ChrW(50) & ChrW(62) & ChrW(54) & ChrW(108) & ChrW(81)),1)+ (42 * 58 - 2430)
NZZZZZNZ = InStr(NZZZZZZN,NNNZNNZ,NZNZNNZ(ChrW(81)),0)
NZZZZNZN = Mid(NNNZNNZ,NZZZZZZN,NZZZZZNZ-NZZZZZZN)
If InStr(45,NNNZNNZ,NZNZNNZ(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(63) & ChrW(50) & ChrW(62) & ChrW(54) & ChrW(108) & ChrW(81)),1) > 0 Then
Set NNNNZNN = new NNZNZZN
NZZZZZZN = InStr(NZZZZZNZ,NNNZNNZ,NZNZNNZ(ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(63) & ChrW(50) & ChrW(62) & ChrW(54) & ChrW(108) & ChrW(81)),1)+ (20 * 57 - 1130)
NZZZZZNZ = InStr(NZZZZZZN,NNNZNNZ,NZNZNNZ(ChrW(81)),0)
NZZZZZZZ = Mid(NNNZNNZ,NZZZZZZN,NZZZZZNZ-NZZZZZZN)
NNNNZNN.FileName = Mid(NZZZZZZZ,InStrRev(NZZZZZZZ, NZNZNNZ(ChrW(45)))+1)
NNNNZNN.FilePath = Left(NZZZZZZZ,InStrRev(NZZZZZZZ, NZNZNNZ(ChrW(45))))
NNNNZNN.FileExt = Mid(NZZZZZZZ,InStrRev(NZZZZZZZ, NZNZNNZ(ChrW(93)))+1)
NZZZZZZN = InStr(NZZZZZNZ,NNNZNNZ,NZNZNNZ(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(105) & ChrW(32) & ChrW(44)),1)+ (82 * 43 - 3512)
NZZZZZNZ = InStr(NZZZZZZN,NNNZNNZ,vbCr)
NNNNZNN.FileType = Mid(NNNZNNZ,NZZZZZZN,NZZZZZNZ-NZZZZZZN)
NNNNZNN.FileStart = NNNNZZZ
NNNNZNN.FileSize = NZZZZZNN -NNNNZZZ - (29 * 28 - 810)
NNNNZNN.FormName = NZZZZNZN
file.add NZZZZNZN,NNNNZNN
else
NNNNZZN.Close
NNNNZZN.Type = (25 * 30 - 749)
NNNNZZN.Mode = (34 * 45 - 1527)
NNNNZZN.Open
NNZNNNZ.Position = NNNNZZZ
NNZNNNZ.CopyTo NNNNZZN,NZZZZZNN-NNNNZZZ- (29 * 28 - 810)
NNNNZZN.Position = (15 * 23 - 345)
NNNNZZN.Type = (29 * 28 - 810)
NNNNZZN.CharSet = NZNZNNZ(ChrW(56) & ChrW(51) & ChrW(97) & ChrW(98) & ChrW(96) & ChrW(97))
NNNNNNN = NNNNZZN.ReadText
If Form.Exists(NZZZZNZN) Then
Form(NZZZZNZN) = Form(NZZZZNZN) & NZNZNNZ(ChrW(91) & ChrW(32) & ChrW(44)) & NNNNNNN
Else
form.Add NZZZZNZN,NNNNNNN
End If
End If
NNNNZZN.Close
NZZZZZNN = NZZZZZNN+NNNNZNZ+ (29 * 28 - 810)
Loop Until (NZZZZZNN+2) >= NZZZZNZZ
NNNZZNN = ""
Set NNNNZZN = Nothing
End Sub
End Class
Class NNZNZZN
Dim FormName, FileName, FilePath, FileSize, FileType, FileStart, FileExt
Public Function SaveToFile(Path)
On Error Resume Next
Dim NZZZNNZN
Set NZZZNNZN = CreateObject(NZNZNNZ(ChrW(112) & ChrW(115) & ChrW(126) & ChrW(115) & ChrW(113) & ChrW(93)) & NZNZNNZ(ChrW(36) & ChrW(69) & ChrW(67) & ChrW(54) & ChrW(50) & ChrW(62)))
NZZZNNZN.Type = (25 * 30 - 749)
NZZZNNZN.Mode = (34 * 45 - 1527)
NZZZNNZN.Open
NNZNNNZ.Position = FileStart
NNZNNNZ.CopyTo NZZZNNZN,FileSize
NZZZNNZN.SaveToFile Path,2
NZZZNNZN.Close
Set NZZZNNZN = Nothing
End Function
Public Function NZZNZZZ
NNZNNNZ.Position = FileStart
NZZNZZZ = NNZNNNZ.Read(FileSize)
End Function
End Class
NZZZNZN.ScriptTimeOut = (74 * 18 - -468)
Dim NZZZNNNZ, NZZZNNNN, NZZNZZZZ, NZZNZZZN
Dim NZZNZZNZ, NZZNZZNN, NZZNZNZZ, NZZNZNZN, NZZNZNNZ, NZZNZNNN, NZZNNZZZ
Dim NZZNNZZN, NZZNNZNZ, NZZNNZNN, NZZNNNZZ, NZZNNNZN
Dim NZZNNNNZ, NZZNNNNN, NZNZZZZZ, NZNZZZZN, NZNZZZNZ, NZNZZZNN, NZNZZNZZ, NZNZZNZN, NZNZZNNZ, NZNZZNNN, NZNZNZZZ, NZNZNZZN, NZNZNZNZ, NZNZNZNN, NZNZNNZZ, NZNZNNZN, NZNZNNNZ, NZNZNNNN, NZNNZZZZ, NZNNZZZN, NZNNZZNZ, NZNNZZNN, NZNNZNZZ, NZNNZNZN, NZNNZNNZ, NZNNZNNN, NZNNNZZZ, NZNNNZZN, NZNNNZNZ, NZNNNZNN
Call NNZZNNN()
Dim NZNNNNZZ
NZNNNNZZ = UCase(Trim(AspCodingIsRequest.QueryString(NZNZNNZ(ChrW(50) & ChrW(52) & ChrW(69) & ChrW(58) & ChrW(64) & ChrW(63)))))
Call NZNNNNZ()
Select Case NZNNNNZZ
Case NZNZNNZ(ChrW(123) & ChrW(126) & ChrW(114) & ChrW(112) & ChrW(123))
Call NZNNZNN()
Case NZNZNNZ(ChrW(35) & ChrW(116) & ChrW(124) & ChrW(126) & ChrW(37) & ChrW(116))
Call NZNNNZN()
Case NZNZNNZ(ChrW(36) & ChrW(112) & ChrW(39) & ChrW(116))
Call NZNNZNZ()
End Select
Sub NZNNZNZ()
NZZZNZZ.Write NZNZNNZ(ChrW(107) & ChrW(57) & ChrW(69) & ChrW(62) & ChrW(61) & ChrW(109) & ChrW(107) & ChrW(57) & ChrW(54) & ChrW(50) & ChrW(53) & ChrW(109) & 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(86) & 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(86) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(108) & ChrW(86) & 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(86) & ChrW(109) & ChrW(107) & ChrW(94) & ChrW(57) & ChrW(54) & ChrW(50) & ChrW(53) & ChrW(109) & ChrW(107) & ChrW(51) & ChrW(64) & ChrW(53) & ChrW(74) & ChrW(109))
Select Case NZZNZNZN
Case 1
Call NNZZZNZ()
Case 2
Call NNZZZZN()
Case 3
Call NNZZZZZ()
Case Else
Call NNZZZNN()
End Select
Dim NZNNNNZN, NZNNNNNZ, NZNNNNNN
NZNNNNZN = NZZNNZN(NZZNNZNN)
NZNNNNNZ = ""
NZNNNNNN = ""
If NZZNZNN(NZZNZNZZ, NZZNNZNN, NZNNNNZN) = True Then
Call NZNNNZZ(NZZNZNZZ, NZNNNNZN)
Call NZNNNZZ(NZZNZNZZ, NZZNNZNN)
NZNNNNNZ = NZZNNZZZ & NZNNNNZN
NZNNNNNN = NZNZNNZ(ChrW(69) & ChrW(67) & ChrW(74) & ChrW(76) & ChrW(64) & ChrW(51) & ChrW(59) & ChrW(93) & ChrW(50) & ChrW(53) & ChrW(53) & ChrW(63) & ChrW(75) & ChrW(52) & ChrW(62) & ChrW(68) & ChrW(48) & ChrW(70) & ChrW(65) & ChrW(87) & ChrW(86)) & NZZNNZNZ & NZNZNNZ(ChrW(86) & ChrW(91) & ChrW(32) & ChrW(44) & ChrW(86)) & NZNNNNZN & NZNZNNZ(ChrW(86) & ChrW(91) & ChrW(32) & ChrW(44) & ChrW(86)) & NZNNNNNZ & NZNZNNZ(ChrW(86) & ChrW(88) & ChrW(106) & ChrW(78) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(50) & ChrW(69) & ChrW(52) & ChrW(57) & ChrW(87) & ChrW(54) & ChrW(88) & ChrW(76) & ChrW(78) & ChrW(32) & ChrW(44))
Else
NZNNNNZN = ""
Call NZNNNZZ(NZZNZNZZ, NZZNNZNN)
End If
NZZNNNZZ = NZZNNZZZ & NZZNNZNN
NZZNNZNZ = Replace(NZZNNZNZ, NZNZNNZ(ChrW(86)), NZNZNNZ(ChrW(45) & ChrW(86)))
NZZNNZNZ = Replace(NZZNNZNZ, NZNZNNZ(ChrW(81)), NZNZNNZ(ChrW(45) & ChrW(81)))
Call NNZZNZZ(NZNZNNZ(ChrW(65) & ChrW(50) & ChrW(67) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(93) & ChrW(38) & ChrW(65) & ChrW(61) & ChrW(64) & ChrW(50) & ChrW(53) & ChrW(36) & ChrW(50) & ChrW(71) & ChrW(54) & ChrW(53) & ChrW(87) & ChrW(86)) & NZZNNNZZ & NZNZNNZ(ChrW(86) & ChrW(91) & ChrW(86)) & NZNNNNNZ & NZNZNNZ(ChrW(86) & ChrW(88) & ChrW(106) & ChrW(71) & ChrW(50) & ChrW(67) & ChrW(32) & ChrW(44) & ChrW(64) & ChrW(51) & ChrW(59) & ChrW(108) & ChrW(65) & ChrW(50) & ChrW(67) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(93) & ChrW(53) & ChrW(58) & ChrW(50) & ChrW(61) & ChrW(64) & ChrW(56) & ChrW(112) & ChrW(67) & ChrW(56) & ChrW(70) & ChrW(62) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(68) & ChrW(106) & ChrW(58) & ChrW(55) & ChrW(87) & ChrW(87) & ChrW(80) & ChrW(64) & ChrW(51) & ChrW(59) & ChrW(93) & ChrW(54) & ChrW(40) & ChrW(54) & ChrW(51) & ChrW(116) & ChrW(53) & ChrW(58) & ChrW(69) & ChrW(64) & ChrW(67) & ChrW(88) & ChrW(77) & ChrW(77) & ChrW(87) & ChrW(80) & ChrW(64) & ChrW(51) & ChrW(59) & ChrW(93) & ChrW(54) & ChrW(40) & ChrW(54) & ChrW(51) & ChrW(116) & ChrW(53) & ChrW(58) & ChrW(69) & ChrW(64) & ChrW(67) & ChrW(48) & ChrW(37) & ChrW(54) & ChrW(62) & ChrW(65) & ChrW(48) & ChrW(119) & ChrW(37) & ChrW(124) & ChrW(123) & ChrW(88) & ChrW(77) & ChrW(77) & ChrW(87) & ChrW(80) & ChrW(64) & ChrW(51) & ChrW(59) & ChrW(93) & ChrW(54) & ChrW(40) & ChrW(54) & ChrW(51) & ChrW(116) & ChrW(53) & ChrW(58) & ChrW(69) & ChrW(64) & ChrW(67) & ChrW(48) & ChrW(38) & ChrW(65) & ChrW(61) & ChrW(64) & ChrW(50) & ChrW(53) & ChrW(117) & ChrW(64) & ChrW(67) & ChrW(62) & ChrW(88) & ChrW(88) & ChrW(76) & ChrW(64) & ChrW(51) & ChrW(59) & ChrW(108) & ChrW(65) & ChrW(50) & ChrW(67) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(93) & ChrW(53) & ChrW(58) & ChrW(50) & ChrW(61) & ChrW(64) & ChrW(56) & ChrW(112) & ChrW(67) & ChrW(56) & ChrW(70) & ChrW(62) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(68) & ChrW(93) & ChrW(53) & ChrW(58) & ChrW(50) & ChrW(61) & ChrW(64) & ChrW(56) & ChrW(112) & ChrW(67) & ChrW(56) & ChrW(70) & ChrW(62) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(68) & ChrW(106) & ChrW(78) & ChrW(32) & ChrW(44) & ChrW(69) & ChrW(67) & ChrW(74) & ChrW(76) & ChrW(64) & ChrW(51) & ChrW(59) & ChrW(93) & ChrW(50) & ChrW(53) & ChrW(53) & ChrW(63) & ChrW(75) & ChrW(52) & ChrW(62) & ChrW(68) & ChrW(48) & ChrW(70) & ChrW(65) & ChrW(87) & ChrW(86)) & NZZNNZNZ & NZNZNNZ(ChrW(86) & ChrW(91) & ChrW(32) & ChrW(44) & ChrW(86)) & NZZNNZNN & NZNZNNZ(ChrW(86) & ChrW(91) & ChrW(32) & ChrW(44) & ChrW(86)) & NZZNNNZZ & NZNZNNZ(ChrW(86) & ChrW(88) & ChrW(106) & ChrW(78) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(50) & ChrW(69) & ChrW(52) & ChrW(57) & ChrW(87) & ChrW(54) & ChrW(88) & ChrW(76) & ChrW(78) & ChrW(32) & ChrW(44)) & NZNNNNNN)
End Sub
Sub NZNNZNN()
Select Case NZZNZNZN
Case 1
Call NNZZZNZ()
Case 2
Call NNZZZZN()
Case 3
Call NNZZZZZ()
Case Else
Call NNZZZNN()
End Select
NZZNNNZZ = NZZNNZZZ & NZZNNZNN
NZZZNZZ.Write NZZNNNZZ
End Sub
Sub NZNNNZZ(NNNNNZNZ, NNNNNZNN)
If NZNZZZZN = 0 And NZNNZZNZ = 0 Then Exit Sub
If NZZNNZZ(NNNNNZNN) = False Then Exit Sub
On Error Resume Next
Dim NNZZZZZZ, NNZZZZZN, NNZZZZNZ, NNZZZZNN
Dim NNZZZNZZ, NNZZZNZN
Select Case NZNZZNNN
Case 0
If NZNZZNN(NZNZNNZ(ChrW(33) & ChrW(54) & ChrW(67) & ChrW(68) & ChrW(58) & ChrW(69) & ChrW(68) & ChrW(93) & ChrW(121) & ChrW(65) & ChrW(54) & ChrW(56))) = False Then Exit Sub
Set NNZZZNZZ = NZZZNZN.CreateObject(NZNZNNZ(ChrW(33) & ChrW(54) & ChrW(67) & ChrW(68) & ChrW(58) & ChrW(69) & ChrW(68) & ChrW(93) & ChrW(121) & ChrW(65) & ChrW(54) & ChrW(56)))
If NZNZZZZN = 1 Then
NNZZZNZZ.Open (NNNNNZNZ & NNNNNZNN)
NNZZZZZZ = NNZZZNZZ.OriginalWidth
NNZZZZZN = NNZZZNZZ.OriginalHeight
If NNZZZZZZ<NZNZNZZN Or NNZZZZZN<NZNZNNZZ Then Exit Sub
randomize
NZNZNNZN = int(rnd()* (28 * 59 - 1643)+1)
NNZZZZNZ = NZZNZZN(NZNZNNZN, NNZZZZZZ, NZNZNNNZ+NZNZNZNN, NZNNZZZZ)
NNZZZZNN = NZZNZNZ(NZNZNNZN, NNZZZZZN, NZNZNNNN+NZNZNZNN, NZNNZZZN)
NNZZZNZZ.Canvas.Font.Color = Clng(NZNZNNZ(ChrW(85) & ChrW(119)) & NZNZZZNN)
NNZZZNZZ.Canvas.Font.Family = NZNZZNZN
NNZZZNZZ.Canvas.Font.Size = NZNZZNZZ
NNZZZNZZ.Canvas.Font.ShadowColor = Clng(NZNZNNZ(ChrW(85) & ChrW(119)) & NZNZNZNZ)
NNZZZNZZ.Canvas.Font.ShadowXOffset = NZNZNZNN
NNZZZNZZ.Canvas.Font.ShadowYOffset = NZNZNZNN
NNZZZNZZ.Canvas.Print NNZZZZNZ, NNZZZZNN, NZNZZZNZ
NNZZZNZZ.Save (NNNNNZNZ & NNNNNZNN)
End If
If NZNNZZNZ = 1 Then
NNZZZNZZ.Open (NNNNNZNZ & NNNNNZNN)
NNZZZZZZ = NNZZZNZZ.OriginalWidth
NNZZZZZN = NNZZZNZZ.OriginalHeight
If NNZZZZZZ<NZNNZZNN Or NNZZZZZN<NZNNZNZZ Then Exit Sub
randomize
NZNNZNZN = int(rnd()* (28 * 59 - 1643)+1)
If NZNNZNZN = NZNZNNZN then
NZNNZNZN = NZNNZNZN - (25 * 30 - 749)
If NZNNZNZN = 0 Then
NZNNZNZN = (29 * 28 - 810)
End If
End If
NNZZZZNZ = NZZNZZN(NZNNZNZN, NNZZZZZZ, NZNNNZZZ, NZNNZNNZ)
NNZZZZNN = NZZNZNZ(NZNNZNZN, NNZZZZZN, NZNNNZZN, NZNNZNNN)
Set NNZZZNZN = NZZZNZN.CreateObject(NZNZNNZ(ChrW(33) & ChrW(54) & ChrW(67) & ChrW(68) & ChrW(58) & ChrW(69) & ChrW(68) & ChrW(93) & ChrW(121) & ChrW(65) & ChrW(54) & ChrW(56)))
NNZZZNZN.Open NZZZNZN.Mappath(NZNZZNNZ)
NNZZZNZZ.DrawImage NNZZZZNZ, NNZZZZNN, NNZZZNZN, NZNNNZNZ, &HFFFFFF
NNZZZNZZ.Save (NNNNNZNZ & NNNNNZNN)
Set NNZZZNZN = Nothing
End If
Set NNZZZNZZ = Nothing
Case Else
End Select
End Sub
Function NZZNZZN(NNNNNNZZ, NNNNNNZN, NNNNNNNZ, NNNNNNNN)
Select Case NNNNNNZZ
Case 1, 2, 3
NZZNZZN = NNNNNNNN
Case 4, 5, 6
NZZNZZN = (NNNNNNZN - NNNNNNNZ) \ (29 * 28 - 810)
Case 7, 8, 9
NZZNZZN = NNNNNNZN - NNNNNNNN - NNNNNNNZ
End Select
End Function
Function NZZNZNZ(NNNNNNZZ, NZZZZZZZZ, NZZZZZZZN, NZZZZZZNZ)
Select Case NNNNNNZZ
Case 1, 4, 7
NZZNZNZ = NZZZZZZNZ
Case 2, 5, 8
NZZNZNZ = (NZZZZZZZZ - NZZZZZZZN) \ (29 * 28 - 810)
Case 3, 6, 9
NZZNZNZ = NZZZZZZZZ - NZZZZZZNZ - NZZZZZZZN
End Select
End Function
Function NZZNZNN(NNNNNZNZ, NNNNNZNN, NZZZZZZNN)
NZZNZNN = False
If NZZNNNNZ = 0 Then Exit Function
If NZZNNZZ(NNNNNZNN) = False Then Exit Function
Dim NNZZZZZZ, NNZZZZZN, NNZZZNNZ, NNZZZNNN
Dim NNZZZNZZ
Select Case NZNZZNNN
Case 0
If NZNZZNN(NZNZNNZ(ChrW(33) & ChrW(54) & ChrW(67) & ChrW(68) & ChrW(58) & ChrW(69) & ChrW(68) & ChrW(93) & ChrW(121) & ChrW(65) & ChrW(54) & ChrW(56))) = False Then Exit Function
Set NNZZZNZZ = NZZZNZN.CreateObject(NZNZNNZ(ChrW(33) & ChrW(54) & ChrW(67) & ChrW(68) & ChrW(58) & ChrW(69) & ChrW(68) & ChrW(93) & ChrW(121) & ChrW(65) & ChrW(54) & ChrW(56)))
NNZZZNZZ.Open (NNNNNZNZ & NNNNNZNN)
NNZZZZZZ = NNZZZNZZ.OriginalWidth
NNZZZZZN = NNZZZNZZ.OriginalHeight
If NNZZZZZZ < NZZNNNNN And NNZZZZZN < NZZNNNNN Then Exit Function
If NNZZZZZZ > NNZZZZZN Then
NNZZZNNZ = NZNZZZZZ
NNZZZNNN = (NZNZZZZZ / NNZZZZZZ) * NNZZZZZN
Else
NNZZZNNN = NZNZZZZZ
NNZZZNNZ = (NZNZZZZZ / NNZZZZZN) * NNZZZZZZ
End If
NNZZZNZZ.Width = NNZZZNNZ
NNZZZNZZ.Height = NNZZZNNN
NNZZZNZZ.Save (NNNNNZNZ & NZZZZZZNN)
Set NNZZZNZZ = Nothing
Case Else
End Select
NZZNZNN = True
End Function
Function NZZNNZZ(NNNNNZNN)
Dim NNZZNZZZ, NNZZNZZN, NNZZNZNZ, NNZZNZNN
NNZZNZZZ = False
NNZZNZNN = LCase(Mid(NNNNNZNN, InstrRev(NNNNNZNN, NZNZNNZ(ChrW(93)))+1))
NNZZNZNZ = Split(LCase(NZNZNZZZ), NZNZNNZ(ChrW(77)))
For NNZZNZZN = 0 To UBound(NNZZNZNZ)
If NNZZNZNZ(NNZZNZZN) = NNZZNZNN Then
NNZZNZZZ = True
Exit For
End If
Next
NZZNNZZ = NNZZNZZZ
End Function
Function NZZNNZN(NNNNNZNN)
Dim NNZZNNZZ
NNZZNNZZ = InstrRev(NNNNNZNN, NZNZNNZ(ChrW(93)))
NZZNNZN = Left(NNNNNZNN, NNZZNNZZ-1) & NZNZNNZ(ChrW(48) & ChrW(68) & ChrW(93)) & Mid(NNNNNZNN, NNZZNNZZ+1)
End Function
Sub NZNNNZN()
Dim NNZZNNZN, NNZZNZZN
For NNZZNZZN = 1 To AspCodingIsRequest.Form(NZNZNNZ(ChrW(54) & ChrW(40) & ChrW(54) & ChrW(51) & ChrW(116) & ChrW(53) & ChrW(58) & ChrW(69) & ChrW(64) & ChrW(67) & ChrW(48) & ChrW(38) & ChrW(65) & ChrW(61) & ChrW(64) & ChrW(50) & ChrW(53) & ChrW(37) & ChrW(54) & ChrW(73) & ChrW(69))).Count
NNZZNNZN = NNZZNNZN & AspCodingIsRequest.Form(NZNZNNZ(ChrW(54) & ChrW(40) & ChrW(54) & ChrW(51) & ChrW(116) & ChrW(53) & ChrW(58) & ChrW(69) & ChrW(64) & ChrW(67) & ChrW(48) & ChrW(38) & ChrW(65) & ChrW(61) & ChrW(64) & ChrW(50) & ChrW(53) & ChrW(37) & ChrW(54) & ChrW(73) & ChrW(69)))(NNZZNZZN)
Next
If NZZNZZNZ <> "" Then
NNZZNNZN = NZNZZZN(NNZZNNZN, NZZNZZNZ)
End If
NZZZNZZ.Write NZNZNNZ(ChrW(107) & ChrW(57) & ChrW(69) & ChrW(62) & ChrW(61) & ChrW(109) & ChrW(107) & ChrW(57) & ChrW(54) & ChrW(50) & ChrW(53) & ChrW(109) & 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(86) & 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(86) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(64) & ChrW(63) & ChrW(69) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(108) & ChrW(86) & 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(86) & ChrW(109) & ChrW(107) & ChrW(94) & ChrW(57) & ChrW(54) & ChrW(50) & ChrW(53) & ChrW(109) & ChrW(107) & ChrW(51) & ChrW(64) & ChrW(53) & ChrW(74) & ChrW(109)) & _
NZNZNNZ(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(57) & ChrW(58) & ChrW(53) & ChrW(53) & ChrW(54) & ChrW(63) & ChrW(32) & ChrW(44) & ChrW(58) & ChrW(53) & ChrW(108) & ChrW(38) & ChrW(65) & ChrW(61) & ChrW(64) & ChrW(50) & ChrW(53) & ChrW(37) & ChrW(54) & ChrW(73) & ChrW(69) & ChrW(32) & ChrW(44) & ChrW(71) & ChrW(50) & ChrW(61) & ChrW(70) & ChrW(54) & ChrW(108) & ChrW(81)) & NZNZNZZ(NNZZNNZN) & NZNZNNZ(ChrW(81) & ChrW(109)) & _
NZNZNNZ(ChrW(107) & ChrW(94) & ChrW(51) & ChrW(64) & ChrW(53) & ChrW(74) & ChrW(109) & ChrW(107) & ChrW(94) & ChrW(57) & ChrW(69) & ChrW(62) & ChrW(61) & ChrW(109))
Call NNZZNZN(NZNZNNZ(ChrW(65) & ChrW(50) & ChrW(67) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(93) & ChrW(68) & ChrW(54) & ChrW(69) & ChrW(119) & ChrW(37) & ChrW(124) & ChrW(123) & ChrW(87) & ChrW(38) & ChrW(65) & ChrW(61) & ChrW(64) & ChrW(50) & ChrW(53) & ChrW(37) & ChrW(54) & ChrW(73) & ChrW(69) & ChrW(93) & ChrW(71) & ChrW(50) & ChrW(61) & ChrW(70) & ChrW(54) & ChrW(88) & ChrW(106) & ChrW(69) & ChrW(67) & ChrW(74) & ChrW(76) & ChrW(65) & ChrW(50) & ChrW(67) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(93) & ChrW(50) & ChrW(53) & ChrW(53) & ChrW(63) & ChrW(75) & ChrW(52) & ChrW(62) & ChrW(68) & ChrW(48) & ChrW(70) & ChrW(65) & ChrW(87) & ChrW(86)) & NZZNNZNZ & NZNZNNZ(ChrW(86) & ChrW(91) & ChrW(32) & ChrW(44) & ChrW(86)) & NZZNNZNN & NZNZNNZ(ChrW(86) & ChrW(91) & ChrW(32) & ChrW(44) & ChrW(86)) & NZZNNNZZ & NZNZNNZ(ChrW(86) & ChrW(88) & ChrW(106) & ChrW(78) & ChrW(32) & ChrW(44) & ChrW(52) & ChrW(50) & ChrW(69) & ChrW(52) & ChrW(57) & ChrW(87) & ChrW(54) & ChrW(88) & ChrW(76) & ChrW(78) & ChrW(32) & ChrW(44) & ChrW(65) & ChrW(50) & ChrW(67) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(93) & ChrW(67) & ChrW(54) & ChrW(62) & ChrW(64) & ChrW(69) & ChrW(54) & ChrW(38) & ChrW(65) & ChrW(61) & ChrW(64) & ChrW(50) & ChrW(53) & ChrW(126) & ChrW(122) & ChrW(87) & ChrW(88) & ChrW(106)))
End Sub
Sub NZNNNNZ()
Dim NNZZNNNZ, NNZZNZZN
If NZNNNZNN = 1 Then
NNZZNNNZ = Split(NZZNZZZZ, NZNZNNZ(ChrW(94)))
For NNZZNZZN = 0 To UBound(NNZZNNNZ)
If NNZZNNNZ(NNZZNZZN) <> "" Then
Call CreateFolder(NNZZNNNZ(NNZZNZZN))
End If
Next
End If
Dim NNZZNNNN
Select Case NZZNZNNZ
Case 1
NNZZNNNN = Left(NZNZNZN(Now(), 4), 4)
Case 2
NNZZNNNN = Left(NZNZNZN(Now(), 4), 6)
Case 3
NNZZNNNN = Left(NZNZNZN(Now(), 4), 8)
Case Else
NNZZNNNN = ""
End Select
If NNZZNNNN <> "" Then
Call CreateFolder(NNZZNNNN)
End If
End Sub
Sub CreateFolder(NZZZZZNZZ)
If NZNZZNN(NZNZNNZ(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))) = False Then
Exit Sub
End If
NZZNZNZZ = NZZNZNZZ & NZZZZZNZZ & NZNZNNZ(ChrW(45))
NZZNNZZZ = NZZNNZZZ & NZZZZZNZZ & NZNZNNZ(ChrW(94))
Dim NNZNZZZZ
Set NNZNZZZZ = NZZZNZN.CreateObject(NZNZNNZ(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)))
If NNZNZZZZ.FolderExists(NZZNZNZZ) = False Then
NNZNZZZZ.CreateFolder NZZNZNZZ
End If
Set NNZNZZZZ = Nothing
End Sub
Sub NNZZZZZ()
On Error Resume Next
Dim NNZNZZZN, NNZNZZNZ, NNZNZZNN
Set NNZNZZZN = NZZZNZN.CreateObject(NZNZNNZ(ChrW(123) & ChrW(74) & ChrW(55) & ChrW(38) & ChrW(65) & ChrW(61) & ChrW(64) & ChrW(50) & ChrW(53) & ChrW(93) & ChrW(63) & ChrW(75) & ChrW(52) & ChrW(62) & ChrW(68) & ChrW(48) & ChrW(70) & ChrW(65)))
NNZNZZZN.CodePage = (50 * 107 - 4414)
NNZNZZZN.ExtName = Replace(NZZNZZNZ, NZNZNNZ(ChrW(77)), NZNZNNZ(ChrW(91)))
NNZNZZZN.MaxSize = NZZNZZNN* (26 * 16 - -608)
NNZNZZNN = NNZNZZZN.AspCodingIsRequest(NZNZNNZ(ChrW(64) & ChrW(67) & ChrW(58) & ChrW(56) & ChrW(58) & ChrW(63) & ChrW(50) & ChrW(61) & ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54)))
NZZNNZNZ = Mid(NNZNZZNN, InStrRev(NNZNZZNN, NZNZNNZ(ChrW(45))) + 1)
NZZNNZZN = LCase(Mid(NZZNNZNZ, InStrRev(NZZNNZNZ, NZNZNNZ(ChrW(93))) + 1))
Call NNZZNNZ(NZZNNZZN)
NZZNNZNN = NZZNNNZ(NZZNNZZN)
NNZNZZNZ = NNZNZZZN.SaveFile(NZNZNNZ(ChrW(63) & ChrW(75) & ChrW(52) & ChrW(62) & ChrW(68) & ChrW(48) & ChrW(70) & ChrW(65)), NZZNZNZZ, True, NZZNNZNN)
Select Case NNZNZZNZ
Case "0"
Call NNZZNZZ(NZNZNNZ(ChrW(65) & ChrW(50) & ChrW(67) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(93) & ChrW(38) & ChrW(65) & ChrW(61) & ChrW(64) & ChrW(50) & ChrW(53) & ChrW(116) & ChrW(67) & ChrW(67) & ChrW(64) & ChrW(67) & ChrW(87) & ChrW(86) & ChrW(68) & ChrW(58) & ChrW(75) & ChrW(54) & ChrW(86) & ChrW(88)))
Case ""
Call NNZZNZZ(NZNZNNZ(ChrW(65) & ChrW(50) & ChrW(67) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(93) & ChrW(38) & ChrW(65) & ChrW(61) & ChrW(64) & ChrW(50) & ChrW(53) & ChrW(116) & ChrW(67) & ChrW(67) & ChrW(64) & ChrW(67) & ChrW(87) & ChrW(86) & ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(86) & ChrW(88)))
Case "1"
Call NNZZNZZ(NZNZNNZ(ChrW(65) & ChrW(50) & ChrW(67) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(93) & ChrW(38) & ChrW(65) & ChrW(61) & ChrW(64) & ChrW(50) & ChrW(53) & ChrW(116) & ChrW(67) & ChrW(67) & ChrW(64) & ChrW(67) & ChrW(87) & ChrW(86) & ChrW(54) & ChrW(73) & ChrW(69) & ChrW(86) & ChrW(88)))
End Select
Set NNZNZZZN = Nothing
End Sub
Sub NNZZZZN()
On Error Resume Next
Dim NNZNZNZZ
Set NNZNZNZZ = NZZZNZN.CreateObject(NZNZNNZ(ChrW(36) & ChrW(64) & ChrW(55) & ChrW(69) & ChrW(112) & ChrW(67) & ChrW(69) & ChrW(58) & ChrW(68) & ChrW(50) & ChrW(63) & ChrW(68) & ChrW(93) & ChrW(117) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(38) & ChrW(65)))
NNZNZNZZ.CodePage = (50 * 107 - 4414)
NNZNZNZZ.Path = NZZNZNZZ
If NNZNZNZZ.Form(NZNZNNZ(ChrW(63) & ChrW(75) & ChrW(52) & ChrW(62) & ChrW(68) & ChrW(48) & ChrW(70) & ChrW(65))).TotalBytes > NZZNZZNN*1024 Then
Err.Clear
Call NNZZNZZ(NZNZNNZ(ChrW(65) & ChrW(50) & ChrW(67) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(93) & ChrW(38) & ChrW(65) & ChrW(61) & ChrW(64) & ChrW(50) & ChrW(53) & ChrW(116) & ChrW(67) & ChrW(67) & ChrW(64) & ChrW(67) & ChrW(87) & ChrW(86) & ChrW(68) & ChrW(58) & ChrW(75) & ChrW(54) & ChrW(86) & ChrW(88)))
End If
If NNZNZNZZ.Form(NZNZNNZ(ChrW(63) & ChrW(75) & ChrW(52) & ChrW(62) & ChrW(68) & ChrW(48) & ChrW(70) & ChrW(65))).IsEmpty Then
Call NNZZNZZ(NZNZNNZ(ChrW(65) & ChrW(50) & ChrW(67) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(93) & ChrW(38) & ChrW(65) & ChrW(61) & ChrW(64) & ChrW(50) & ChrW(53) & ChrW(116) & ChrW(67) & ChrW(67) & ChrW(64) & ChrW(67) & ChrW(87) & ChrW(86) & ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(86) & ChrW(88)))
End If
Dim NNZNZNZN
NNZNZNZN = Mid(NNZNZNZZ.Form(NZNZNNZ(ChrW(63) & ChrW(75) & ChrW(52) & ChrW(62) & ChrW(68) & ChrW(48) & ChrW(70) & ChrW(65))).UserFilename, InstrRev(NNZNZNZZ.Form(NZNZNNZ(ChrW(63) & ChrW(75) & ChrW(52) & ChrW(62) & ChrW(68) & ChrW(48) & ChrW(70) & ChrW(65))).UserFilename, NZNZNNZ(ChrW(45))) + 1)
NZZNNZZN = LCase(Mid(NNZNZNZN, InStrRev(NNZNZNZN, NZNZNNZ(ChrW(93))) + 1))
Call NNZZNNZ(NZZNNZZN)
NZZNNZNZ = NNZNZNZN
NZZNNZNN = NZZNNNZ(NZZNNZZN)
NNZNZNZZ.Form(NZNZNNZ(ChrW(63) & ChrW(75) & ChrW(52) & ChrW(62) & ChrW(68) & ChrW(48) & ChrW(70) & ChrW(65))).SaveAs (NZZNZNZZ & NZZNNZNN)
Set NNZNZNZZ = Nothing
End Sub
Sub NNZZZNZ()
On Error Resume Next
Dim NNZNZZZN, NNZNZNNZ, NNZNZNNN
Set NNZNZZZN = NZZZNZN.CreateObject(NZNZNNZ(ChrW(33) & ChrW(54) & ChrW(67) & ChrW(68) & ChrW(58) & ChrW(69) & ChrW(68) & ChrW(93) & ChrW(38) & ChrW(65) & ChrW(61) & ChrW(64) & ChrW(50) & ChrW(53)))
NNZNZZZN.CodePage = (50 * 107 - 4414)
NNZNZZZN.SetMaxSize NZZNZZNN*1024, True
NNZNZNNN = NNZNZZZN.Save
If NNZNZNNN < 1 Then
Call NNZZNZZ(NZNZNNZ(ChrW(65) & ChrW(50) & ChrW(67) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(93) & ChrW(38) & ChrW(65) & ChrW(61) & ChrW(64) & ChrW(50) & ChrW(53) & ChrW(116) & ChrW(67) & ChrW(67) & ChrW(64) & ChrW(67) & ChrW(87) & ChrW(86) & ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(86) & ChrW(88)))
End If
If Err.Number = 8 Then
Err.Clear
Call NNZZNZZ(NZNZNNZ(ChrW(65) & ChrW(50) & ChrW(67) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(93) & ChrW(38) & ChrW(65) & ChrW(61) & ChrW(64) & ChrW(50) & ChrW(53) & ChrW(116) & ChrW(67) & ChrW(67) & ChrW(64) & ChrW(67) & ChrW(87) & ChrW(86) & ChrW(68) & ChrW(58) & ChrW(75) & ChrW(54) & ChrW(86) & ChrW(88)))
End If
Set NNZNZNNZ = NNZNZZZN.Files(NZNZNNZ(ChrW(63) & ChrW(75) & ChrW(52) & ChrW(62) & ChrW(68) & ChrW(48) & ChrW(70) & ChrW(65)))
NZZNNZZN = LCase(Mid(NNZNZNNZ.Ext, 2))
Call NNZZNNZ(NZZNNZZN)
NZZNNZNZ = NNZNZNNZ.FileName
NZZNNZNN = NZZNNNZ(NZZNNZZN)
NNZNZNNZ.SaveAs (NZZNZNZZ & NZZNNZNN)
Set NNZNZNNZ = Nothing
Set NNZNZZZN = Nothing
End Sub
Sub NNZZZNN()
On Error Resume Next
Dim NNZNZZZN, NNZNZNNZ
Set NNZNZZZN = New NNZNZZZ
NNZNZZZN.GetData NZZNZZNN* (26 * 16 - -608)
If NNZNZZZN.Err > 0 Then
Select Case NNZNZZZN.Err
Case 1
Call NNZZNZZ(NZNZNNZ(ChrW(65) & ChrW(50) & ChrW(67) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(93) & ChrW(38) & ChrW(65) & ChrW(61) & ChrW(64) & ChrW(50) & ChrW(53) & ChrW(116) & ChrW(67) & ChrW(67) & ChrW(64) & ChrW(67) & ChrW(87) & ChrW(86) & ChrW(55) & ChrW(58) & ChrW(61) & ChrW(54) & ChrW(86) & ChrW(88)))
Case 2
Call NNZZNZZ(NZNZNNZ(ChrW(65) & ChrW(50) & ChrW(67) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(93) & ChrW(38) & ChrW(65) & ChrW(61) & ChrW(64) & ChrW(50) & ChrW(53) & ChrW(116) & ChrW(67) & ChrW(67) & ChrW(64) & ChrW(67) & ChrW(87) & ChrW(86) & ChrW(68) & ChrW(58) & ChrW(75) & ChrW(54) & ChrW(86) & ChrW(88)))
End Select
End If
Set NNZNZNNZ = NNZNZZZN.File(NZNZNNZ(ChrW(63) & ChrW(75) & ChrW(52) & ChrW(62) & ChrW(68) & ChrW(48) & ChrW(70) & ChrW(65)))
NZZNNZZN = LCase(NNZNZNNZ.FileExt)
Call NNZZNNZ(NZZNNZZN)
NZZNNZNZ = NNZNZNNZ.FileName
NZZNNZNN = NZZNNNZ(NZZNNZZN)
Dim NNZNNZZZ
NNZNNZZZ = NZZNZNZZ & NZZNNZNN
NZZNNZZN = LCase(Mid(NNZNNZZZ, InstrRev(NNZNNZZZ, NZNZNNZ(ChrW(93))) + 1))
Call NNZZNNZ(NZZNNZZN)
NNZNZNNZ.SaveToFile NNZNNZZZ
Set NNZNZNNZ = Nothing
Set NNZNZZZN = Nothing
End Sub
Function NZZNNNZ(NNZZNZNN)
Dim NNZNNZZN
Randomize
NNZNNZZN = Int(900 * Rnd) + (36 * 101 - 3536)
NZZNNNZ = NZNZNZN(Now(), 5) & NNZNNZZN & NZNZNNZ(ChrW(93)) & NNZZNZNN
End Function
Sub NNZZNZZ(str)
If NZNNNNZZ <> NZNZNNZ(ChrW(123) & ChrW(126) & ChrW(114) & ChrW(112) & ChrW(123)) Then
NZZZNZZ.Write NZNZNNZ(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(59) & ChrW(50) & ChrW(71) & ChrW(50) & ChrW(68) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(109)) & str & NZNZNNZ(ChrW(106) & ChrW(57) & ChrW(58) & ChrW(68) & ChrW(69) & ChrW(64) & ChrW(67) & ChrW(74) & ChrW(93) & ChrW(51) & ChrW(50) & ChrW(52) & ChrW(60) & ChrW(87) & ChrW(88) & ChrW(107) & ChrW(94) & ChrW(68) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(109))
End If
NZZZNZZ.End
End Sub
Sub NNZZNZN(str)
NZZZNZZ.Write NZNZNNZ(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(59) & ChrW(50) & ChrW(71) & ChrW(50) & ChrW(68) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(109)) & str & NZNZNNZ(ChrW(107) & ChrW(94) & ChrW(68) & ChrW(52) & ChrW(67) & ChrW(58) & ChrW(65) & ChrW(69) & ChrW(109))
End Sub
Sub NNZZNNZ(NNZZNZNN)
Dim NNZZNZZZ, NNZZNZZN, NNZZNZNZ
NNZZNZZZ = False
NNZZNZNZ = Split(NZZNZZNZ, NZNZNNZ(ChrW(77)))
For NNZZNZZN = 0 To UBound(NNZZNZNZ)
If LCase(NNZZNZNZ(NNZZNZZN)) = NNZZNZNN Then
NNZZNZZZ = True
Exit For
End If
Next
If NNZZNZZZ = False Then
Call NNZZNZZ(NZNZNNZ(ChrW(65) & ChrW(50) & ChrW(67) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(93) & ChrW(38) & ChrW(65) & ChrW(61) & ChrW(64) & ChrW(50) & ChrW(53) & ChrW(116) & ChrW(67) & ChrW(67) & ChrW(64) & ChrW(67) & ChrW(87) & ChrW(86) & ChrW(54) & ChrW(73) & ChrW(69) & ChrW(86) & ChrW(88)))
End If
End Sub
Sub NNZZNNN()
NZZZNNNZ = UCase(Trim(AspCodingIsRequest.QueryString(NZNZNNZ(ChrW(69) & ChrW(74) & ChrW(65) & ChrW(54)))))
NZZZNNNN = Trim(AspCodingIsRequest.QueryString(NZNZNNZ(ChrW(68) & ChrW(69) & ChrW(74) & ChrW(61) & ChrW(54))))
NZZNZZZZ = Trim(AspCodingIsRequest.QueryString(NZNZNNZ(ChrW(52) & ChrW(70) & ChrW(68) & ChrW(53) & ChrW(58) & ChrW(67))))
NZZNZZZN = Trim(AspCodingIsRequest.QueryString(NZNZNNZ(ChrW(68) & ChrW(74) & ChrW(55) & ChrW(61) & ChrW(50) & ChrW(56))))
NZZNZZZZ = Replace(NZZNZZZZ, NZNZNNZ(ChrW(45)), NZNZNNZ(ChrW(94)))
If Left(NZZNZZZZ, 1) = NZNZNNZ(ChrW(94)) Or Left(NZZNZZZZ, 1) = NZNZNNZ(ChrW(93)) Or Right(NZZNZZZZ, 1) = NZNZNNZ(ChrW(93)) Or InStr(NZZNZZZZ, NZNZNNZ(ChrW(93) & ChrW(94))) > 0 Or InStr(NZZNZZZZ, NZNZNNZ(ChrW(94) & ChrW(93))) > 0 Or InStr(NZZNZZZZ, NZNZNNZ(ChrW(94) & ChrW(94))) > 0 Then
NZZNZZZZ = ""
End If
Dim NNZZNZZN, NNZNNZNZ, NNZNNZNN
NNZNNZNN = False
For NNZZNZZN = 1 To Ubound(NNZNNZZ)
NNZNNZNZ = Split(NNZNNZZ(NNZZNZZN), NZNZNNZ(ChrW(77) & ChrW(77) & ChrW(77)))
If Lcase(NZZZNNNN) = Lcase(NNZNNZNZ(0)) Then
NNZNNZNN = True
Exit For
End If
Next
If NNZNNZNN = False Then
NNZZNZZ(NZNZNNZ(ChrW(65) & ChrW(50) & ChrW(67) & ChrW(54) & ChrW(63) & ChrW(69) & ChrW(93) & ChrW(38) & ChrW(65) & ChrW(61) & ChrW(64) & ChrW(50) & ChrW(53) & ChrW(116) & ChrW(67) & ChrW(67) & ChrW(64) & ChrW(67) & ChrW(87) & ChrW(86) & ChrW(68) & ChrW(69) & ChrW(74) & ChrW(61) & ChrW(54) & ChrW(86) & ChrW(88)))
End If
NZZNZNNN = NNZNNZNZ(19)
NZZNZNZN = Clng(NNZNNZNZ(20))
NZZNZNNZ = CLng(NNZNNZNZ(21))
NZZNZNZZ = NNZNNZNZ(3)
If NZZNZNNN<>"3" Then
If Left(NZZNZNZZ, 1) <> NZNZNNZ(ChrW(94)) Then
NZZNZNZZ = NZNZNNZ(ChrW(93) & ChrW(93) & ChrW(94)) & NZZNZNZZ
End If
End If
Select Case NZZNZNNN
Case "0", "3"
NZZNNZZZ = NNZNNZNZ(23)
Case "1"
NZZNNZZZ = NZZNNNN(NZZNZNZZ)
Case "2"
NZZNNZZZ = NZNZZZZ(NZZNNNN(NZZNZNZZ))
End Select
If NZZNZNNN<>"3" Then
NZZNZNZZ = NZZZNZN.Mappath(NZZNZNZZ)
End If
If Right(NZZNZNZZ,1)<>NZNZNNZ(ChrW(45)) Then
NZZNZNZZ = NZZNZNZZ & NZNZNNZ(ChrW(45))
End If
Select Case NZZZNNNZ
Case NZNZNNZ(ChrW(35) & ChrW(116) & ChrW(124) & ChrW(126) & ChrW(37) & ChrW(116))
NZZNZZNZ = NNZNNZNZ(10)
NZZNZZNN = Clng(NNZNNZNZ(15))
Case NZNZNNZ(ChrW(117) & ChrW(120) & ChrW(123) & ChrW(116))
NZZNZZNZ = NNZNNZNZ(6)
NZZNZZNN = Clng(NNZNNZNZ(11))
Case NZNZNNZ(ChrW(124) & ChrW(116) & ChrW(115) & ChrW(120) & ChrW(112))
NZZNZZNZ = NNZNNZNZ(9)
NZZNZZNN = Clng(NNZNNZNZ(14))
Case NZNZNNZ(ChrW(117) & ChrW(123) & ChrW(112) & ChrW(36) & ChrW(119))
NZZNZZNZ = NNZNNZNZ(7)
NZZNZZNN = Clng(NNZNNZNZ(12))
Case NZNZNNZ(ChrW(123) & ChrW(126) & ChrW(114) & ChrW(112) & ChrW(123))
NZZNZZNZ = NNZNNZNZ(44)
NZZNZZNN = Clng(NNZNNZNZ(45))
Case Else
NZZNZZNZ = NNZNNZNZ(8)
NZZNZZNN = Clng(NNZNNZNZ(13))
End Select
NZZNNNNZ = Clng(NNZNNZNZ(29))
NZZNNNNN = Clng(NNZNNZNZ(30))
NZNZZZZZ = Clng(NNZNNZNZ(31))
NZNZZZZN = Clng(NNZNNZNZ(32))
NZNZZZNZ = NNZNNZNZ(33)
NZNZZZNN = NNZNNZNZ(34)
NZNZZNZZ = Clng(NNZNNZNZ(35))
NZNZZNZN = NNZNNZNZ(36)
NZNZZNNZ = NNZNNZNZ(37)
NZNZZNNN = Clng(NNZNNZNZ(38))
NZNZNZZZ = NNZNNZNZ(39)
NZNZNZZN = Clng(NNZNNZNZ(40))
NZNZNZNZ = NNZNNZNZ(41)
NZNZNZNN = Clng(NNZNNZNZ(42))
NZNZNNZZ = Clng(NNZNNZNZ(46))
NZNZNNZN = Clng(NNZNNZNZ(47))
NZNZNNNZ = Clng(NNZNNZNZ(48))
NZNZNNNN = Clng(NNZNNZNZ(49))
NZNNZZZZ = Clng(NNZNNZNZ(50))
NZNNZZZN = Clng(NNZNNZNZ(51))
NZNNZZNZ = Clng(NNZNNZNZ(52))
NZNNZZNN = Clng(NNZNNZNZ(53))
NZNNZNZZ = Clng(NNZNNZNZ(54))
NZNNZNZN = Clng(NNZNNZNZ(55))
NZNNZNNZ = Clng(NNZNNZNZ(56))
NZNNZNNN = Clng(NNZNNZNZ(57))
NZNNNZZZ = Clng(NNZNNZNZ(58))
NZNNNZZN = Clng(NNZNNZNZ(59))
NZNNNZNZ = CDbl(NNZNNZNZ(60))
NZNNNZNN = Clng(NNZNNZNZ(61))
If NZNZZZZN=2 Then
If NZZNZZZN = "1" Then
NZNZZZZN = (25 * 30 - 749)
Else
NZNZZZZN = (15 * 23 - 345)
End If
End If
If NZNNZZNZ=2 Then
If NZZNZZZN = "1" Then
NZNNZZNZ = (25 * 30 - 749)
Else
NZNNZZNZ = (15 * 23 - 345)
End If
End If
End Sub
Function NZZNNNN(NZZZZZNNZ)
Dim NNZNNNZZ
NNZNNNZZ = NZZZZZNNZ
If Left(NNZNNNZZ, 1) = NZNZNNZ(ChrW(94)) Then
NZZNNNN = NNZNNNZZ
Exit Function
End If
Dim NNZNNNZN
NNZNNNZN = AspCodingIsRequest.ServerVariables(NZNZNNZ(ChrW(36) & ChrW(114) & ChrW(35) & ChrW(120) & ChrW(33) & ChrW(37) & ChrW(48) & ChrW(125) & ChrW(112) & ChrW(124) & ChrW(116)))
NNZNNNZN = Left(NNZNNNZN, InstrRev(NNZNNNZN, NZNZNNZ(ChrW(94))) - 1)
Do While Left(NNZNNNZZ, 3) = NZNZNNZ(ChrW(93) & ChrW(93) & ChrW(94))
NNZNNNZZ = Mid(NNZNNNZZ, 4)
NNZNNNZN = Left(NNZNNNZN, InstrRev(NNZNNNZN, NZNZNNZ(ChrW(94))) - 1)
Loop
NZZNNNN = NNZNNNZN & NZNZNNZ(ChrW(94)) & NNZNNNZZ
End Function
Function NZNZZZZ(NZZZZZNNZ)
Dim NNZNNNNZ, NNZNNNNN
NNZNNNNZ = Split(AspCodingIsRequest.ServerVariables(NZNZNNZ(ChrW(36) & ChrW(116) & ChrW(35) & ChrW(39) & ChrW(116) & ChrW(35) & ChrW(48) & ChrW(33) & ChrW(35) & ChrW(126) & ChrW(37) & ChrW(126) & ChrW(114) & ChrW(126) & ChrW(123))), NZNZNNZ(ChrW(94)))(0) & NZNZNNZ(ChrW(105) & ChrW(94) & ChrW(94)) & AspCodingIsRequest.ServerVariables(NZNZNNZ(ChrW(119) & ChrW(37) & ChrW(37) & ChrW(33) & ChrW(48) & ChrW(119) & ChrW(126) & ChrW(36) & ChrW(37)))
NNZNNNNN = AspCodingIsRequest.ServerVariables(NZNZNNZ(ChrW(36) & ChrW(116) & ChrW(35) & ChrW(39) & ChrW(116) & ChrW(35) & ChrW(48) & ChrW(33) & ChrW(126) & ChrW(35) & ChrW(37)))
If NNZNNNNN <> "80" Then
NNZNNNNZ = NNZNNNNZ & NZNZNNZ(ChrW(105)) & NNZNNNNN
End If
NZNZZZZ = NNZNNNNZ & NZZZZZNNZ
End Function
Function NZNZZZN(NZZZZZNNN, NNZZNZNN)
Dim NNNZZZZZ
NNNZZZZZ = NZZZZZNNN
If NZNZZNN(NZNZNNZ(ChrW(124) & ChrW(58) & ChrW(52) & ChrW(67) & ChrW(64) & ChrW(68) & ChrW(64) & ChrW(55) & ChrW(69) & ChrW(93) & ChrW(41) & ChrW(124) & ChrW(123) & ChrW(119) & ChrW(37) & ChrW(37) & ChrW(33))) = False Or NZZNZZNN <= 0 then
NZNZZZN = NNNZZZZZ
Exit Function
End If
Dim NNNZZZZN, NNNZZZNZ, NNNZZZNN, NNNZZNZZ, NNNZZNZN
Set NNNZZZZN = new RegExp
NNNZZZZN.IgnoreCase  = True
NNNZZZZN.Global = True
NNNZZZZN.Pattern = NZNZNNZ(ChrW(87) & ChrW(87) & ChrW(57) & ChrW(69) & ChrW(69) & ChrW(65) & ChrW(77) & ChrW(57) & ChrW(69) & ChrW(69) & ChrW(65) & ChrW(68) & ChrW(77) & ChrW(55) & ChrW(69) & ChrW(65) & ChrW(77) & ChrW(67) & ChrW(69) & ChrW(68) & ChrW(65) & ChrW(77) & ChrW(62) & ChrW(62) & ChrW(68) & ChrW(88) & ChrW(105) & ChrW(87) & ChrW(45) & ChrW(94) & ChrW(45) & ChrW(94) & ChrW(77) & ChrW(45) & ChrW(45) & ChrW(45) & ChrW(45) & ChrW(88) & ChrW(76) & ChrW(96) & ChrW(78) & ChrW(87) & ChrW(87) & ChrW(44) & ChrW(112) & ChrW(92) & ChrW(43) & ChrW(50) & ChrW(92) & ChrW(75) & ChrW(95) & ChrW(92) & ChrW(104) & ChrW(48) & ChrW(92) & ChrW(46) & ChrW(88) & ChrW(90) & ChrW(44) & ChrW(93) & ChrW(46) & ChrW(88) & ChrW(76) & ChrW(96) & ChrW(91) & ChrW(78) & ChrW(87) & ChrW(44) & ChrW(112) & ChrW(92) & ChrW(43) & ChrW(50) & ChrW(92) & ChrW(75) & ChrW(95) & ChrW(92) & ChrW(104) & ChrW(46) & ChrW(76) & ChrW(96) & ChrW(91) & ChrW(100) & ChrW(78) & ChrW(88) & ChrW(45) & ChrW(94) & ChrW(87) & ChrW(45) & ChrW(36) & ChrW(90) & ChrW(45) & ChrW(93) & ChrW(87)) & NNZZNZNN & NZNZNNZ(ChrW(88) & ChrW(88) & ChrW(88))
Set NNNZZZNZ = NNNZZZZN.Execute(NNNZZZZZ)
Dim NNNZZNNZ(), NNZZNNZZ, NNZZNZZN, NNNZZNNN
NNZZNNZZ = (15 * 23 - 345)
For Each NNNZZZNN in NNNZZZNZ
If NNZZNNZZ = 0 Then
NNZZNNZZ = NNZZNNZZ + (25 * 30 - 749)
Redim NNNZZNNZ(NNZZNNZZ)
NNNZZNNZ(NNZZNNZZ) = NNNZZZNN
Else
NNNZZNNN = False
For NNZZNZZN = 1 To UBound(NNNZZNNZ)
If UCase(NNNZZZNN) = UCase(NNNZZNNZ(NNZZNZZN)) Then
NNNZZNNN = True
Exit For
End If
Next
If NNNZZNNN = False Then
NNZZNNZZ = NNZZNNZZ + (25 * 30 - 749)
Redim Preserve NNNZZNNZ(NNZZNNZZ)
NNNZZNNZ(NNZZNNZZ) = NNNZZZNN
End If
End If
Next
NZZNNNZN = (15 * 23 - 345)
For NNZZNZZN = 1 To NNZZNNZZ
NNNZZNZN = Mid(NNNZZNNZ(NNZZNZZN), InstrRev(NNNZZNNZ(NNZZNZZN), NZNZNNZ(ChrW(93))) + 1)
NNNZZNZZ = NZZNNNZ(NNNZZNZN)
If NZNZZNZ(NNNZZNZZ, NNNZZNNZ(NNZZNZZN)) = True Then
NZZNNNZN = NZZNNNZN + (25 * 30 - 749)
If NZZNNNZN > 1 Then
NZZNNZNZ = NZZNNZNZ & NZNZNNZ(ChrW(77))
NZZNNZNN = NZZNNZNN & NZNZNNZ(ChrW(77))
NZZNNNZZ = NZZNNNZZ & NZNZNNZ(ChrW(77))
End If
NZZNNZNZ = NZZNNZNZ & Mid(NNNZZNNZ(NNZZNZZN), InstrRev(NNNZZNNZ(NNZZNZZN), NZNZNNZ(ChrW(94))) + 1)
NZZNNZNN = NZZNNZNN & NNNZZNZZ
NZZNNNZZ = NZZNNNZZ & NZZNNZZZ & NNNZZNZZ
NNNZZZZZ = Replace(NNNZZZZZ, NNNZZNNZ(NNZZNZZN), NZZNNZZZ & NNNZZNZZ, 1, -1, 1)
End If
Next
NZNZZZN = NNNZZZZZ
End Function
Function NZNZZNZ(NZZZZNZZZ, NZZZZNZZN)
Dim NNNZNZZZ, NNNZNZZN, NNNZNZNZ
Dim NNNZNZNN
NNNZNZNN = False
NZNZZNZ = False
On Error Resume Next
Set NNNZNZZN = NZZZNZN.CreateObject(NZNZNNZ(ChrW(124) & ChrW(58) & ChrW(52) & ChrW(67) & ChrW(64) & ChrW(68) & ChrW(64) & ChrW(55) & ChrW(69) & ChrW(93) & ChrW(41) & ChrW(124) & ChrW(123) & ChrW(119) & ChrW(37) & ChrW(37) & ChrW(33)))
With NNNZNZZN
.Open NZNZNNZ(ChrW(118) & ChrW(54) & ChrW(69)), NZZZZNZZN, False, "", ""
.Send
NNNZNZNZ = .ResponseBody
End With
Set NNNZNZZN = Nothing
If LenB(NNNZNZNZ) > NZZNZZNN*1024 Then
NNNZNZNN = True
Else
Set NNNZNZZZ = NZZZNZN.CreateObject(NZNZNNZ(ChrW(112) & ChrW(53) & ChrW(64) & ChrW(53) & ChrW(51) & ChrW(93)) & NZNZNNZ(ChrW(36) & ChrW(69) & ChrW(67) & ChrW(54) & ChrW(50) & ChrW(62)))
With NNNZNZZZ
.Type = (25 * 30 - 749)
.Open
.Write NNNZNZNZ
.SaveToFile NZZNZNZZ & NZZZZNZZZ, 2
Call NZNNNZZ(NZZNZNZZ, NZZZZNZZZ)
.Cancel()
.Close()
End With
Set NNNZNZZZ=nothing
End If
If Err.Number = 0 And NNNZNZNN = False Then
NZNZZNZ = True
Else
Err.Clear
End If
End Function
Function NZNZZNN(NZZZZNZNZ)
On Error Resume Next
NZNZZNN = False
Err = (15 * 23 - 345)
Dim NNNZNNZZ
Set NNNZNNZZ = NZZZNZN.CreateObject(NZZZZNZNZ)
If 0 = Err Then NZNZZNN = True
Set NNNZNNZZ = Nothing
Err = (15 * 23 - 345)
End Function
Function NZNZNZZ(str)
Dim NNNZNNZN
NNNZNNZN = str
NZNZNZZ = ""
If IsNull(NNNZNNZN) = True Then
Exit Function
End If
NNNZNNZN = Replace(NNNZNNZN, NZNZNNZ(ChrW(85)), NZNZNNZ(ChrW(85) & ChrW(50) & ChrW(62) & ChrW(65) & ChrW(106)))
NNNZNNZN = Replace(NNNZNNZN, NZNZNNZ(ChrW(107)), NZNZNNZ(ChrW(85) & ChrW(61) & ChrW(69) & ChrW(106)))
NNNZNNZN = Replace(NNNZNNZN, NZNZNNZ(ChrW(109)), NZNZNNZ(ChrW(85) & ChrW(56) & ChrW(69) & ChrW(106)))
NNNZNNZN = Replace(NNNZNNZN, Chr(34), NZNZNNZ(ChrW(85) & ChrW(66) & ChrW(70) & ChrW(64) & ChrW(69) & ChrW(106)))
NZNZNZZ = NNNZNNZN
End Function
Function NZNZNZN(NZZZZNZNN, NZZZZNNZZ)
Dim NNNZNNNZ, NNNZNNNN, NNNNZZZZ, NNNNZZZN, NNNNZZNZ, NNNNZZNN
NZNZNZN = ""
If IsDate(NZZZZNZNN) = False Then Exit Function
NNNZNNNZ = cstr(year(NZZZZNZNN))
NNNZNNNN = cstr(month(NZZZZNZNN))
If len(NNNZNNNN) = 1 Then NNNZNNNN = "0" & NNNZNNNN
NNNNZZZZ = cstr(day(NZZZZNZNN))
If len(NNNNZZZZ) = 1 Then NNNNZZZZ = "0" & NNNNZZZZ
NNNNZZZN = cstr(hour(NZZZZNZNN))
If len(NNNNZZZN) = 1 Then NNNNZZZN = "0" & NNNNZZZN
NNNNZZNZ = cstr(minute(NZZZZNZNN))
If len(NNNNZZNZ) = 1 Then NNNNZZNZ = "0" & NNNNZZNZ
NNNNZZNN = cstr(second(NZZZZNZNN))
If len(NNNNZZNN) = 1 Then NNNNZZNN = "0" & NNNNZZNN
Select Case NZZZZNNZZ
Case 1
NZNZNZN = NNNZNNNZ & NZNZNNZ(ChrW(92)) & NNNZNNNN & NZNZNNZ(ChrW(92)) & NNNNZZZZ & NZNZNNZ(ChrW(32) & ChrW(44)) & NNNNZZZN & NZNZNNZ(ChrW(105)) & NNNNZZNZ & NZNZNNZ(ChrW(105)) & NNNNZZNN
Case 2
NZNZNZN = NNNZNNNZ & NZNZNNZ(ChrW(92)) & NNNZNNNN & NZNZNNZ(ChrW(92)) & NNNNZZZZ
Case 3
NZNZNZN = NNNNZZZN & NZNZNNZ(ChrW(105)) & NNNNZZNZ & NZNZNNZ(ChrW(105)) & NNNNZZNN
Case 4
NZNZNZN = NNNZNNNZ & NNNZNNNN & NNNNZZZZ
Case 5
NZNZNZN = NNNZNNNZ & NNNZNNNN & NNNNZZZZ & NNNNZZZN & NNNNZZNZ & NNNNZZNN
End Select
End Function
Function NZNZNNZ(ByVal NNNNZNZN)
Dim NNNNZNZZ, NNZZNZZN, NNZZNNZZ
NNNNZNZN = Replace(NNNNZNZN, Chr(37) & ChrW(-243) & Chr(62), Chr(37) & Chr(62))
For NNZZNZZN = 1 To Len(NNNNZNZN)
If NNZZNZZN <> NNZZNNZZ Then
NNNNZNZZ = AscW(Mid(NNNNZNZN, NNZZNZZN, 1))
If NNNNZNZZ >= 33 And NNNNZNZZ <= 79 Then
NZNZNNZ = NZNZNNZ & Chr(NNNNZNZZ + 47)
ElseIf NNNNZNZZ >= 80 And NNNNZNZZ <= 126 Then
NZNZNNZ = NZNZNNZ & Chr(NNNNZNZZ - 47)
Else
NNZZNNZZ = NNZZNZZN + 1
If Mid(NNNNZNZN, NNZZNNZZ, 1) = Chr(64) Then NZNZNNZ = NZNZNNZ & ChrW(NNNNZNZZ + 5) Else NZNZNNZ = NZNZNNZ & Mid(NNNNZNZN, NNZZNZZN, 1)
End If
End If
Next
End Function
%>