perl -e 'while(1){`nmap -p 1-65535 192.168.1.1`;}'

perl 5.8以上で動作。 ちょっと変更したらなんにでも使える perl -e 'use Encode; while(){print Encode::decode("EUC-JP", $_);}'

（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"; #$INE…