Here's the one-liner I used to generate the 1722938 in the code.

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

It might take a while, but you should be able to get a crypt() string with "Just" in it, then modify the /.(....)/ part to match. Hope that helps.