In article <[EMAIL PROTECTED]>, Karsten Sperling <[EMAIL PROTECTED]> writes: > 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(?=(...)*$)/,/g > > TH> 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
Ah, great to know that. Then the only question reamining is if all crypts behave the same to sufficient extent. e.g. the windows crypt gives different output from unix crypt for that \3 i use in the above code. Replacing the two cases of \3 with Q makes it work however.
