perl -e 'fork; fork; while (++$i) { $c .= crypt($i,$i); $c = substr($c,4,128); }