Professor6T9 Web SheLL

Windows NT WEB-23 10.0 build 17763 (Windows Server 2016) i586
Microsoft-IIS/10.0
103.118.16.173

File Name : upload.asp

<%@ CodePage=65001 Language="VBScript"%>
<%
Option Explicit
Response.Buffer = True
%>




<%

' This is the function that sends the results of the uploading process.
Function SendResults( errorNumber, fileUrl, fileName, customMsg )
	Response.Write "<script type=""text/javascript"">"
	Response.Write "window.parent.OnUploadCompleted(" & errorNumber & ",""" & Replace( fileUrl, """", "\""" ) & """,""" & Replace( fileName, """", "\""" ) & """,""" & Replace( customMsg , """", "\""" ) & """) ;"
	Response.Write "</script>"
	Response.End
End Function

%>
<%

' Check if this uploader has been enabled.
If ( ConfigIsEnabled = False ) Then
	SendResults "1", "", "", "This file uploader is disabled. Please check the ""editor/filemanager/upload/asp/config.asp"" file"
End If

' The the file type (from the QueryString, by default 'File').
Dim resourceType
If ( Request.QueryString("Type") <> "" ) Then
	resourceType = Request.QueryString("Type")
Else
	resourceType = "File"
End If

' Create the Uploader object.
Dim oUploader
Set oUploader = New NetRube_Upload
oUploader.MaxSize	= 0
oUploader.Allowed	= ConfigAllowedExtensions.Item( resourceType )
oUploader.Denied	= ConfigDeniedExtensions.Item( resourceType )
oUploader.GetData

If oUploader.ErrNum > 1 Then
	SendResults "202", "", "", ""
Else
	Dim sFileName, sFileUrl, sErrorNumber, sOriginalFileName, sExtension
	sFileName		= ""
	sFileUrl		= ""
	sErrorNumber	= "0"

' Map the virtual path to the local server path.
	Dim sServerDir
	sServerDir = Server.MapPath( ConfigUserFilesPath )
	If ( Right( sServerDir, 1 ) <> "\" ) Then
		sServerDir = sServerDir & "\"
	End If
	
	If ( ConfigUseFileType = True ) Then
		sServerDir = sServerDir & resourceType & "\"
	End If

Dim oFSO
	Set oFSO = Server.CreateObject( "Scripting.FileSystemObject" )

' Get the uploaded file name.
	sFileName	= oUploader.File( "NewFile" ).Name
	sExtension	= oUploader.File( "NewFile" ).Ext
	sOriginalFileName = sFileName

Dim iCounter
	iCounter = 0

Do While ( True )
		Dim sFilePath
		sFilePath = sServerDir & sFileName

If ( oFSO.FileExists( sFilePath ) ) Then
			iCounter = iCounter + 1
			sFileName = RemoveExtension( sOriginalFileName ) & "(" & iCounter & ")." & sExtension
			sErrorNumber = "201"
		Else
			oUploader.SaveAs "NewFile", sFilePath
			If oUploader.ErrNum > 0 Then SendResults "202", "", "", ""
			Exit Do
		End If
	Loop

If ( ConfigUseFileType = True ) Then
		sFileUrl = ConfigUserFilesPath & resourceType & "/" & sFileName
	Else
		sFileUrl = ConfigUserFilesPath & sFileName
	End If

SendResults sErrorNumber, sFileUrl, sFileName, ""
	
End If

Set oUploader = Nothing
%>

Name	Type	Size	Owner/Group	Permission	Last Modified	Actions
.	dir	-	0/0	0777	2016-11-29 09:09:13
..	dir	-	0/0	0777	2016-11-29 09:09:38
Desktop.ini	application/x-wine-extension-ini	59 B	0/0	0666	2016-11-29 09:09:11
FolderMarker.ico	application/octet-stream	24.08 KB	0/0	0666	2016-11-29 09:09:13
asp .exe	application/x-empty	0 B	0/0	0666	2016-11-29 09:09:09
class_upload.asp	text/plain	6.18 KB	0/0	0666	2016-11-29 09:09:09
config.asp	text/plain	1.55 KB	0/0	0666	2016-11-29 09:09:10
io.asp	text/plain	697 B	0/0	0666	2016-11-29 09:09:12
upload.asp	text/html	3.28 KB	0/0	0666	2016-11-29 09:09:14

Team Anon Force

https://t.me/Professor6T9x