Ton Hospel wrote:
TH> #!perl -lp040
TH> $^+=$^%1e3*(9x(3*y/dbl//-4*/e/))||/te|/.vec(crypt(zrQ0W,$_),16,4)%10
.e./y/}$_=$^;{s/\B(?=(...)*$)/,/gTH> Of course it should probably be rejected, windows doesn't even have crypt. At least from 5.6.1 on, (Active)Perl on Windows does have crypt(). - Karsten
