perl -le'($c=crypt pack("I*",$_),pack"I*",$_)=~/Just/?print"$_ :: $c":0 while ++$_'