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

野菜らーめん
クラウド コンピューティング EXPO では、豊洲からゆりかもめで国際展示場まで移動しました。以前豊洲のデータセンターを利用していて豊洲駅周辺ではよくランチもしたので、帰りに豊洲で遅めのランチとしつつ
サントリーチューハイ -196℃ (2)
私が知る限りでは 20 年近くになりますが、毎年夏も終わりになると キリン秋味 が店頭に並び始めます。ちょうどその頃、最寄りのスーパーやコンビニエンスストアでまた見慣れない大人の飲み物を見かけました。
国道 58 号
4, 5 年程前の沖縄出張時に 国道 58 号 は "ごーぱち" と呼ぶか "ごっぱち" と呼ぶかで本島のどこ出身かが大体分かると聞いた話をふと思い出しました。
りんご型モバイルバッテリー POWER STYLE 6400 (6)
現在使用している ARROWS X F-10D の電池の持ちが再び悪くなって来ました。純正品の電池パックは 1800mhA で 4,000 円強することと、何かのきっかけで "モバイルバッテ
玄米 + くめ納豆 秘伝金印
カミングアウトバラエティ 秘密のケンミン SHOW を沖縄特集で初めて知り、その後も YouTube で面白そうな回をダウンロードして見ています。2014/02/13 の茨城特集は大好きですが、その中
行き止まり ?
沖縄本島 (No. 24 – 瀬底大橋 工事中) の続きです。国道 449 号線 (本部循環線) から瀬底大橋向けに左折して渡り切ると 沖縄県道 172 号瀬底健堅線 に切り替わります。島
純生讃岐うどん (6)
1 ヶ月程前に香川の友達から差し入れをいただきました。 うどん本陣 山田家 という地元では有名店の通販のセットで、"一日、四千人が行列をつくる讃岐うどんの老舗" だそうです。開封し
FreeBSD Logo
携帯電話を ARROWS X F-10D に変更した後、調査不足かもしれませんが写真の解像度が 3M か 13M しか選択出来なくなりました。3M では以前使用していた X06HTII よりも劣るため
超クリーミー泡サーバー (12)
新開発 ! 超クリーミー泡サーバー (Part 5) の続きです。せっかくですから、旧バージョンのクリーミー生サーバーと並べてみました。デザイン的には超クリーミー泡サーバーの方が好みではあります。果た
ニライカナイ橋 (5)
沖縄本島 (No. 36 – カフェくるくま) の続きです。久しぶりの カフェくるくま でお腹パンポコリンになった後、久しぶりにニライカナイ橋を通ることにしました。実は国道 331 号を南
Valid HTML5 Valid CSS3 Another HTML Lint