Home » Program » パスワード暗号化 (Movable Type 6.0) (Tag: )

Movable Type 6.0 (mt_author テーブル author_password カラム) で使用する暗号化されたパスワードを作成するため、ソースファイルを参考にスクリプト化しました。

ソースファイルを展開したディレクトリを /home/tools/appli/mt.60/ とし、文末に添付したスクリプトを mkhash.pl として保存した場合、引数に文字列を指定することで、管理画面での操作と同様に暗号化されたパスワードが出力されます。

perl mkhash.pl raw_password

MT/Author.pm set_password() を参考に必要な個所のみ切り出しています。Movable Type 5.0 では Perl 標準の crypt() で処理出来ましたが、MT/Auth/MT.pm is_valid_password() を参照する限り、3 タイプの暗号化方式に対応しています。

添付したスクリプトでは、標準で採用されている方式を参考にしました。

#!/usr/bin/perl -w

use strict;
use lib qw ( /home/tools/appli/mt.60/lib /home/tools/appli/mt.60/extlib );

use MT::Util;

    my $pass  = $ARGV[0];
    my @alpha = ( 'a' .. 'z', 'A' .. 'Z', 0 .. 9 );
    my $salt  = join '', map $alpha[ rand @alpha ], 1 .. 16;

    print '{SHA}' . $salt . '$' . MT::Util::perl_sha1_digest_hex($salt . $pass);

Random Select

つけ麺 (中) + 薬味ねぎ
三田製麺所 (ちょこっと野菜) から 1 年近く時間が空きましたが、久しぶりに 三田製麺所 を訪れました。消費税率の変更に伴う金額変更以外、特にメニューに変わった様子もありません。トッピングは、チャー
2013/01/14 11:36 品川
通常沖縄出張の際は、沖縄の Drive Network のスタッフとは普段顔を合わせることが少ないため、顔を合わせた時ならではにミーティングや意識合わせを頻繁に行います。今回の出張は当初予定していませ
野菜炒め + タコハッシュ (5)
久しぶりに自分で作った野菜炒めが食べたくなり、ふとキッチンのストックを見ると、先日差し入れでいただいた 【オキハム】タコハッシュ (ロングタコス) 75g と目が合いました。コンビーフハッシュとの組み
Herb
技術職に限らず、仕事において自分の実力がどれ程のものかが気になっていることが多いでしょう。どんな職場でもスキルやキャリアがアップがすることが、モチベーションの 1 つになるかと思います。スキルやキャリ
かつ丼 (1)
日本一美味しいサバの塩焼き でも書きましたが、銀座にサテライトオフィスを設けてそちらに勤務していたことがありました。5 – 6 年程前になります。その際に開拓したリーズナブルなお店の 1
うどん 丸香 (2013/01/29 改修工事後)
うどん 丸香 (肉うどん) で年末年始の 1 ヶ月程、改修工事のためにお休みと知りました。年明けすぐに浜松出張 -> 沖縄出張があったため、戻った後ようやく訪れました。改修工事前まずは改修前の写
Gala 青い海 (7)
去年の 2 月になりますが、景色 (Gala 青い海 2010) 以来約 3 年ぶりに Gala 青い海 をゆっくり訪れる時間がありました。2 月の 14 時頃でこの明るさと海の色です。これは 3 年
山形水ラーメン
久しぶりに訪れた Pour~cafe’ (ロコモコ テリヤキソース) から 3 ヶ月程空きましたが、再び Pour~cafe’ (プルーカフェ) を訪れました。夏真っ盛りで暑い気候でしたし
黒島 (3)
黒島 (No. 1 – 石垣港離島ターミナル 〜 竹富島) の続きです。中央に小浜島、左手に西表島が見えて来ました。また後ろを振り返ると、尾行が続いています。追い上げそうでしたが、もう 1
日替り (縞ほっけ)
久しぶりに 日本一美味しいサバの塩焼き でご紹介した いさば を訪れました。ここ最近はとなりの 元祖 博多チャンポン ハカタノチカラ が続いていたので、久しぶりの焼き魚です。当然の様にサバを目当てに訪
Valid HTML5 Valid CSS3 Another HTML Lint