perlで.htpasswdを生成する - rougeref’s diary159人分の基本認証を作ってくれという依頼。htpasswdコマンドを159回起動して、318回パスワードを間違いなくタイプできれば魔法使いになれるらしいが、あいにくそんな技量は持ち合わせていないのでちょっとしたスクリプトを作成。 htpasswdはUNIXパスワードと同じくcrypt()関数でパスワードを暗号化しています。平文のパスワードとランダムの種を与えてあげればいいので、パスワードを作成する関数はこんな感じ。種の元になる文字列は適当でいいんだけど、ウェブ上の例をみるとみんなこんな風にa-zから順序良く並べているので、その例に習いました。 sub mkpasswd { my($pass_plain)=@_; my(@salt_set)=('a'..'z','A'..'Z','0'..'9','.','/'); srand(time|$$); my($seed1) = int(rand
