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)
夏季限定醸造生ビール 夏いちばん や アサヒオリオン 沖縄だより を試していた頃、コンビニエンスストアで 青い空と海のビール « ヘリオス酒造株式会社 を見かける様になりました。Weize
Drive Network Philosophy
Drive Network のこだわり (SSL 証明書) に続いてご紹介。一般的なお客様にはなじみが薄いかもしれませんが、2004 年頃には Web サイトと Web ブラウザの通信の暗号化以外にも
京成日暮里駅
普段沖縄へは羽田空港 -> ANA, SKY, JAL のいずれかで那覇空港に移動しますが、一度 Jetstar – ジェットスター を試してみたいと思っていました。便数が限られるこ
ロマンスロード (3)
久高島 (No. 2 – カベール岬) の続きです。カベール岬から南下すると、小さな看板が見えて来ました。"ロマンスロード" の下に書いてある Romansu Road
ARROWS X F-10D
ARROWS X F-10D (No. 1) の続きです。上下のカーソルキーはどこ ?HTC Desire SoftBank X06HTII と ARROWS X F-10D のまず大きな違いの 1
My Select (2013/07/14)
Season 1 (2012/10/04 – 2012/10/20) 同様、今回も本筋の業務前に別件が続いてやや長めの出張です。07/11 – 07/15 までは久しぶりに以前
きつねうどん (温, 中盛)
うどん 丸香 (改修工事) で久しぶりに訪れた日は、まだ試したことのない温かいきつねうどん (かけ) を試してみました。このどーんと大きなお揚げはうどんの量に関わらず豪快ですが、つゆ同様あっさりして優
新開発 ! 超クリーミー泡サーバー (19)
新開発 ! 超クリーミー泡サーバー (Part 3) の続きです。Part 3 で 30 点分の飛び道具がありましたが、292 点まで溜まりました。そろそろ締切が近付いてきたので、まずはフルセットで応
おかずセレクト (2013/04/15, 左半分)
ミニストップ (おかずセレクト No. 1) の続きです。03/18, 03/19 に続けて 03/22 も訪れました。一旦凝り始めるととことん突き詰める AB 型全開です。14 時過ぎに訪れましたが
ビーフカレー (ルー大盛り, 辛さ 25 倍)
カリーライス専門店 エチオピア 本店 (No. 2 – 辛さ 15 – 20 倍) の続きです。行く度に辛さを前回より 5 倍増しにし続け、日々修行の気分です。前回はルーが少な
Valid HTML5 Valid CSS3 Another HTML Lint