이런 증상은 서버가 해킹된 것인가요?

익명 사용자에 대해 ftp 쓰기 권한이 있기 때문에 악용되고 있는겁니다. AUX, CON 등의 예약어와 공백 문자를 조합하면 지울 수 없는 디렉터리를 만들 수 있기 때문에.. 아무튼 쓰기 권한 때문에 생긴 문제니까 해킹이라고 할 것 까지는 없겠지만요. 그대로 방치하시면 디스크에 여유공간도 없어지고 트래픽도 엄청 늘어날겁니다.

해결책으로는.. 아마 tag 붙은 디렉터리만 지워주는 툴도 있는 모양인데 사용해 보지는 않았구요. 아래 스크립트를 사용하시면 원격지에서도 tag 을 없앨 수 있습니다. 오래전에 작성해둔 것인데 버그가 약간 있지만 그럭저럭 잘 동작했던 것으로 기억되네요.

#!/usr/bin/perl

my $prefix = "untagged_";

my $SERVER = $ARGV[0];
my $ROOT = "/";
$ROOT = $ARGV[1] if ( $ARGV[1] !~ m/^$/ );

use Net::FTP;

# ftp 에 로긴
$ftp = Net::FTP->new( $SERVER, Debug => 0 );
$ftp->login( 'anonymous', 'IEUSER@' );

# root 디렉터리에서부터 tagged-dir 제거 시작
&remove_tag( $ROOT );

# 종료
$ftp->quit;
exit 0;




# recursive function
sub remove_tag
{
  # 디렉터리로 들어온다.
  $ftp->cwd( $_[0] );

  # 현재 디렉의 모든 하위 디렉 리스트를 얻는다.
  my @list = &get_dir_list( $_[0] );

  foreach ( @list )
  {
    # 태그가 떨어진 정상적인 이름을 얻고 재귀호출
    my $name = &rename_tagged_dir( $_ );
    print $_[0].$name."\n";
    &remove_tag( $_[0].$name );
  }

  # 부모 디렉터리로 복귀
  $ftp->cwd( ".." );
}


# 디렉터리 리스트 반환
sub get_dir_list
{
  my @list = $ftp->ls( "-aF ".$_[0] );

  # 디렉터리만 추출
  @list = grep { /\/$/ } @list;
  @list = grep { !/^\.{1,2}\/$/ } @list;

  return @list;
}


# tag 를 제거한다.
sub rename_tagged_dir
{
  glob $prefix;

  # 태그가 없다면 그대로의 이름을 반환
  return $_[0] if ( $_[0] !~ m/(^\s{1,}|\s{1,}$)/ );

  # 태그가 붙어있으면 정상적인 이름으로 바꾼다.
  $name = $prefix.$_[0];
  $name =~ s/[\s.]//g;

  # RNFR, RNTO
  $ftp->rename( "./".$_[0]." /", $name );

  return $name;
}

운영하는 서버에 한동안 익명 FTP를 열어두었는 데, 소위 'FTP TAG' 라는
이름의 폴더들이 만들어져 있네요.

로그파일보니 디렉토리 경로가 예약어/공백문자들로 이루어져있더군요.

그냥 rm -rf * 로 지워버리면 간단하지만,
태그를 해제해서 올려진 파일을 사용하고 싶습니다.

위에 분이 올려주신 스크립트를 받아서 해봤는데 잘 안되네요.
제가 펄스크립트를 모르는지라 수정하기도 힘들고..

이런 종류의 FTP 태그 해제 툴이나 쉘스크립트 있으시면 좀 알려주시면 감사하겠습니다.