snort-users-jpにはにぽプログラムをPOSTしてみた。

（DoS脆弱性付き）

#!/usr/bin/perl
# pot.pl
# by lumin
# pot.pl [start port] [stop port]
# pot.pl 81 65535
# 
$OUTDIR="/tmp/";
$FROM=$ARGV[0];
$TO=$ARGV[1];
$WAIT_TIME=10;
$FILENAME="tcp";
$FILEEXT="000.conf";
$INETD="/usr/sbin/inetd";
#$INETD="echo";

$CMD="\tstream\ttcp\tnowait\tnobody\t/usr/sbin/tcpd /bin/sleep $WAIT_TIME\n";
$filecount=1;
$count=1;
open(OUT,">$OUTDIR$FILENAME$filecount$FILEEXT");

for($FROM..$TO){
	print OUT $_,$CMD;
	$count++;
	if ($count>1000){
		$count=1;
		close(OUT);
		`$INETD $OUTDIR$FILENAME$filecount$FILEEXT`;
		$filecount++;
		open(OUT,">$OUTDIR$FILENAME$filecount$FILEEXT");
	}
	
}
close(OUT);
`$INETD $OUTDIR$FILENAME$filecount$FILEEXT`;