100 人分のパスワードを生成する Perl ワンライナー

comments(1) | trackback(0)

perl -e 'for (1..100) { for (1..8) { print((0..9,a..z,A..Z)[int rand 62])} print "\n" }'

  まあ，これで OK と．
  ただ，パスワードに「0 (ゼロ)，1 (イチ)，I (大文字のアイ)，l (小文字のエル)，O (大文字のオー)」
  なんかが含まれているとフォントによっては全然判別できないので，

perl -e 'for (1..100) { $p = ""; for (1..8) { $p .= (0..9,a..z,A..Z)[int rand 62]} $p =~ tr/01IlO/vwxyz/; print "$p\n" }'

  のように，tr で変換してあげた．