perl -le 'print map+(0..9,a..z,A..Z)[rand 62],1..(pop||8)' [download]
In reply to Re: Golfing password creation by shmem in thread Golfing password creation by kyle