It's broken on big-endian platforms. Try pack("V",... instead.

Update:

Brute-forcing crypt is...fun?

ObJAPH (non-canonical, sorry):

#! /usr/bin/perl -w
use strict;
foreach my $l([[97309,9,3],[25897,10,3]],[[23375,3,3],[12672,9,2],
[10092,5,2]],[[40990,9,3],[66595,4,3]],[[94519,3,3],[10546,7,2],
[11294,2,2],[10018,8,2],[11527,5,2]]){print l($l);}sub l{my $l=shift;
my $o;foreach my $r(@{$l}){$o.=substr(crypt(pack("V",$r->[0]),"sh"),
$r->[1],$r->[2]);}$o=~s{/n}{\n}g;$o=~s{/s}{ }g;$o;}
[download]