적수네 동네 - 질문과 답변

	>> Read Reply from No. 35238 article
RE: 안녕하세요. 황당한 사건입니다.^^;

등록 2001-11-18 12:10:00 조회 2
이름 김세연

		: 여느때와 다를바 없는 그런 하루였습니다..
: 서버에서 netstat를 쳐보니 외국사람으로 보이는 아이피가 4-5개가 서버의 ftp포트를
: 들여다 보고 있더라구요.. 익명이란걸 확인하고..
: 뭔가 의심쩍어 제가 익명으로 접속을 했더니..
: 루트디렉토리로 접속이 되지 뭡니까..
: 허걱... 재빨리 익명접속을 막았습니다...
:
 위 문제랑 space.asp랑은 별 상관이 없습니다.
 이 space.asp는 윈도 IIS계열에서 해당 호스트의
 하드디스크 용량을 확인할때 쓰는 ASP 파일입니다.
 리눅스에는 해당사항 없죠..
 : incoming디렉토리에 가보니 이상한것들이 마구 있더라구요..
: space.asp라는게 있어서 한번 보니
:
: <%
: 'Drive information script by Garet Jax
: Response.Write "<html><head><title></title></head><body>"
: Response.Write "<font face=arial>Server Software:"& Request.ServerVariables("SERVER_SOFTWARE") &"<br>Drive Informatio
: n for: "& Request.ServerVariables("SERVER_NAME") &"<br>" Response.Write "<table border=1 cellpadding=3 cellspacing=0 b
: ordercolor=Black>" Response.Write "<tr><td nowrap><font face=arial><b>Driveletter</td><td nowrap><font face=arial><b>D
: rive Type</td><td nowrap><font face=arial><b>Volume Name</td><td nowrap><font face=arial><b>Total Space</td><td nowrap
: ><font face=arial><b>Available Space</td><td nowrap><font face=arial><b>File System</td><td nowrap><font face=arial><b
: >Serial #</td></tr>" Set fs = CreateObject("Scripting.FileSystemObject") Set drv = fs.Drives For each d in drv
: If d.Driveletter <> "A" Then
: If d.IsReady = True Then
: freespace = (d.AvailableSpace / 1024)
: free = (freespace / 1024)
: totalspace = (d.TotalSize / 1024)
: total = (totalspace / 1024)
: 	Response.Write "<tr><td nowrap><font face=arial size=2><A href='dirwalkR.asp?id="& d.DriveLetter &"'>"& d.DriveLetter
:  &"</a></td>" 	If d.DriveType = 3 Then
: 		dtype = "Network"
: 		If d.ShareName = "" Then
: 			dname = "&nbsp;"
: 		Else
: 			dname = d.ShareName
: 		End If
: 	ElseIf d.DriveType = 0 Then
: 		dtype = "Unknown"
: 		If d.VolumeName = "" Then
: 			dname = "&nbsp;"
: 		Else
: 			dname = d.VolumeName
: 		End If
: 	ElseIf d.DriveType = 1 Then
: 		dtype = "Removeable"
: 		If d.VolumeName = "" Then
: 			dname = "&nbsp;"
: 		Else
: 			dname = d.VolumeName
: 		End If
: 	ElseIf d.DriveType = 2 Then
: 		dtype = "Fixed"
: 		If d.VolumeName = "" Then
: 			dname = "&nbsp;"
: 		Else
: 			dname = d.VolumeName
: 		End If
: 	ElseIf d.DriveType = 4 Then
: 		dtype = "CD-Rom"
: 		If d.VolumeName = "" Then
: 			dname = "&nbsp;"
: 		Else
: 			dname = d.VolumeName
: 		End If
: 	ElseIf d.DriveType = 5 Then
: 		dtype = "RAM Disk"
: 		If d.VolumeName = "" Then
: 			dname = "&nbsp;"
: 		Else
: 			dname = d.VolumeName
: 		End If
: 	End If
: 	Response.Write "<td nowrap><font face=arial size=2>"& dtype &"</td><td nowrap><font face=arial size=2>"& dname &"</td
: ><td nowrap><font face=arial size=2>"& Round(total,1) &" <font size=1>Megabytes</td><td nowrap><font face=arial size=2
: >"& Round(free,1) &" <font size=1>Megabytes</td><td nowrap><font face=arial size=2>"& d.FileSystem &"</td><td nowrap><
: font face=arial size=2>"& d.SerialNumber &"</td></tr>" Else 	Response.Write "<td nowrap><font face=arial size=2>"& d.D
: riveLetter &"</td><td colspan=6><font face=arial size=2>Drive not ready</td></tr>" End If End If
: Next
: Response.Write "</table>"
: Response.Write "</body></html>"
: %>
:
: 이런식의 내용이더랍니다..
: 제가 보기엔 무슨 정보를 알아내는것 같은데..
: 확실히 무엇인지 모르겠네요..
: 지금도 몇몇 아이피가 ftp쪽을 건들거리고 있는데
: 확실한 대처 방법이 없을까요?
:
 ftp 서버를 최근 버전으로 업데이트하는것이 좋을것 같은데요^^
 : --
: 항상 좋은하루만 가득되시길:)

	이름 암호

>> 관련글


35238	안녕하세요. 황당한 사건입니다.^^;	조민규	2001.11.18	....1

	RE: 안녕하세요. 황당한 사건입니다.^^;	김세연	2001.11.18	....1

목록보기 윗글 아랫글
글쓰기 답장쓰기 수정 삭제

페이지로딩: [ 1.39 초 ] 작업시간: [ 0.57 초 ]