apacheのhtpasswdをperlで生成してみた
なんとなく思いついて作ってみた。
perl -e 'sub s{chr((46..57,65..90,97..122)[int(rand(64))]);};print crypt($ARGV[0],&s.&s);' (パスワード)
もっと短くならんかな、これ。
なんとなく思いついて作ってみた。
perl -e 'sub s{chr((46..57,65..90,97..122)[int(rand(64))]);};print crypt($ARGV[0],&s.&s);' (パスワード)
もっと短くならんかな、これ。