>>>>> "Abhijit" == Abhijit Menon-Sen <ams@wiw.org> writes: Abhijit> On 2001-04-11 10:07:28, filipe-brandenburger@procergs.rs.gov.br wrote: >> >> echo|perl -pe "@a=(A..Z,a..z,0..9);eval's##\$a[rand@a]#;'x8" >> >> [...] >> >> Can it still be further shortened? Abhijit> (51) perl -e 'print((A..Z,a..z,0..9)[rand 63])for(1..8)' Penalties for excessive punctuation, *and* for off-by-one. Two better... perl -e 'print+(A..Z,a..z,0..9)[rand 62]for 1..8' Also, you're missing '.' and '/' from the salt set, if that's what you're working on. -- Randal L. Schwartz - Stonehenge Consulting Services, Inc. - +1 503 777 0095 <merlyn@stonehenge.com> <URL:http://www.stonehenge.com/merlyn/> Perl/Unix/security consulting, Technical writing, Comedy, etc. etc. See PerlTraining.Stonehenge.com for onsite and open-enrollment Perl training! ==== Want to unsubscribe from Fun With Perl? Well, if you insist... ==== Send email to <fwp-request@technofile.org> with message _body_ ==== unsubscribe